Posted to tcl by Zarutian at Fri Sep 14 20:01:21 GMT 2007view raw
- set logo {
- 0000000000000000000
- 0000000000000000000
- 0000000000000000000
- 0000000000000000000
- 0000000111110000000
- 0000001000001000000
- 0000010001000100000
- 0000100111110010000
- 0000100001100010000
- 0000100002000010000
- 0000100011000010000
- 0000100111110010000
- 0000010001000100000
- 0000001000001000000
- 0000000111110000000
- 0000000000000000000
- 0000000000000000000
- 0000000000000000000
- 0000000000000000000
- }
- set logo [binary format H* [string map {" " {} "\n" {} 0 000000 1 FFFFFF} $logo]]
- open_graphics sdl 0
- set s [create_sprite]
- add_sprite_frame $s rgb 19 19 $logo
- # set_sprite_frame $s 0
- set_sprite_position $s 50 50
- render
- after 5000