[PhatPeterParticipant]

I guess though it would perform as it should on Android and iOs.

But, it would be nice if it would perform great once again on macOS too.. I’d love to have a “classic computer platform” that really REALLY works without any flaws.

Time changes.. this was one year ago, what about now? should I give up on perfect 60 fps with macOS and Monkey2?

Shoulld I buy an old 2015 MacBook and keep it unupdated forever and just use Monkey1 on it for my “strange retro desires” of having a perfectly smooth computer and language? or will the Monkey2 graphics be fixed for macOS?

[PhatPeterParticipant]

A stock macbook Air 2015 for instance runs the Monkey1 code 60fps without hiccups for hours.
Well if you don’t move your mouse and keyboard that is.

The Monkey2 (You’re forced to use the 1.0.0.7 version bc 1.0.0.8 does not work on stock MacBook wo a xcode/macos update, and you DON’T WANT TO DO THAT YET). Monkey2 works you would think, and it does, but now and then graphical hickups comes around and hit you in the face.

[PhatPeterParticipant]

I fixed it, I had missed a asset:: again.

Now to the main question, there performance of Monkey2. I tried to make the examples as similar to eachoother as I could. Compare the Monkey1 and Monkey2.

A good way to try these are on a stock new MacBook of some kind.
The Monkey1 runs perfectly smooth using for example v87e.

Monkey2 does *almost* run perfectly smooth using one of the last two versions available.

Why does it not run as smooth? And what to do about it? I’m sure it’s behind the hood so its nothing I could do about it. But why does it happen?

Attachments:

1. Debugged.zip

[PhatPeterParticipant]

Yes I’m running debug mode, I have no idea why I get the error message though?

Attachments:

1. Code.zip
2. Code-1.zip

[PhatPeterParticipant]

And here’s a sheet.png to use for the examples.

Attachments:

1. 

   sheet.png
   

[PhatPeterParticipant]

“Included File exceeded size”

But I want you to see the M1 equvialent code too, so I put it here.

Monkey

[crayon-5cba911fe07b8821942199 inline="true" ]#GLFW_WINDOW_WIDTH = 1920 ' 1440 #GLFW_WINDOW_HEIGHT = 1080 ' 900 #GLFW_WINDOW_FULLSCREEN =True Import mojo2 Class MyApp Extends App Field canvas:Canvas, icanvas:Canvas,scanvas:Canvas, sourcecanvas:Canvas Field image:Image, sourceImage:Image, targetImage:Image Field s:Int = 4, cx:Int, d, wx:Int, wy:Int Field tilemap:Int[512*512] Field size:Int=4*4 ' --------------------------------------------------------------------------------------- Method OnCreate() For Local y:=0 To 511 For Local x:=0 To 511 tilemap[x + y * 512] = Int(Rnd(127)) Next Next ' Create empty tiles sourceImage=New Image(512,512,0,0,0) ' THIS sourcecanvas = New Canvas(sourceImage) sourcecanvas.Clear 0,0,0 ' or load tiles ' ' sourceImage=Image.Load("sheet.png",0,0,0) targetImage=New Image(sourceImage.Width,sourceImage.Height,0,0,0) ' THIS image=New Image(512,512,0,0,0) ' THIS Image.SetFlagsMask(Image.Managed) ' THIS icanvas=New Canvas(image) scanvas=New Canvas(targetImage) canvas=New Canvas End ' --------------------------------------------------------------------------------------- Method OnUpdate() If KeyHit(KEY_ESCAPE) Then EndApp wx=wx+2 End Method OnRender() scanvas.Clear 0,0,0 scanvas.DrawImage sourceImage,0,0 ' Instead of shader, it copies sourceImage without alteration to targetImage. scanvas.Flush() ' Init canvas & image Local w=DeviceWidth Local h=DeviceHeight 'canvas.SetViewport 0,0,w,h 'canvas.SetScissor 0,0,w,h 'canvas.SetProjection2d 0,w,0,h canvas.Clear 0,0,0 'icanvas.SetViewport 0,0,w,h 'icanvas.SetScissor 0,0,w,h 'icanvas.SetProjection2d 0,w,0,h ' Draw to image ' Scroll by drawing onto itself icanvas.Clear 0,0,0 icanvas.DrawImage sourceImage,0,0 icanvas.DrawImage targetImage,256,256 cx=(cx+2) Mod 512 For Local temp:=0 To 127 icanvas.DrawRect 64+temp,0,1,64,targetImage,0+temp+cx,0,1,64 Next ' Plot something to show how to draw to image after shader have been applied. For Local temp:=1 To 16 If Int(Rnd(1)) Then icanvas.SetColor 0,0,0 Else icanvas.SetColor 1,1,1 Local xx:= Int(Rnd(7)) Local yy:= Int(Rnd(7)) icanvas.SetColor 0,1,0 icanvas.DrawRect xx*4,yy*4,2*4,2*4 Next icanvas.Flush ' Draw to canvas. Local scrx:=wx Mod size Local scry:=wy Mod size Local mapx:=wx / size Local mapy:=wy / size Local cnty:= -scry For Local y:=mapy To mapy+((h/size)+1) Local cntx:=-scrx For Local x:=mapx To mapx+((w/size)+1) Local char:= tilemap[x + y * 512] ; Local tilex:= char & 15 ; Local tiley:= char Shr 4 canvas.DrawRect cntx,cnty,size,size,image,tilex Shl 5,tiley Shl 5,32,32 cntx=cntx+size Next cnty=cnty+size Next canvas.Flush End End ' --------------------------------------------------------------------------------------- Function Main() New MyApp 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

[crayon-5cba911fe07b8821942199 inline="true" ]#GLFW_WINDOW_WIDTH = 1920 ' 1440 #GLFW_WINDOW_HEIGHT = 1080 ' 900 #GLFW_WINDOW_FULLSCREEN =True Import mojo2   Class MyApp Extends App Field canvas:Canvas, icanvas:Canvas,scanvas:Canvas, sourcecanvas:Canvas Field image:Image, sourceImage:Image, targetImage:Image Field s:Int = 4, cx:Int, d, wx:Int, wy:Int Field tilemap:Int[512*512] Field size:Int=4*4 ' --------------------------------------------------------------------------------------- Method OnCreate() For Local y:=0 To 511 For Local x:=0 To 511 tilemap[x + y * 512] = Int(Rnd(127)) Next Next   ' Create empty tiles sourceImage=New Image(512,512,0,0,0) ' THIS sourcecanvas =  New Canvas(sourceImage) sourcecanvas.Clear 0,0,0 ' or load tiles ' ' sourceImage=Image.Load("sheet.png",0,0,0) targetImage=New Image(sourceImage.Width,sourceImage.Height,0,0,0) ' THIS image=New Image(512,512,0,0,0) ' THIS Image.SetFlagsMask(Image.Managed) ' THIS icanvas=New Canvas(image) scanvas=New Canvas(targetImage) canvas=New Canvas End   ' --------------------------------------------------------------------------------------- Method OnUpdate() If KeyHit(KEY_ESCAPE) Then EndApp wx=wx+2 End Method OnRender() scanvas.Clear 0,0,0 scanvas.DrawImage sourceImage,0,0 ' Instead of shader, it copies sourceImage without alteration to targetImage. scanvas.Flush()   ' Init canvas & image Local w=DeviceWidth Local h=DeviceHeight 'canvas.SetViewport 0,0,w,h 'canvas.SetScissor 0,0,w,h 'canvas.SetProjection2d 0,w,0,h canvas.Clear 0,0,0 'icanvas.SetViewport 0,0,w,h 'icanvas.SetScissor 0,0,w,h 'icanvas.SetProjection2d 0,w,0,h   ' Draw to image ' Scroll by drawing onto itself icanvas.Clear 0,0,0 icanvas.DrawImage sourceImage,0,0 icanvas.DrawImage targetImage,256,256 cx=(cx+2) Mod 512 For Local temp:=0 To 127 icanvas.DrawRect 64+temp,0,1,64,targetImage,0+temp+cx,0,1,64 Next ' Plot something to show how to draw to image after shader have been applied. For Local temp:=1 To 16 If Int(Rnd(1)) Then icanvas.SetColor 0,0,0 Else icanvas.SetColor 1,1,1 Local xx:= Int(Rnd(7)) Local yy:= Int(Rnd(7)) icanvas.SetColor 0,1,0 icanvas.DrawRect xx*4,yy*4,2*4,2*4 Next icanvas.Flush ' Draw to canvas. Local scrx:=wx Mod size Local scry:=wy Mod size Local mapx:=wx / size Local mapy:=wy / size Local cnty:= -scry For Local y:=mapy To mapy+((h/size)+1) Local cntx:=-scrx For Local x:=mapx To mapx+((w/size)+1) Local char:= tilemap[x + y * 512] ; Local tilex:= char & 15 ; Local tiley:= char Shr 4 canvas.DrawRect cntx,cnty,size,size,image,tilex Shl 5,tiley Shl 5,32,32 cntx=cntx+size Next cnty=cnty+size Next canvas.Flush End End   ' ---------------------------------------------------------------------------------------   Function Main() New MyApp End

[/crayon]

[PhatPeterParticipant]

Did you solve this?

[PhatPeterParticipant]

I made a temporary solution to save my precocious dock space, I opened up the bin folder and found the icon which apparently was the editor. I copied a png and then opened up info for that file, and pasted the png as the new icon.

Next time I opened Monkey2 I pinned it onto the dock and threw the original.
I could’ve Put the original pink icon there as well I just realised. This was just a test.

One icon – one tool, I’m happy.

Attachments:

1. 

   Screen-Shot-2017-11-22-at-17.24.14.png
   

[PhatPeterParticipant]

For those who are interested it runs perfectly on Lenovo Yoga2 with Android Lollipop. This is too cute, getting 1920×1200 64×64 @ 60 fps. If shaders comes equally cheap on Monkey2 then I will dare to throw MonkeyX away for good.

I’m curious to see the quality of HTML5 compiling but installing it is a real bitch so I’m giving up on that one for now.

[PhatPeterParticipant]

Ops I didn’t notice the post before mine. Thanks I’ll use that instead.

[PhatPeterParticipant]

Monkey2 suddenly became a very attractive productivity tool. I’ll get a heart in 3 months.

But please check into if there is some bug under the hood or not even if this seem to work.
At least now there’s an easy way to compare the two, just add additional layers and see who drops first.

[PhatPeterParticipant]

For anyone who wanna try it !
still to do is adding input etc, but the skeleton is working in Monkey2. It need a clean up of course.

I noticed userinputs makes the window or screen a bit wobbly at times so I might check that out what you can do about that.

Feel free to use this as a banana if you find it useful.

Monkey

[crayon-5cba912002ea3989753489 inline="true" ] Namespace Myapp #Import "<std>" #Import "<mojo>" #Import "<mojo3d>" #Import "assets/" Using std.. Using mojo.. Const w:=1920, h:=1080 Class Myapp Extends Window Field canvas:Canvas Field icanvas:Canvas Field scanvas:Canvas Field image:Image Field sourceImage:Image Field targetImage:Image Field size:Int=8 ' try 8 16 32 64 Field cx:Int Field wx:Int Field wy:Int Field tilemap := New Int[512*512] Field s:Int = 4 Method New() Super.New("Myapp", w, h, WindowFlags.Resizable) For Local y:=0 To 511 For Local x:=0 To 511 tilemap[x + y * 512] = Int(Rnd(127)) Next Next sourceImage=Image.Load("asset::32x32sheet.png") ' 0,0,0 in Mx ! PixelFormat.RGBA8,TextureFlags.Dynamic) targetImage=New Image(sourceImage.Width,sourceImage.Height) ' ,,,0) 'MAYBE SAME AS BELOW image=New Image(512,512,PixelFormat.RGBA8,TextureFlags.Dynamic) ' image=New Image(512,512,0,0,0) & Image.SetFlagsMask(Image.Managed) icanvas=New Canvas(image) scanvas=New Canvas(targetImage) ' canvas=New Canvas() NOT NEEDED IN MONKEY2 ' image.Texture.Flags &=~ TextureFlags.FilterMipmap End ' --------------------------------------------------------------------------------------- Method OnRender( canvas:Canvas ) Override App.RequestRender() wx=wx +1 ' resize and handlers 'wx=wx-s*KeyDown(KEY_LEFT)+s*KeyDown(KEY_RIGHT) 'wy=wy-s*KeyDown(KEY_UP)+s*KeyDown(KEY_DOWN) 'wx=Max(0,Min(10000,wx)) ' Limit wx to 0 through 10000 'wy=Max(0,Min(10000,wy)) ' Limit wyx to 0 through 10000 ' canvas.Alpha=1.0 scanvas.Clear(Color.Black) ' INSTEAD OF SHADER (just copies sourceImage to targetImage) scanvas.DrawImage(sourceImage,0,0) ' INSTEAD OF SHADER (just copies sourceImage to targetImage) scanvas.Flush() ' INSTEAD OF SHADER (just copies sourceImage to targetImage) ' Init canvas & image 'canvas.Viewport(0,0,w,h) 'canvas.Scissor(0,0,w,h) 'canvas.Projection2d(0,w,0,h) canvas.Clear(Color.Black) 'icanvas.Viewport(0,0,w,h) 'icanvas.Scissor(0,0,w,h) 'icanvas.Projection2d(0,w,0,h) icanvas.Clear(Color.Black) ' Draw to image ' Scroll (by drawing onto itself) icanvas.Clear(Color.Black) icanvas.DrawImage(sourceImage,0,0) icanvas.DrawImage(targetImage,256,256) cx=(cx+2) Mod 512 For Local temp:=0 To 127 icanvas.DrawRect(64+temp,0,1,64,targetImage,0+temp+cx,0,1,64) Next ' Plots something in the tiles (shows how to draw something to an image *after* shader have been applied) For Local temp:=1 To 16 If Int(Rnd(1)) Then icanvas.Color = Color.Black Else icanvas.Color = Color.White Local xx:= Int(Rnd(7)) Local yy:= Int(Rnd(7)) icanvas.DrawRect(xx*4,yy*4,2*4,2*4) Next icanvas.Flush() ' Finished drawing ' Draw to canvas ' Cookiecut 32x32 tiles from a 512x512 tilesheet and draw as tiles of any size Local scrx:=wx Mod size Local scry:=wy Mod size Local mapx:=wx / size Local mapy:=wy / size Local cnty:= -scry For Local y:=mapy To mapy+((h/size)+1) Local cntx:=-scrx For Local x:=mapx To mapx+((w/size)+1) Local char:= tilemap[x + y * 512] Local tilex:= char & 15 Local tiley:= char Shr 4 canvas.DrawRect(cntx,cnty,size,size,image,tilex Shl 5,tiley Shl 5,32,32) cntx=cntx+size Next cnty=cnty+size Next canvas.Flush() ' Finished drawing If Keyboard.KeyReleased(Key.Escape) Then App.Terminate() End Method End Function Main() New AppInstance New Myapp 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

[crayon-5cba912002ea3989753489 inline="true" ]   Namespace Myapp #Import "<std>" #Import "<mojo>" #Import "<mojo3d>" #Import "assets/" Using std.. Using mojo.. Const w:=1920, h:=1080   Class Myapp Extends Window   Field canvas:Canvas Field icanvas:Canvas Field scanvas:Canvas Field image:Image Field sourceImage:Image Field targetImage:Image Field size:Int=8 ' try 8 16 32 64 Field cx:Int Field wx:Int Field wy:Int Field tilemap := New Int[512*512] Field s:Int = 4 Method New() Super.New("Myapp", w, h, WindowFlags.Resizable) For Local y:=0 To 511 For Local x:=0 To 511 tilemap[x + y * 512] = Int(Rnd(127)) Next Next sourceImage=Image.Load("asset::32x32sheet.png") ' 0,0,0 in Mx  ! PixelFormat.RGBA8,TextureFlags.Dynamic) targetImage=New Image(sourceImage.Width,sourceImage.Height) ' ,,,0) 'MAYBE SAME AS BELOW image=New Image(512,512,PixelFormat.RGBA8,TextureFlags.Dynamic) ' image=New Image(512,512,0,0,0) &  Image.SetFlagsMask(Image.Managed) icanvas=New Canvas(image) scanvas=New Canvas(targetImage) ' canvas=New Canvas() NOT NEEDED IN MONKEY2 ' image.Texture.Flags &=~ TextureFlags.FilterMipmap End   ' ---------------------------------------------------------------------------------------   Method OnRender( canvas:Canvas ) Override App.RequestRender() wx=wx +1 ' resize and handlers 'wx=wx-s*KeyDown(KEY_LEFT)+s*KeyDown(KEY_RIGHT) 'wy=wy-s*KeyDown(KEY_UP)+s*KeyDown(KEY_DOWN) 'wx=Max(0,Min(10000,wx)) ' Limit wx to 0 through 10000 'wy=Max(0,Min(10000,wy)) ' Limit wyx to 0 through 10000 ' canvas.Alpha=1.0 scanvas.Clear(Color.Black) ' INSTEAD OF SHADER (just copies sourceImage to targetImage) scanvas.DrawImage(sourceImage,0,0) ' INSTEAD OF SHADER (just copies sourceImage to targetImage) scanvas.Flush() ' INSTEAD OF SHADER (just copies sourceImage to targetImage)   ' Init canvas & image 'canvas.Viewport(0,0,w,h) 'canvas.Scissor(0,0,w,h) 'canvas.Projection2d(0,w,0,h) canvas.Clear(Color.Black) 'icanvas.Viewport(0,0,w,h) 'icanvas.Scissor(0,0,w,h) 'icanvas.Projection2d(0,w,0,h) icanvas.Clear(Color.Black)   ' Draw to image ' Scroll (by drawing onto itself) icanvas.Clear(Color.Black) icanvas.DrawImage(sourceImage,0,0) icanvas.DrawImage(targetImage,256,256) cx=(cx+2) Mod 512 For Local temp:=0 To 127 icanvas.DrawRect(64+temp,0,1,64,targetImage,0+temp+cx,0,1,64) Next ' Plots something in the tiles (shows how to draw something to an image *after* shader have been applied) For Local temp:=1 To 16 If Int(Rnd(1)) Then icanvas.Color = Color.Black Else icanvas.Color = Color.White Local xx:= Int(Rnd(7)) Local yy:= Int(Rnd(7)) icanvas.DrawRect(xx*4,yy*4,2*4,2*4) Next icanvas.Flush() ' Finished drawing ' Draw to canvas ' Cookiecut 32x32 tiles from a 512x512 tilesheet and draw as tiles of any size Local scrx:=wx Mod size Local scry:=wy Mod size Local mapx:=wx / size Local mapy:=wy / size Local cnty:= -scry For Local y:=mapy To mapy+((h/size)+1) Local cntx:=-scrx For Local x:=mapx To mapx+((w/size)+1) Local char:= tilemap[x + y * 512] Local tilex:= char & 15 Local tiley:= char Shr 4 canvas.DrawRect(cntx,cnty,size,size,image,tilex Shl 5,tiley Shl 5,32,32) cntx=cntx+size Next cnty=cnty+size Next canvas.Flush() ' Finished drawing If Keyboard.KeyReleased(Key.Escape) Then App.Terminate() End Method End Function Main() New AppInstance New Myapp App.Run() End Function

[/crayon]

[PhatPeterParticipant]

Yes I did managed it by myself such victory !!

[PhatPeterParticipant]

Your kidding me? haha boy do I feel stupid, 16 hours straight and I miss that.

Could you list the code because I know not yet how to use “New Int[]”?
I already include Assets the whole directory?

[PhatPeterParticipant]

No direct X. It’s on macOS. I’ve tried windows (OpenGL via angle) and it shows the same amazing performance there. So both are equally good. It’s the same on both platforms.

[Author]

Posts