[coconParticipant]

Cool!

Also I have been looking for the Blitz archives this week, since wasted.nz is down this site will come handy.

[coconParticipant]

Another one is to have the stuff you want rendered into an image. But then apply a GLSL shader to that image to produce the effect you want.

Some links to help you with

Render To Image

A better way to set image pixels (With Example)

Apply GLSL

Image with texture mask

https://github.com/DoctorWhoof/Mojo-Shader-Tests

 

For the shader search it like this: “glsl blur image” there are lots of cool images to browse.

[coconParticipant]

Cool samples!

[coconParticipant]

Have you rebuilt the framework?

Whatever module you insert into monkey needs to be rebuilt separately.

[coconParticipant]

… there should be full steam integration out of the box
This would be considered better as a module rather than the distribution strategy.

… to get everything working …

… to have proper help: Perhaps the only that could be written is a language specification that explains the concepts of the languages. But any other than that everything else is API specific, which would not make sense to explain how the mojox works or mojo (not that I would not be great, but the effort is tremendous). Another approach is if someone is interested to write a book and sell it perhaps would boost the ecosystem.

… one click distribution: Is this related to multi-compilation? For example you want to press a button and build everywhere? This would be tricky since Monkey is tied to specific compiler toolchain in each OS.

… proper project management: From what I know nerobot has plans to work on project management for ted2go, but this will be according to his powers and effort, also it would be a conceptual thing related to the IDE only, since the compiler is by default inclusion based. Unless you can think the creation of a system as cmake for monkey.

[coconParticipant]

I did an update to the original first post to get rid of the directions regarding the raw git command set, since GUI applications are much more useful and the process of working repositories is streamlined. Also the title of the post is renamed to include various tips and tricks generally regarding to building and contributing to monkey2.

One upcoming post would be to mention ways about compiling monkey2 with MSVC2017, if anyone has tried it can do a post here.

Another one is to clone and sync the repository from github-to-github (without involving your client).

[coconParticipant]

Since I do not use Steam, I could not say for sure if is a good idea. However the point is that there should be a reasonable ROI (since Steam costs a few dollars per year) perhaps if in the future if things are settled then it would not be a problem at all, but now Mark is in tight ropes and needs to carefully plan the next step.

However the point here is to look at the big picture, other than Steam you can consider that there are many other repositories that can host Monkey as means of promoting. Just to name a few…

chocolatey (windows)

brew (mac)

apt (ubuntu – mint – etc), pacman (arch linux)

ubuntu software center (ubuntu family)

Windows Store, Apple Store, Steam (there are those that cost and can be considered last)

Now perhaps if the appropriate Python scripts are written that would automatically upload the binaries to as many of these repositories with only one command then it worth a shot.

[coconParticipant]

Here’s is a good one, which has a hidden meaning.

[coconParticipant]

Good one!

[coconParticipant]

 I wanna become a patreon for at least a year for a starter…

You can donate through itch.io make sure that you mention your username to Mark as well.

 

Do you plan to roll your own frame limiter? Tell us the result after this.

 

You can turn of the GLSwapInterval to let frames run wild, and then figure out how to implement the update loop.

Monkey

#Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Field pos:Float Method New() Super.New("", 500, 500) End Method OnKeyEvent(event:KeyEvent) Override If event.Type = EventType.KeyDown Select event.Key Case Key.Up SwapInterval += 1 Case Key.Down SwapInterval -= 1 End Endif End Method OnRender(canvas:Canvas) Override App.RequestRender() pos += 1.0 canvas.Color = Color.Blue canvas.DrawRect(pos-2, 0, 4, Height) If pos > Width pos -= Width End canvas.Color = Color.Black canvas.DrawText(Millisecs(), Width/2, (Height/2)+0, 0.5, 0.5) canvas.DrawText("FPS: " + App.FPS, Width/2, (Height/2)+15, 0.5, 0.5) canvas.DrawText("Swap Interval: " + SwapInterval, Width/2, (Height/2)+30, 0.5, 0.5) 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

#Import "<std>" #Import "<mojo>"   Using std.. Using mojo..   Class MyWindow Extends Window Field pos:Float   Method New() Super.New("", 500, 500) End Method OnKeyEvent(event:KeyEvent) Override If event.Type = EventType.KeyDown Select event.Key Case Key.Up SwapInterval += 1 Case Key.Down SwapInterval -= 1 End Endif End Method OnRender(canvas:Canvas) Override App.RequestRender() pos += 1.0 canvas.Color = Color.Blue canvas.DrawRect(pos-2, 0, 4, Height) If pos > Width pos -= Width End canvas.Color = Color.Black canvas.DrawText(Millisecs(), Width/2, (Height/2)+0, 0.5, 0.5) canvas.DrawText("FPS: " + App.FPS, Width/2, (Height/2)+15, 0.5, 0.5) canvas.DrawText("Swap Interval: " + SwapInterval, Width/2, (Height/2)+30, 0.5, 0.5) End End   Function Main()   New AppInstance New MyWindow App.Run() End

[coconParticipant]

Awesome!

After doing some tests and trying to figure out how to add rotations I resulted to this one.

Monkey

#Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Global gMyWindow:MyWindow Class MyWindow Extends Window Field pan : Vec2f ' to hold the panning Field zoom : Float = 1.0 ' to hold the zooming Field rot : Float = 0.0 ' to hold the rotation Field viewSpeed : Float = 2.0 ' the speed of panning Field canvasView: AffineMat3f ' to keep a copy of the view matrix Field messages : String[] ' to render some text on the screen Method New() Super.New("", 800, 600) Stuff.Create() pan = New Vec2f(Width / 2, Height / 2) messages = New String[3] End Method OnRender(canvas:Canvas) Override App.RequestRender() ' USER INPUT FOR VIEW ' user input for controlling the view values If True ' rotation and zoom won't have any problem ' but panning will have to be based on trigonometry calculations If Keyboard.KeyHit(Key.Raw | Key.R) pan = New Vec2f(Width / 2, Height / 2) zoom = 1.0 rot = 0.0 End If Keyboard.KeyDown(Key.Raw | Key.Q) Then zoom -= 0.01 If Keyboard.KeyDown(Key.Raw | Key.E) Then zoom += 0.01 If Keyboard.KeyDown(Key.Raw | Key.A) Local speed := viewSpeed * zoom pan.X -= Cos(rot) * speed pan.Y -= Sin(rot) * speed End If Keyboard.KeyDown(Key.Raw | Key.D) Local speed := viewSpeed * zoom pan.X += Cos(rot) * speed pan.Y += Sin(rot) * speed End If Keyboard.KeyDown(Key.Raw | Key.W) Local speed := viewSpeed * zoom pan.X += Cos(rot - MathHelper.DegreesToRadians(90)) * speed pan.Y += Sin(rot - MathHelper.DegreesToRadians(90)) * speed End If Keyboard.KeyDown(Key.Raw | Key.S) Local speed := viewSpeed * zoom pan.X -= Cos(rot - MathHelper.DegreesToRadians(90)) * speed pan.Y -= Sin(rot - MathHelper.DegreesToRadians(90)) * speed End If Keyboard.KeyDown(Key.Raw | Key.Z) Then rot -= 0.01 * zoom If Keyboard.KeyDown(Key.Raw | Key.C) Then rot += 0.01 * zoom End ' SCREEN TO WORLD HIT TEST ' demonstrate how convert the screen coords to world coords If True If Mouse.ButtonPressed(MouseButton.Left) Local mouseWorldCoord := -canvasView * Mouse.Location Print("Mouse: " + Mouse.Location) Print("Transformed: " + mouseWorldCoord) Stuff.Hit(mouseWorldCoord) End End ' DRAW THE WORLD If True ' I can do PushMatrix so after this ' operation is done it can be restored ' to the window based coordinate system canvas.PushMatrix() canvas.Translate(Width/2, Height/2) canvas.Rotate(rot) canvas.Scale(zoom, zoom) canvas.Translate(-pan) Stuff.Draw(canvas) ' I will have to keep a copy of the current transform ' in order to use it for the hit test canvasView = canvas.Matrix canvas.PopMatrix() End ' DRAW VARIOUS GUI STUFF If True canvas.Color = Color.Black messages[0] = "Pan: " + pan messages[1] = "Rotation: " + MathHelper.RadiansToDegrees(rot) messages[2] = "Zoom: " + zoom For Local i := 0 Until messages.Length canvas.DrawText(messages[i], 10, 10 + (i*12)) Next End End Method DrawLastHitOnGUI(canvas:Canvas) If Stuff.LastHit <> -1 Local p := Stuff.Items[Stuff.LastHit] canvas.DrawCircle(p.X-5, p.Y-5, 10) End End End Class Stuff Abstract Global Items:Vec2f[] Global Hits:Bool[] Global LastHit:Int Function Create() Items = New Vec2f[100] Hits = New Bool[100] For Local i := 0 Until Items.Length ' these coordinates are world based, nothing to do with monitor Items[i] = New Vec2f(i * 20, Rnd(0, 500)) Hits[i] = False Next LastHit = -1 End Function Hit(p:Vec2f) For Local i := 0 Until Items.Length Local x := Items[i].X Local y := Items[i].Y ' no problem to use rect collision since it happens in the world space If Contains(x - 10, x + 10, y - 10, y + 10, p.x, p.y) Hits[i] = True LastHit = i Print("Hit Index: " + i + ", Position: " + Items[i]) Exit End Next LastHit = -1 End Function Contains:Bool(minx:Float, maxx:Float, miny:Float, maxy:Float, x:Float, y:Float) Return x >= minx And x < maxx And y >= miny And y < maxy End Function Draw(canvas:Canvas) For Local i := 0 Until Items.Length If Not Hits[i] canvas.Color = Color.White Else canvas.Color = Color.Red End canvas.DrawRect(Items[i].X - 10, Items[i].Y - 10, 20, 20) Next End End Function Main() New AppInstance gMyWindow = New MyWindow App.Run() End Class MathHelper Abstract Function DegreesToRadians:Double(degrees:Double) Return degrees * (Pi / 180.0) End Function RadiansToDegrees:Double(radians:Double) Return radians * (180.0 / Pi) 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 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 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181

#Import "<std>" #Import "<mojo>" Using std.. Using mojo..   Global gMyWindow:MyWindow   Class MyWindow Extends Window Field pan       : Vec2f ' to hold the panning Field zoom      : Float = 1.0 ' to hold the zooming Field rot       : Float = 0.0 ' to hold the rotation Field viewSpeed : Float = 2.0 ' the speed of panning Field canvasView: AffineMat3f   ' to keep a copy of the view matrix Field messages  : String[]      ' to render some text on the screen Method New() Super.New("", 800, 600) Stuff.Create() pan = New Vec2f(Width / 2, Height / 2) messages = New String[3] End Method OnRender(canvas:Canvas) Override App.RequestRender() ' USER INPUT FOR VIEW ' user input for controlling the view values If True ' rotation and zoom won't have any problem ' but panning will have to be based on trigonometry calculations If Keyboard.KeyHit(Key.Raw | Key.R) pan = New Vec2f(Width / 2, Height / 2) zoom = 1.0 rot = 0.0 End If Keyboard.KeyDown(Key.Raw | Key.Q) Then zoom -= 0.01 If Keyboard.KeyDown(Key.Raw | Key.E) Then zoom += 0.01 If Keyboard.KeyDown(Key.Raw | Key.A) Local speed := viewSpeed * zoom pan.X -= Cos(rot) * speed pan.Y -= Sin(rot) * speed End If Keyboard.KeyDown(Key.Raw | Key.D) Local speed := viewSpeed * zoom pan.X += Cos(rot) * speed pan.Y += Sin(rot) * speed End If Keyboard.KeyDown(Key.Raw | Key.W) Local speed := viewSpeed * zoom pan.X += Cos(rot - MathHelper.DegreesToRadians(90)) * speed pan.Y += Sin(rot - MathHelper.DegreesToRadians(90)) * speed End If Keyboard.KeyDown(Key.Raw | Key.S) Local speed := viewSpeed * zoom pan.X -= Cos(rot - MathHelper.DegreesToRadians(90)) * speed pan.Y -= Sin(rot - MathHelper.DegreesToRadians(90)) * speed End If Keyboard.KeyDown(Key.Raw | Key.Z) Then rot -= 0.01 * zoom If Keyboard.KeyDown(Key.Raw | Key.C) Then rot += 0.01 * zoom End ' SCREEN TO WORLD HIT TEST ' demonstrate how convert the screen coords to world coords If True If Mouse.ButtonPressed(MouseButton.Left) Local mouseWorldCoord := -canvasView * Mouse.Location Print("Mouse: " + Mouse.Location) Print("Transformed: " + mouseWorldCoord) Stuff.Hit(mouseWorldCoord) End End ' DRAW THE WORLD If True ' I can do PushMatrix so after this ' operation is done it can be restored ' to the window based coordinate system canvas.PushMatrix() canvas.Translate(Width/2, Height/2) canvas.Rotate(rot) canvas.Scale(zoom, zoom) canvas.Translate(-pan) Stuff.Draw(canvas) ' I will have to keep a copy of the current transform ' in order to use it for the hit test canvasView = canvas.Matrix canvas.PopMatrix() End ' DRAW VARIOUS GUI STUFF If True canvas.Color = Color.Black messages[0] = "Pan: " + pan messages[1] = "Rotation: " + MathHelper.RadiansToDegrees(rot) messages[2] = "Zoom: " + zoom For Local i := 0 Until messages.Length canvas.DrawText(messages[i], 10, 10 + (i*12)) Next End End Method DrawLastHitOnGUI(canvas:Canvas) If Stuff.LastHit <> -1 Local p := Stuff.Items[Stuff.LastHit] canvas.DrawCircle(p.X-5, p.Y-5, 10) End End End Class Stuff Abstract Global Items:Vec2f[] Global Hits:Bool[] Global LastHit:Int Function Create() Items = New Vec2f[100] Hits = New Bool[100] For Local i := 0 Until Items.Length ' these coordinates are world based, nothing to do with monitor Items[i] = New Vec2f(i * 20, Rnd(0, 500)) Hits[i] = False Next LastHit = -1 End Function Hit(p:Vec2f) For Local i := 0 Until Items.Length Local x := Items[i].X Local y := Items[i].Y ' no problem to use rect collision since it happens in the world space If Contains(x - 10, x + 10, y - 10, y + 10, p.x, p.y) Hits[i] = True LastHit = i Print("Hit Index: " + i + ", Position: " + Items[i]) Exit End Next LastHit = -1 End Function Contains:Bool(minx:Float, maxx:Float, miny:Float, maxy:Float, x:Float, y:Float) Return x >= minx And x < maxx And y >= miny And y < maxy End Function Draw(canvas:Canvas) For Local i := 0 Until Items.Length If Not Hits[i] canvas.Color = Color.White Else canvas.Color = Color.Red End canvas.DrawRect(Items[i].X - 10, Items[i].Y - 10, 20, 20) Next End End   Function Main() New AppInstance gMyWindow = New MyWindow App.Run() End   Class MathHelper Abstract Function DegreesToRadians:Double(degrees:Double) Return degrees * (Pi / 180.0) End Function RadiansToDegrees:Double(radians:Double) Return radians * (180.0 / Pi) End End

[coconParticipant]

Nerobot, where are these parts regarding the code completion?

I would like to try a few things regarding the text matching, and how items are displayed.

[coconParticipant]

You can see this interesting discussion here: https://forum.lazarus.freepascal.org/index.php?topic=35689.0

Perhaps one good approach is to handle timing yourself, use the SDL module directly, since the Window class is more of a user friendly abstraction, so it meant to do the common stuff.

[coconParticipant]

So using the canvas is faster right? OK I will result to it then. But still I would try a few other things if I can get it done.

[coconParticipant]

Good one, it can be combined it with my multi loops here, this will allow the CPU to rest a few times.

Multiple loops at the same time (fast and slow)

[Author]

Posts