summaryrefslogtreecommitdiff
path: root/imagefont
diff options
context:
space:
mode:
authorIan C <ianc@noddybox.co.uk>2005-05-15 22:59:22 +0000
committerIan C <ianc@noddybox.co.uk>2005-05-15 22:59:22 +0000
commit49091f65da52a0a186467f78677dcb1294c422a5 (patch)
tree393a1ddde99bd3ecfd939420b5cf1fcee56275ef /imagefont
parentbd853704109118185979acaad0565b1c2ce58dce (diff)
*** empty log message ***
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])