Posted to tcl by rmax at Tue Sep 11 14:56:53 GMT 2007view pretty

image create photo foo -format GIF -data {
R0lGODlhHwASAPUAAKuCNP///7HcfPjybEFBQYS65WZmZvj4cvTMQffrZCSHyfj2cJTG6BNo
t/bhWfXYZJCQkM5mDe26NPblXfK8Mv//qry8vP/MzPTIPABFo/XaUWCp2///zP766Pv7+/75
8dFtYfjvaPvxverFTD5njvTRR9WhMwAAAJlmM/blZdrr+P+9APjkk/XdXeqyL/C2LvrtoXq2
4VJ2pfjoe2YzM/foafjtZgAAAMyZM8zM/yo/AAAAAAAAAAAAAAAAAAAAACH/C05FVFNDQVBF
Mi4wAwEAAAAh+QQFCgA3ACwAAAAAHwASAEAG/8CbcEgsGo9IIiAwGRyeAVIgykQABI1MklAx
TAlCgHh8YzQU6IwsqfyIHInQYBBKOEougKJxTnqnUxAEAwsHKCAgNg5WChsEHAFgbGEAHSwP
CBgUYpNHAB8wCYQRAR4eUx4REgBnWmwWBrEGhU+1CyEOF6yPkUZcUxYBFoIaDhMTDhoIJkuN
vJKdN2Nk0UifIi3GyMovANVKHSlyCxHlA+VWKnuubEszIbQBJ1PzDhhXWZ1LNU5PFxcjRvyb
YAULAQIQkBiAAKhLrVoDEmhYAWCDgYMJixioAEiYoDhz6txhxsAiRl8VKkDgaIEADQoYEGRa
BaBAgRhoDvqBZeBbkQEgACH5BAUKAAAALBAACwAGAAQAQAYUQAcKFcEBQLqkDoDKBQI5I2hq
DAIAOw==
}

foreach i {0 1 2} {
    puts stderr $i
    foo configure -format "GIF -index $i"
}