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

  1. set logo {
  2. 0000000000000000000
  3. 0000000000000000000
  4. 0000000000000000000
  5. 0000000000000000000
  6. 0000000111110000000
  7. 0000001000001000000
  8. 0000010001000100000
  9. 0000100111110010000
  10. 0000100001100010000
  11. 0000100002000010000
  12. 0000100011000010000
  13. 0000100111110010000
  14. 0000010001000100000
  15. 0000001000001000000
  16. 0000000111110000000
  17. 0000000000000000000
  18. 0000000000000000000
  19. 0000000000000000000
  20. 0000000000000000000
  21. }
  22. set logo [binary format H* [string map {" " {} "\n" {} 0 000000 1 FFFFFF} $logo]]
  23.  
  24.  
  25. open_graphics sdl 0
  26. set s [create_sprite]
  27. add_sprite_frame $s rgb 19 19 $logo
  28. # set_sprite_frame $s 0
  29. set_sprite_position $s 50 50
  30. render
  31. after 5000