no display name and no $DISPLAY environment variable
    while executing
"load /enadisk/commun/linux/local/ActiveTcl-8.6.11/lib/libtk8.6.so Tk"
    ("package ifneeded Tk 8.6.11" script)
    invoked from within
"load /commun/linux/local/ActiveTcl-8.6.11/lib/Img1.4.6/libtkimgwindow1.4.6.so"
    ("package ifneeded img::window 1.4.6" script)
    invoked from within
"package require img::window"
    ("package ifneeded Img 1.4.6" script)
    invoked from within
"package require Img"
    (in namespace eval "::request" script line 16)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#!/usr/local/bin/wish

proc image% {image percent} {
   set deno      [gcd $percent 100]
   set zoom      [expr {$percent/$deno}]
   set subsample [expr {100/$deno}]
   set im1 [image create photo]
   $im1 copy $image -zoom $zoom
   set im2 [image create photo]
   $im2 copy $im1 -subsample $subsample
   image delete $im1
   set im2
 }
 proc gcd {u v} {expr {$u? [gcd [expr $v%$u] $u]: $v}}

package require Img

set t [image create photo -file undo.gif]

set t2 [image% $t 120]
set t3 [image% $t 532]

frame .f
pack .f
label .f.l1 -image $t
label .f.l2 -image $t2
label .f.l3 -image $t3
pack .f.l1 .f.l2 .f.l3