runs on:
http://mini.net/cgi-bin/wikit/588.html
## ********************************************************
##
## Name: gifBalls
##
## Description:
## Creates .gif files of red, yellow, and green balls.
##
## Parameters:
## where - the directory to drop the balls in.
## Usage:
##
## Comments:
##
proc gifBalls { { where "" } } {
set red {R0lGODlhFAAPAPMPAAAAADgFD00CEGoDGHMTJ21ZXZISK6USL7
MoRJ1aZ9IzUvRUdNVAXscbPv9ylKqcniH5BAEAAAAALAAAAAAU
AA8AAARwEMgpX7qPavrQ+YdBZNv0HIDCKE04kNvZMEvNeIMAU8
mhLI7gQuEqlAwHWtCxYLgIMeRvOTwQBoHS4ICg2RCGXHZDQCIU
aPBVMNYkBgZkSCQ2lgSDAWGfZwd2HAJ4fX6AGg9sggGLhiUPBZ
CNJZMaEQA7}
set yellow {R0lGODlhFAAPAPMPAAAAADExBD09Kk5OAmtrDFNTKmxsWIm
JFLCwM5mZJaCgUsXFONPTUvb2ceXlWKennCH5BAEAAAAALA
AAAAAUAA8AAARqEMgpX1Lq0U3t+QdBaNz0HAmyIEk4kNyZL
I7DMC3xlsqBOI0gA+EylAgpoJCoK8QIPkbQxhwEjqjFbZgQ
WY/QFILlClw5hoEI5LUaSwO1SBc3wzaPgCC+NwfuMX5+AoA
lAA8GBQaFho0UEQA7}
set green {R0lGODlhFAAPAPQAAAAAAAA4BwBNCgBqEgBzE0ZtTACSEwCl
FgqzJj+dTADHIQ/SKRzVOyv0RUf/bH+qgwAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
ACH5BAEAABAALAAAAAAUAA8AAAV2ICSO4pOcD6mSD3K8h0Gk
6/gc0MIsSjzQq5uC0SgyXAMBkJQ4LBqOaGPhK9QMB2LU0WD4
CEHsczs9EAaB2uCAIBoRhmR6RcAiFnj4WTBXJQYGWDEyclY1
AgMDBIuJfAFLLAKIjY6QKg98kgGbljUPBaCdNaMqIQA7}
foreach color { red yellow green } {
set fn [ file join $where ball_${color}.gif ]
set fid [ open $fn w ]
puts -nonewline $fid [ decode64 [ set $color ] ]
close $fid
}
}
## ********************************************************