diff options
-rw-r--r-- | imagefont/test.bmx | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/imagefont/test.bmx b/imagefont/test.bmx index 4c064c9..c587247 100644 --- a/imagefont/test.bmx +++ b/imagefont/test.bmx @@ -73,9 +73,11 @@ While False ' Not KeyHit(KEY_ESCAPE) Wend -sc=10 +sc=20 t$="THIS IS SOME VERY, VERY, *VERY* ~~LARGE SCROLLING TEXT....." x#=0 +ang#=0 +angi#=0.2 While Not KeyHit(KEY_ESCAPE) Cls @@ -89,12 +91,16 @@ While Not KeyHit(KEY_ESCAPE) DrawText("x="+x+" width="+(-fnt.TextWidth(t[0..1]))+" mem="+MemAlloced(),0,100) DrawText("t="+t,0,110) - SetTransform(0,sc,sc) + SetTransform(ang,sc,sc) + + ang:+angi + + If ang<=-10 Or ang>=10 Then angi=-angi - fnt.Draw(t$,x,200) + fnt.DrawColoured(t$,x,200,255,128,128) If Not KeyDown(KEY_P) - x:-sc + x:-5 If x<-fnt.TextWidth(t[0..1]) x:+fnt.TextWidth(t[0..1]) |