random seed

set image [gd create 450 150]

set black [gd color new $image 0 0 0]
set green [gd color new $image 0 200 0]
set red [gd color new $image 255 0 0]
set blue [gd color new $image 0 0 255]
set yellow [gd color new $image 255 255 0]
set orange [gd color new $image 236 171 0]
set teal [gd color new $image 46 199 211]
set grey [gd color new $image 240 240 240]

gd fillrectangle $image $grey 0 0 450 150

gd textup $image $black large 30 90 "Welcome,"

gd text $image $red small 55 30 [remote_hostname]

gd text $image $teal large 100 85 "In Texas, the time is"

set datestr [clock format [clock seconds] -format "%A %b %d, %Y"]
gd text $image $green small 280 55 $datestr

set timestr [string trimleft [clock format [clock seconds] -format "%I:%M %p"] 0]
gd text $image $orange large 150 110 $timestr

gd interlace $image on
gd writeGIF $image $imageFile
close $ingif
gd destroy $image