Evaluated proc jpeg_no_dither {url {width 80}} {jpg get $url; jpg cum $width}