#!/usr/local/bin/tclsh8.1
## Modified from a script by Mark Handley
cd hires
set files [glob *]
cd ..
set lores [open "index.html" "w"]
puts $lores "Images
"
foreach file $files {
set shortfile [lindex [split $file "."] 0]
puts -nonewline "converting $file..."
set output [exec identify hires/$file]
set size [lindex $output 1]
set size1 [split $size x]
set width [lindex $size1 1]
set height [lindex $size1 2]
if {$height > "800" || $width > "800"} {
set big true
} else {
set big false
}
if {$big == "true"} {
set midres [open "midres/$shortfile.html" "w"]
puts $midres "Image $shortfile "
puts $midres "
"
puts $midres ""
close $midres
}
if {$height > $width} {
exec convert -size 120x160 hires/$file lores/$file
if {$big == "true"} {
exec convert -size 600x800 hires/$file midres/$file
}
} else {
exec convert -size 160x120 hires/$file lores/$file
if {$big == "true"} {
exec convert -size 800x600 hires/$file midres/$file
}
}
if {$big == "true"} {
puts $lores "
"
} else {
puts $lores ""
}
puts "done"
}
puts $lores ""