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 } } ## ********************************************************