Monkey2 conversion

[PhatPeterParticipant]

Yes I did managed it by myself such victory !!

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

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]

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

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

[Author]

Posts