Textured poly?

[JesseParticipant]

Is there a way to texture a 4 point poly with an image in mojo without having to resort to using direct GL graphics?

[DiffrenzyKeymaster]

Yes, take a look at  at Canvas.DrawPrimitives()

http://monkey2.monkey-x.com/mx2-docs/mojo-mojo-graphics-canvas-drawprimitives/

[JesseParticipant]

Guess I didn’t look thoroughly enough. Thanks.
I still have to figure out how to use it.

[Mark SiblyKeymaster]

Little demo of drawing a full-view ‘diamond’.

The command’s a little intense because it’s supposed to handle many combinations of textured/untextured/colored/uncolored/indexed/nonindexed primitives. Uses float ptrs instead of float arrays for max flexibility too, ie: you can draw from DataBuffers etc.

Monkey

'x,y verts to draw Local verts:=New Float[]( Width/2,0,Width,Height/2,Width/2,Height,0,Height/2 ) 'params: '4=draw quads (3=tris, 6=hexs etc, prims must be convex!) '1=draw 1 quad. 'verts.Data=float ptr to vertex data. '8=pitch, ie: bytes between one vertex and the next, 2 floats=2*4=8. canvas.DrawPrimitives( 4,1,verts.Data,8,Null,0,Null,0,Null,Null )

1 2 3 4 5 6 7 8 9 10

'x,y verts to draw Local verts:=New Float[]( Width/2,0,Width,Height/2,Width/2,Height,0,Height/2 )   'params: '4=draw quads (3=tris, 6=hexs etc, prims must be convex!) '1=draw 1 quad. 'verts.Data=float ptr to vertex data. '8=pitch, ie: bytes between one vertex and the next, 2 floats=2*4=8. canvas.DrawPrimitives( 4,1,verts.Data,8,Null,0,Null,0,Null,Null )

[JesseParticipant]

Thanks Mark. That helped a little. I am trying to plaster an image into a four sided poly or a quad.

[JesseParticipant]

as a test I am trying to plaster an image of a rectangle with an x on it but can quite figure it out.

This is what I got:

Monkey

[crayon-5cba8c87a28dd098754989 inline="true" ] Namespace myapp #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Field image:Image Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null ) Super.New( title,width,height,flags ) image = New Image(64,64) Local icanvas:Canvas = New Canvas(image) icanvas.Clear(New Color(0,0,0,0)) icanvas.Color = New Color(1,0,0,1) icanvas.LineWidth = 4 icanvas.DrawLine(0,0,63,0) icanvas.DrawLine(63,0,63,63) icanvas.DrawLine(63,63,0,63) icanvas.DrawLine(0,63,0,0) icanvas.Color = New Color(0,0,1,1) icanvas.DrawLine(0,0,63,63) icanvas.Color = New Color(0,1,0,1) icanvas.DrawLine(63,0,0,63) icanvas.Flush() End Method OnRender( canvas:Canvas ) Override App.RequestRender() 'x,y verts to draw Local verts:=New Float[]( Width/2,0,Width,Height/2,Width/2,Height,0,Height/2 ) 'params: '4=draw quads (3=tris, 6=hexs etc, prims must be convex!) '1=draw 1 quad. 'verts.Data=float ptr to vertex data. '8=pitch, ie: bytes between one vertex and the next, 2 floats=2*4=8. canvas.Color = New Color(1,1,1) canvas.DrawPrimitives( 4,1,verts.Data,8,Null,0,Null,0,image,null ) canvas.DrawImage(image,0,0) 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

[crayon-5cba8c87a28dd098754989 inline="true" ] Namespace myapp   #Import "<std>" #Import "<mojo>"   Using std.. Using mojo..   Class MyWindow Extends Window Field image:Image   Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null )   Super.New( title,width,height,flags ) image = New Image(64,64) Local icanvas:Canvas = New Canvas(image) icanvas.Clear(New Color(0,0,0,0)) icanvas.Color = New Color(1,0,0,1) icanvas.LineWidth = 4 icanvas.DrawLine(0,0,63,0) icanvas.DrawLine(63,0,63,63) icanvas.DrawLine(63,63,0,63) icanvas.DrawLine(0,63,0,0) icanvas.Color = New Color(0,0,1,1) icanvas.DrawLine(0,0,63,63) icanvas.Color = New Color(0,1,0,1) icanvas.DrawLine(63,0,0,63) icanvas.Flush() End   Method OnRender( canvas:Canvas ) Override App.RequestRender() 'x,y verts to draw Local verts:=New Float[]( Width/2,0,Width,Height/2,Width/2,Height,0,Height/2 ) 'params: '4=draw quads (3=tris, 6=hexs etc, prims must be convex!) '1=draw 1 quad. 'verts.Data=float ptr to vertex data. '8=pitch, ie: bytes between one vertex and the next, 2 floats=2*4=8. canvas.Color = New Color(1,1,1) canvas.DrawPrimitives( 4,1,verts.Data,8,Null,0,Null,0,image,null ) canvas.DrawImage(image,0,0) End End   Function Main()   New AppInstance New MyWindow App.Run() End

[/crayon]

[Mark SiblyKeymaster]

You need to add texture coordinates if there’s an ‘image’ param (should probably catch this…)

Texture coordinates represent coordinates within the image, where 0,0=top left, 1,0=top right, 1,1=bottom right, 0,1=bottom left, and fractional values are coordinates somewhere in between, eg: .5,.5= center.

Monkey

Namespace myapp #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Field image:Image Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null ) Super.New( title,width,height,flags ) image = New Image(64,64) Local icanvas:Canvas = New Canvas(image) icanvas.Clear(New Color(0,0,0,0)) icanvas.Color = New Color(1,0,0,1) icanvas.LineWidth = 4 icanvas.DrawLine(0,0,63,0) icanvas.DrawLine(63,0,63,63) icanvas.DrawLine(63,63,0,63) icanvas.DrawLine(0,63,0,0) icanvas.Color = New Color(0,0,1,1) icanvas.DrawLine(0,0,63,63) icanvas.Color = New Color(0,1,0,1) icanvas.DrawLine(63,0,0,63) icanvas.Flush() End Method OnRender( canvas:Canvas ) Override App.RequestRender() 'x,y verts to draw. Local verts:=New Float[]( Width/2,0,Width,Height/2,Width/2,Height,0,Height/2 ) 's,t tex coordinates. Local texcoords:=New Float[]( 0,0,1,0,1,1,0,1 ) 'params: '4=draw quads (3=tris, 6=hexs etc, prims must be convex!) '1=draw 1 quad. 'verts.Data=float ptr to vertex data. '8=verts pitch, ie: bytes between one vertex and the next, 2 floats=2*4=8. 'texcoords.Data=float ptr to texture coordinates. '8 texcoords pitch... canvas.Color = New Color(1,1,1) canvas.DrawPrimitives( 4,1,verts.Data,8,texcoords.Data,8,Null,0,image,null ) canvas.DrawImage(image,0,0) 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

Namespace myapp #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Field image:Image Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null ) Super.New( title,width,height,flags ) image = New Image(64,64) Local icanvas:Canvas = New Canvas(image) icanvas.Clear(New Color(0,0,0,0)) icanvas.Color = New Color(1,0,0,1) icanvas.LineWidth = 4 icanvas.DrawLine(0,0,63,0) icanvas.DrawLine(63,0,63,63) icanvas.DrawLine(63,63,0,63) icanvas.DrawLine(0,63,0,0) icanvas.Color = New Color(0,0,1,1) icanvas.DrawLine(0,0,63,63) icanvas.Color = New Color(0,1,0,1) icanvas.DrawLine(63,0,0,63) icanvas.Flush() End Method OnRender( canvas:Canvas ) Override App.RequestRender() 'x,y verts to draw. Local verts:=New Float[]( Width/2,0,Width,Height/2,Width/2,Height,0,Height/2 ) 's,t tex coordinates. Local texcoords:=New Float[]( 0,0,1,0,1,1,0,1 ) 'params: '4=draw quads (3=tris, 6=hexs etc, prims must be convex!) '1=draw 1 quad. 'verts.Data=float ptr to vertex data. '8=verts pitch, ie: bytes between one vertex and the next, 2 floats=2*4=8. 'texcoords.Data=float ptr to texture coordinates. '8 texcoords pitch... canvas.Color = New Color(1,1,1) canvas.DrawPrimitives( 4,1,verts.Data,8,texcoords.Data,8,Null,0,image,null ) canvas.DrawImage(image,0,0) End End Function Main() New AppInstance New MyWindow App.Run() End

[JesseParticipant]

Thanks, That works perfect.

[Author]

Posts