Mojo: GetPixel() since update 1.11

[dominique95Participant]

Hello,
Since 1.11 update, is there any change in Mojo (2D) ?
For me, GetPixel() and GetPixelARGB() return (0,0,0,0) and $0
Maybe I do it wrong now.

I’m on Windows 10 – 64 bits.
Could you run this code on other configs with monkey 2 – 1.11  ?
GetPixel() returns Color(0,0,0,0) since update.

 

Monkey

' --------------------------------------- ' getpixel.monkey2 ' --------------------------------------- Namespace getpixel #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Field pxm:Pixmap Field img:Image Field imgcanvas:Canvas Method New() Super.New( "GetPixel test",512, 512,WindowFlags.Resizable | WindowFlags.HighDPI ) ' Creates a pixmap, image, and canvas pxm = New Pixmap( 300,300,PixelFormat.RGBA8) img = New Image( pxm,TextureFlags.None,Null ) imgcanvas = New Canvas( img ) End Method OnRender( canvas:Canvas ) Override App.RequestRender() ' Draws your Screen background here (Red Circles) canvas.Clear(Color.Black) ' draws a blue rectangle in the pixmap imgcanvas.Clear(Color.White) ' Clear the image in white imgcanvas.Color = Color.Blue ' And paint bottom half in blue and Alpha = 1.0 imgcanvas.DrawRect(0,0,pxm.Width,pxm.Height/2) imgcanvas.Flush() ' draws the pixmap on the screen canvas.Color = New Color( 1, 1, 1, 1 ) canvas.Alpha = 1 canvas.DrawImage( img,0,0 ) ' Shows pixmap colors if mouse is under the pixmap Local ARGB:UInt Local Ink:Color If (Mouse.X<pxm.Width) And (Mouse.Y<pxm.Height) ARGB = pxm.GetPixelARGB( Mouse.X,Mouse.Y ) Ink = pxm.GetPixel( Mouse.X,Mouse.Y ) canvas.DrawText( "image color ARGB $" + Hex(ARGB),0,Height-100 ) canvas.DrawText( "Alpha " + Ink.A,0,Height-20 ) canvas.DrawText( "Red " + Ink.R,0,Height-80 ) canvas.DrawText( "Green " + Ink.G,0,Height-60 ) canvas.DrawText( "Blue " + Ink.B,0,Height-40 ) canvas.DrawText( "Alpha " + Ink.A,0,Height-20 ) Endif canvas.DrawText("Move the mouse on the Blue/White pixmap",0,Height-140) 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

' --------------------------------------- '          getpixel.monkey2 ' --------------------------------------- Namespace getpixel #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Field pxm:Pixmap Field img:Image Field imgcanvas:Canvas Method New() Super.New( "GetPixel test",512, 512,WindowFlags.Resizable | WindowFlags.HighDPI ) ' Creates a pixmap, image, and canvas pxm = New Pixmap( 300,300,PixelFormat.RGBA8) img = New Image( pxm,TextureFlags.None,Null ) imgcanvas = New Canvas( img ) End Method OnRender( canvas:Canvas ) Override App.RequestRender() ' Draws your Screen background here (Red Circles) canvas.Clear(Color.Black) ' draws a blue rectangle in the pixmap   imgcanvas.Clear(Color.White)  ' Clear the image in white     imgcanvas.Color = Color.Blue  ' And paint bottom half in blue and Alpha = 1.0 imgcanvas.DrawRect(0,0,pxm.Width,pxm.Height/2) imgcanvas.Flush()   ' draws the pixmap on the screen canvas.Color = New Color( 1, 1, 1, 1 ) canvas.Alpha = 1 canvas.DrawImage( img,0,0 ) ' Shows pixmap colors if mouse is under the pixmap   Local ARGB:UInt Local Ink:Color If (Mouse.X<pxm.Width) And (Mouse.Y<pxm.Height) ARGB = pxm.GetPixelARGB( Mouse.X,Mouse.Y ) Ink  = pxm.GetPixel( Mouse.X,Mouse.Y ) canvas.DrawText( "image color ARGB   $" + Hex(ARGB),0,Height-100 ) canvas.DrawText( "Alpha " + Ink.A,0,Height-20 ) canvas.DrawText( "Red   " + Ink.R,0,Height-80 ) canvas.DrawText( "Green " + Ink.G,0,Height-60 ) canvas.DrawText( "Blue  " + Ink.B,0,Height-40 ) canvas.DrawText( "Alpha " + Ink.A,0,Height-20 ) Endif canvas.DrawText("Move the mouse on the Blue/White pixmap",0,Height-140)   End End Function Main() New AppInstance New MyWindow App.Run() End

Also any changes in Keyboard events ?

[Mark SiblyKeymaster]

Yes, the behaviour of textures has changed a little here – they were never supposed to modify the pixmap they were created with in the first place, and it was causing all sorts of issues with something else I was trying to do in 1.1.11, so I ‘fixed’ it so that the initial pixmap is copied to an internal one if necessary and is never used again (by the texture anyway).

However, the old way is probably the most efficient way to do what you’re wanting so I think I’ll add some kind of new texture flag that preserves the old behaviour, not sure what I’ll call it yet. Should be in v1.1.12…

Also any changes in Keyboard events ?

There are always changes to everything! Could you be a little more specific?

[Mark SiblyKeymaster]

Ok, I’m gonna revert this to pre 1.1.11 behaviour in the case of normal textures – my fixes were really only necessary for cubemap textures.

[dominique95Participant]

Thanks Mark,
Got it, i didn’t draw into the Pixmap.

Monkey

' --------------------------------------- ' getpixel.monkey2 ' --------------------------------------- Namespace getpixel #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Field pxm:Pixmap Field img:Image Field imgcanvas:Canvas Method New() Super.New( "GetPixel test",512, 512,WindowFlags.Resizable | WindowFlags.HighDPI ) ' Creates a pixmap, image, and canvas pxm = New Pixmap( 300,300,PixelFormat.RGBA8) ' Draws a pink square before linking image and pixmap For Local y:Int=0 To 50 For Local x:Int=0 To 50 pxm.SetPixel(x,y,Color.HotPink) Next Next ' Copy pixmap data into image img = New Image( pxm,TextureFlags.None,Null ) ' Here pxm.SetPixel() draws into the pixmap but not ' Try to draw a red square For Local y:Int=0 To 50 For Local x:Int=50 To 100 pxm.SetPixel(x,y,Color.Red) Next Next pxm.PremultiplyAlpha() imgcanvas = New Canvas( img ) End Method OnRender( canvas:Canvas ) Override App.RequestRender() ' Draws your Screen background here canvas.Clear(Color.Black) ' draws a blue rectangle in the pixmap For Local y:Int=0 To 50 For Local x:Int=100 To 150 pxm.SetPixel(x,y,Color.Green) Next Next pxm.PremultiplyAlpha() ' draws the image on the screen canvas.Color = New Color( 1, 1, 1, 1 ) canvas.Alpha = 1 canvas.DrawImage( img,0,0 ) canvas.DrawLine(0,52,150,52) ' Shows pixmap colors if mouse is under the pixmap Local ARGB:UInt Local Ink:Color If (Mouse.X<pxm.Width) And (Mouse.Y<pxm.Height) ARGB = pxm.GetPixelARGB( Mouse.X,Mouse.Y ) Ink = pxm.GetPixel( Mouse.X,Mouse.Y ) canvas.DrawText( "image color ARGB $" + Hex(ARGB),0,Height-100 ) canvas.DrawText( "Alpha " + Ink.A,0,Height-20 ) canvas.DrawText( "Red " + Ink.R,0,Height-80 ) canvas.DrawText( "Green " + Ink.G,0,Height-60 ) canvas.DrawText( "Blue " + Ink.B,0,Height-40 ) canvas.DrawText( "Alpha " + Ink.A,0,Height-20 ) Endif canvas.DrawText("Move the mouse from 0,0 to 150,49",0,Height-140) canvas.DrawText("Mouse "+Mouse.X+"-"+Mouse.Y,0,Height-160) 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

' --------------------------------------- '          getpixel.monkey2 ' --------------------------------------- Namespace getpixel #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Field pxm:Pixmap Field img:Image Field imgcanvas:Canvas Method New() Super.New( "GetPixel test",512, 512,WindowFlags.Resizable | WindowFlags.HighDPI ) ' Creates a pixmap, image, and canvas pxm = New Pixmap( 300,300,PixelFormat.RGBA8) ' Draws a pink square before linking image and pixmap For Local y:Int=0 To 50 For Local x:Int=0 To 50 pxm.SetPixel(x,y,Color.HotPink) Next Next ' Copy pixmap data into image img = New Image( pxm,TextureFlags.None,Null ) ' Here pxm.SetPixel() draws into the pixmap but not ' Try to draw a red square For Local y:Int=0 To 50 For Local x:Int=50 To 100 pxm.SetPixel(x,y,Color.Red) Next Next pxm.PremultiplyAlpha()   imgcanvas = New Canvas( img ) End Method OnRender( canvas:Canvas ) Override App.RequestRender() ' Draws your Screen background here canvas.Clear(Color.Black) ' draws a blue rectangle in the pixmap For Local y:Int=0 To 50 For Local x:Int=100 To 150 pxm.SetPixel(x,y,Color.Green) Next Next pxm.PremultiplyAlpha()     ' draws the image on the screen canvas.Color = New Color( 1, 1, 1, 1 ) canvas.Alpha = 1 canvas.DrawImage( img,0,0 ) canvas.DrawLine(0,52,150,52) ' Shows pixmap colors if mouse is under the pixmap   Local ARGB:UInt Local Ink:Color If (Mouse.X<pxm.Width) And (Mouse.Y<pxm.Height) ARGB = pxm.GetPixelARGB( Mouse.X,Mouse.Y ) Ink  = pxm.GetPixel( Mouse.X,Mouse.Y ) canvas.DrawText( "image color ARGB   $" + Hex(ARGB),0,Height-100 ) canvas.DrawText( "Alpha " + Ink.A,0,Height-20 ) canvas.DrawText( "Red   " + Ink.R,0,Height-80 ) canvas.DrawText( "Green " + Ink.G,0,Height-60 ) canvas.DrawText( "Blue  " + Ink.B,0,Height-40 ) canvas.DrawText( "Alpha " + Ink.A,0,Height-20 ) Endif canvas.DrawText("Move the mouse from 0,0 to 150,49",0,Height-140) canvas.DrawText("Mouse "+Mouse.X+"-"+Mouse.Y,0,Height-160)   End End Function Main() New AppInstance New MyWindow App.Run() End

Now the question : How can i get the color of a pixel in the image ?

For Keyboard events, i must experiment, (2900 lines of code in my prog), to see if my code is faulty.

[Mark SiblyKeymaster]

Now the question : How can i get the color of a pixel in the image ?

The way you were doing it pre 1.1.11 is probably the most efficient so once 1.1.12 is out I’d suggest going back to that which will fix this issue.

But note that it’s still not all that efficient, because modern GPUs don’t like you ‘reading’ their memory. On PC’s, GPU’s generally have their own private graphics memory and moving data to/from graphics memory is relatively expensive.

Also, the OpenGLES API (used by mobile/web targets) doesn’t even support copying data from textures to system memory, only copying data from the ‘render target’. Desktop OpenGL does, but it wont be anymore efficient than the pre-1.1.11 method.

There is no easy way around this, it’s just something you’ve got to deal with if you want HW accelerated graphics. If anyone has any ideas here too please feel free to share.

For Keyboard events, i must experiment, (2900 lines of code in my prog), to see if my code is faulty.

Not even a hint?!?

[dominique95Participant]

Ok,
I see a little difference after monkey 1.06
Keyboard.KeyPressed() , and Keyboard.KeyReleased() have a little buffer.
Run this code, with monkey 1.06 and later. Follow the instructions on screen.
It just moves a cursor, if the mouse is in a zone and a cursor keys is pressed.
see  Method ProceedInput()

Monkey

Namespace keyboardtest #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. ' ----------------------------------------------- Class Zone Field x0:Int,y0:Int ' Zone position Field x1:Int,y1:Int Field width:Int, height:Int ' Zone dim Field backcolor:Color Field cursX:Int,cursY:Int ' Cursors position Method New( lx:Int, ly:Int, lw:Int, lh:Int, lco:Color ) Self.x0 = lx Self.y0 = ly Self.width = lw Self.height= lh Self.x1 = Self.x0 + Self.width - 1 Self.y1 = Self.y0 + Self.height - 1 Self.backcolor = lco Self.cursX = 150 Self.cursY = 100 End Method Draw( lcanvas : Canvas ) ' draws background lcanvas.Color = backcolor lcanvas.DrawRect( x0, y0, width, height ) ' draws the cursor lcanvas.Color = Color.White lcanvas.DrawRect( x0+cursX-8 ,y0+cursY-8 ,16 ,16 ) End Method ProceedInput() If MouseHere() If Keyboard.KeyPressed( Key.Up ) Self.cursY = Self.cursY - 8 Elseif Keyboard.KeyPressed( Key.Down ) Self.cursY = Self.cursY + 8 Elseif Keyboard.KeyPressed( Key.Right ) Self.cursX = Self.cursX + 8 Elseif Keyboard.KeyPressed( Key.Left ) Self.cursX = Self.cursX - 8 Endif ' limits the cursors position cursX = Clamp( cursX,8,width-8 ) cursY = Clamp( cursY,8,height-8 ) Endif End Method MouseHere:Bool() 'return true if mouse is in the Zone Local lreturn:Bool = False If (Mouse.X>=x0) And (Mouse.X<x1) If (Mouse.Y>=y0) And (Mouse.Y<y1) lreturn = True Endif Endif Return lreturn End End ' ------------------------------------------------ Class MyWindow Extends Window Field oZone:= New Zone[4] Method New( title:String="Test Fichiers",width:Int=1280,height:Int=768,flags:WindowFlags=WindowFlags.Resizable ) Super.New( title,width,height,flags ) ' create zones oZone[1] = New Zone( 10,10,300,200,Color.Blue) oZone[2] = New Zone(320,10,300,200,Color.DarkGrey) oZone[3] = New Zone(640,10,300,200,Color.Brown) End Method OnRender( canvas:Canvas ) Override Local i:Int App.RequestRender() ' Proceed Keyboard inputs in each zone For i=1 To 3 oZone[i].ProceedInput() Next ' redraws the zones For i=1 To 3 oZone[i].Draw( canvas ) Next canvas.DrawText("put the mouse outside the rectangles ", 0 , 360) canvas.DrawText("use cursor key before entering coloured zones ", 0 , 380) canvas.DrawText("Move the mouse inside the one rectangle ", 0 , 400) canvas.DrawText("Keyboard.Keypressed is tested if mouse is in a zone ", 0 , 420) canvas.DrawText("and white square moves ", 0 , 440) canvas.DrawText("Try it in Monkey 1.06 --> no buffer", 0 , 460) canvas.DrawText("in later versions --> little buffer ", 0 , 480) canvas.DrawText("idem with Keyboard.KeyReleased" ,0, 500) canvas.DrawText("obviously no pb with KeyDown",0,520) 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 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

Namespace keyboardtest   #Import "<std>" #Import "<mojo>"   Using std.. Using mojo..   ' ----------------------------------------------- Class Zone Field x0:Int,y0:Int ' Zone position Field x1:Int,y1:Int Field width:Int, height:Int ' Zone dim Field backcolor:Color Field cursX:Int,cursY:Int ' Cursors position Method New( lx:Int, ly:Int, lw:Int, lh:Int, lco:Color ) Self.x0    = lx Self.y0    = ly Self.width = lw Self.height= lh Self.x1    = Self.x0 + Self.width  - 1 Self.y1    = Self.y0 + Self.height - 1 Self.backcolor = lco Self.cursX = 150 Self.cursY = 100 End Method Draw( lcanvas : Canvas ) ' draws background lcanvas.Color = backcolor lcanvas.DrawRect( x0, y0, width, height ) ' draws the cursor lcanvas.Color = Color.White lcanvas.DrawRect( x0+cursX-8 ,y0+cursY-8 ,16 ,16 ) End Method ProceedInput() If MouseHere() If Keyboard.KeyPressed( Key.Up ) Self.cursY = Self.cursY - 8 Elseif Keyboard.KeyPressed( Key.Down ) Self.cursY = Self.cursY + 8 Elseif Keyboard.KeyPressed( Key.Right ) Self.cursX = Self.cursX + 8 Elseif Keyboard.KeyPressed( Key.Left ) Self.cursX = Self.cursX - 8 Endif   ' limits the cursors position cursX = Clamp( cursX,8,width-8 ) cursY = Clamp( cursY,8,height-8 ) Endif End Method MouseHere:Bool() 'return true if mouse is in the Zone Local lreturn:Bool = False If (Mouse.X>=x0) And (Mouse.X<x1) If (Mouse.Y>=y0) And (Mouse.Y<y1) lreturn = True Endif Endif Return lreturn End End     ' ------------------------------------------------ Class MyWindow Extends Window Field oZone:= New Zone[4]     Method New( title:String="Test Fichiers",width:Int=1280,height:Int=768,flags:WindowFlags=WindowFlags.Resizable ) Super.New( title,width,height,flags ) ' create zones oZone[1] = New Zone( 10,10,300,200,Color.Blue) oZone[2] = New Zone(320,10,300,200,Color.DarkGrey) oZone[3] = New Zone(640,10,300,200,Color.Brown)   End Method OnRender( canvas:Canvas ) Override Local i:Int   App.RequestRender()   ' Proceed Keyboard inputs in each zone For i=1 To 3 oZone[i].ProceedInput() Next   ' redraws the zones For i=1 To 3 oZone[i].Draw( canvas ) Next   canvas.DrawText("put the mouse outside the rectangles ", 0 , 360) canvas.DrawText("use cursor key before entering coloured zones ", 0 , 380) canvas.DrawText("Move the mouse inside the one rectangle ", 0 , 400) canvas.DrawText("Keyboard.Keypressed is tested if mouse is in a zone ", 0 , 420) canvas.DrawText("and white square moves ", 0 , 440) canvas.DrawText("Try it in Monkey 1.06  --> no buffer", 0 , 460) canvas.DrawText("in later versions      --> little buffer   ", 0 , 480) canvas.DrawText("idem with Keyboard.KeyReleased" ,0, 500) canvas.DrawText("obviously no pb with KeyDown",0,520) End End       ' ------------------------------------------------ Function Main()   New AppInstance New MyWindow App.Run() End

[Mark SiblyKeymaster]

Yep, the behaviour of Keyboard.KeyPressed has changed since v1.1.06.

Before v1.1.06 KeyPressed used use a ‘frame’ system, where KeyPressed returned true if a key was pressed in the current ‘frame’ (ie: the time between renders). However, this caused problems when people tried to use KeyPressed from within timers.

It now returns true if a key has been pressed since the last call to KeyPressed (with the same key). This affects your code because you only call KeyPressed if mouse is in zone.

The solution is to always check for KeyPressed, even if the mouse is not in any of the zones. I guess another possiblity would be to allow people to manually increment the ‘input frame’.

Or, you could instead use a KeyEvent handler, like this:

Monkey

Namespace keyboardtest #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. ' ----------------------------------------------- Class Zone Field x0:Int,y0:Int ' Zone position Field x1:Int,y1:Int Field width:Int, height:Int ' Zone dim Field backcolor:Color Field cursX:Int,cursY:Int ' Cursors position Method New( lx:Int, ly:Int, lw:Int, lh:Int, lco:Color ) Self.x0 = lx Self.y0 = ly Self.width = lw Self.height= lh Self.x1 = Self.x0 + Self.width - 1 Self.y1 = Self.y0 + Self.height - 1 Self.backcolor = lco Self.cursX = 150 Self.cursY = 100 End Method Draw( lcanvas : Canvas ) ' draws background lcanvas.Color = backcolor lcanvas.DrawRect( x0, y0, width, height ) ' draws the cursor lcanvas.Color = Color.White lcanvas.DrawRect( x0+cursX-8 ,y0+cursY-8 ,16 ,16 ) End Method ProcessKeyDown( key:Key ) Select key Case Key.Up Self.cursY = Self.cursY - 8 Case Key.Down Self.cursY = Self.cursY + 8 Case Key.Right Self.cursX = Self.cursX + 8 Case Key.Left Self.cursX = Self.cursX - 8 End ' limits the cursors position cursX = Clamp( cursX,8,width-8 ) cursY = Clamp( cursY,8,height-8 ) End Method MouseHere:Bool() 'return true if mouse is in the Zone Local lreturn:Bool = False If (Mouse.X>=x0) And (Mouse.X<x1) If (Mouse.Y>=y0) And (Mouse.Y<y1) lreturn = True Endif Endif Return lreturn End End ' ------------------------------------------------ Class MyWindow Extends Window Field oZone:= New Zone[4] Method New( title:String="Test Fichiers",width:Int=1280,height:Int=768,flags:WindowFlags=WindowFlags.Resizable ) Super.New( title,width,height,flags ) ' create zones oZone[1] = New Zone( 10,10,300,200,Color.Blue) oZone[2] = New Zone(320,10,300,200,Color.DarkGrey) oZone[3] = New Zone(640,10,300,200,Color.Brown) End Method OnRender( canvas:Canvas ) Override Local i:Int App.RequestRender() canvas.DrawText("put the mouse outside the rectangles ", 0 , 360) canvas.DrawText("use cursor key before entering coloured zones ", 0 , 380) canvas.DrawText("Move the mouse inside the one rectangle ", 0 , 400) canvas.DrawText("Keyboard.Keypressed is tested if mouse is in a zone ", 0 , 420) canvas.DrawText("and white square moves ", 0 , 440) canvas.DrawText("Try it in Monkey 1.06 --> no buffer", 0 , 460) canvas.DrawText("in later versions --> little buffer ", 0 , 480) canvas.DrawText("idem with Keyboard.KeyReleased" ,0, 500) canvas.DrawText("obviously no pb with KeyDown",0,520) ' redraws the zones For i=1 To 3 oZone[i].Draw( canvas ) Next End Method OnKeyEvent( event:KeyEvent ) Override Select event.Type Case EventType.KeyDown For Local i:=1 To 3 If oZone[i].MouseHere() oZone[i].ProcessKeyDown( event.Key ) Next End 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 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

Namespace keyboardtest #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. ' ----------------------------------------------- Class Zone Field x0:Int,y0:Int ' Zone position Field x1:Int,y1:Int Field width:Int, height:Int ' Zone dim Field backcolor:Color Field cursX:Int,cursY:Int ' Cursors position Method New( lx:Int, ly:Int, lw:Int, lh:Int, lco:Color ) Self.x0    = lx Self.y0    = ly Self.width = lw Self.height= lh Self.x1    = Self.x0 + Self.width  - 1 Self.y1    = Self.y0 + Self.height - 1 Self.backcolor = lco Self.cursX = 150 Self.cursY = 100 End Method Draw( lcanvas : Canvas ) ' draws background lcanvas.Color = backcolor lcanvas.DrawRect( x0, y0, width, height ) ' draws the cursor lcanvas.Color = Color.White lcanvas.DrawRect( x0+cursX-8 ,y0+cursY-8 ,16 ,16 ) End Method ProcessKeyDown( key:Key ) Select key Case Key.Up Self.cursY = Self.cursY - 8 Case Key.Down Self.cursY = Self.cursY + 8 Case Key.Right Self.cursX = Self.cursX + 8 Case Key.Left Self.cursX = Self.cursX - 8 End ' limits the cursors position cursX = Clamp( cursX,8,width-8 ) cursY = Clamp( cursY,8,height-8 ) End Method MouseHere:Bool() 'return true if mouse is in the Zone Local lreturn:Bool = False If (Mouse.X>=x0) And (Mouse.X<x1) If (Mouse.Y>=y0) And (Mouse.Y<y1) lreturn = True Endif Endif Return lreturn End End ' ------------------------------------------------ Class MyWindow Extends Window Field oZone:= New Zone[4] Method New( title:String="Test Fichiers",width:Int=1280,height:Int=768,flags:WindowFlags=WindowFlags.Resizable ) Super.New( title,width,height,flags ) ' create zones oZone[1] = New Zone( 10,10,300,200,Color.Blue) oZone[2] = New Zone(320,10,300,200,Color.DarkGrey) oZone[3] = New Zone(640,10,300,200,Color.Brown) End Method OnRender( canvas:Canvas ) Override Local i:Int App.RequestRender() canvas.DrawText("put the mouse outside the rectangles ", 0 , 360) canvas.DrawText("use cursor key before entering coloured zones ", 0 , 380) canvas.DrawText("Move the mouse inside the one rectangle ", 0 , 400) canvas.DrawText("Keyboard.Keypressed is tested if mouse is in a zone ", 0 , 420) canvas.DrawText("and white square moves ", 0 , 440) canvas.DrawText("Try it in Monkey 1.06  --> no buffer", 0 , 460) canvas.DrawText("in later versions      --> little buffer   ", 0 , 480) canvas.DrawText("idem with Keyboard.KeyReleased" ,0, 500) canvas.DrawText("obviously no pb with KeyDown",0,520) ' redraws the zones For i=1 To 3 oZone[i].Draw( canvas ) Next End Method OnKeyEvent( event:KeyEvent ) Override Select event.Type Case EventType.KeyDown For Local i:=1 To 3 If oZone[i].MouseHere() oZone[i].ProcessKeyDown( event.Key ) Next End End End ' ------------------------------------------------ Function Main() New AppInstance New MyWindow App.Run() End

[Mark SiblyKeymaster]

What I think I’ll do here is resurrect b3d/bmx style Keyboard.FlushKeys() that can be called to ‘clear’ any keypresses that haven’t been checked for. Look out for it in v.1.12 in addition to the texture fix.

[dominique95Participant]

Exactly what i needed.
I will try to inject your KeyEvent handler in my project.
Many thanks for explanations.

[AdamStrangeParticipant]

So you broke both pixmaps and keyboard scanning – way to go Mark!

I hear-by declare you a winner

Attachments:

1. 

   winner-1548239_640-1.jpg
   

[Abe _King_Participant]

I am also now experiencing the exact same problem. I have no idea what it is I may be doing wrong but here is my code

mx2cc version:
Mx2cc version 1.1.12

Monkey

Local img:= <replace with ur own image object> Local pixmap:=New Pixmap( img.Width, img.Height ) Local tex:=New Texture( pixmap, TextureFlags.None ) dynImage=New Image( tex ) Local pcan:=New Canvas( dynImage ) Local results:=New StringStack ' Try to effect the pixel map pcan.Clear( Color.Black ) pcan.DrawImage( img, 0, 0 ) pcan.Flush() For Local y:=0 Until img.Height For Local x:=0 Until img.Width results.Push( "," + pixmap.GetPixel(x,y).A ) Next results.Push( "~n" ) If y Mod 50=0 Print "working..." + y Next Print results.Join("")' no data is registerd, just an array of 0's

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

Local img:= <replace with ur own image object> Local pixmap:=New Pixmap( img.Width, img.Height ) Local tex:=New Texture( pixmap, TextureFlags.None )   dynImage=New Image( tex ) Local pcan:=New Canvas( dynImage ) Local results:=New StringStack   ' Try to effect the pixel map pcan.Clear( Color.Black ) pcan.DrawImage( img, 0, 0 ) pcan.Flush()     For Local y:=0 Until img.Height     For Local x:=0 Until img.Width         results.Push( "," + pixmap.GetPixel(x,y).A )     Next     results.Push( "~n" )     If y Mod 50=0 Print "working..." + y Next   Print results.Join("")' no data is registerd, just an array of 0's

It might not work if I copied my code wrong, but this is pretty much it. I don’t think I saw your updated flag either @admin!

[Author]

Posts