Posted to tcl by Zarutian at Fri Sep 14 20:01:21 GMT 2007view pretty

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