diff options
| author | Ian C <ianc@noddybox.co.uk> | 2005-05-15 22:59:22 +0000 |
|---|---|---|
| committer | Ian C <ianc@noddybox.co.uk> | 2005-05-15 22:59:22 +0000 |
| commit | 49091f65da52a0a186467f78677dcb1294c422a5 (patch) | |
| tree | 393a1ddde99bd3ecfd939420b5cf1fcee56275ef | |
| parent | bd853704109118185979acaad0565b1c2ce58dce (diff) | |
*** empty log message ***
| -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]) |