[dominique95Participant]

Monkey 2 is not in the same category.
It’s a pure code tool (can i say that ?)
It doesn’t promise you to create a game in a week.
It’s a place for long term users who like coding without limit.
Our community is competent.
You can also try Lua-Love2D, Monogame, HaxeFlixel, Defold.

[dominique95Participant]

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

[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

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

[dominique95Participant]

I saw some of his videos. He’s a pro game dev, and knows the job.
Good, he mentions Monkey 2 in France.
There are francophone users here. One more.
Bienvenue à bord.

[dominique95Participant]

For creating Hud , I start with erased image, canvas.Clear(Color.None) and draw with BlendMode.Alpha
and adjust the Alpha component of the drawing color.
In the main loop , I draw this image on the screen. But it’s always the same.

Try this , using A, D, M, O,  and Up/Down Keys.
See the Color’s info under the mouse, blendmode will make sense.
Transparency is where you see the red balls.
Coded with Monkey2 1.1.06

Monkey

' --------------------------------------- ' alphatest2.monkey2 ' --------------------------------------- Namespace alphatest2 #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Field pxm:Pixmap Field img:Image Field imgcanvas:Canvas Field opacity:Float Field blmode : BlendMode Field blmodename : String Method New() Super.New( "test",512, 512,WindowFlags.Resizable | WindowFlags.HighDPI ) pxm = New Pixmap( 300,300,PixelFormat.RGBA32 ) img = New Image( pxm,TextureFlags.None,Null ) imgcanvas = New Canvas(img) opacity = 0.5 blmode = BlendMode.Opaque blmodename = "Opaque" End Method OnRender( canvas:Canvas ) Override App.RequestRender() ' Draw your Screen background here (Red Circles) canvas.Clear(Color.Black) For Local lc:Int = 1 To 8 For Local li:Int = 1 To 6 canvas.Color = Color.Red canvas.DrawCircle( lc*55,li*55,25 ) Next Next ' Adjust Opacity and BlendMode If Keyboard.KeyPressed(Key.Up) opacity = Clamp( opacity+0.1,0.0,1.0 ) Elseif Keyboard.KeyPressed( Key.Down ) opacity = Clamp( opacity-0.1,0.0,1.0 ) Elseif Keyboard.KeyPressed( Key.A) blmode = BlendMode.Alpha blmodename = "Alpha" Elseif Keyboard.KeyPressed( Key.O) blmode = BlendMode.Opaque blmodename = "Opaque" Elseif Keyboard.KeyPressed( Key.M) blmode = BlendMode.Multiply blmodename = "Multiply" Elseif Keyboard.KeyPressed( Key.D) blmode = BlendMode.Additive blmodename = "Additive" Endif ' Draw orange squares into image according to params (opacity and BlendMode) ' These 9 next lines dont have to be in you main loop imgcanvas.Clear(Color.None) ' Clear the image And Alpha = 0.0 imgcanvas.Color = Color.Blue' And paint bottom half in blue and Alpha = 1.0 imgcanvas.DrawRect(0,0,pxm.Width,pxm.Height/2) imgcanvas.Color = New Color( 0.9, 0.4, 0.0, opacity ) imgcanvas.BlendMode=blmode imgcanvas.DrawRect( 50, 50, 100, 100 ) imgcanvas.DrawRect( 75, 75, 100, 100 ) imgcanvas.DrawRect( 100, 100, 100, 100 ) imgcanvas.Flush() ' Try the results without cheating canvas.Color = New Color( 1, 1, 1, 1 ) canvas.Alpha = 1 canvas.DrawImage( img,0,0 ) ' Show Pixels data Local ARGB:UInt If (Mouse.X<pxm.Width) And (Mouse.Y<pxm.Height) ARGB = pxm.GetPixelARGB(Mouse.X,Mouse.Y) canvas.DrawText( "image color ARGB $" + Hex(ARGB),0,Height-40 ) Endif canvas.DrawText( "Move the mouse pointer",0,Height-70 ) canvas.DrawText( "See alpha component (left 2 bytes) of the",0,Height-56 ) ' opacity and BlendMode canvas.DrawText("Opacity " +opacity,Width-150,Height-70 ) canvas.DrawText(blmodename,Width-150,Height-40) canvas.DrawText( "Up Down keys",Width-150,Height-56 ) canvas.DrawText( "A D M O keys",Width-150,Height-28 ) 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

' --------------------------------------- '          alphatest2.monkey2 ' --------------------------------------- Namespace alphatest2 #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Field pxm:Pixmap Field img:Image Field imgcanvas:Canvas Field opacity:Float Field blmode : BlendMode Field blmodename : String Method New() Super.New( "test",512, 512,WindowFlags.Resizable | WindowFlags.HighDPI ) pxm = New Pixmap( 300,300,PixelFormat.RGBA32 ) img = New Image( pxm,TextureFlags.None,Null ) imgcanvas = New Canvas(img) opacity = 0.5 blmode = BlendMode.Opaque blmodename = "Opaque" End Method OnRender( canvas:Canvas ) Override App.RequestRender() ' Draw your Screen background here (Red Circles) canvas.Clear(Color.Black) For Local lc:Int = 1 To 8 For Local li:Int = 1 To 6 canvas.Color = Color.Red canvas.DrawCircle( lc*55,li*55,25 ) Next Next ' Adjust Opacity and BlendMode If Keyboard.KeyPressed(Key.Up) opacity = Clamp( opacity+0.1,0.0,1.0 ) Elseif  Keyboard.KeyPressed( Key.Down ) opacity = Clamp( opacity-0.1,0.0,1.0 ) Elseif Keyboard.KeyPressed( Key.A) blmode = BlendMode.Alpha blmodename = "Alpha" Elseif Keyboard.KeyPressed( Key.O) blmode = BlendMode.Opaque blmodename = "Opaque" Elseif Keyboard.KeyPressed( Key.M) blmode = BlendMode.Multiply blmodename = "Multiply" Elseif Keyboard.KeyPressed( Key.D) blmode = BlendMode.Additive blmodename = "Additive" Endif ' Draw orange squares into image according to params (opacity and BlendMode) ' These 9 next lines dont have to be in you main loop imgcanvas.Clear(Color.None)  ' Clear the image  And Alpha = 0.0 imgcanvas.Color = Color.Blue' And paint bottom half in blue and Alpha = 1.0 imgcanvas.DrawRect(0,0,pxm.Width,pxm.Height/2) imgcanvas.Color = New Color( 0.9, 0.4, 0.0, opacity ) imgcanvas.BlendMode=blmode imgcanvas.DrawRect(  50,  50, 100, 100 ) imgcanvas.DrawRect(  75,  75, 100, 100 ) imgcanvas.DrawRect( 100, 100, 100, 100 ) imgcanvas.Flush()     ' Try the results without cheating canvas.Color = New Color( 1, 1, 1, 1 ) canvas.Alpha = 1 canvas.DrawImage( img,0,0 ) ' Show Pixels data   Local ARGB:UInt If (Mouse.X<pxm.Width) And (Mouse.Y<pxm.Height) ARGB = pxm.GetPixelARGB(Mouse.X,Mouse.Y) canvas.DrawText( "image color ARGB   $" + Hex(ARGB),0,Height-40 ) Endif canvas.DrawText( "Move the mouse pointer",0,Height-70 ) canvas.DrawText( "See alpha component (left 2 bytes) of the",0,Height-56 ) ' opacity and BlendMode canvas.DrawText("Opacity " +opacity,Width-150,Height-70 ) canvas.DrawText(blmodename,Width-150,Height-40) canvas.DrawText( "Up Down keys",Width-150,Height-56 ) canvas.DrawText( "A D M O keys",Width-150,Height-28 ) End End Function Main() New AppInstance New MyWindow App.Run() End

[dominique95Participant]

Hello,
Assuming you read  your file line by line in the txt$ variable.
Tested in BlitzPlus, should work in Blitz3D too

txt$ = "320 x 200" c = 1 width$ = "" height$ = "" colDepth$ = "" ; ---- decode Width While c<=Len(txt$) And Mid(txt$,c,1)<>"x" width$ = width$ + Mid(txt$,c,1) c = c + 1 Wend width_screen = Int(width$) c = c + 1; skip the x char ; ---- decode Height While c<=Len(txt$) And Mid(txt$,c,1)<>"x" height$ = height$ + Mid(txt$,c,1) c = c + 1 Wend height_screen = Int(height$) Text 0,0,txt$ Text 0,12,width_screen Text 0,24,height_screen

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

txt$ = "320 x 200" c = 1 width$    = "" height$   = "" colDepth$ = "" ; ---- decode Width While c<=Len(txt$) And Mid(txt$,c,1)<>"x" width$ = width$ + Mid(txt$,c,1)   c = c + 1 Wend width_screen = Int(width$)   c = c + 1; skip the x char   ; ---- decode Height While c<=Len(txt$) And Mid(txt$,c,1)<>"x" height$ = height$ + Mid(txt$,c,1) c = c + 1 Wend height_screen = Int(height$)   Text 0,0,txt$ Text 0,12,width_screen Text 0,24,height_screen

[dominique95Participant]

Hi,
J’adore cette idée de stimuler les patients avec des images et animations. Tout comme l’appli avec des grimaces.
Monkey 1 (v85.e) exes work on my old PC Window XP SP3 – RAM 1Go.
You need OpenAL32.dll (version 0.9.5.1) in your C:\Windows\System32\  folder
Or you can put it in the same directory as your .exe

Monkey 2 exes fail at entry point of strnlen in msvcrt.dll, 64 bit needed ?

[Author]

Posts