summaryrefslogtreecommitdiff
path: root/imagefont
diff options
context:
space:
mode:
Diffstat (limited to 'imagefont')
-rw-r--r--imagefont/test.bmx14
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])