[Richard Suchenwirth] 2003-07-29 - Dilbert comics appear daily on http://dilbert.org and can be saved from a browser - weekday strips as GIF images, sunday strips as larger JPEG images (too many colors for GIF). For reading them on a [PocketPC], the size is a bit inconvenient, so in some idle minutes I hacked together the following proc, which from a locally downloaded Sunday Dilbert cuts out the two strip rows (i.e. without the title bar that occupies the upper third) and pastes them lengthwise into another image, which you then can save as JPEG image and transfer to the little box. No Img on iPaq, so for now it can be only browsed with IE. In any case, it demonstrates how easy "scripted image processing" is with Tk...

[http://mini.net/files/dil030720.jpg]
----
 proc dilbert'sun2long filename {
   package require Img ;# since Sunday Dilberts are JPEGs
   set i1 [image create photo -file $filename]
   set w [image width $i1]
   set h [image height $i1]
   set h1 [expr {int($h/3.)-10}]
   set h2 [expr {round($h*2/3.)-16}]
   set res [image create photo]
   $res copy $i1 -from 0 $h1 $w $h2
   $res copy $i1 -from 0 $h2 $w $h -to $w 0
   image delete $i1
   set res
 }

----
[Category Image Processing] | [Arts and crafts of Tcl-Tk programming]