[APCParticipant]

Mark.

Thanks you, this helps a lot. I will test it.

[APCParticipant]

Thanks Deffrenzy,

I got the same results on iPhone and Android.

I never heard about these Windows settings ” HighDPI and Fullscreen” for mobile devices !

Monkey

Method New( title:String="Size test mojo app",width:Int=1364,height:Int=750,flags:WindowFlags=WindowFlags.HighDPI | WindowFlags.Fullscreen)

1	Method New( title:String="Size test mojo app",width:Int=1364,height:Int=750,flags:WindowFlags=WindowFlags.HighDPI | WindowFlags.Fullscreen)

Is there a place in this forum that is specific about iOS and Android?

There is a question that remains, How do I detect the device screen size before I can set the Windows size?

[APCParticipant]

@Hezcore: Thank you for your suggestion I will give it a try.

@Diffrenzy: I want my app to look the same on devices with different resolution. I build my sprite sheets with high resolution images , than based on the screen resolution I scale down the images, so they look the same on all screens. That is how I did in Monkey 1.

I would like to hear from @Planiax, @Diddy and other people how do they handle iOS and Android screen resolution with Monkey 2?

Also some apps I have to detect the screen rotation, I am using the OnMeasure() to detect the orientation change, as it is posted above.

I have spent a lot o time searching this web site and Github to find answers and get my apps going. But I spent more time with trial and error than developing my app.

[APCParticipant]

Playniax,

I was able to do my vertical scrolling with this code.

Monkey

Method OnMouseEvent( event:MouseEvent ) Override ' Send mouse events to all gui 'mouseWheel= event.Wheel If guiPage=GROUPS 'Check for mouse If Mouse.ButtonDown(MouseButton.Left) Or Mouse.ButtonDown(MouseButton.Right) Or Touch.FingerDown( 0 ) Or Touch.FingerDown( 1 ) If Mouse.Y>memY 'Check Mouse Direction Down() memY=Mouse.Y 'save mouse position Else Up() memY=Mouse.Y 'save mouse position Endif Endif ' Check for Touch If Touch.FingerDown( 0 ) 'Or Touch.FingerDown( 1 ) If Touch.FingerY(0)>memTY 'Check Mouse Direction Down() memTY=Touch.FingerY(0) Else Up() memTY=Touch.FingerY(0) Endif Endif 'Check for Mouse Wheel ' If mouseWheel.Y=-1 ' Down() ' Elseif mouseWheel.Y=1 ' Up() ' Endif Endif guiLayer[guiPage].SendMouseEvent( event ) End Method Up() mousetxt="UP:"+Mouse.Y+ " memY:"+memY+ " guiPageY:"+guiLayer[guiPage].Y+ " TouchY:"+ Touch.FingerY(0) + " memTY:" + memTY+" mouseWheel:"+mouseWheel.Y Print mousetxt guiLayer[guiPage].Y-=10 'limit the bottom of the guiPage to the window height. If guiLayer[guiPage].Y <=-WINDOW_HEIGHT Then guiLayer[guiPage].Y=-WINDOW_HEIGHT End Method Down() mousetxt="Down:"+Mouse.Y+ " memY:"+memY+ " guiPageY:"+guiLayer[guiPage].Y+" TouchY:"+ Touch.FingerY(0) + " memTY:" + memTY+" mouseWheel:"+mouseWheel.Y Print mousetxt guiLayer[guiPage].Y+=10 'limit the top guiPage to the top of the window If guiLayer[guiPage].Y>=0 Then guiLayer[guiPage].Y=0 memY=Mouse.Y 'save mouse position End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

Method OnMouseEvent( event:MouseEvent ) Override ' Send mouse events to all gui 'mouseWheel= event.Wheel If guiPage=GROUPS 'Check for mouse If  Mouse.ButtonDown(MouseButton.Left) Or Mouse.ButtonDown(MouseButton.Right) Or Touch.FingerDown( 0 ) Or Touch.FingerDown( 1 ) If Mouse.Y>memY 'Check Mouse Direction Down() memY=Mouse.Y 'save mouse position Else Up() memY=Mouse.Y 'save mouse position Endif Endif ' Check for Touch If  Touch.FingerDown( 0 ) 'Or Touch.FingerDown( 1 ) If Touch.FingerY(0)>memTY 'Check Mouse Direction Down() memTY=Touch.FingerY(0) Else Up() memTY=Touch.FingerY(0) Endif Endif 'Check for Mouse Wheel ' If mouseWheel.Y=-1 ' Down() ' Elseif mouseWheel.Y=1 ' Up() ' Endif Endif guiLayer[guiPage].SendMouseEvent( event ) End Method Up() mousetxt="UP:"+Mouse.Y+ " memY:"+memY+ " guiPageY:"+guiLayer[guiPage].Y+ " TouchY:"+ Touch.FingerY(0) + " memTY:" + memTY+" mouseWheel:"+mouseWheel.Y Print mousetxt guiLayer[guiPage].Y-=10 'limit the bottom of the guiPage to the window height. If guiLayer[guiPage].Y <=-WINDOW_HEIGHT Then guiLayer[guiPage].Y=-WINDOW_HEIGHT End Method Down() mousetxt="Down:"+Mouse.Y+ " memY:"+memY+ " guiPageY:"+guiLayer[guiPage].Y+" TouchY:"+ Touch.FingerY(0) + " memTY:" + memTY+" mouseWheel:"+mouseWheel.Y Print mousetxt guiLayer[guiPage].Y+=10 'limit the top guiPage to the top of the window If guiLayer[guiPage].Y>=0 Then guiLayer[guiPage].Y=0 memY=Mouse.Y 'save mouse position End

[APCParticipant]

Amon,

There is a simple example in the Monkey2 bananas folder called touchtest.

You can detect more than 2 fingers touching the screen.

 

Here is the code

Monkey

Namespace myapp #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Field gesturing:Bool Field g0:AffineMat3f Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null ) Super.New( title,width,height,flags ) End Method GestureMatrix:AffineMat3f( p0:Vec2f,p1:Vec2f ) Local d:=p1-p0,r:=-ATan2( d.y,d.x ),s:=d.Length Return New AffineMat3f().Translate( p0 ).Rotate( r ).Scale( s,s ) End Method OnRender( canvas:Canvas ) Override App.RequestRender() Local gmatrix:=New AffineMat3f If Not gesturing And Touch.FingerDown( 0 ) And Touch.FingerDown( 1 ) 'begin gesturing g0=-GestureMatrix( Touch.FingerLocation( 0 ),Touch.FingerLocation( 1 ) ) gesturing=True Endif If gesturing And Touch.FingerDown( 0 ) And Touch.FingerDown( 1 ) 'gesturing... gmatrix=GestureMatrix( Touch.FingerLocation( 0 ),Touch.FingerLocation( 1 ) ) * g0 Else If gesturing 'end gesturing gesturing=False Endif canvas.PushMatrix() canvas.Matrix=gmatrix For Local i:=0 Until 8 For Local j:=0 Until 8 canvas.Color= (i~j)&1 ? Color.Yellow Else Color.Grey canvas.DrawRect( New Recti( i*Width/8,j*Height/8,(i+1)*Width/8,(j+1)*Height/8 ) ) Next Next canvas.PopMatrix() canvas.Color=Color.White canvas.Scale( 2,2 ) For Local i:=0 Until 10 canvas.DrawText( "Finger "+i+": down="+Int( Touch.FingerDown(i) )+", location="+Touch.FingerLocation(i)+", pressure="+Touch.FingerPressure(i),0,i*canvas.Font.Height ) Next End End Function Main() New AppInstance New MyWindow App.Run() End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89

Namespace myapp   #Import "<std>" #Import "<mojo>"   Using std.. Using mojo..   Class MyWindow Extends Window   Field gesturing:Bool Field g0:AffineMat3f Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null )   Super.New( title,width,height,flags ) End Method GestureMatrix:AffineMat3f( p0:Vec2f,p1:Vec2f ) Local d:=p1-p0,r:=-ATan2( d.y,d.x ),s:=d.Length Return New AffineMat3f().Translate( p0 ).Rotate( r ).Scale( s,s ) End   Method OnRender( canvas:Canvas ) Override App.RequestRender()   Local gmatrix:=New AffineMat3f If Not gesturing And Touch.FingerDown( 0 ) And Touch.FingerDown( 1 ) 'begin gesturing g0=-GestureMatrix( Touch.FingerLocation( 0 ),Touch.FingerLocation( 1 ) ) gesturing=True Endif If gesturing And Touch.FingerDown( 0 ) And Touch.FingerDown( 1 ) 'gesturing... gmatrix=GestureMatrix( Touch.FingerLocation( 0 ),Touch.FingerLocation( 1 ) ) * g0 Else If gesturing 'end gesturing gesturing=False Endif canvas.PushMatrix() canvas.Matrix=gmatrix For Local i:=0 Until 8 For Local j:=0 Until 8 canvas.Color= (i~j)&1 ? Color.Yellow Else Color.Grey canvas.DrawRect( New Recti( i*Width/8,j*Height/8,(i+1)*Width/8,(j+1)*Height/8 ) ) Next Next canvas.PopMatrix() canvas.Color=Color.White canvas.Scale( 2,2 ) For Local i:=0 Until 10 canvas.DrawText( "Finger "+i+": down="+Int( Touch.FingerDown(i) )+", location="+Touch.FingerLocation(i)+", pressure="+Touch.FingerPressure(i),0,i*canvas.Font.Height ) Next End End   Function Main()   New AppInstance New MyWindow App.Run() End

[APCParticipant]

Amon, you have to set the Handle on every single image you load,

[APCParticipant]

amon,

Make sure you are setting the your character’s Handle to (0,0) , also set the layout of your Window or ScreenManager to letterbox, an gravity to (0,0).

[APCParticipant]

playniax thank you that worked !

[APCParticipant]

Abe_King_,

Here is the link to the project. https://github.com/aroldo/M2P2-MenuTemplate

My issue is with the positioning of the gui components on the screen.

[APCParticipant]

Cocon,  but I did not insert any new modules and I can run other pyro 2 without any issue.

therevills, the space in the path is not an issue as I have other projects under the same directory and they compile fine.

I sent an e-mail to playniax support , I am waiting for an answer.

thanks for your reply!

[APCParticipant]

codifies,

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

[APCParticipant]

cocon,

 

Like this below:

Monkey

#Import "<std>" Using std.. Class Exception Extends Throwable Field message:String Method New(message:String) Self.message=message End Method ToString:String() Virtual Return "Exception: " + message End End Function Main() Try Throw New Exception("Application Started") Catch err:Exception Print "Execption: " + err.message End End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

#Import "<std>" Using std.. Class Exception Extends Throwable Field message:String Method New(message:String) Self.message=message End Method ToString:String() Virtual Return "Exception: " + message End End Function Main() Try Throw New Exception("Application Started") Catch err:Exception Print "Execption: " + err.message     End End

It works in any platform.

[APCParticipant]

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

[APCParticipant]

I posted a template here http://monkey2.monkey-x.com/forums/topic/monkey-2-app-template/ with suggestions from Mark and impixi.

[APCParticipant]

Yue,

 

When I import a module like Pyro 2 into monkey 2 I use:

Monkey

'Import mojo Modules #Import "<std>" #Import "<mojo>" 'import Pyro 2 modules #Import "<pyro-framework>" #Import "<pyro-gui>" #Import "<pyro-scenegraph>" 'Using Monkey Modules Using std.. Using mojo.. ' Using Pyro 2 modules Using pyro.framework.. Using pyro.gui.. Using pyro.scenegraph..

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

'Import mojo Modules #Import "<std>" #Import "<mojo>"   'import Pyro 2 modules #Import "<pyro-framework>" #Import "<pyro-gui>" #Import "<pyro-scenegraph>"   'Using Monkey Modules Using std.. Using mojo..   ' Using Pyro 2 modules Using pyro.framework.. Using pyro.gui.. Using pyro.scenegraph..

Check the docs Modules and Applications and Namespaces and Using http://monkey2.monkey-x.com/monkey2-docs/

[Author]

Posts