[abakoboParticipant]

pixelmap has load method

how can I have missed that!

[abakoboParticipant]

You could always keep a copy of the image in a pixmap

To me the problem is more how to get the pixmap out of a loaded .png image. Once you have the pixmap you can use Pixmap.Getpixel() or GetARGBpixel().

Nerobot’s solution is of course top performance but needs more work/knowledge.

[abakoboParticipant]

here’s an Image Extension that will do Image.GetPixel (very slow!). There’s also an Image.GetPixmap (faster to scan the whole image (untested)) but i’m not quite sure how the resource will be managed..

I’m not sure it’s the right/good way to do it though! It’s so complex for such a simple thing…

Monkey

[crayon-5cbaa15bee044558271546 inline="true" ]Class Image Extension Method GetPixel:Color(x:Int,y:Int) Local myCustomImage:=New Image (Self.Width,Self.Height) Local myCanvas:=New Canvas(myCustomImage) myCanvas.Clear(Color.None) myCanvas.DrawImage(Self,0,0) myCanvas.Flush() Local myRecti:=New Recti(0,0,Self.Width-1,Self.Height-1) Local myPixmap:=myCanvas.CopyPixmap(myRecti) Local c:=myPixmap.GetPixel(x,y) myPixmap.Discard() myCustomImage.Discard() Return c End Method GetPixmap:Pixmap() Local myCustomImage:=New Image (Self.Width,Self.Height) Local myCanvas:=New Canvas(myCustomImage) myCanvas.Clear(Color.None) myCanvas.DrawImage(Self,0,0) myCanvas.Flush() Local myRecti:=New Recti(0,0,Self.Width-1,Self.Height-1) Local myPixmap:=myCanvas.CopyPixmap(myRecti) myCustomImage.Discard() Return myPixmap 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

[crayon-5cbaa15bee044558271546 inline="true" ]Class Image Extension Method GetPixel:Color(x:Int,y:Int) Local myCustomImage:=New Image (Self.Width,Self.Height) Local myCanvas:=New Canvas(myCustomImage) myCanvas.Clear(Color.None) myCanvas.DrawImage(Self,0,0) myCanvas.Flush() Local myRecti:=New Recti(0,0,Self.Width-1,Self.Height-1) Local myPixmap:=myCanvas.CopyPixmap(myRecti) Local c:=myPixmap.GetPixel(x,y) myPixmap.Discard() myCustomImage.Discard() Return c End Method GetPixmap:Pixmap() Local myCustomImage:=New Image (Self.Width,Self.Height) Local myCanvas:=New Canvas(myCustomImage) myCanvas.Clear(Color.None) myCanvas.DrawImage(Self,0,0) myCanvas.Flush() Local myRecti:=New Recti(0,0,Self.Width-1,Self.Height-1) Local myPixmap:=myCanvas.CopyPixmap(myRecti) myCustomImage.Discard() Return myPixmap End End

[/crayon]

[abakoboParticipant]

For exaple, i need to draw 50 monochrome sprites. I load them from file Then i need to change thge color of a sprte to some other color. For example, there are white by default and i change to red. Then draw 50 red sprites. The colro is actually user selectable, if it matters.

If you start with white images you can use the .Color stuff because white multiplied by a color is the color…
I made a small sample (attached zip) that shows that the white dot is always getting the correct color.

I don’t see anyt ReadPixels/WritePixels in mojo2 for images and buffers.

There’s something with Image.Texture and Pixmaps.GetPixel but I don’t remember and the link to Texture in the docs is broken.. Can’t find the example I made at the time.

I made a small sample (attached zip) that shows that the white dot is always getting the correct color.

EDIT: Texture is hidden from docs.. At the time I did some modifications to play around with monkey2 itself so I don’t really know how you can “extract” the pixmap of an Image. Maybe create a new Canvas with the Image then myCanvas.CopyPixmap then myPixmap.Getpixel. But this is so complicated. Image.GetPixel would be nicer..

Attachments:

1. sprite_color.zip

[abakoboParticipant]

Great to see that custom glsl shaders have some kind of interface now!

[abakoboParticipant]

The pakz examples are a good starting point. http://monkeycoder.co.nz/forums/topic/monkey-2-examples-github/

Also the language reference docs has been updated till the last release so if you get mx2 from the github dev branch you’ll have more docs about the core language (enums, pointers,…).

The docs about the different available modules is still very gappy though.. and it’s one of the big power of mx2. A lot of essential modules are available already (math, vect/matrix geom, lists/stacks/maps, databuffers, (file)streams, mojo, mojoX gui, mojo3d (still WIP),… ). Once you get them it’s amazing how easy it is to do almost anything you want, from console apps to full games or productive app.

But it was ok for me learning with these, I was already used to mx1 though. But I could not go back to it now!

[abakoboParticipant]

Primitives are faster than struct fields.. So I would not use vec2 inside such loops.

Here I use vx ans vy but you Can also put their expressions direcly in drawimage arguments.
The image coule be passed direcly too, it might perform better.

Monkey

[crayon-5cbaa15c06aa2154849984 inline="true" ] Method Render(canvas:Canvas, layerId:Int) Local xStart := [calculate x-index for first visible tile accordingly to x-offset] Local yStart := [calculate y-index for first visible tile accordingly to y-offset] Local xEnd := xStart + viewport.width / tileWidth Local yEnd := yStart + viewport.height / tileHeight Local vx : Float Local vy : Float Local image : Image For Local y := yStart To yEnd For Local x := xStart To xEnd If layers[layerId].map[x, y] = -1 Continue vx = layers[layerId].x + x * tileWidth vy = layers[layerId].y + y * tileHeight image = tileArray[layers[layerId].map[x, y]].image canvas.DrawImage(image, vx, vy) Next Next End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

[crayon-5cbaa15c06aa2154849984 inline="true" ] Method Render(canvas:Canvas, layerId:Int) Local xStart := [calculate x-index for first visible tile accordingly to x-offset] Local yStart := [calculate y-index for first visible tile accordingly to y-offset] Local xEnd := xStart + viewport.width / tileWidth Local yEnd := yStart + viewport.height / tileHeight Local vx : Float Local vy : Float Local image : Image For Local y := yStart To yEnd For Local x := xStart To xEnd If layers[layerId].map[x, y] = -1 Continue vx = layers[layerId].x + x * tileWidth vy = layers[layerId].y + y * tileHeight image = tileArray[layers[layerId].map[x, y]].image canvas.DrawImage(image, vx, vy) Next Next End

[/crayon]

[abakoboParticipant]

I think you have to use

Monkey

[crayon-5cbaa15c0b375135366674 inline="true" ]angles.Data or varptr angles[0]

1 2 3

[crayon-5cbaa15c0b375135366674 inline="true" ]angles.Data or varptr angles[0]

[/crayon]

which are technically the same. i.e. a pointer to ALFloat (pointing the first element of the array)

“angles” alone is actually a pointer so “Varptr angles” is a pointer to a pointer (to be seen in C sys programming but probably not in mx2 sources)
It’s common in C/C++ libs to send an array by sending a pointer to the first element (and a count if the number of elements is variable)

[abakoboParticipant]

This has been discussed on this topic :

Julia set fractal generator optimisation (drawpoint)

An even faster way would be custom glsl shader but I don’t know how shaders are managed now after the modifications induced by mojo3d.

[abakoboParticipant]

same error here invalid image>memory access violation

W10, latest dev, mingw

[abakoboParticipant]

Now the rect might be rotated and is more like an polygon. Ok, I know how to check the if a point inside a polygon, BUT

Second problem: How to rotate a polygon?

If you only want rotated rects then nerobot’s solution is probably better (more monkeyish)

[abakoboParticipant]

Here is a much more intuitive form of Tpoly.. It’s using position, angle and scale fields instead of affineMat3. But is of course internally using an affineMat3 to transform the original poly (centered at the origin, you could add a center/handle field too and make one more translation to center it to the origin before rotating/scaling).

Monkey

Namespace myapp #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Struct TransformablePoly 'I'll assume here that center of polys are [0,0] so I'll wrap arround origin while creating them Field position:=New Vec2f() Field scale:=1.0 Field angle:=0.0 Private Field _nbVertices:int Field _vertices:Vec2f[] Public Method New(verts:Vec2f[]) _vertices=verts _nbVertices=_vertices.GetSize(0) 'getting the number of vec2f in the array End Method GetTransformedVec2fPoly:Vec2f[]() 'Transforms all the vertices with AffineMat3 ' creating a transformation matrix Local transfo:=New AffineMat3f() transfo=transfo.Translate(position) 'third transform transfo=transfo.Scale(scale,scale) 'around (0,0) , second transform transfo=transfo.Rotate(angle) 'rotation arrond (0,0)! , first transform 'transforming the vertices Local outputArray:=New Vec2f[_nbVertices] For Local i:=0 Until _nbVertices outputArray[i]=transfo.Transform(_vertices[i]) Next Return outputArray End Method GetTransformedXYPoly:Float[]() 'to be used with DrawPoly (it does not accepts vec2f!) Local outputArray:=New Float[_nbVertices*2] Local TranformedVec2:=GetTransformedVec2fPoly() 'getting the tranformed poly in a Vec2f array For Local i:=0 Until _nbVertices outputArray[2*i]=TranformedVec2[i].x outputArray[2*i+1]=TranformedVec2[i].y Next Return outputArray 'ouputing transformed poly in a x/y Float array (for drawpoly) End End Class MyWindow Extends Window Field poly1:TransformablePoly Field count:=0 Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null ) Super.New( title,width,height,flags ) poly1=New TransformablePoly(New Vec2f[](New Vec2f(-10.0,-10.0), New Vec2f(10.0,-10.0), New Vec2f(10.0,10.0), New Vec2f(-10.0,10.0))) 'a square in polygon format (center at 0,0) End Method OnRender( canvas:Canvas ) Override App.RequestRender() count+=1 If count>400 Then count=10 poly1.angle=count/100.0 poly1.position=New Vec2f(count,count) poly1.scale=1.5-Sin(count/60.0) canvas.DrawPoly(poly1.GetTransformedXYPoly()) End End Function Main() New AppInstance New MyWindow App.Run() 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

Namespace myapp   #Import "<std>" #Import "<mojo>"   Using std.. Using mojo..   Struct TransformablePoly  'I'll assume here that center of polys are [0,0] so I'll wrap arround origin while creating them   Field position:=New Vec2f() Field scale:=1.0 Field angle:=0.0 Private Field _nbVertices:int Field _vertices:Vec2f[]   Public Method New(verts:Vec2f[]) _vertices=verts _nbVertices=_vertices.GetSize(0) 'getting the number of vec2f in the array   End Method GetTransformedVec2fPoly:Vec2f[]() 'Transforms all the vertices with AffineMat3 ' creating a transformation matrix Local transfo:=New AffineMat3f() transfo=transfo.Translate(position) 'third transform transfo=transfo.Scale(scale,scale) 'around (0,0) , second transform transfo=transfo.Rotate(angle) 'rotation arrond (0,0)! , first transform 'transforming the vertices Local outputArray:=New Vec2f[_nbVertices] For Local i:=0 Until _nbVertices outputArray[i]=transfo.Transform(_vertices[i]) Next Return outputArray End Method GetTransformedXYPoly:Float[]()  'to be used with DrawPoly (it does not accepts vec2f!)   Local outputArray:=New Float[_nbVertices*2] Local TranformedVec2:=GetTransformedVec2fPoly() 'getting the tranformed poly in a Vec2f array For Local i:=0 Until _nbVertices outputArray[2*i]=TranformedVec2[i].x outputArray[2*i+1]=TranformedVec2[i].y Next Return outputArray 'ouputing transformed poly in a x/y Float array (for drawpoly) End End   Class MyWindow Extends Window Field poly1:TransformablePoly Field count:=0   Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null )   Super.New( title,width,height,flags )   poly1=New TransformablePoly(New Vec2f[](New Vec2f(-10.0,-10.0), New Vec2f(10.0,-10.0), New Vec2f(10.0,10.0), New Vec2f(-10.0,10.0))) 'a square in polygon format (center at 0,0)     End   Method OnRender( canvas:Canvas ) Override App.RequestRender() count+=1 If count>400 Then count=10 poly1.angle=count/100.0 poly1.position=New Vec2f(count,count) poly1.scale=1.5-Sin(count/60.0) canvas.DrawPoly(poly1.GetTransformedXYPoly()) End End   Function Main()   New AppInstance New MyWindow App.Run() End

[abakoboParticipant]

here’s a little example of a transformable poly that can be enhanced to get what you need, you can add size too..

Monkey

Namespace myapp #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Struct TransformablePoly 'I'll assume here that center of polys are [0,0] so I'll wrap arround origin while creating them Field transfoMat:AffineMat3f Private Field _nbVertices:int Field _vertices:Vec2f[] Public Method New(verts:Vec2f[]) _vertices=verts _nbVertices=_vertices.GetSize(0) 'getting the number of vec2f in the array transfoMat=New AffineMat3f() End Method GetTransformedXYArray:Float[]() 'to be used with DrawPoly (it does not accepts vec2f!) Local outputArray:=New Float[_nbVertices*2] Local TranformedVec2:=GetTransformedVec2fPoly() 'getting the tranformed poly in a Vec2f array For Local i:=0 Until _nbVertices outputArray[2*i]=TranformedVec2[i].x outputArray[2*i+1]=TranformedVec2[i].y Next Return outputArray 'ouputing transformed poly in a x/y Float array (for drawpoly) End Method GetTransformedVec2fPoly:Vec2f[]() 'Transforms all the vertices with the AffineMat3 Local outputArray:=New Vec2f[_nbVertices] For Local i:=0 Until _nbVertices outputArray[i]=transfoMat.Transform(_vertices[i]) Next Return outputArray End End Class MyWindow Extends Window Field poly1:TransformablePoly Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null ) Super.New( title,width,height,flags ) ' The polys are initialised with (0,0) as their (rotation and scale) center, it the easiest way to "view" with matrix poly1=New TransformablePoly(New Vec2f[](New Vec2f(-10.0,-10.0), New Vec2f(10.0,-10.0), New Vec2f(10.0,10.0), New Vec2f(-10.0,10.0))) 'a square in polygon format (center at 0,0) ' Here is the interresting stuff !!! ' The order of the transforms has it's importance! ' It looks like we first translate then rotate BUT NOT!!!!!!!! ' Think it as a stack: Last in = First out ' ' Having the rotation as the first transform is more intuitive because ' the center of the poly will have the corresponding translate position poly1.transfoMat=poly1.transfoMat.Translate(100,100) 'second transform poly1.transfoMat=poly1.transfoMat.Rotate(Pi/4) 'rotation arrond (0,0)! , first transform ' this should be implemented into the struct to have something like "poly1.Translate(100,100)" ' and voilà! you have a transformable poly... End Method OnRender( canvas:Canvas ) Override App.RequestRender() canvas.DrawPoly(poly1.GetTransformedXYArray()) End End Function Main() New AppInstance New MyWindow App.Run() 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

Namespace myapp   #Import "<std>" #Import "<mojo>"   Using std.. Using mojo..   Struct TransformablePoly  'I'll assume here that center of polys are [0,0] so I'll wrap arround origin while creating them   Field transfoMat:AffineMat3f Private Field _nbVertices:int Field _vertices:Vec2f[]   Public Method New(verts:Vec2f[]) _vertices=verts _nbVertices=_vertices.GetSize(0) 'getting the number of vec2f in the array transfoMat=New AffineMat3f() End Method GetTransformedXYArray:Float[]()  'to be used with DrawPoly (it does not accepts vec2f!)   Local outputArray:=New Float[_nbVertices*2] Local TranformedVec2:=GetTransformedVec2fPoly() 'getting the tranformed poly in a Vec2f array For Local i:=0 Until _nbVertices outputArray[2*i]=TranformedVec2[i].x outputArray[2*i+1]=TranformedVec2[i].y Next Return outputArray 'ouputing transformed poly in a x/y Float array (for drawpoly) End Method GetTransformedVec2fPoly:Vec2f[]() 'Transforms all the vertices with the AffineMat3 Local outputArray:=New Vec2f[_nbVertices] For Local i:=0 Until _nbVertices outputArray[i]=transfoMat.Transform(_vertices[i]) Next Return outputArray End End   Class MyWindow Extends Window Field poly1:TransformablePoly   Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null )   Super.New( title,width,height,flags ) ' The polys are initialised with (0,0) as their (rotation and scale) center, it the easiest way to "view" with matrix poly1=New TransformablePoly(New Vec2f[](New Vec2f(-10.0,-10.0), New Vec2f(10.0,-10.0), New Vec2f(10.0,10.0), New Vec2f(-10.0,10.0))) 'a square in polygon format (center at 0,0)     ' Here is the interresting stuff !!! ' The order of the transforms has it's importance! ' It looks like we first translate then rotate BUT NOT!!!!!!!! ' Think it as a stack: Last in = First out ' ' Having the rotation as the first transform is more intuitive because ' the center of the poly will have the corresponding translate position   poly1.transfoMat=poly1.transfoMat.Translate(100,100) 'second transform poly1.transfoMat=poly1.transfoMat.Rotate(Pi/4) 'rotation arrond (0,0)! , first transform ' this should be implemented into the struct to have something like "poly1.Translate(100,100)" ' and voilà! you have a transformable poly...   End   Method OnRender( canvas:Canvas ) Override App.RequestRender() canvas.DrawPoly(poly1.GetTransformedXYArray()) End End   Function Main()   New AppInstance New MyWindow App.Run() End

you can extract translate,rotate and size from a AffineMat3 too if you need. see http://monkeycoder.co.nz/forums/topic/matrix-scale/

[abakoboParticipant]

The most common way to do this is to use matrix transform. It’s what mojo uses. There is an affineMat3 class wich is usable for rotate/size/translate transforms. Matrices are your friends, this is the most usefull Math stuff you can have for video games after trigonometry..

[abakoboParticipant]

Pull request made!

A printable version is attached, you can still see the WIP at: http://turdus.be/monkey2docs/docs/

I’ll be away from Mx2 for a while due to hard work but should be back on December (Half or FULL time!)

Mx2 rocks, I can’t wait for December to start working on my mobile game with this awesome dev. tool!

Attachments:

1. printableDocs.docx

[Author]

Posts