set image [gd create 300 300] set white [gd color new $image 255 255 255] set black [gd color new $image 0 0 0] set fontList [gd fonts] set x 5 set y 5 foreach font $fontList { set name [lindex $font 0] set width [lindex $font 1] set height [lindex $font 2] gd text $image $black $name $x [incr y [expr $height + 10]] $font } image_expire 0 gd writeGIF $image $imageFile gd destroy $image