Mojo Render Lagging

[peterigzParticipant]

To hide the mouse:

Monkey

Mouse.PointerVisible = False

1	Mouse.PointerVisible = False

[Richard BetsonParticipant]

Hi,

I have included an image of cursor movement within my Monkey 2 application. In view are both a system (OS) cursor and a local application cursor (the larger one) that is drawn using Mouse.x/y. Here I am capturing the screen while moving the cursor from right to left (moderate/slow movement). As you can see the locally drawn cursor is some distance from the actual system cursors position. This lag or delay in reporting position is noticeable. Whether it is a Linux, SDL or Monkey 2 issue it is a thing and noticeable.

It makes me also wonder why I get smooth mouse position data in my monkey 2 application but applications like Ted2 or Ted2GO seem to have wild positioning/scaling issues with console and treeview, at least on Linux. Why is it that the mouse position in my application is reported fine but seems out of control in some others? If I recall Mark linked the Ted2 issue to an SDL issue, but why does that same issue not extend to my application?

Attachments:

1. 

   cursor_issue.jpeg
   

[JesseParticipant]

Monkey

[crayon-5cb9b92017a40605217762 inline="true" ] Mouse.PointerVisible = False

1 2 3

[crayon-5cb9b92017a40605217762 inline="true" ] Mouse.PointerVisible = False

[/crayon]

Peter beat me to it.

[nerobotParticipant]

deleted.

[arpieParticipant]

Does anybody know if it is possible to get the mouse coordinates when the pointer is outside the app window?

[arpieParticipant]

There is something lagging, somewhere.  I tried to ignore it but it kept bugging me so I decided to try bypassing mojo and used a direct SDL call to get the mouse coordinates and… they are one frame ahead of mojo’s.  Or at least, they are here, anyway.  Attached is the code I used to test this and a screenshot of how it looks here.  Can anybody else test this?  Is it just my hardware or is it a mojo bug (I suspect the mojo bug atm).

Monkey

#Import "<std>" #Import "<mojo>" #Import "<sdl2>" Using std.. Using mojo.. Using sdl2.. Function Main() New AppInstance New MyWindow App.Run() End Class MyWindow Extends Window Public Field slowness:Int = 200 Field xsdl:Int, oxsdl:Int Field ysdl:Int, oysdl:Int Method New() ClearColor = Color.Black SDL_CaptureMouse(SDL_TRUE) 'SwapInterval = 1 'Local timer := New Timer( 60, RequestRender ) End Method OnKeyEvent( event:KeyEvent ) Override Select event.Type Case EventType.KeyDown If event.Key = Key.Down Then slowness -= 10 If event.Key = Key.Up Then slowness += 10 If slowness < 0 Then slowness = 0 End End Method OnRender( canvas:Canvas ) Override 'Plot mouse according to SDL_GetMouseState() canvas.Color = Color.Red SDL_GetMouseState(Varptr xsdl, Varptr ysdl) canvas.DrawLine(xsdl - 7, ysdl - 7, xsdl + 7, ysdl + 7) canvas.DrawLine(xsdl - 7, ysdl + 7, xsdl + 7, ysdl - 7) canvas.DrawLine(xsdl, ysdl, oxsdl, oysdl) canvas.DrawText("SDL Mouse: " + xsdl + ", " + ysdl + " [" + oxsdl + ", " + oysdl + "]", 10, 50) oxsdl = xsdl oysdl = ysdl 'Plot mouse according to Mojo Mouse.X and Mouse.Y canvas.Color = Color.White canvas.DrawLine(Mouse.X - 5, Mouse.Y - 5, Mouse.X + 5, Mouse.Y + 5) canvas.DrawLine(Mouse.X - 5, Mouse.Y + 5, Mouse.X + 5, Mouse.Y - 5) canvas.DrawText("MojoMouse: " + Mouse.X + ", " + Mouse.Y, 10, 70) canvas.DrawText("FPS:" + App.FPS, 10, 30) canvas.DrawText("Slowness: " + slowness + "ms (Use Up/Down keys to adjust)", 10, 10) Sleep(Float(slowness)/1000) RequestRender() End Method End Class

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

#Import "<std>" #Import "<mojo>" #Import "<sdl2>" Using std.. Using mojo.. Using sdl2.. Function Main() New AppInstance New MyWindow App.Run() End Class MyWindow Extends Window Public   Field slowness:Int = 200 Field xsdl:Int, oxsdl:Int Field ysdl:Int, oysdl:Int Method New() ClearColor = Color.Black SDL_CaptureMouse(SDL_TRUE) 'SwapInterval = 1 'Local timer := New Timer( 60, RequestRender ) End Method OnKeyEvent( event:KeyEvent ) Override Select event.Type Case EventType.KeyDown If event.Key = Key.Down Then slowness -= 10 If event.Key = Key.Up Then slowness += 10 If slowness < 0 Then slowness = 0 End End Method OnRender( canvas:Canvas ) Override 'Plot mouse according to SDL_GetMouseState() canvas.Color = Color.Red SDL_GetMouseState(Varptr xsdl, Varptr ysdl) canvas.DrawLine(xsdl - 7, ysdl - 7, xsdl + 7, ysdl + 7) canvas.DrawLine(xsdl - 7, ysdl + 7, xsdl + 7, ysdl - 7) canvas.DrawLine(xsdl, ysdl, oxsdl, oysdl) canvas.DrawText("SDL Mouse: " + xsdl + ", " + ysdl + " [" + oxsdl + ", " + oysdl + "]", 10, 50) oxsdl = xsdl oysdl = ysdl 'Plot mouse according to Mojo Mouse.X and Mouse.Y canvas.Color = Color.White canvas.DrawLine(Mouse.X - 5, Mouse.Y - 5, Mouse.X + 5, Mouse.Y + 5) canvas.DrawLine(Mouse.X - 5, Mouse.Y + 5, Mouse.X + 5, Mouse.Y - 5) canvas.DrawText("MojoMouse: " + Mouse.X + ", " + Mouse.Y, 10, 70) canvas.DrawText("FPS:" + App.FPS, 10, 30) canvas.DrawText("Slowness: " + slowness + "ms (Use Up/Down keys to adjust)", 10, 10) Sleep(Float(slowness)/1000) RequestRender() End Method End Class

Attachments:

1. 

   MouseLag.png
   

[peterigzParticipant]

Does it as well here. The “fix”, and I use that word loosely because there could be a reason why Mark did it like this, is to change the order the mouse.Update is called in the UpdateEvents() method of app.monkey2

The original version looks like this:

Monkey

Method UpdateEvents() Keyboard.Update() Mouse.Update() Touch.Update() Local event:SDL_Event While SDL_PollEvent( Varptr event ) DispatchEvent( Varptr event ) Wend Local idle:=Idle Idle=Null idle() End

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

Method UpdateEvents() Keyboard.Update() Mouse.Update() Touch.Update() Local event:SDL_Event   While SDL_PollEvent( Varptr event ) DispatchEvent( Varptr event ) Wend Local idle:=Idle Idle=Null idle() End

So move the Mouse.Update() after SDL_PollEvent (I moved keyboard and touch after as well):

Monkey

Method UpdateEvents() Local event:SDL_Event While SDL_PollEvent( Varptr event ) DispatchEvent( Varptr event ) Wend Keyboard.Update() Mouse.Update() Touch.Update() Local idle:=Idle Idle=Null idle() End

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

Method UpdateEvents() Local event:SDL_Event   While SDL_PollEvent( Varptr event ) DispatchEvent( Varptr event ) Wend   Keyboard.Update() Mouse.Update() Touch.Update() Local idle:=Idle Idle=Null idle() End

If that’s an ok fix then maybe Mark can update or I can do a pull request. I just tried it with the game I’ve been doing and everything still works fine.

[Author]

Posts