Monkey2 Bunnymark (github)

[Abe _King_Participant]

Hello! My name’s Abe and I’ve been looking into Monkey2 recently and decided to take a dive and create a quick and simple Bunnymark. Being that I’m new I’m sure there’s plenty of you M2 veterans out there that can improve my code and, that being said, I would very much appreciate that feedback and help!

As of right now, I am getting decent framerates. Decent as in comparison to a couple of other engines I’ve used in the past. Engines ( GM2, Godot, Luxe, HaxeFlixel, HaxePunk, Defold ). The Monkey2 workflow feels just about right to me, I’m still trying to decide if it’s engine I’ll settle with but only time will tell!

Here’s the repository: https://github.com/forgotten-king/Monkey2-BunnyMark
Here’s a short clip: https://streamable.com/cy777  (Gets very blurry towards the lower frame rate )

Music by one of my favorite artists, ULI. Track here: https://soundcloud.com/uli_music/1032a
Bunny Assets borrowed from: https://github.com/dmitryhryppa/Frameworks_test

Attachments:

1. 

   bunnies500.png
   

2. 

   bunnies3000.png
   

[JesseParticipant]

Hi Abe, Welcome to the forum.

interesting results!
Have you tried running it in release mode?

I get 10,000 at a steady 62 frames a second in release mode.
and 3,000 at a steady 62 frames a second in debug mode.
2013 MacBook Air 1.7Ghz.

Personally, I think thats pretty good.

A question: Why are you determining what language/Engine to use based on the speed of the graphics output?

[Abe _King_Participant]

Hi Jesse, thanks for taking the time to try it out :). I would be very happy if you could push your binaries for MAC if possible!
I am nearly certain I was running in release mode, at least I could have sworn :). I’ll check once more to be sure.. Yeah, I have release mode checked and for some reason getting a max of 3.4k! I’ve sent the binary to a friend who has a better setup than me on windows and got around 4.7+ before seeing 48 fps.

Your numbers are very good, I would be more than happy to call the engine my own if I could push that much out.

To answer your question, it’s not necessarily the best reason to choose an engine for the graphics output alone, but I do feel substantially more comfortable with an engine that can push out a minimum of 6k on my machine. It just gives me a better feel for what room I’m given to work with. Rooky reasons!

[JesseParticipant]

here is the link to the binary:
https://www.dropbox.com/s/24ws94xn2r46dqe/Bunnymark.zip?dl=0

I did cheat. I wasn’t going to press the mouse button until I reached the 10.000 bunnies so I changed the arrays size to 10,000 to start with. LOL.

[Edit]

What version of Monkey2 are you using?

[therevillsParticipant]

On my rig* I can run 10k without it dropping frames.

I also changed the controls to:

Monkey

[crayon-5cb9b8b8b7a91855444197 inline="true" ] If event.Button = MouseButton.Left _len = 10 Elseif event.Button = MouseButton.Right _len = 1000 Elseif event.Button = MouseButton.Middle _len = -100 End

1 2 3 4 5 6 7 8

[crayon-5cb9b8b8b7a91855444197 inline="true" ] If event.Button = MouseButton.Left _len = 10 Elseif event.Button = MouseButton.Right _len = 1000 Elseif event.Button = MouseButton.Middle _len = -100 End

[/crayon]

* 7700K, Geforce 1080, 16GB

[Abe _King_Participant]

Thanks for the feedback, friends! I’ve added in your snipper @therevills. That’s a useful addition!

@jesse, I attempted to see if maybe it was my array resizing that was causing the problems and changed the initial size to higher numbers but I got similar if not the same results prior to that. And thanks for the binary! I’ll probably post that tomorrow

Still can’t seem to get better performance although I am convinced I should have it..

[ Edit ]
Jesse, I’m using the latest itch.io release – believe it was from 2-3 days ago.

[abakoboParticipant]

I’m getting 3k on a 3630QM laptop with GT635M.
Strange thing is desktop or release only slightly affects speed!

Do you know there’s a FPS count for you? No need to use millisecs and all the stuffs (and your avg was sticked at 62 because you where using only integers in your division so it was not able to show the real 60) You should always put a float in a division if you want accurate results.

Local avg := 1000/( ( elapsed /frames*1.0) )

canvas.DrawText(” FPS: ” + App.FPS, 300, 0 )

[Abe _King_Participant]

@abakobo Thanks for the input and help/feedback. The App.FPS tip is very helpful  :). Regarding the frames needing to be casted to a float – I wasn’t even aware of that! I also figured out by chances that you can cast a variable using something like Float(frames) in this very project (as can be seen used in my clamp on the bunnies X-axis).

I will go ahead and replace my makeshift FPS Avg with the app!

Just a quick reminder for the future: Don’t be shy to send any pull requests to the repository! I’m always happy to see/add to who my contributors are :).

[degacParticipant]

This the results on my scrap-puter (AMD Phenom II x4 955 3.2 Ghz, 4GB, Windows 10 – AMD RADEON HD 5700 (Catalyst 2015… I’m upgrading in this moment to see if it there’s an impact of the performances!)
Changed to FULLSCREEN (in windows.Fullscreen initialization)
Initial array: 3000 bunnies
FPS 58/62 (floating very quick!)
From 3.000 to 3.400 – FPS quite stable (58..62)
At 3500 there’s a ‘drop’ to 54… and starts everything to be unstable, it’s possible to see hiccups

[AdamStrangeParticipant]

on mac (high sierra)
3100 stable at 62fps
3200 drop to 58 fps
3500 55fps
4000 49fps

all windowed.
fullscreen not resized the window correctly, but the same fps

[Abe _King_Participant]

Hello everyone! Thanks for your results :). Glad to see you all trying it out and having some benchmarking fun. I’ve updated some of the code with big thanks to therevills and abakobo!

Now you should be seeing smoother FPS calculations and have a bit more control over your bunnies.

[ Edit ]
We do seem to be getting a fairly good variety of test samples and the results are indeed interesting. Maybe, in the end, I can put together some graphs for the results!

[peterigzParticipant]

Hmm, this seems very slow to me. I tried it and it only got to 4-5k before the frame rate started to drop which doesn’t seem right. After a bit of experimenting if I changed it to only draw one type of bunny I got up to 200k at 60fps. Surely something must be amiss here under the hood? Or is it to do with drawing different textures? Maybe try with the bunnies packed into a single sprite sheet. Maybe mojo can be optimised here somehow?

[Mark SiblyKeymaster]

Or is it to do with drawing different textures?

More than likely – changing some rendering ‘state’ (blendmode, shader, material etc – NOT color or matrix) will cause an internal ‘flush’ which will slow things down. Worse case would be something like…

Monkey

For Local i:=0 Until lots canvas.DrawImage( image1,x1(),y1() ) canvas.DrawImage( image2,x2(),y2() ) Next

1 2 3 4 5

For Local i:=0 Until lots    canvas.DrawImage( image1,x1(),y1() )    canvas.DrawImage( image2,x2(),y2() ) Next

…where image1 and image2 used entirely different textures.

This would not be able to queue ANY draw ops, ie: each: DrawImage would effectively be doing a Flush.

Sorting drawing ops ‘by texture’ (ie: ‘by image’ ) will minimize these problems. Ditto, sorting by blendmode, ie: draw all opaque objects, then all transparent objects.

Using a texture atlas will also help a great deal, as an atlas allows you to draw different images from the same texture.

Perhaps the above test could be modified to include a togglable ‘sort by texture’ mode to show the difference?

[Abe _King_Participant]

I figured that was the case, but I have experience with a different renderer where it can push out about 90,000 images per second at 60fps for one texture. I was very impressed when this engine could push out 3.4k with 4 different textures and the other renderer could only pump 1000.

So, now, re-testing this whole thing once more, I’ve managed to see a goof up somehow. Turns out using a single texture actually DOES MARGINALLY improve performance. Now I’m very convinced that this engine is more than capable to pump out a very strong game.

Just need to figure out what the support is in Monkey2 for texture-atlases as that can simplify the task quite a bit for non-trivial things as opposed to the trivial sub-imaging for the bunnies. @Mark Sibly, any examples I can look at for such a thing?

I’ll definitely create a dual-test for testing texture grouping and separate. Thanks for the notice guys.

[peterigzParticipant]

That’s really interesting,  something worth bearing in mind when optimising. Here’s a modified version where each bunny image is put into it’s own separate stack and drawn one after the other. I get over 230k before the fps goes lower than 60. Does have the disadvantage in that one type of bunny (red in this case) gets drawn over the top of the others but that’s where you’d switch to an atlas if that was an issue I guess.

Monkey

Namespace bunnies ' Load up the assets #Import "assets/wabbit_alpha.png" #Import "assets/wabbit_alpha2.png" #Import "assets/wabbit_alpha3.png" #Import "assets/wabbit_alpha4.png" ' Load up imports #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Const VWIDTH:=1024 Const VHEIGHT:=768 Class Bunnymark Extends Window Field frames: Int = 1 Field elapsed: Int = 1 Field bunnies:Stack<Bunny>[] = New Stack<Bunny>[4] Field images:Image[] = New Image[]( Image.Load("asset::wabbit_alpha.png"), Image.Load("asset::wabbit_alpha2.png"), Image.Load("asset::wabbit_alpha3.png"), Image.Load("asset::wabbit_alpha4.png") ) Field lastMilli := Millisecs() Method New() Super.New("Bunnymark", VWIDTH, VHEIGHT, WindowFlags.Resizable ) Local tmpimage:=Floor( random.Rnd( 3 )) For Local i:=0 Until bunnies.Length bunnies[i] = New Stack<Bunny> End End Method OnRender( canvas:Canvas ) Override App.RequestRender() ' Activate this method If Keyboard.KeyReleased(Key.Escape) Then App.Terminate() Local bunnycount:Int For Local s:=Eachin bunnies For Local bunny:=Eachin s bunny.Update() bunny.Draw(canvas) bunnycount+=1 Next Next 'elapsed += Millisecs() - lastMilli 'Local avg := 1000/( ( elapsed /Float(frames)) ) '- not recquired anymore thanks to App.FPS canvas.Color = Color.White canvas.DrawRect( 0, 0, VWIDTH, 25 ) canvas.Color = Color.Black canvas.DrawText("The Bunnymark ( " + bunnycount + " )",0,0) canvas.DrawText(" FPS: " + App.FPS, 300, 0 ) ' App.FPS suggested by abakobo #rem frames += 1 If frames > 100 ' makeshift FPS counter not necessary frames = 1 elapsed = 1 Endif lastMilli = Millisecs() #end End Method Method OnMouseEvent( event:MouseEvent ) Override If event.Type = EventType.MouseDown Local _len := 0 If event.Button = MouseButton.Left _len = 10 Elseif event.Button = MouseButton.Right _len = 10000 Elseif event.Button = MouseButton.Middle _len = -100 End ' Extra functionality ( RightButton / Middle ) added by @therevills Local tmpimage:Int For Local i:=1 Until _len + 1 tmpimage = Floor( random.Rnd( 3 )) bunnies[ tmpimage ].Add( New Bunny( Mouse.X, Mouse.Y, images[ tmpimage ] ) ) End End End Method End Class Bunny Field x: Float Field y: Float Field xspeed: Float Field yspeed: Float Field texture: Image Global gravity := 0.5 Method New( x: Float, y: Float, texture:Image ) Self.x = x Self.y = y Self.texture = texture xspeed = random.Rnd( 10 ) End Method Update:Void( ) yspeed += gravity y += yspeed x += xspeed If y >= VHEIGHT y = VHEIGHT yspeed = -random.Rnd( 35 ) Endif If x < 0 Or x > VWIDTH xspeed *= -1 x = Clamp(x, 0.0, Float(VWIDTH) ) Endif End Method Draw(canvas:Canvas) canvas.DrawImage( texture, x, y ) End End Function Main() New AppInstance New Bunnymark App.Run() End Function

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

Namespace bunnies   ' Load up the assets   #Import "assets/wabbit_alpha.png" #Import "assets/wabbit_alpha2.png" #Import "assets/wabbit_alpha3.png" #Import "assets/wabbit_alpha4.png"   ' Load up imports #Import "<std>" #Import "<mojo>" Using std.. Using mojo..     Const VWIDTH:=1024 Const VHEIGHT:=768   Class Bunnymark Extends Window Field frames: Int = 1 Field elapsed: Int = 1 Field bunnies:Stack<Bunny>[] = New Stack<Bunny>[4] Field images:Image[] = New Image[]( Image.Load("asset::wabbit_alpha.png"), Image.Load("asset::wabbit_alpha2.png"), Image.Load("asset::wabbit_alpha3.png"), Image.Load("asset::wabbit_alpha4.png") ) Field lastMilli := Millisecs() Method New() Super.New("Bunnymark", VWIDTH, VHEIGHT, WindowFlags.Resizable ) Local tmpimage:=Floor( random.Rnd( 3 )) For Local i:=0 Until bunnies.Length bunnies[i] = New Stack<Bunny> End End Method OnRender( canvas:Canvas ) Override App.RequestRender() ' Activate this method If Keyboard.KeyReleased(Key.Escape) Then App.Terminate() Local bunnycount:Int For Local s:=Eachin bunnies For Local bunny:=Eachin s bunny.Update() bunny.Draw(canvas) bunnycount+=1 Next Next 'elapsed += Millisecs() - lastMilli 'Local avg :=  1000/( ( elapsed /Float(frames)) ) '- not recquired anymore thanks to App.FPS canvas.Color = Color.White canvas.DrawRect( 0, 0, VWIDTH, 25 ) canvas.Color = Color.Black canvas.DrawText("The Bunnymark ( " + bunnycount + " )",0,0) canvas.DrawText(" FPS: " + App.FPS, 300, 0 ) ' App.FPS suggested by abakobo #rem frames += 1 If frames > 100 ' makeshift FPS counter not necessary frames = 1 elapsed = 1 Endif lastMilli = Millisecs() #end End Method Method OnMouseEvent( event:MouseEvent ) Override If event.Type = EventType.MouseDown Local _len := 0 If event.Button = MouseButton.Left _len = 10 Elseif event.Button = MouseButton.Right _len = 10000 Elseif event.Button = MouseButton.Middle _len = -100 End   ' Extra functionality ( RightButton / Middle ) added by @therevills Local tmpimage:Int For Local i:=1 Until _len + 1 tmpimage = Floor( random.Rnd( 3 )) bunnies[ tmpimage ].Add( New Bunny( Mouse.X, Mouse.Y, images[ tmpimage ] ) ) End End End Method   End   Class Bunny Field x: Float Field y: Float Field xspeed: Float Field yspeed: Float Field texture: Image Global  gravity := 0.5 Method New( x: Float, y: Float, texture:Image ) Self.x = x Self.y = y Self.texture = texture xspeed = random.Rnd( 10 ) End Method Update:Void( ) yspeed += gravity y += yspeed x += xspeed If y >= VHEIGHT y = VHEIGHT yspeed = -random.Rnd( 35 ) Endif If x < 0 Or x > VWIDTH xspeed *= -1 x = Clamp(x, 0.0, Float(VWIDTH) ) Endif End Method Draw(canvas:Canvas) canvas.DrawImage( texture, x, y ) End End   Function Main() New AppInstance New Bunnymark App.Run() End Function

[Author]

Posts