Rotate a rect

Import mojo

Class Game Extends App
	Field toggle:Bool = False
	Method OnCreate()
		SetUpdateRate 60
	End
	
	Method OnRender()
		Cls
		SetColor 0, 0, 0
		
		PushMatrix()
		SetColor(255, 255, 255)
		If (toggle)
			Translate(30, 30)
			Rotate(45)
		EndIf
    	        DrawRect(300, 300, 30, 30)
    	        PopMatrix();
		DrawText "Rotation test", 10, 10
		
	End
	
	Method OnUpdate()
		If KeyHit(KEY_SPACE)
			toggle = Not toggle
		EndIf
	End
End

Function Main()
	New Game()
End

Import mojo

Class Game Extends App
	Field toggle:Bool = False
	Field angle:Float = 0
	Method OnCreate()
		SetUpdateRate 60
	End
	
	Method OnRender()
		Cls
		SetColor 0, 0, 0
		
		PushMatrix()
		SetColor(255, 255, 255)
		Translate(300, 300)
		Rotate(angle)
    	        DrawRect(-15, -15, 30, 30)
    	        PopMatrix();
		DrawText "Rotation test", 10, 10
		angle = angle + 1
	End
	
	Method OnUpdate()
		If KeyHit(KEY_SPACE)
			toggle = Not toggle
		EndIf
	End
End

Function Main()
	New Game()
End

Import mojo

Class RectDemo Extends App
	
	Method CreateRectangle:Image( width:Int,height:Int,color:Int = $FFFFFFFF)
		Local img:Image = CreateImage(width,height)
		Local pixels:Int[width*height]
		For Local i:Int = 0 To pixels.Length()-1
			pixels[i] = color
		Next
		img.WritePixels(pixels,0,0,width,height)
		
		'	Set Handle to The middle
		img.SetHandle(width/2, height/2)
		
		Return img
		
	End
	
	Field rect:Image
	Field angle:Float
	Field alpha:Float
	Field dec:Float
	Field scale:Float
	
	Method OnCreate:Int()
		rect = CreateRectangle(50,50)
		angle = 0.0
		alpha = 1.0
		dec = 0.01
		scale = 1
		
		SetUpdateRate(60)
		Return 0
	End
	
	Method OnUpdate:Int()
		angle += dec*200
		alpha -= dec
		scale += dec*10
		
		If(alpha<= dec)
			dec *= -1
			alpha = 0
		
		Elseif(alpha>=1)
			dec *= -1
			alpha = 1
		
		End
		
		Return 0
	End
	
	Method OnRender:Int()
		Cls()
		SetAlpha(alpha)
		DrawImage( rect,DeviceWidth()/2,DeviceHeight()/2,angle,scale,scale )
		SetAlpha(1.0)
		Return 0
	End
	
End

Function Main:Int()
	New RectDemo()
	Return 0
End