spintext.bmx 336 B

12345678910111213141516171819202122232425262728293031
  1. Graphics 640,480
  2. t$="***** Some spinny text *****"
  3. w=TextWidth(t)
  4. h=TextHeight(t)
  5. r#=0
  6. While Not KeyHit( KEY_ESCAPE )
  7. Cls
  8. r:+3
  9. SetOrigin 320,240
  10. SetHandle w/2,h/2
  11. SetTransform r,3,5
  12. SetColor 0,0,255
  13. DrawRect 0,0,w,h
  14. SetColor 255,255,255
  15. DrawText t,0,0
  16. SetOrigin 0,0
  17. SetHandle 0,0
  18. SetTransform 0,1,1
  19. Flip
  20. Wend