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

  1. image create photo foo -format GIF -data {
  2. R0lGODlhHwASAPUAAKuCNP///7HcfPjybEFBQYS65WZmZvj4cvTMQffrZCSHyfj2cJTG6BNo
  3. t/bhWfXYZJCQkM5mDe26NPblXfK8Mv//qry8vP/MzPTIPABFo/XaUWCp2///zP766Pv7+/75
  4. 8dFtYfjvaPvxverFTD5njvTRR9WhMwAAAJlmM/blZdrr+P+9APjkk/XdXeqyL/C2LvrtoXq2
  5. 4VJ2pfjoe2YzM/foafjtZgAAAMyZM8zM/yo/AAAAAAAAAAAAAAAAAAAAACH/C05FVFNDQVBF
  6. Mi4wAwEAAAAh+QQFCgA3ACwAAAAAHwASAEAG/8CbcEgsGo9IIiAwGRyeAVIgykQABI1MklAx
  7. TAlCgHh8YzQU6IwsqfyIHInQYBBKOEougKJxTnqnUxAEAwsHKCAgNg5WChsEHAFgbGEAHSwP
  8. CBgUYpNHAB8wCYQRAR4eUx4REgBnWmwWBrEGhU+1CyEOF6yPkUZcUxYBFoIaDhMTDhoIJkuN
  9. vJKdN2Nk0UifIi3GyMovANVKHSlyCxHlA+VWKnuubEszIbQBJ1PzDhhXWZ1LNU5PFxcjRvyb
  10. YAULAQIQkBiAAKhLrVoDEmhYAWCDgYMJixioAEiYoDhz6txhxsAiRl8VKkDgaIEADQoYEGRa
  11. BaBAgRhoDvqBZeBbkQEgACH5BAUKAAAALBAACwAGAAQAQAYUQAcKFcEBQLqkDoDKBQI5I2hq
  12. DAIAOw==
  13. }
  14.  
  15. foreach i {0 1 2} {
  16. puts stderr $i
  17. foo configure -format "GIF -index $i"
  18. }
  19.