#!/usr/bin/tclsh set fp [open "index.html" "w" 0644] if [catch {open support-pre.html r} hfp] { puts $fp {} puts $fp {} puts $fp "ImageMagick Filters" puts $fp {} puts $fp {} puts $fp {} puts $fp "" puts $fp "" } else { set hsize [file size support-pre.html] puts -nonewline $fp [read $hfp $hsize] close $hfp } set support_val {0.6 0.8 1.0 1.2 1.4} set quality 85 set side 150 set recompute 1 set colcount [llength $support_val] incr colcount puts $fp "" foreach imagefile [glob "traces.jpg"] { set w [exec identify -format "%w" $imagefile] set h [exec identify -format "%h" $imagefile] set side2 [expr {int($side * $h/$w)}] puts $fp "" puts $fp "" foreach support $support_val { if {$support == 1.0} { puts $fp "" } else { puts $fp "" } } puts $fp "" foreach filter {Lanczos Point Box Triangle Hermite Hanning Hamming Blackman Gaussian Quadratic Cubic Catrom Mitchell Bessel Sinc} { puts $fp "" foreach support $support_val { puts "Generating using $filter filter with support $support" set result filtered/$filter\_s$support\_$imagefile if {$recompute} { exec convert $imagefile -filter $filter -support $support -resize $side\x -quality $quality $result } set filesize [file size $result] set filesize [expr round($filesize/1024.0*100.0)/100.0] puts $fp "" } puts $fp "" } } puts $fp "
$imagefile (Click for original image) size: [exec identify -format "%wx%h" $imagefile] reduced to: $side\x$side2
Filter(default)-support $support
$filter\"\"
$filesize Kb
" if [catch {open support-post.html r} hfp] { puts $fp {} } else { set hsize [file size support-post.html] puts -nonewline $fp [read $hfp $hsize] close $hfp } close $fp