Monkey2 conversion

[PhatPeterParticipant]

So I’ve had a sleepless week while trying to convert this source into Monkey2 but I never quiet succeeded, still bumping into all sorts of problems. Anyone here good at Monkey1 and want to help out?

It’s the base for an efficient shader and tile engine, It would also make a great example for Monkey2 to build things upon.

Monkey

[crayon-5cba845261596455582474 inline="true" ] Import mojo2 Class MyApp Extends App Field canvas:Canvas,icanvas:Canvas Field image:Image,sourceImage:Image,targetImage:Image Field shaderonplease:Int,size:Int=32,w:Int = 800,h:Int = 600 Field effect:ShaderEffect,level:Float=1,cx:Int Method OnCreate() sourceImage=Image.Load("32x32sheet.png",0,0,0) targetImage=New Image(sourceImage.Width,sourceImage.Height,,,0) image=New Image(512,512,0,0,0) ; Image.SetFlagsMask(Image.Managed) ; effect=New ShaderEffect canvas=New Canvas ; icanvas=New Canvas(image) End Method OnUpdate() If KeyHit(KEY_SPACE) Then effect.SetColor(Rnd(1.0),Rnd(1.0),Rnd(1.0),1.0) ; shaderonplease = True If shaderonplease Then level = Sin(Millisecs*.5)*.5+.5 ' SHADER PARAMETER End Method OnRender() ' Shader effect.SetLevel level ; effect.Render(sourceImage,targetImage) canvas.DrawImage(targetImage,100,100) ' Init canvas & image 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 ; icanvas.Clear 0,0,0 ' Draw to image icanvas.DrawImage targetImage,256,256 cx=(cx+2) Mod 512 ; For Local temp:=0 To 127 ; icanvas.DrawRect 064+temp,0,1,64,targetImage,0+temp+cx,0,1,64 ; Next icanvas.Flush ' Draw to canvas canvas.DrawRect 0,0,256,256,image,0,0,256,256 canvas.Flush End End Function Main() New MyApp End Class BWShader Extends Shader Private Global _instance:BWShader Method New() Build(LoadString("monkey://data/shader.glsl")) End Method OnInitMaterial:Void(material:Material) material.SetTexture "ColorTexture",Texture.White() ; material.SetScalar "EffectLevel",1 material.SetScalar "color_r",1 ; material.SetScalar "color_g",1 ; material.SetScalar "color_b",1 ; material.SetScalar "color_a",1 End Function Instance:BWShader() If Not _instance _instance=New BWShader Return _instance End End Class ShaderEffect Private Global _canvas:Canvas Field _material:Material Method New() If Not _canvas _canvas=New Canvas _material=New Material(BWShader.Instance()) End Method SetLevel:Void(level:Float) _material.SetScalar "EffectLevel",level End Method SetColor:Void(r:Float,g:Float,b:Float,a:Float=1.0) _material.SetScalar "color_r",r ; _material.SetScalar "color_g",g ; _material.SetScalar "color_b",b ;_material.SetScalar "color_a",a End Method Render:Void(source:Image,target:Image) _material.SetTexture "ColorTexture",source.Material.ColorTexture _canvas.Clear 0,0,0,0 _canvas.SetRenderTarget target _canvas.SetViewport 0,0,target.Width,target.Height _canvas.SetProjection2d 0,target.Width,0,target.Height _canvas.DrawRect 0,0,target.Width,target.Height,_material _canvas.Flush 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

[crayon-5cba845261596455582474 inline="true" ]   Import mojo2 Class MyApp Extends App   Field canvas:Canvas,icanvas:Canvas Field image:Image,sourceImage:Image,targetImage:Image Field shaderonplease:Int,size:Int=32,w:Int = 800,h:Int = 600 Field effect:ShaderEffect,level:Float=1,cx:Int Method OnCreate() sourceImage=Image.Load("32x32sheet.png",0,0,0) targetImage=New Image(sourceImage.Width,sourceImage.Height,,,0) image=New Image(512,512,0,0,0) ; Image.SetFlagsMask(Image.Managed) ; effect=New ShaderEffect canvas=New Canvas ; icanvas=New Canvas(image) End   Method OnUpdate() If KeyHit(KEY_SPACE) Then effect.SetColor(Rnd(1.0),Rnd(1.0),Rnd(1.0),1.0) ; shaderonplease = True If shaderonplease Then level = Sin(Millisecs*.5)*.5+.5 ' SHADER PARAMETER End   Method OnRender() ' Shader effect.SetLevel level ; effect.Render(sourceImage,targetImage) canvas.DrawImage(targetImage,100,100) ' Init canvas & image 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 ; icanvas.Clear 0,0,0   ' Draw to image icanvas.DrawImage targetImage,256,256 cx=(cx+2) Mod 512 ; For Local temp:=0 To 127 ; icanvas.DrawRect 064+temp,0,1,64,targetImage,0+temp+cx,0,1,64 ; Next icanvas.Flush   ' Draw to canvas canvas.DrawRect 0,0,256,256,image,0,0,256,256 canvas.Flush End End   Function Main() New MyApp End   Class BWShader Extends Shader Private Global _instance:BWShader Method New() Build(LoadString("monkey://data/shader.glsl")) End Method OnInitMaterial:Void(material:Material) material.SetTexture "ColorTexture",Texture.White() ; material.SetScalar "EffectLevel",1 material.SetScalar "color_r",1 ; material.SetScalar "color_g",1 ; material.SetScalar "color_b",1 ; material.SetScalar "color_a",1 End Function Instance:BWShader() If Not _instance _instance=New BWShader Return _instance End End   Class ShaderEffect Private Global _canvas:Canvas Field _material:Material   Method New() If Not _canvas _canvas=New Canvas _material=New Material(BWShader.Instance()) End Method SetLevel:Void(level:Float) _material.SetScalar "EffectLevel",level End Method SetColor:Void(r:Float,g:Float,b:Float,a:Float=1.0) _material.SetScalar "color_r",r ; _material.SetScalar "color_g",g ; _material.SetScalar "color_b",b ;_material.SetScalar "color_a",a End Method Render:Void(source:Image,target:Image) _material.SetTexture "ColorTexture",source.Material.ColorTexture _canvas.Clear 0,0,0,0 _canvas.SetRenderTarget target _canvas.SetViewport 0,0,target.Width,target.Height _canvas.SetProjection2d 0,target.Width,0,target.Height _canvas.DrawRect 0,0,target.Width,target.Height,_material _canvas.Flush End End

[/crayon]

Attachments:

1. MonkeyX-to-Monkey2.zip

[PhatPeterParticipant]

The reason I as is that I really need to draw a texture onto itself efficiently in Monkey2.

Separate experiments went well but throwing everything together made it a snail

Mx did it without resorting to opengl so if M2 differ in its implementation I would need to know how to be able to optimise things back. Are there examples on how to effeciently draw parts of an image onto itself and then draw that in turn onto the canvas? This chain of events are what seem to slow down everything in MX2. Do you need to do Ping pong rendering to do that? I don’t think the source above does it.

The MX source above produce exactly this and it does it well despite being so simple and straightforward. It gives you at least one layer of 64×64 of (shaded) tiles on all Android devices that I´ve tried so far. It’s a good minimum spec. On a PC or Mac you get 16-180 layers(!)

Doing this as efficitly on Monkey2 is the hardest bit when switching to Monkey2 for me.

[abakoboParticipant]

I’m not sure to understand what you’re looking for but may be pixmaps are what you need!? It helped me to boost some processes sometimes.

with the PastePixmap for example. And you can modify pixmaps pixels using direct pointer access too (for plot by plot faster drawing. There’s is also discussions about shaders in the help forums too.

Monkey

image.Texture.PastePixmap( pixmap,0,0 ) canvas.DrawImage( image,0,0 )

1 2	image.Texture.PastePixmap( pixmap,0,0 ) canvas.DrawImage( image,0,0 )

[PhatPeterParticipant]

It’s such a simple problem but I probably said it wrong.

Say that you want to do this
– You want to draw thousands of images to the canvas, no performance issue.
– You might draw equally many images onto another image, no problem (it even outperforms the canvas, probably due to that images are often smaller, it’s really nice).

The problem is the actual combo, and it’s an important combo to have in the toolbox.

Of course this is not about a once-initiated-pre-drawn-image, it’s about the need to do it continuously.

MonkeyX does it and the code above proves it even if it lacks the few lines that does the actual cookie-cutting which is just a bunch of DrawRect really.

Monkey2 on the other hand seem very picky about this?

This is the only gripe I have with Monkey2 now, I really need it to convert totally.

[Mark SiblyKeymaster]

Still not quite sure what you mean here…could you try and explain the problem a bit more clearly.

I assume it’s speed related as there’s mention of snails in there, and that it’s something to do with drawing images to images but beyond that…?

Ideally, some nice simple runnable monkey2 code with a clear description of the ‘symptoms’ would be ideal!

[PhatPeterParticipant]

This is the best demo I’ve come to manage to produce in Monkey2 as I’m in the process of learning it.
I could provide full MX code if this M2 can’t put some light on the issue. I’m still new to Monkey2 so bear with me.

I made a test which uses an untouched image (Barabarian) to blit to the Checkerboard (just another image) and to the main canvas. While doing that it blits some more using the checkerboard as the source and draws onto both itself and the canvas. I would like to throw away the “selfblitting” part and compare, but I think I tried that with similar slow results so that’s not it.

The test can show that the upper combinations will run fine, while the lower combination one will not.

If this fails to explain the problem I can show the full source when Mx is doing it, with shader ontop aswell.

Monkey

[crayon-5cba845276227938475759 inline="true" ] Namespace Myapp #Import "<std>" #Import "<mojo>" #Import "<mojo3d>" #Import "assets/" Using std.. Using mojo.. Const VWIDTH:=1920, VHEIGHT:=1080 Class Myapp Extends Window Field Myapp:Stack<sprite>[] = New Stack<sprite>[4] Field images:Image[] = New Image[]( Image.Load("asset::32x32sheet.png"),Image.Load("asset::32x32sheet.png"),Image.Load("asset::32x32sheet.png"),Image.Load("asset::32x32sheet.png") ) Field image:Image ' Bunny residue, are using only [0] for now. Field icanvas:Canvas Method New() Super.New("Myapp", VWIDTH, VHEIGHT, WindowFlags.Resizable ) image=New Image(512,512,PixelFormat.RGBA8,TextureFlags.Dynamic) image.Texture.Flags &=~ TextureFlags.FilterMipmap 'images[0].TextureFlags.Dynamic 'images[0].Texture.Flags &=~ TextureFlags.FilterMipmap image.Handle=New Vec2f(0.5,0.5) icanvas=New Canvas(image) Local tmpimage:=Floor( random.Rnd( 3 )) For Local i:=0 Until Myapp.Length Myapp[i] = New Stack<sprite> End End ' --------------------------------------------------------------------------------------- Method OnRender( canvas:Canvas ) Override App.RequestRender() icanvas.Clear(Color.Black) canvas.Alpha=1.0 icanvas.Alpha=0.2 For Local x:=0 Until 512/16 For Local y:=0 Until 512/16 If (x~y)&1 icanvas.Color=New Color( Sin( Millisecs()*.01 )*.5+.5,Cos( Millisecs()*.02 )*.5+.5,.5 ) Else icanvas.Color=Color.Yellow Endif icanvas.DrawRect( Int(x)*16,Int(y)*16,16,16 ) Next Next Global currentx : Int currentx = (currentx+2) Mod 512 For Local temp:=0 To 511 icanvas.DrawRect(64+temp,0, 1, 64, image, 0+temp+currentx,0,1,64) Next icanvas.Color=Color.White icanvas.DrawText( "This way up!",icanvas.Viewport.Width/2,0,.5,0) If Keyboard.KeyReleased(Key.Escape) Then App.Terminate() Local count:Int icanvas.Alpha = 1 canvas.Alpha = 1 For Local s:=Eachin Myapp For Local sprite:=Eachin s canvas.Alpha = 1.0 sprite.Update(); sprite.Draw(icanvas);count+=1 ' Draw to checkerboard. Using this instead of tilesheet as source slows things down in Monkey2 but not MonkeyX. canvas.Alpha = 0.2 sprite.Update(); sprite.Draw(canvas);count+=1 ' Draw to canvas. Next Next icanvas.Flush() Global rot:=0.0 canvas.Alpha = 1.0 canvas.DrawImage(image,App.MouseLocation.x,App.MouseLocation.y,rot) icanvas.Alpha = 1 canvas.Color = Color.White canvas.DrawRect( 0, 0, VWIDTH, 25 ) canvas.Color = Color.Black canvas.DrawText("Counting ("+ count +")",0,0);canvas.DrawText(" FPS: " + App.FPS, 300, 0) End Method Method OnMouseEvent( event:MouseEvent ) Override If event.Type = EventType.MouseDown Local _len := 0 If event.Button = MouseButton.Left Then _len = 512 Local tmpimage:Int For Local i:=1 Until _len + 1 ' Test to try to show the differences in sources and destinations of draws, uncomment one ' --------------------------------------------------------------------------------------- ' No problem wioth performance using barbarian as source to whatever destination ' Myapp[ tmpimage ].Add( New sprite(Mouse.X, Mouse.Y, images[0])) ' Draws from barbarian to drawingboard & canvas ' Myapp[ tmpimage ].Add( New sprite(Mouse.X, Mouse.Y, images[0])) ' Draws from barabarian to drawingboard & canvas ' Slowdown happens when using checkerboard as source Myapp[ tmpimage ].Add( New sprite(Mouse.X, Mouse.Y, images[0])) ' Draws from barbarian to checkerboard & canvas Myapp[ tmpimage ].Add( New sprite(Mouse.X, Mouse.Y, image)) ' Draws from checkerboard to checkerboard & canvas (this drops the framrate sigininficatly in Monkey2) End End End Method End Class sprite Field x: Float Field y: Float Field xspeed: Float Field yspeed: Float Field texture: Image Global gravity := 0.2 Method New( x: Float, y: Float, texture:Image ) Self.x = x ; Self.y = y ; Self.texture = texture ; xspeed = random.Rnd(7) End Method Update:Void( ) yspeed += gravity ; y += yspeed ; x += xspeed If y >= VHEIGHT Then y = VHEIGHT ; yspeed = -random.Rnd( 25 ) If x < 0 Or x > VWIDTH Then xspeed *= -1 ; x = Clamp(x, 0.0, Float(VWIDTH) ) End Method Draw(canvas:Canvas) canvas.BlendMode = BlendMode.Alpha Local w:Int = 64 Local h:Int = 64 Local rx:Int = -(w * 0.5) Local ry:Int = -(h * 0.5) canvas.PushMatrix() canvas.Translate(x,y) canvas.Rotate(Pi/4.0) canvas.DrawRect(rx+w,ry+h,-w,-h,texture,0*32,1*32,w,h) canvas.PopMatrix() End 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 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 145 146 147

[crayon-5cba845276227938475759 inline="true" ]   Namespace Myapp   #Import "<std>" #Import "<mojo>" #Import "<mojo3d>" #Import "assets/" Using std.. Using mojo..   Const VWIDTH:=1920, VHEIGHT:=1080   Class Myapp Extends Window   Field Myapp:Stack<sprite>[] = New Stack<sprite>[4] Field images:Image[] = New Image[]( Image.Load("asset::32x32sheet.png"),Image.Load("asset::32x32sheet.png"),Image.Load("asset::32x32sheet.png"),Image.Load("asset::32x32sheet.png") ) Field image:Image ' Bunny residue, are using only [0] for now. Field icanvas:Canvas   Method New() Super.New("Myapp", VWIDTH, VHEIGHT, WindowFlags.Resizable ) image=New Image(512,512,PixelFormat.RGBA8,TextureFlags.Dynamic) image.Texture.Flags &=~ TextureFlags.FilterMipmap 'images[0].TextureFlags.Dynamic 'images[0].Texture.Flags &=~ TextureFlags.FilterMipmap image.Handle=New Vec2f(0.5,0.5) icanvas=New Canvas(image) Local tmpimage:=Floor( random.Rnd( 3 )) For Local i:=0 Until Myapp.Length Myapp[i] = New Stack<sprite> End End   ' ---------------------------------------------------------------------------------------   Method OnRender( canvas:Canvas ) Override App.RequestRender() icanvas.Clear(Color.Black) canvas.Alpha=1.0 icanvas.Alpha=0.2 For Local x:=0 Until 512/16 For Local y:=0 Until 512/16 If (x~y)&1 icanvas.Color=New Color( Sin( Millisecs()*.01 )*.5+.5,Cos( Millisecs()*.02 )*.5+.5,.5 ) Else icanvas.Color=Color.Yellow Endif icanvas.DrawRect( Int(x)*16,Int(y)*16,16,16 ) Next Next Global currentx : Int currentx = (currentx+2) Mod 512 For Local temp:=0 To 511 icanvas.DrawRect(64+temp,0, 1, 64, image, 0+temp+currentx,0,1,64) Next icanvas.Color=Color.White icanvas.DrawText( "This way up!",icanvas.Viewport.Width/2,0,.5,0) If Keyboard.KeyReleased(Key.Escape) Then App.Terminate() Local count:Int icanvas.Alpha = 1 canvas.Alpha = 1 For Local s:=Eachin Myapp For Local sprite:=Eachin s canvas.Alpha = 1.0 sprite.Update(); sprite.Draw(icanvas);count+=1 ' Draw to checkerboard. Using this instead of tilesheet as source slows things down in Monkey2 but not MonkeyX. canvas.Alpha = 0.2 sprite.Update(); sprite.Draw(canvas);count+=1  ' Draw to canvas. Next Next icanvas.Flush() Global rot:=0.0 canvas.Alpha = 1.0 canvas.DrawImage(image,App.MouseLocation.x,App.MouseLocation.y,rot) icanvas.Alpha = 1 canvas.Color = Color.White canvas.DrawRect( 0, 0, VWIDTH, 25 ) canvas.Color = Color.Black canvas.DrawText("Counting ("+ count +")",0,0);canvas.DrawText(" FPS: " + App.FPS, 300, 0) End Method   Method OnMouseEvent( event:MouseEvent ) Override If event.Type = EventType.MouseDown Local _len := 0 If event.Button = MouseButton.Left Then _len = 512 Local tmpimage:Int For Local i:=1 Until _len + 1 ' Test to try to show the differences in sources and destinations of draws, uncomment one ' --------------------------------------------------------------------------------------- ' No problem wioth performance using barbarian as source to whatever destination ' Myapp[ tmpimage ].Add( New sprite(Mouse.X, Mouse.Y, images[0])) ' Draws from barbarian to drawingboard & canvas ' Myapp[ tmpimage ].Add( New sprite(Mouse.X, Mouse.Y, images[0])) ' Draws from barabarian to drawingboard & canvas ' Slowdown happens when using checkerboard as source Myapp[ tmpimage ].Add( New sprite(Mouse.X, Mouse.Y, images[0])) ' Draws from barbarian to checkerboard  & canvas Myapp[ tmpimage ].Add( New sprite(Mouse.X, Mouse.Y, image)) ' Draws from checkerboard to checkerboard & canvas (this drops the framrate sigininficatly in Monkey2) End End End Method End   Class sprite Field x: Float Field y: Float Field xspeed: Float Field yspeed: Float Field texture: Image Global gravity := 0.2 Method New( x: Float, y: Float, texture:Image ) Self.x = x ; Self.y = y ; Self.texture = texture ; xspeed = random.Rnd(7) End Method Update:Void( ) yspeed += gravity ; y += yspeed ; x += xspeed If y >= VHEIGHT Then y = VHEIGHT ; yspeed = -random.Rnd( 25 ) If x < 0 Or x > VWIDTH Then xspeed *= -1 ; x = Clamp(x, 0.0, Float(VWIDTH) ) End   Method Draw(canvas:Canvas) canvas.BlendMode = BlendMode.Alpha Local w:Int = 64 Local h:Int = 64 Local rx:Int  = -(w * 0.5) Local ry:Int = -(h * 0.5) canvas.PushMatrix() canvas.Translate(x,y) canvas.Rotate(Pi/4.0) canvas.DrawRect(rx+w,ry+h,-w,-h,texture,0*32,1*32,w,h) canvas.PopMatrix() End End Function Main() New AppInstance New Myapp App.Run() End Function

[/crayon]

Attachments:

1. This.zip

[Mark SiblyKeymaster]

Ok, that’s pretty hard to follow, but as far as I can tell you’re trying to draw a texture onto itself, ie: you’re drawing ‘image’ to an ‘icanvas’, where icanvas has the same image as a render target. Please correct me if I’m wrong here…

Anyway, you can’t do this – it’s technically ‘undefined behaviour’ in opengl/gles/webgl and I’m surprised it works at all!

If you want to do stuff like this, you need to double buffer, ie: have 2 images/icanvses, and draw image0->icanvas1 and  image1->icanvas0 etc and flip between them.

[PhatPeterParticipant]

Yes I know that it’s undefined to draw to itself but In MonkeyX you can do thath without slowdowns and that’s what makes me confused.

I use a shader to read sourceimage and process it to targetimage.
After that I plot some stuff onto targetimage which will therefore be unaffected by the shader, and then I use targetimage as the tilesheet to draw parts onto the canvas.

But there are self-refference to create a scrolling/rolling effect, and it just works.
I did some tests without any self-reffering and it’s still as slow in Monkey2.

Drawing an image that you’ve just draw an image to is expansive in Monkey2.
The slowdown seem to be x4. 4K draws instead of 16K draws. I would accept that If MonkeyX had the same but it doesn’t.

[Mark SiblyKeymaster]

It could be anything  – it could be the fact that monkey2 really uses direct3d, whereas monkey-x  uses ‘pure’ opengl, it could be the way I uploaded textures to the driver, the order of API operations I use, whatever…the point is it’s invalid so don’t do it.

Drawing an image that you’ve just draw an image to is expansive in Monkey2.

If you have some runnable sample code, please post it, but nothing that uses undefined or invalid behaviour please!

[edit]You may be right, there may be some sort of issue here, but testing with invalid code is not the right way to find it.

[PhatPeterParticipant]

I managed to simplify things and maybe I’m able to convert everything now I just need help with the corresponding Monkey2 commands for: (the extra commas and zeros and also Image.SetFlagMask Managed).

Monkey

[crayon-5cba8452881f1697942994 inline="true" ] sourceImage=Image.Load("´sheet.png",0,0,0) targetImage=New Image(sourceImage.Width,sourceImage.Height,,,0) image=New Image(512,512,0,0,0) Image.SetFlagsMask(Image.Managed)

1 2 3 4 5 6

[crayon-5cba8452881f1697942994 inline="true" ] sourceImage=Image.Load("´sheet.png",0,0,0) targetImage=New Image(sourceImage.Width,sourceImage.Height,,,0) image=New Image(512,512,0,0,0) Image.SetFlagsMask(Image.Managed)

[/crayon]

[PhatPeterParticipant]

Any kind soul here? I converted the monkeyX not Monkey2 but it’s not running.

CONVERSION (MEMORY CRASH)

Monkey

[crayon-5cba84528b505485753202 inline="true" ] Namespace Myapp #Import "<std>" #Import "<mojo>" #Import "<mojo3d>" #Import "assets/" Using std.. Using mojo.. Const w:=800, h:=600 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=16 ' try 8 16 32 64 Field cx:Int Field wx:Int Field wy:Int Field tilemap: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("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() ' 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

[crayon-5cba84528b505485753202 inline="true" ]   Namespace Myapp #Import "<std>" #Import "<mojo>" #Import "<mojo3d>" #Import "assets/" Using std.. Using mojo.. Const w:=800, h:=600   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=16 ' try 8 16 32 64 Field cx:Int Field wx:Int Field wy:Int Field tilemap: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("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() ' 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]

ORIGINAL MONKEYX (works perfectly with all I’ve said, it would be a nice additional Monkey2 banana)

Monkey

[crayon-5cba84528b50c146078588 inline="true" ] #GLFW_WINDOW_WIDTH = 800 #GLFW_WINDOW_HEIGHT = 600 #GLFW_WINDOW_FULLSCREEN = False #GLFW_WINDOW_RESIZABLE = True #GLFW_WINDOW_RENDER_WHILE_RESIZING = True Import mojo2 Class MyApp Extends App Field canvas:Canvas Field icanvas:Canvas Field scanvas:Canvas Field image:Image Field sourceImage:Image Field targetImage:Image Field size:Int=16 ' try 8 16 32 64 Field cx:Int Field wx:Int Field wy:Int Field tilemap:Int[512*512] Field s:Int = 4 Method OnCreate() For Local y:=0 To 511 For Local x:=0 To 511 tilemap[x + y * 512] = Int(Rnd(127)) Next Next sourceImage=Image.Load("32x32sheet.png",0,0,0) targetImage=New Image(sourceImage.Width,sourceImage.Height,,,0) image=New Image(512,512,0,0,0) Image.SetFlagsMask(Image.Managed) icanvas=New Canvas(image) scanvas=New Canvas(targetImage) canvas=New Canvas End Method OnUpdate() If KeyHit(KEY_ESCAPE) Then EndApp 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 End Method OnRender() scanvas.Clear ' 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 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 icanvas.Clear 0,0,0 ' ' 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 064+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.SetColor 0,0,0 Else icanvas.SetColor 1,1,1 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 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 104 105 106 107 108 109 110

[crayon-5cba84528b50c146078588 inline="true" ] #GLFW_WINDOW_WIDTH = 800 #GLFW_WINDOW_HEIGHT = 600 #GLFW_WINDOW_FULLSCREEN = False #GLFW_WINDOW_RESIZABLE = True #GLFW_WINDOW_RENDER_WHILE_RESIZING = True   Import mojo2   Class MyApp Extends App   Field canvas:Canvas Field icanvas:Canvas Field scanvas:Canvas Field image:Image Field sourceImage:Image Field targetImage:Image Field size:Int=16 ' try 8 16 32 64 Field cx:Int Field wx:Int Field wy:Int Field tilemap:Int[512*512] Field s:Int = 4 Method OnCreate() For Local y:=0 To 511 For Local x:=0 To 511 tilemap[x + y * 512] = Int(Rnd(127)) Next Next sourceImage=Image.Load("32x32sheet.png",0,0,0) targetImage=New Image(sourceImage.Width,sourceImage.Height,,,0) image=New Image(512,512,0,0,0) Image.SetFlagsMask(Image.Managed) icanvas=New Canvas(image) scanvas=New Canvas(targetImage) canvas=New Canvas End Method OnUpdate() If KeyHit(KEY_ESCAPE) Then EndApp 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 End   Method OnRender() scanvas.Clear ' 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 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 icanvas.Clear 0,0,0 ' ' 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 064+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.SetColor 0,0,0 Else icanvas.SetColor 1,1,1 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 End End   Function Main() New MyApp End

[/crayon]

Attachments:

1. Files.zip

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

[Mark SiblyKeymaster]

Try building with debug on. You’re missing a ‘=New Int[512,512]’ and an “asset::blah.png”.

With these fixed I get a smooth scrolling sort of parallax charmap, with random chars all over the place, some sort of animated! Both monkey2 and monkeyx versions look the same to me.

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

[Mark SiblyKeymaster]

I already include Assets the whole directory?

You need to prefix file name with “asset::” when you load it, eg: Image.Load( “asset::32x32sheet.png” ).

For texture flags, always use TextureFlags.Dynamic for an image you’re updating frequently (I added some of these I think).

Monkey

Namespace Myapp #Import "<std>" #Import "<mojo>" #Import "<mojo3d>" #Import "assets/" Using std.. Using mojo.. Const w:=800, h:=600 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=16 ' 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",Null,Null ) targetImage=New Image( sourceImage.Width,sourceImage.Height,PixelFormat.RGBA8,TextureFlags.Dynamic ) image=New Image( 512,512,PixelFormat.RGBA8,TextureFlags.Dynamic ) 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() ' 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.None) 'icanvas.Viewport(0,0,w,h) 'icanvas.Scissor(0,0,w,h) 'icanvas.Projection2d(0,w,0,h) icanvas.Clear(Color.None) ' 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

Namespace Myapp #Import "<std>" #Import "<mojo>" #Import "<mojo3d>" #Import "assets/" Using std.. Using mojo.. Const w:=800, h:=600   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=16 ' 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",Null,Null ) targetImage=New Image( sourceImage.Width,sourceImage.Height,PixelFormat.RGBA8,TextureFlags.Dynamic ) image=New Image( 512,512,PixelFormat.RGBA8,TextureFlags.Dynamic ) 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() ' 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.None) 'icanvas.Viewport(0,0,w,h) 'icanvas.Scissor(0,0,w,h) 'icanvas.Projection2d(0,w,0,h) icanvas.Clear(Color.None)   ' 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

[Author]

Posts