Posted to tcl by rmax at Tue Sep 11 14:56:53 GMT 2007view raw
- 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"
- }