// Load the standard windows Arial font
LoadFont "Arial",1,32,0
// Load the CRF version of this font
AlphaFont=LoadNewFont("..\../Media/Arial.crf",0,0)
Dim Colours(1000)
For lp=0 To GetArrayElements(Colours(),1)
Colours(lp)=RndRGB()
Next
; Set the Blend colour for Font draw mode #2
FontBlendColour AlphaFont,$ffff0000
// Make an fx image the screen of the screen to draw every onto
Screen =GetFreeImage()
sw =GetScreenWidth()
sh =GetScreenHeight()
Screen=NewFXImage(sw,sh)
// Set the time when the demo will change the drawmode
NextDrawmodeChange=Timer()+4000
Do
LockBuffer
RenderToImage Screen
// Clear or shadebox the backdrop
Select GetFontDrawMode(AlphaFont)
Case 0
Cls RGB(0,0,0)
Case 1
c1=255
c2=$304050
c3=$a0a000
ShadeBox 0,0,sw,sh,c1,c2,c3,c4
Case 2
Cls GetFontBlendColour(AlphaFont)
EndSelect
// Draw this message to the screen a bunch of times
SetFont AlphaFont
Test$="testing Fonttesting Fonttesting Fonttesting Fonttesting Font"
Alevel=AlphaLevel
Ypos=0
For lp=0 To 40
If Ypos<GetScreenHeight()
Ypos=(lp+1)*25
Ink Colours(lp) | ALevel*$1000000
Text 0,Ypos,test$+Str$(lp)
ALevel=(ALevel+1) And 255
EndIf
Next
UnLockBuffer
AlphaLevel=(AlphaLevel+1) And 255
RenderToScreen
DrawImage Screen,0,0,false
// Display what draw mode the font #2 is using
SetFont 1
SetCursor 0,0
Ink $ffffff
Select GetFontDrawMode(AlphaFont)
Case 0
Print "Font DrawMode [0] = Solid Render"
Case 1
Print "Font DrawMode [1] = Alpha Blend To Buffer"
Case 2
Print "Font DrawMode [2] = Alpha Blend To Colour"
EndSelect
//
If KeyState(32) Or Timer()>NextDrawModeChange
D=GetFontDrawMode(AlphaFont)+1
If d>2 Then D=0
FontDrawMode AlphaFont,d
FlushKeys
NextDrawmodeChange=Timer()+4000
EndIf
Sync
Loop
|
