diff options
Diffstat (limited to 'imagefont/test.bmx')
| -rw-r--r-- | imagefont/test.bmx | 92 |
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 |