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