Would you guys recommend writing new function for the new BMax commands. For example I did this to replace the DrawText command and to do away with the need to setalpha,rotation manualy. A similar function could be used for DrawImage, would do this byte me in the ass later on?
Graphics 640,480,16,60
Global txtAlpha#,txtScaleX#=1,txtScaleY#=1,txtRotation#
Repeat ; Cls
txtRotation#=txtRotation#+0.5
If txtRotation#>360 Then txtRotation#=0
txtAlpha#=txtAlpha#+0.005
If txtAlpha#>1.0 Then txtAlpha#=0
txtScaleX#=txtScaleX#+0.1
If txtScaleX#>10 Then txtScaleX#=0
txtScaleY#=txtScaleY#+0.1
If txtScaleY#>10 Then txtScaleY#=0
SetColor 0,155,0 ; DrawRect 10,100,200,200
SetColor 255,255,255
Text("text with no effects",10,10)
Text("text with rotation",100,100,5,1,txtRotation#)
Text("text with rotation and alpha",100,200,5,txtAlpha,txtRotation#)
Text("text with Scale",300,300,5,1,0,txtScaleX#,txtScaleY#)
Flip ; Until KeyHit(key_escape)
Function Text(txt$,X,Y,Handle=1,Alpha#=1,Rotation#=0.0,ScaleX#=1.0,ScaleY#=1.0)
Local Width=TextWidth(txt$) ' Get Width
Local Height=TextHeight(txt$) ' Get Height
If Handle=1 Then SetHandle 0,0 ' Top Left
If Handle=2 Then SetHandle Width,0 ' Top Right
If Handle=3 Then SetHandle Height,0 ' Bottom Left
If Handle=4 Then SetHandle Width,Height ' Bottom Right
If Handle=5 Then SetHandle Width/2,Height/2 ' Centered
If Alpha#<1.0 Then SetBlend ALPHABLEND ' Set AlphaBlend
SetAlpha Alpha# ' Set Alpha Value
SetScale ScaleX#,ScaleY# ' Set Scale Value
SetRotation Rotation# ' Set Rotation Value
DrawText txt$,X,Y ' Display the text
SetRotation 0.0 ' Reset Rotation Value
SetScale 1.0,1.0 ' Reset Scale Value
SetAlpha 1.0 ' Reset Alpha Value
End Function
|
