Monkey2 Bunnymark (github)

[Abe _King_Participant]

Unfortunately, the random order for the draw-calls is necessary, the only workaround for this at the moment would be loading it all into one texture and drawing from separate areas off that texture. That’s why I was looking for what the support is for atlases. Thanks for the code nonetheless, always interesting to see more Monkey2 in action

[EthernautParticipant]

I wanna play too!

I forked the original, and added a simple Atlas class so we can batch all four bunnies with a single texture, without worrying about bunny order. Also added borders and made the bunnies bounce on top, to ensure we’re seeing all bunnies at any time (and cleaned the git ignore settings a bit).

Other changes include ditching the bunny array and using a stack instead, to avoid resizing the array all the time.

https://github.com/DoctorWhoof/Monkey2-BunnyMark

I get about 16000 bunnies on my MacBook Pro 2015 before the framerate starts to get unstable.

[Abe _King_Participant]

@ethernaut
Very nice improvements I saw! I’d be very happy if you could send a pull request! I enjoy the padding you added there too, very appealing!

I’m going to give your repo a whirl myself before hand

[ EDIT ]
I can now render about 1,000 more bunnies! So instead of 3.4k it’s now about 4.2-4.3k at 61 fps :). Not as much as I would have predicted, but definitely an improvement! I compared the stack against the array and it doesn’t seem to have increased performance on my end (comparing them side by side).
Thanks for the update nonetheless!

[EthernautParticipant]

Try the new one!
https://github.com/DoctorWhoof/Monkey2-BunnyMark

I added “proper” sprite batching, using Canvas.DrawPrimitives, and can now go up to 44000 on my laptop, a near 3X faster result!

If I switch the GPU to Intel Iris instead of the faster AMD Radeon R9 it’s still pretty good, around 30000. All on MacOS High Sierra. Curious to see the difference on Windows.

Instead of calling each Bunny.Draw, I now call bunnyAtlas.DrawBatch() a single time. Each bunny still updates a render queue with bunnyAtlas.QueueSprite( x, y, frame ). Take a look!

The only bummer is that I hit some DrawPrimitive() limit (something around 16000 primitives, I believe) and had to group the render queue into smaller groups, so the code isn’t as clean as it could be.

[abakoboParticipant]

I have now:

35.5k on a 3630QM laptop with GT635M ON, on W10 (had to force GPU manually (optimus thing))

13.4k on a 3630QM laptop with the i7(HD4000) integrated graphics, on W10. One strange thing is that when I reach the limit it switches to 30FPS directly and stays there! and if I want to go back to 60fps I first have to go back to 8k…?

14.3k on a 3630QM laptop with the i7(HD4000) integrated graphics, on MacOs ElCapitan. no strange FPS switching to 30FPS on this one! Mac performs better that W10 on the exact same hardware! Who would have guessed it?)

[Mark SiblyKeymaster]

Yay, decided to do my own bunnymark based on ethernaut’s and found a pretty major issue in mojo!

You’re supposed to be able to use images as atlases in mojo, and New Image( image,x,y,w,h ) is supposed to ‘grab’ a frame from an atlas.

This works BUT currently also creates a new material for the frame instead of just sharing the same material as the atlas – so my version was initially slower than ethernaut’s by a large margin! Fixing this so that all images created from other images ‘share’ the same material gives a considerable speed up – was getting about 50K images @60hz with ethernaut’s version, now get about 180K with mine!

Will push this change to the repos soon.

My bunnymark (works but will be slow with current mx2):

Monkey

Namespace bunnies #Import "assets/wabbit_alpha.png" #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Const initialCount := 10000 Function Main() New AppInstance New Bunnymark App.Run() End Function '****************************************************************************************************** Class Bunnymark Extends Window Global atlas:Image Global frames:=New Image[4] Field bunnies := New Stack<Bunny> Method New() Super.New("Bunnymark", 1024, 768, WindowFlags.Resizable ) atlas=Image.Load( "asset::wabbit_alpha.png" ) For Local j:=0 Until 2 For Local i:=0 Until 2 frames[ j*2+i ]=New Image( atlas,i*32,i*64,32,64 ) Next Next For Local n := 0 Until initialCount bunnies.Push( New Bunny( 512, 384,frames[ Rnd(4) ] ) ) Next End Method OnRender( canvas:Canvas ) Override App.RequestRender() If Keyboard.KeyReleased(Key.Escape) Then App.Terminate() canvas.Color = Color.White canvas.DrawRect( 0, 0, App.ActiveWindow.Width , 25 ) For Local bunny:=Eachin bunnies bunny.Update( canvas ) Next canvas.Color = Color.Black canvas.DrawText("The Bunnymark ( " + bunnies.Length + " )",10,5) canvas.DrawText(" FPS: " + App.FPS, 250, 5 ) canvas.DrawText(" Left mouse = +10, middle = +100, right = +1000 (hold alt key to remove) ", 450, 5 ) End Method OnMouseEvent( event:MouseEvent ) Override If event.Type = EventType.MouseDown Local _len := 0 If event.Button = MouseButton.Left _len = 10 Elseif event.Button = MouseButton.Middle _len = 100 Elseif event.Button = MouseButton.Right _len = 1000 End If Keyboard.KeyDown( Key.LeftAlt ) Or Keyboard.KeyDown( Key.RightAlt ) For Local n := 1 To _len If bunnies.Length Then bunnies.Pop() Next Else For Local n := 1 To _len bunnies.Push( New Bunny( Mouse.X, Mouse.Y,frames[ Rnd(4) ] ) ) Next End End End End '****************************************************************************************************** Class Bunny Global gravity := 0.1 Global border := 32.0 Field x: Float Field y: Float Field xspeed: Float Field yspeed: Float Field maxBounce:= 5.0 Field image:Image Method New( x:Float,y:Float,image:Image ) Self.x = x Self.y = y xspeed = Rnd( -10, 10 ) Self.image=image End Method Update:Void( canvas:Canvas ) yspeed += gravity y += yspeed x += xspeed If y < border*2 y = border*2 yspeed *= -1 yspeed = Clamp( yspeed, 0.0, Float( maxBounce ) ) End If y > App.ActiveWindow.Height - border y = App.ActiveWindow.Height - border yspeed = -random.Rnd( maxBounce * 3 ) End If( x < border ) Or ( x > App.ActiveWindow.Width - border ) xspeed *= -1 x = Clamp( x, border, Float(App.ActiveWindow.Width - border ) ) End canvas.DrawImage( image,x,y ) 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 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 136 137 138 139 140 141 142 143 144

Namespace bunnies   #Import "assets/wabbit_alpha.png"   #Import "<std>" #Import "<mojo>"   Using std.. Using mojo..   Const initialCount := 10000   Function Main() New AppInstance New Bunnymark App.Run() End Function   '******************************************************************************************************   Class Bunnymark Extends Window Global atlas:Image Global frames:=New Image[4] Field bunnies := New Stack<Bunny> Method New() Super.New("Bunnymark", 1024, 768, WindowFlags.Resizable ) atlas=Image.Load( "asset::wabbit_alpha.png" ) For Local j:=0 Until 2 For Local i:=0 Until 2 frames[ j*2+i ]=New Image( atlas,i*32,i*64,32,64 ) Next Next For Local n := 0 Until initialCount bunnies.Push( New Bunny( 512, 384,frames[ Rnd(4) ] ) ) Next End Method OnRender( canvas:Canvas ) Override App.RequestRender() If Keyboard.KeyReleased(Key.Escape) Then App.Terminate() canvas.Color = Color.White canvas.DrawRect( 0, 0, App.ActiveWindow.Width , 25 ) For Local bunny:=Eachin bunnies bunny.Update( canvas ) Next canvas.Color = Color.Black canvas.DrawText("The Bunnymark ( " + bunnies.Length + " )",10,5) canvas.DrawText(" FPS: " + App.FPS, 250, 5 ) canvas.DrawText(" Left mouse = +10, middle = +100, right = +1000  (hold alt key to remove) ", 450, 5 )   End Method OnMouseEvent( event:MouseEvent ) Override   If event.Type = EventType.MouseDown Local _len := 0   If event.Button = MouseButton.Left _len = 10 Elseif event.Button = MouseButton.Middle _len = 100 Elseif event.Button = MouseButton.Right _len = 1000 End   If Keyboard.KeyDown( Key.LeftAlt ) Or Keyboard.KeyDown( Key.RightAlt ) For Local n := 1 To _len If bunnies.Length Then bunnies.Pop() Next Else For Local n := 1 To _len bunnies.Push( New Bunny( Mouse.X, Mouse.Y,frames[ Rnd(4) ] ) ) Next End End End   End     '******************************************************************************************************     Class Bunny Global gravity := 0.1 Global border := 32.0 Field x: Float Field y: Float Field xspeed: Float Field yspeed: Float Field maxBounce:= 5.0   Field image:Image Method New( x:Float,y:Float,image:Image ) Self.x = x Self.y = y xspeed = Rnd( -10, 10 ) Self.image=image End Method Update:Void( canvas:Canvas ) yspeed += gravity   y += yspeed x += xspeed If y < border*2 y = border*2 yspeed *= -1 yspeed = Clamp( yspeed, 0.0, Float( maxBounce ) ) End If y > App.ActiveWindow.Height - border y = App.ActiveWindow.Height - border yspeed = -random.Rnd( maxBounce * 3 ) End If( x < border ) Or ( x > App.ActiveWindow.Width - border ) xspeed *= -1 x = Clamp( x, border, Float(App.ActiveWindow.Width - border ) ) End canvas.DrawImage( image,x,y ) End End

[scurtyParticipant]

Yeah I saw the Image.Window function but I had no idea what it did exactly. xD
I guess it clips a section of an Image like an Atlas.
Does is pass by value, ptr, or just out-right makes a copied section of referenced atlas?

[Mark SiblyKeymaster]

Hmm, can’t find an Image.Window, do you perhaps mean Pixmap.Window?

It might have been more consistent if I’d used Image.Window, but the idea was for New Image( image,rect…) etc. to create a ‘window’ into an atlas that shares the same ‘material’ (ie: texture) as the atlas, thus minimizing renderstate changes.

But I messed up here, and each image created with New Image( image,rect… ) actually ended up with a new ‘material’ too, which caused a renderstate change for each DrawImage. Pretty easily fixed, although there’a a minor chance it may affect some existing code out there – will deal with that if/when it happens.

[scurtyParticipant]

Oops yep, Pixmap. My bad. Awesome! I don’t really see how that would be an issue as long as a
MaterialSet() .Material = bleh
and MaterialCopy:Material()
Functions exists at some point.

Monkey is really fast. Way faster than (excluding optimized libs) Python and a bit faster than Java from my very limited testing in the past. Very nice work Mr Sibly.

[Abe _King_Participant]

Wow this is all great news! Glad to hear it from all of you. @ethernaut I got around 30-40k, a magnificent improvement I’d say :). That’s literally 10x the power! You did a lot of great work very quickly, obviously, Monkey2 is a very productive language!

Glad to hear about the dramatic improvement from your fix @MarkSibly, stellar news :D. I’ll definitely have to give Monkey2 a whirl after the GitHub Jam!

[nerobotParticipant]

This works BUT currently also creates a new material for the frame instead of just sharing the same material as the atlas – so my version was initially slower than ethernaut’s by a large margin! Fixing this so that all images created from other images ‘share’ the same material gives a considerable speed up – was getting about 50K images @60hz with ethernaut’s version, now get about 180K with mine!

Will push this change to the repos soon.

Super-good!

[abakoboParticipant]

Hi

just had a rebuild of the latest dev branch (rebuild mx2cc + rebuildall) because I saw the commit about the atlas thing but no luck I get the same results as etheraut’s version (with drawPrimitive). too bad. Maybe there’s still something to add to the repo before I can test the code below?

[EthernautParticipant]

I actually get the exact result on my version and on Mark’s, 44K on AMD GPU and 30K on Intel on a Mac laptop. Of course it’s better to get the same result with less code!

By the way, for the tests to look absolutely identical, you need to change this line:

Monkey

frames[ j*2+i ]=New Image( atlas,i*32,i*64,32,64 )

1	frames[ j*2+i ]=New Image( atlas,i*32,i*64,32,64 )

Into this (using the ‘j’ coordinate for vertical axis to actually use all four frames, plus centered handle):

Monkey

frames[ j*2+i ]=New Image( atlas,i*32,j*64,32,64 ) frames[ j*2+i ].Handle = New Vec2f(0.5)

1 2	frames[ j*2+i ]=New Image( atlas,i*32,j*64,32,64 ) frames[ j*2+i ].Handle = New Vec2f(0.5)

Cheers!

[PhatPeterParticipant]

To improve the number of draws, don’t forget to change the coordinates of all the draws from Float’s into Int’s.

For me this makes 6K into 25K.

Mind you that I replace the line that draws into canvas.DrawRect and used a larger sprite size of 64×64.
Regardless of drawing method, the scaling factor going from 6K into 25K is remarkable.

[PhatPeterParticipant]

I can inform that fullscreen performance in some MacOS revisions are simply TERRIBLE.
Of course that has nothing to do with this example, it’s just a general statement.

I’ve had Monkey1 and a semi-fresh MacOS for a long time and enjoyed it very much. I didn’t update on purpose as I knew about the risk of updating and I loved the retro feel to have a working fullscreen equally powerful as  windowed apps. Last week I had to update MacOS & Xcode to get Monkey2 a try, and things broke terribly.

Anyways, I digress. The numbers for Monkey2 and freshest MacOS you can get are :

– fullscreen manages 12K while – Windowed manages 25K.

You’ll notice that things gets cut in half, there’s probably a screen-buffer in the way in the system.

[Author]

Posts