Updates

1 files changed, 92 insertions, 0 deletions

diff --git a/imagefont/test.bmx b/imagefont/test.bmx
index 04930e6..b1da6df 100644
--- a/imagefont/test.bmx
+++ b/imagefont/test.bmx
@@ -1,5 +1,97 @@
 ' $Id$
 
 Import "imagefont.bmx"
+Incbin "bmaxtest.bmi"
 
 Graphics 800,600,32,60
+
+fnt:ImageFont=ImageFont.Load("incbin::bmaxtest.bmi")
+
+c=0
+ci=5
+
+Type Star
+	Field x
+	Field y,sp
+	
+	Function Create:Star()
+		Local s:Star=New Star
+		s.x=Rand(0,800)
+		s.y=Rand(0,600)
+		s.sp=Rand(1,3)
+		Return s
+	End Function
+	
+	Method Update()
+		Plot(x,y)
+		y:+sp
+		y:Mod 600
+	End Method
+End Type
+
+Const NO=10000
+
+Local st:Star[]=New Star[NO]
+
+For f=0 Until NO
+	st[f]=Star.Create()
+Next
+
+While Not KeyHit(KEY_ESCAPE)
+	Cls
+
+	For f=0 Until NO
+		st[f].Update()
+	Next
+	
+	SetTransform(0,2,2)
+	fnt.DrawColoured("DRAWCOLOURED",0,10,c/2,c/2,c)
+	fnt.Draw("DRAW",0,20)
+	fnt.CentreColoured("CENTRECOLOURED",30,c/2,c/2,c)
+	fnt.Centre("CENTRE",40)
+
+	c:+ci
+	
+	If (c=0 Or c=255) ci=-ci
+	
+	DrawText(MemAlloced(),0,100)
+
+	If KeyHit(KEY_SPACE) Then FlushMem
+
+	Flip
+	
+Wend
+
+SetTransform(0,1,1)
+
+ch=33
+
+While Not KeyHit(KEY_ESCAPE)
+	Cls
+
+	For f=0 Until NO
+		st[f].Update()
+	Next
+	
+	a$=Chr$(ch)
+	
+	ch:+1
+	If ch>Asc("Z") Then ch=33
+	
+	For x=0 To 800 Step 8
+		For y=0 To 600 Step 8
+			fnt.DrawColoured(a$,x,y,c,c,c)
+		Next
+	Next
+	
+	c:+ci
+	
+	If (c=0 Or c=255) ci=-ci
+	
+	DrawText(MemAlloced(),0,100)
+	
+	FlushMem
+
+	Flip
+	
+Wend