Monkey 2 App Template

Tagged: App Template, OnActivate, OnDeactivate

This topic contains 13 replies, has 3 voices, and was last updated by codifies 2 years, 3 months ago.

Viewing 14 posts - 1 through 14 (of 14 total)

Author

Posts

January 13, 2017 at 12:54 pm #6487

APC

Participant

Hello Monkey Team,

I put together a Monkey 2 App template for GUI that includes the OnRender, OnUpdate and the OnActivate and OnDeactivated ( same as MX1 OnSuspend and OnResume), I am assuming that OnLoad happens in the App initialization Method (New). On the second code I implemented the “isSuspended” to minimized the app activity in the background, so I save the App.FPS in this mode and display it when the Window app is Maximized. I need your input to finalize this template and share it with you.

#Import "<std>"
#Import "<mojo>"
#Import "<mojox>"

Using std..
Using mojo..
Using mojox..

Global virtualResolution:=New Vec2i( 640,480 )

Class MyApp Extends Window
	Field isSuspended:Bool=False
	
	Method New( title:String,width:Int,height:Int,flags:WindowFlags=WindowFlags.Resizable )
		Super.New( title,width,height,flags )
		' Assign a Method to the App.Activated.
		App.Activated+=OnActivated		' Resume the App when Window maximizes or gets focus
		' Assign a Method to the App.Deactivated.
		App.Deactivated+=OnDeactivated	' Suspend the App When Window minimazes or loose focus.   
		' Hide the mouse pointer.
		'Mouse.PointerVisible = False
		
	End
	
	Method OnRender( canvas:Canvas ) Override
		'Print "OnRender"		
	  	OnUpdate()
	End
	Method OnUpdate()
		' Print "OnUpDate"
		If isSuspended 
			savedFPS=App.FPS
			'Print "App is in runing the Background"
		Endif
	End
	
	Method OnActivated()
		Print "OnActivated"		
		isSuspended=False
	End
	
	Method OnDeactivated()
		isSuspended=True
		Print "OnDeactivated"
	End
	
	Method OnMeasure:Vec2i() Override
		Return virtualResolution
	End
End

Function Main()
	New AppInstance
	New MyApp( "MX2 Template",640,480 )
	App.Run()
End

#Import "<std>"

#Import "<mojo>"

#Import "<mojox>"

Using std..

Using mojo..

Using mojox..

Global virtualResolution:=New Vec2i( 640,480 )

Class MyApp Extends Window

Field isSuspended:Bool=False

Method New( title:String,width:Int,height:Int,flags:WindowFlags=WindowFlags.Resizable )

Super.New( title,width,height,flags )

' Assign a Method to the App.Activated.

App.Activated+=OnActivated ' Resume the App when Window maximizes or gets focus

' Assign a Method to the App.Deactivated.

App.Deactivated+=OnDeactivated ' Suspend the App When Window minimazes or loose focus.

' Hide the mouse pointer.

'Mouse.PointerVisible = False

End

Method OnRender( canvas:Canvas ) Override

'Print "OnRender"

OnUpdate()

End

Method OnUpdate()

' Print "OnUpDate"

If isSuspended

savedFPS=App.FPS

'Print "App is in runing the Background"

Endif

End

Method OnActivated()

Print "OnActivated"

isSuspended=False

End

Method OnDeactivated()

isSuspended=True

Print "OnDeactivated"

End

Method OnMeasure:Vec2i() Override

Return virtualResolution

End

Function Main()

New AppInstance

New MyApp( "MX2 Template",640,480 )

App.Run()

End

Now for Mobile Devices we need to reduce app activity on the background to save battery power, so a added the following to the code and I want to know if what I did reduces power consumption. Minimize the App window on PC or press the Home button to put it in the background. In MX1 I setup the update rate to 5 (SetUpdateRate(5)) in suspended and back to 60 (SetUpdateRate(60)) on resume, I don’t know if this is the case with MX2.

#Import "<std>"
#Import "<mojo>"
#Import "<mojox>"

Using std..
Using mojo..
Using mojox..

Global virtualResolution:=New Vec2i( 640,480 )

Class MyApp Extends Window
	Field isSuspended:Bool=False
	Field savedFPS:Int=0

	' Screen Title
	Field titlemsg:String
	Field title_y:Int
	Field title_x:Float
	
	Method New( title:String,width:Int,height:Int,flags:WindowFlags=WindowFlags.Resizable )
		Super.New( title,width,height,flags )
		' Assign a Method to the App.Activated.
		App.Activated+=OnActivated		' Resume the App when Window maximizes or gets focus
		' Assign a Method to the App.Deactivated.
		App.Deactivated+=OnDeactivated	' Suspend the App When Window minimazes or loose focus.   
		' Hide the mouse pointer.
		'Mouse.PointerVisible = False
		
		titlemsg="Monkey 2 Window Template - Click Minimize/Maximize Window "	
	End
	
	Method OnRender( canvas:Canvas ) Override
		title_x=canvas.Font.TextWidth(titlemsg)	'get the titlemsg text length
		title_x=virtualResolution.X *.5-title_x *.5 'center it on the screen	
	  	 If Not isSuspended 
		  	App.RequestRender()	
		  	' canvas.DrawText(App.FPS,virtualResolution.X*.5,virtualResolution.Y*.5)
		  	canvas.DrawText("FPS:"+App.FPS,0,16)
		  	canvas.DrawText("FPS - On App Suspended:"+savedFPS,0,32)
		  	canvas.Color=Color.Green
		  	canvas.DrawText(titlemsg,title_x,0)
	  		
	  	Else
	  		savedFPS=App.FPS
	  	Endif
	  	OnUpdate()
	End
	Method OnUpdate()
		' Print "OnUpDate"
		If isSuspended 
			savedFPS=App.FPS
			'Print "App is in runing the Background"
		Endif
	End
	
	Method OnActivated()
		
		isSuspended=False
		Print "FPS - App Suspended:"+savedFPS
		
	End
	
	Method OnDeactivated()
		
		isSuspended=True
		Print "OnDeactivated"
		
	End
	
	Method OnMeasure:Vec2i() Override
		Return virtualResolution
	End
End

Function Main()
	New AppInstance
	New MyApp( "MX2 Template",640,480 )
	App.Run()
End

#Import "<std>"

#Import "<mojo>"

#Import "<mojox>"

Using std..

Using mojo..

Using mojox..

Global virtualResolution:=New Vec2i( 640,480 )

Class MyApp Extends Window

Field isSuspended:Bool=False

Field savedFPS:Int=0

' Screen Title

Field titlemsg:String

Field title_y:Int

Field title_x:Float

Method New( title:String,width:Int,height:Int,flags:WindowFlags=WindowFlags.Resizable )

Super.New( title,width,height,flags )

' Assign a Method to the App.Activated.

App.Activated+=OnActivated ' Resume the App when Window maximizes or gets focus

' Assign a Method to the App.Deactivated.

App.Deactivated+=OnDeactivated ' Suspend the App When Window minimazes or loose focus.

' Hide the mouse pointer.

'Mouse.PointerVisible = False

titlemsg="Monkey 2 Window Template - Click Minimize/Maximize Window "

End

Method OnRender( canvas:Canvas ) Override

title_x=canvas.Font.TextWidth(titlemsg) 'get the titlemsg text length

title_x=virtualResolution.X *.5-title_x *.5 'center it on the screen

If Not isSuspended

App.RequestRender()

' canvas.DrawText(App.FPS,virtualResolution.X*.5,virtualResolution.Y*.5)

canvas.DrawText("FPS:"+App.FPS,0,16)

canvas.DrawText("FPS - On App Suspended:"+savedFPS,0,32)

canvas.Color=Color.Green

canvas.DrawText(titlemsg,title_x,0)

Else

savedFPS=App.FPS

Endif

OnUpdate()

End

Method OnUpdate()

' Print "OnUpDate"

If isSuspended

savedFPS=App.FPS

'Print "App is in runing the Background"

Endif

End

Method OnActivated()

isSuspended=False

Print "FPS - App Suspended:"+savedFPS

End

Method OnDeactivated()

isSuspended=True

Print "OnDeactivated"

End

Method OnMeasure:Vec2i() Override

Return virtualResolution

End

Function Main()

New AppInstance

New MyApp( "MX2 Template",640,480 )

App.Run()

End

January 13, 2017 at 2:18 pm #6488

codifies

Participant

check with a cpu load meter both on all platforms you can, but you might need to yield to the OS (sleep) after onDeactivated.

I’d do some canvas.scale first thing onRender, so you can preserve either a fixed resolution (that gets scaled) or ideally a fixed resolution scalled to a fixed aspect ratio…

also in keywords – can you mix up the case a bit like UsInG just for pedants… >:)

January 13, 2017 at 5:53 pm #6489

APC

Participant

I tested on iOS 10.2 on iPhone 6 and when it goes to OnDeactivate the app sleeps, the behavior is different on PC running Windows 10 and the same on my MacBook Pro running OSX Sierra, they run on the back ground. I will run on my Android device.

January 14, 2017 at 2:48 am #6494

impixi

Participant

You could try something like this:?

[crayon-5cba89eae76c1880267107 inline="true" ]#Import "<std>"
#Import "<mojo>"
#Import "<mojox>"
 
Using std..
Using mojo..
Using mojox..
 
Class MyApp Extends Window
	
	Field UpdateTimer:Timer
	Field ticker:ULong = 0
	
	Method New( title:String,width:Int,height:Int,flags:WindowFlags=WindowFlags.Resizable )
	
		Super.New( title,width,height,flags)
		
		App.Activated += OnActivated
		App.Deactivated += OnDeactivated
		
		UpdateTimer = New Timer(60, OnUpdate)
		
		SwapInterval = 0
		
	End
	
	Method OnUpdate()
		ticker += 1
	End
	
	Method OnRender( canvas:Canvas ) Override
	
		If Not App.Active Then Return
		
		App.RequestRender()	

		canvas.DrawText("Click Minimize/Maximize Window", 10, 10)
		canvas.DrawText("FPS: " + App.FPS, 10, 50)
		canvas.DrawText("Ticker: " + ticker, 10, 90)
		
                canvas.Flush()
	End

	Method OnActivated:Void()
		UpdateTimer.Suspended = False
	End
	
	Method OnDeactivated:Void()
		UpdateTimer.Suspended = True
	End

End
 
Function Main()
	New AppInstance
	New MyApp( "MX2 Template", 640, 480 )
	App.Run()
End

[crayon-5cba89eae76c1880267107 inline="true" ]#Import "<std>"

#Import "<mojo>"

#Import "<mojox>"

Using std..

Using mojo..

Using mojox..

Class MyApp Extends Window

Field UpdateTimer:Timer

Field ticker:ULong = 0

Method New( title:String,width:Int,height:Int,flags:WindowFlags=WindowFlags.Resizable )

Super.New( title,width,height,flags)

App.Activated += OnActivated

App.Deactivated += OnDeactivated

UpdateTimer = New Timer(60, OnUpdate)

SwapInterval = 0

End

Method OnUpdate()

ticker += 1

End

Method OnRender( canvas:Canvas ) Override

If Not App.Active Then Return

App.RequestRender()

canvas.DrawText("Click Minimize/Maximize Window", 10, 10)

canvas.DrawText("FPS: " + App.FPS, 10, 50)

canvas.DrawText("Ticker: " + ticker, 10, 90)

canvas.Flush()

End

Method OnActivated:Void()

UpdateTimer.Suspended = False

End

Method OnDeactivated:Void()

UpdateTimer.Suspended = True

End

Function Main()

New AppInstance

New MyApp( "MX2 Template", 640, 480 )

App.Run()

End

[/crayon]

January 14, 2017 at 1:27 pm #6498

APC

Participant

impixi,

Thank you this looks much cleaner, one interesting thing is the FPS in my Original template runs at 60 frames per second , on yours the frame rate is much higher, on Windows and OSX.

This works great with mobile, I tested on iOS so far .

January 14, 2017 at 8:41 pm #6505

APC

Participant

Here is the updated Monkey 2 App Template.

#Import "<std>"
#Import "<mojo>"
#Import "<mojox>"

Using std..
Using mojo..
Using mojox..

Global virtualResolution:=New Vec2i( 640,480 )

Class MyApp Extends Window
	Field UpdateTimer:Timer
	Field ticker:ULong = 0
	
	' Screen Title
	Field titlemsg:String
	Field title_y:Int
	Field title_x:Float
	
	Method New( title:String,width:Int,height:Int,flags:WindowFlags=WindowFlags.Resizable )
	
		Super.New( title,width,height,flags)
		' Set OnActivated and OnDeactivated methods for when App loses or gain focus.
		App.Activated += OnActivated
		App.Deactivated += OnDeactivated
		
		' Load images, sounds and game data here
		OnLoad()
			
		' Trigger OnUpdate
		UpdateTimer = New Timer(60, OnUpdate)	' start game timer at 60 Hertz
		SwapInterval = 0
		
	End
	
	Method OnLoad()
		titlemsg="Click Minimize/Maximize Window "	
	End
	Method OnUpdate()
		ticker += 1
	End
	
	Method OnRender( canvas:Canvas ) Override
	
		If Not App.Active Then Return
		title_x=canvas.Font.TextWidth(titlemsg)	'get the titlemsg text length
		title_y=canvas.Font.Height*.5
		title_x=virtualResolution.X *.5-title_x *.5 'center it on the screen
		
		App.RequestRender()	
 
		canvas.DrawText(titlemsg, title_x, title_y)
		canvas.DrawText("FPS: " + App.FPS+" Ticker: " + ticker,10,64 )
		
        canvas.Flush()
	End
 
	Method OnActivated:Void()
		UpdateTimer.Suspended = False
	End
	
	Method OnDeactivated:Void()
		UpdateTimer.Suspended = True
	End
	
	Method OnMeasure:Vec2i() Override
		Return virtualResolution
	End
End

Function Main()
	New AppInstance
	New MyApp( "MX2 Template",640,480 )
	App.Run()
End

#Import "<std>"

#Import "<mojo>"

#Import "<mojox>"

Using std..

Using mojo..

Using mojox..

Global virtualResolution:=New Vec2i( 640,480 )

Class MyApp Extends Window

Field UpdateTimer:Timer

Field ticker:ULong = 0

' Screen Title

Field titlemsg:String

Field title_y:Int

Field title_x:Float

Method New( title:String,width:Int,height:Int,flags:WindowFlags=WindowFlags.Resizable )

Super.New( title,width,height,flags)

' Set OnActivated and OnDeactivated methods for when App loses or gain focus.

App.Activated += OnActivated

App.Deactivated += OnDeactivated

' Load images, sounds and game data here

OnLoad()

' Trigger OnUpdate

UpdateTimer = New Timer(60, OnUpdate) ' start game timer at 60 Hertz

SwapInterval = 0

End

Method OnLoad()

titlemsg="Click Minimize/Maximize Window "

End

Method OnUpdate()

ticker += 1

End

Method OnRender( canvas:Canvas ) Override

If Not App.Active Then Return

title_x=canvas.Font.TextWidth(titlemsg) 'get the titlemsg text length

title_y=canvas.Font.Height*.5

title_x=virtualResolution.X *.5-title_x *.5 'center it on the screen

App.RequestRender()

canvas.DrawText(titlemsg, title_x, title_y)

canvas.DrawText("FPS: " + App.FPS+" Ticker: " + ticker,10,64 )

canvas.Flush()

End

Method OnActivated:Void()

UpdateTimer.Suspended = False

End

Method OnDeactivated:Void()

UpdateTimer.Suspended = True

End

Method OnMeasure:Vec2i() Override

Return virtualResolution

End

Function Main()

New AppInstance

New MyApp( "MX2 Template",640,480 )

App.Run()

End

January 15, 2017 at 12:36 am #6513

impixi

Participant

one interesting thing is the FPS in my Original template runs at 60 frames per second , on yours the frame rate is much higher, on Windows and OSX.

SwapInterval = 0 disables vsync, I believe, so that’s the frame rate difference.

January 15, 2017 at 10:55 am #6528

codifies

Participant

bare in mind vsync can be overriden by user settings on Linux, ~/.drirc on Intel GPU and on Nvidia there is a GUI that allows you to override frame sync.

Looking at the way most games work, including unity seem to just ignore user settings and assume frame sync is enabled meaning they run at silly speed! There are some games that seem to work correctly however regardless of user sync setting.

can I suggest that you make some of the methods abstract and those that do need code like OnRender make them call another method that is abstract. My idea is here that the end user would have one object to create and just simply override methods in the framework rather than hacking on the framework itself…

January 15, 2017 at 4:22 pm #6532

APC

Participant

codifies, it is a good suggestion. Can you send me a sample code of what you proposed?

January 15, 2017 at 5:12 pm #6535

codifies

Participant

you’d like me to write it for you?

if you’re unsure about abstract have a look at the language reference.

I suggested abstract over virtual as people might not know you need to call super (even if you write it in the frameworks readme!)

January 15, 2017 at 8:45 pm #6538

codifies

Participant

here is an example of keeping your drawing to 16:9

[crayon-5cba89eb0bba7424259254 inline="true" ]

#Import "<std>"
#import "<libc>"
#Import "<mojo>"

#Import "assets/"

using std..
using mojo..
using libc..

global image:Image

class MyWindow extends Window

	Field NewWidth:float
	Field NewHeight:float

	method new()
		' new window deliberatly not 16:9
		super.new("hello",1024,768,WindowFlags.Resizable)
		ClearColor=new Color( 0,.25,0 )

		' image is same size as our virtual resolution (960x540)		
		image = Image.Load( "asset::testcard.png" )
	end
	
	method OnRender( canvas:Canvas ) override
	
		App.RequestRender()
		
		canvas.Clear(ClearColor)
		
		NewWidth = Width
		NewHeight = Height

		' the smallest dimention is used to scale to largest 16:9 that fits
		
		If ((Width/16.0)<=(Height/9.0)) Then 
			NewHeight = (Float(Width) / 16.0) * 9.0
		Else
			NewWidth = (Float(Height) / 9.0) * 16.0
		Endif 
		
		Local scaleX:float = NewWidth/960.0
		Local scaleY:float = NewHeight/540.0
		
		Local Xoffset:int = -((NewWidth-Width) / 2.0) / scaleX
		Local Yoffset:int = -((NewHeight-Height) / 2.0) / scaleY

		canvas.Scale( scaleX, scaleY )
		canvas.Translate(Xoffset, Yoffset)

		' from here on all drawing is at 16:9 and centred
		' NB may need to gl scissor the letter box
        canvas.DrawImage(image, 0,0)
        

	end
end

function Main()

	' boiler plate just to ensure random is different each run
	local tv:timeval
	gettimeofday( varptr(tv) )
	local t:long = tv.tv_sec * 1000 + tv.tv_usec
	SeedRnd(t)
	
	' more boiler plate just to kick the app off...
	new AppInstance	
	new MyWindow
	App.Run()

end

[crayon-5cba89eb0bba7424259254 inline="true" ]

#Import "<std>"

#import "<libc>"

#Import "<mojo>"

#Import "assets/"

using std..

using mojo..

using libc..

global image:Image

class MyWindow extends Window

Field NewWidth:float

Field NewHeight:float

method new()

' new window deliberatly not 16:9

super.new("hello",1024,768,WindowFlags.Resizable)

ClearColor=new Color( 0,.25,0 )

' image is same size as our virtual resolution (960x540)

image = Image.Load( "asset::testcard.png" )

end

method OnRender( canvas:Canvas ) override

App.RequestRender()

canvas.Clear(ClearColor)

NewWidth = Width

NewHeight = Height

' the smallest dimention is used to scale to largest 16:9 that fits

If ((Width/16.0)<=(Height/9.0)) Then

NewHeight = (Float(Width) / 16.0) * 9.0

Else

NewWidth = (Float(Height) / 9.0) * 16.0

Endif

Local scaleX:float = NewWidth/960.0

Local scaleY:float = NewHeight/540.0

Local Xoffset:int = -((NewWidth-Width) / 2.0) / scaleX

Local Yoffset:int = -((NewHeight-Height) / 2.0) / scaleY

canvas.Scale( scaleX, scaleY )

canvas.Translate(Xoffset, Yoffset)

' from here on all drawing is at 16:9 and centred

' NB may need to gl scissor the letter box

canvas.DrawImage(image, 0,0)

end

function Main()

' boiler plate just to ensure random is different each run

local tv:timeval

gettimeofday( varptr(tv) )

local t:long = tv.tv_sec * 1000 + tv.tv_usec

SeedRnd(t)

' more boiler plate just to kick the app off...

new AppInstance

new MyWindow

App.Run()

end

[/crayon]

January 15, 2017 at 9:00 pm #6539

APC

Participant

codifies,

I know how to write abstract methods, I would like you to expand on your idea.

January 15, 2017 at 9:55 pm #6540

codifies

Participant

I’m sure you can work it out for yourself…

January 16, 2017 at 1:22 am #6543

codifies

Participant

canvas.Scissor=New Recti( Xoffset*scaleX,Yoffset*scaleY, (960+Xoffset)*scaleX, (540+Yoffset)*scaleY )

Author

Posts

Viewing 14 posts - 1 through 14 (of 14 total)

You must be logged in to reply to this topic.

Monkey 2 App Template

Archives

Recent Replies

What is this?