Constant slowdowns

[JesseParticipant]

I updated to the latest build of Monkey2 and I am getting weird slowdowns on my Macbook it happens when I move the mouse in and out of the game window. I don’t know if this is just on my MacBook or on all OS’s. Can some body try this code and tell me if it does it in their system as well?

Monkey

[crayon-5cb9cb43ad3ff135778191 inline="true" ]Namespace myapp #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Field land:Land Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null ) Super.New( title,width,height,flags ) SwapInterval = 0 land = New Land() land.Speed = .1 End Method OnRender( canvas:Canvas ) Override land.Update() App.RequestRender() land.Render(canvas) End End Function Main() New AppInstance New MyWindow App.Run() End Class Camera Field pos:Vec2f Field width:Float Field height:Float Method New(x:Float,y:Float,widht:Float,height:Float) pos = New Vec2f(x,y) End Method End Class Class Land Field pos:Vec2f Field land:Float[] Field tileHeight:Int = 64 Field n:Int = 0 Field dir:Float = Rnd(-2,2) Field dur:Int = Rnd(1,2) Field stp:Float = Rnd(-2,2) Field posy:Float = 32.0 Field index:Float = 0 Field terrainWidth:Float = 5000 Field stripWidth:Float = 4 Field viewWidth:Float = 160 Field minHeight:Float = 28 Field terrainOffset:Float Field shift:Float = 20.0 Field speed:Float Field counter:Int Field done:Bool Field temp:float Method New() land = New Float[terrainWidth] Init() End Method Method Init() terrainOffset = terrainWidth - shift pos = New Vec2f(0,384) posy = 48.0 For Local i:Int = 0 Until terrainWidth If i < terrainOffset posy+=stp If posy < minHeight posy = minHeight If posy > (tileHeight-minHeight) posy = (tileHeight - minHeight) dur -= 1.0 If dur <= 0.0 dir = Rnd(-3,3) dur = Rnd(1,5) stp = Rnd(-1,1) Endif Else If stp > 0 If posy < 48.0 posy += stp Endif Elseif stp < 0 If posy > 32.0 posy += stp Endif Endif Endif land[i] = posy Next done = False speed = 0 End method Property Speed:Void(spd:Float) speed = spd End Method Update:void() index = (index + speed) index = index Mod land.Length End Method Method Render:Void(canvas:Canvas) canvas.Color= New Color(0,.47,0) For Local i:Float = 0 Until viewWidth Local n:Float = land[(index+i) Mod land.Length] canvas.DrawRect(i*stripWidth,pos.y+n,stripWidth,tileHeight-n) If n >= viewWidth Exit Endif Next 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 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135

[crayon-5cb9cb43ad3ff135778191 inline="true" ]Namespace myapp   #Import "<std>" #Import "<mojo>"   Using std.. Using mojo..   Class MyWindow Extends Window Field land:Land   Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null )   Super.New( title,width,height,flags ) SwapInterval = 0 land = New Land() land.Speed = .1 End   Method OnRender( canvas:Canvas ) Override land.Update() App.RequestRender()   land.Render(canvas) End End   Function Main()   New AppInstance New MyWindow App.Run() End   Class Camera Field pos:Vec2f Field width:Float Field height:Float Method New(x:Float,y:Float,widht:Float,height:Float) pos = New Vec2f(x,y) End Method End Class   Class Land Field pos:Vec2f Field land:Float[] Field tileHeight:Int = 64 Field n:Int = 0 Field dir:Float = Rnd(-2,2) Field dur:Int = Rnd(1,2) Field stp:Float = Rnd(-2,2) Field posy:Float = 32.0 Field index:Float = 0    Field terrainWidth:Float = 5000    Field stripWidth:Float = 4 Field viewWidth:Float = 160    Field minHeight:Float = 28 Field terrainOffset:Float Field shift:Float = 20.0 Field speed:Float Field counter:Int Field done:Bool Field temp:float Method New()      land = New Float[terrainWidth]         Init() End Method Method Init()    terrainOffset = terrainWidth - shift      pos = New Vec2f(0,384)      posy = 48.0     For Local i:Int = 0 Until terrainWidth If i < terrainOffset posy+=stp If posy < minHeight posy = minHeight If posy > (tileHeight-minHeight) posy = (tileHeight - minHeight) dur -= 1.0 If dur <= 0.0 dir = Rnd(-3,3) dur = Rnd(1,5) stp = Rnd(-1,1) Endif Else If stp > 0 If posy < 48.0 posy += stp            Endif                Elseif stp < 0 If posy > 32.0 posy += stp Endif Endif Endif land[i] = posy Next done = False speed = 0 End method Property Speed:Void(spd:Float) speed = spd End   Method Update:void()        index = (index + speed)        index = index Mod land.Length       End Method       Method Render:Void(canvas:Canvas)    canvas.Color= New Color(0,.47,0)      For Local i:Float = 0 Until viewWidth    Local n:Float = land[(index+i) Mod land.Length]        canvas.DrawRect(i*stripWidth,pos.y+n,stripWidth,tileHeight-n)        If n >= viewWidth Exit    Endif    Next End Method    End Class

[/crayon]

[arawkinsParticipant]

Hey, it runs ok for me, no slowdown when moving the mouse cursor in and out of the window.

On linux here, using xubuntu 16.04.

[JesseParticipant]

Thanks for testing it. Do you have the latest from Github either the Development or the Master version?

I think it has to do with the printing of the mouse events to the console. I will remove the print from the Touch input files to see if it solves it.

I will report back.

[JesseParticipant]

Yea, that was it.

[Author]

Posts