Memory Access violation

[PhatPeterParticipant]

This is a two part-question.

The first one is about a memory access violation from missing a New image I’m not sure why I’m getting this error message.

Monkey

Namespace Myapp #Import "<std>" #Import "<mojo>" #Import "<mojo3d>" #Import "assets/" Using std.. Using mojo.. Const w:=1920, h:=1080 ' w:=1440 h:= 900 Class Myapp Extends Window Field canvas:Canvas, icanvas:Canvas, scanvas:Canvas, sourcecanvas:Canvas Field image:Image, sourceImage:Image, targetImage:Image Field s:Int, cx:Int, wx:Int, wy:Int Field tilemap:Int[] = New Int[512*512] Field size:Int=4*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 ' Create empty tiles sourceImage=New Image(512,512,PixelFormat.RGBA8,TextureFlags.Dynamic) sourcecanvas = New Canvas(sourceImage) sourcecanvas.Clear(Color.Black) ' or load tiles 'sourceImage=Image.Load("sheet.png") ' 0,0,0 in Mx ! PixelFormat.RGBA8,TextureFlags.Dynamic) ' Getting an error "Attempt to invoke method on null instance" targetImage=New Image(sourceImage.Width,sourceImage.Height,PixelFormat.RGBA8,TextureFlags.Dynamic) ' ,,,0) 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 image.Texture.Flags &=~ TextureFlags.FilterMipmap End ' --------------------------------------------------------------------------------------- Method OnRender( canvas:Canvas ) Override App.RequestRender() ' canvas.Alpha=1.0 scanvas.Clear(Color.Black) scanvas.DrawImage(sourceImage,0,0) ' Instead of shader, it copies sourceImage without alteration to targetImage. scanvas.Flush() ' Init canvas & image canvas.Clear(Color.Black) ' canvas.Viewport(0,0,w,h) ; canvas.Scissor(0,0,w,h) ; canvas.Projection2d(0,w,0,h) icanvas.Clear(Color.Black) ' icanvas.Viewport(0,0,w,h) ; icanvas.Scissor(0,0,w,h) ; icanvas.Projection2d(0,w,0,h) ' 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 ' 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.Color = Color.Black Else icanvas.Color = Color.White Local xx:= Int(Rnd(7)) Local yy:= Int(Rnd(7)) icanvas.Color = Color.Green 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() ' User input here as there is no OnUpdate() equivalent in Monkey2 If Keyboard.KeyReleased(Key.Escape) Then App.Terminate() wx=wx+2 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

Namespace Myapp #Import "<std>" #Import "<mojo>" #Import "<mojo3d>" #Import "assets/" Using std.. Using mojo.. Const w:=1920, h:=1080 ' w:=1440 h:= 900   Class Myapp Extends Window Field canvas:Canvas, icanvas:Canvas, scanvas:Canvas, sourcecanvas:Canvas Field image:Image, sourceImage:Image, targetImage:Image Field s:Int, cx:Int, wx:Int, wy:Int Field tilemap:Int[] = New Int[512*512] Field size:Int=4*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 ' Create empty tiles sourceImage=New Image(512,512,PixelFormat.RGBA8,TextureFlags.Dynamic)   sourcecanvas =  New Canvas(sourceImage) sourcecanvas.Clear(Color.Black) ' or load tiles 'sourceImage=Image.Load("sheet.png") ' 0,0,0 in Mx ! PixelFormat.RGBA8,TextureFlags.Dynamic) ' Getting an error "Attempt to invoke method on null instance" targetImage=New Image(sourceImage.Width,sourceImage.Height,PixelFormat.RGBA8,TextureFlags.Dynamic) ' ,,,0) 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 image.Texture.Flags &=~ TextureFlags.FilterMipmap End ' --------------------------------------------------------------------------------------- Method OnRender( canvas:Canvas ) Override App.RequestRender() ' canvas.Alpha=1.0 scanvas.Clear(Color.Black) scanvas.DrawImage(sourceImage,0,0) ' Instead of shader, it copies sourceImage without alteration to targetImage. scanvas.Flush()   ' Init canvas & image canvas.Clear(Color.Black) ' canvas.Viewport(0,0,w,h) ; canvas.Scissor(0,0,w,h) ; canvas.Projection2d(0,w,0,h) icanvas.Clear(Color.Black) ' icanvas.Viewport(0,0,w,h) ; icanvas.Scissor(0,0,w,h) ; icanvas.Projection2d(0,w,0,h)   ' 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 ' 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.Color = Color.Black Else icanvas.Color = Color.White Local xx:= Int(Rnd(7)) Local yy:= Int(Rnd(7)) icanvas.Color = Color.Green 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()   ' User input here as there is no OnUpdate() equivalent in Monkey2 If Keyboard.KeyReleased(Key.Escape) Then App.Terminate() wx=wx+2 End Method End ' --------------------------------------------------------------------------------------- Function Main() New AppInstance New Myapp App.Run() End Function

The second question is about the performance.
High Sierra sucks big balls and am still waiting for Apple’s bugfixes and the next version of macOS.

On my main computer I still got Sierra and Monkey1 1.87e as they behave butter smooth and without problems. Love it.
Of course I needed to be progressive and added Monkey2 but I couldn’t add anything but V1.1.07 to it, as Monkey2 v1.1.08 needs an updated Xcode which in turn needs High sierra and NO I want something that works and am NOT ruining the performance of both of my computers. Updating is scary business !

The Monkey 1.87e sourcecode works absolutely perfectly smooth (at least on Sierra for now, but probably on higher versions too I just don’t have that many computers to try it on. The important point I wanna make is, It’s 100% stable, never any hiccups, EVER.

The Monkey2 source code *almost* works, so in any macOS and any M1 and M2 version you use… check those two source codes out and compare them. Notice how M1 is 100% smooth, and how Monkey2 is only 99.9% smooth. I want to know why and if possible… fix it.

[PhatPeterParticipant]

“Included File exceeded size”

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

Monkey

[crayon-5cb9cc179cd84134812717 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-5cb9cc179cd84134812717 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]

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

Attachments:

1. 

   sheet.png
   

[nerobotParticipant]

To check memory access violation error you can run your game in debug mode: menu Build — Debug.

Or you know the line with error but don’t understand why?

[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]

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]

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 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?

[Mark SiblyKeymaster]

Monkey2 speed on desktop may or may not improve in futre. I am quite happy with the current speed so have no immediate optimization efforts planned. As for the future, I always like to tinker with things so who knows?

I recommend sticking with monkey1 if you absolutely need the speed you were getting with that and you don’t care about anything else monkey2 has to offer. The cerberus guys seem to be successfully keeping it alive so it wont be going anywhere for a while yet.

[PhatPeterParticipant]

Okay. How about the performances on iOS devices? Do they also differ or do they have a consistent fps quality with M2?

[PhatPeterParticipant]

I wish there could be a “Blitzmode” available, as there were in BlitzBASIC I (as well as II).
I’m well knowing that platforms such as iOS, Android, Windows, macOS etc would never support such a thing. It’s a pity because sometime realtime and media quality is what you want from your devices.

[abakoboParticipant]

oh man! the generated image is very psychedelic! I had to jump on alt+F4!

about your code:
you are using two canvases, canvases slows down you computer, you’d probably will have better perfs with transform matrixes and a single canvas.

And yes there’s a OnUpdate() event but also OnKeyEvent() and OnMouseEvent(). OnUpdate is not documented though!(will post issue). You can have a look at spacechimps banana to see an example of an app using both OnUpdate() and OnKeyEvent()

[Author]

Posts