[AdamStrangeParticipant]

it’s not really that important, but something along that would be a good option

[AdamStrangeParticipant]

I’m just using desktop – macos

to reproduce I just made a default letterbox app. when the mouse entered/moved in the window, you get the SDL_ notifications.

[AdamStrangeParticipant]

just been testing it on the latest release.

if you have a problem with textureGL just change any references to Texture (and remove the import from Rameses.monkey2)

Marks new code will work fine

[AdamStrangeParticipant]

yep. the tools I used are these:

fontsprite to create 2d graphics (you can see version 2 of the font being used, with darker graphics for the cards):

and then fontmap to create the cards (showing version 1 of the font). You can see how the grey font is being used to create both the green and blue edges for the cards. it also shows that most of the layers are off.

and the maps (with the final version of the font). you can also see that the map display is offset allowing me to quickly work on hex based maps)

I also used a bit of photoshop to do the other graphics.

All the tools are monkey2. But NOT MojoX. I wrote a custom GUI system that allows much better and simpler UI design.

coming on to the GUI of Miralon, I rewrote the above custom gui for game use. it’s a very small system that allows for fast prototyping:

You can see it here with the grid showing and 6 controls. they can use standard text, bitmaps, or graphics. and can be simply subclassed to write other handlers for any purpose. In this case I added the ability to use 3 images for a button: Off, over and top (the top text)

Here’s a snippet of code direct from miralon showing how I create a button:

Monkey

_button2 = New UXImageButton3( "Begin", _imageButton2, _imageButton1, _imageButton3 ) _button2.SetGridLayout( 18, 16, 5, 2 ) _button2.ImageColor = Color.Orange _button2.TextBold = True _button2.TextColor = Color.Black _button2.MouseEnter = Lambda() MouseEnter() End _button2.Clicked = Lambda() MouseClicked() OKClicked() End AddControl( _button2 )

1 2 3 4 5 6 7 8 9 10 11 12 13 14

_button2 = New UXImageButton3( "Begin", _imageButton2, _imageButton1, _imageButton3 ) _button2.SetGridLayout( 18, 16, 5, 2 ) _button2.ImageColor = Color.Orange _button2.TextBold = True _button2.TextColor = Color.Black _button2.MouseEnter = Lambda() MouseEnter() End _button2.Clicked = Lambda() MouseClicked() OKClicked() End AddControl( _button2 )

You can see there is still code to do with Text that I should remove as its not being used, but it show how the code was quickly taken from another project and reused

The MouseEnter and MouseClicked signal back to the main program that it needs a sound. so when you hover a sound plays and when you click another sound plays

[AdamStrangeParticipant]

I’de be very interested in any suggestions to do with AI?

[AdamStrangeParticipant]

And the final one for the day adding some cross braces along the lines. Again the map has not changed, just added a single model to the drawing:

[AdamStrangeParticipant]

taking the above a single step further by adding some more ‘stuff’ to the wall and correcting the heights:

and maybe boost the light a bit:

there are no textures and just a single light. you can see it’s all the same map as was being used before…

[AdamStrangeParticipant]

replacing the blank walls with some test geometry

although there are height errors, you can see that we don’t need to test for the geometry, just the underlying map

as proof of working, it is not too bad. I need to add heights to things now

[AdamStrangeParticipant]

ooh, solved the stuttering with sliding collision and some interesting math.

for any line, it has a normalised vector (all calculated automatically when you add a line) and also an angle (of direction)

when you collide with a line, you can compare your angle of direction with the lines angle of direction. if you add 90 (degrees) you should be parallel to the line

using this you get a – if you are facing towards the core vertex of the line or a + if you are facing away. you use this to modify the position – simples….

and heres the code:

Monkey

Local hitAngle:float = trueAngle - PIHALF hitAngle = -(hitAngle - line.angle) If hitAngle > PI Then hitAngle = hitAngle-PI2 'if _debugTrip Then 'Print "angle= "+trueAngle+" line= "+line.angle+" hit= "+hitAngle '_debugTrip = false 'End If If hitAngle < 0 Then px = opx + line.normalX py = opy + line.normalY Else If hitAngle > 0 Then px = opx - line.normalX py = opy - line.normalY End If

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Local hitAngle:float = trueAngle - PIHALF hitAngle = -(hitAngle - line.angle) If hitAngle > PI Then hitAngle = hitAngle-PI2 'if _debugTrip Then 'Print "angle= "+trueAngle+"   line= "+line.angle+"   hit= "+hitAngle '_debugTrip = false 'End If If hitAngle < 0 Then px = opx + line.normalX py = opy + line.normalY Else If hitAngle > 0 Then px = opx - line.normalX py = opy - line.normalY End If

with the debug code as well

px, py is the position you are checking

ops,opy is the old position

[AdamStrangeParticipant]

Using 3d as the display was always my intention. but I take your point…

I am using the original doom concepts though.

Using a few custom models I can now view a basic framework:

You can see it’s the same map with the lines, etc. I’m working on sliding collision as it currently stutters, so I am looking into using some vectors and other weird stuff.

But the essence of it is operational

[AdamStrangeParticipant]

LOL. yep I tied to argue that point, but the Jam runner stuck to the 4 color palette.

got 49 out of 129 btw

[AdamStrangeParticipant]

Moved direct into 3d. so I’ve now got a proper openGL 3d view, with the 2d map being added so I can see whats going on.

The red diamond, is just a marker denoting 1 in the X axis, with the grid being at .5 spaces

[AdamStrangeParticipant]

small steps this stage. but looking positive

[AdamStrangeParticipant]

the simple answer is TOOLS!  Let me expand on that using Maralon farm

This is the first dev image:

It’s a custom openGL system for monkey2 based on shaders. and based on Cocons base code. I took the framework nd rewrote it to support stuff I needed and then added a 3do model importer (3do is the model format I created for a 3d modeller I wrote called Rameses).

To use the monkey2 version you will need these 3 files:

Ramese3d.monkey2

matrix.monkey2

textural.monkey2

and finally the demo file:

Monkey

#import "rameses3d" #import "assets/grid.3do" 'the size of our window Const Size := New Vec2i( 950,720 ) 'And some nice stuff const PI:float = 3.14159265359 const PIHALF:float = PI * 0.5 const SHOW_TEX:float = 1 const HIDE_TEX:float = 0 const USE_LIGHT:float = 1 const NO_LIGHT:float = 0 Class MyWindow Extends GLWindow 'this is the 3d system field my3d:Rameses3d 'we need at lest one shader field myShader:GLShader 'and this is the 3d object field r3d_Grid:int 'we dont need this, but it is the texture that can be fed into rameses3d field tex:TextureGL Method New() 'create a window Super.New( "My Window", Size.X, Size.Y, WindowFlags.Resizable ) 'this is a timer. it will 'tick' 60 times a second. calling OnUpdate _timer = New Timer( 60, OnUpdate ) 'if you want a constant canvas size use this ' Layout = "letterbox" 'or If you want the canvas to always fill the window use this Layout = "fill" 'get the shaders. we are not using any user defined ones, but we wil need to get a basic one InitShaders() 'next initalize Rameses my3d = New Rameses3d( Width, Height ) 'and set a light. Think of you the observer as position 0, 0, 0. ' with x being left/right ' y being up/down ' and z being in/out z starts at 0, and goes minus away from you, plus towards you ' so... 0, 1, -1 is centered, above and into the screen my3d.SetLight( 0, 1, -2 ) 'load the texture - we are not using ' tex = TextureGL.Load( "asset::ship32x32_font.png", TextureFlagsGL.Dynamic ) 'now we load the 3d shape from the assets r3d_Grid = my3d.Load( "asset::grid.3do", myShader ) 'and finally some opengl 'set the clear color of the screen to black glClearColor(0, 0, 0, 1.0) 'cull the face drawing and add depth glEnable(GL_CULL_FACE) glEnable(GL_DEPTH_TEST) End method InitShaders() 'first get the basic internal shader from Rameses3d myShader = New GLShader() End method Method OnUpdate() 'this 'ticks' at 60 fps 'use it For your master updating system _gameTime = Millisecs() 'lets update the rotation _objectRotate += 0.005 'finally call everything to render 'the render is done:OnRenderGL first then standard monkey2 OnRender RequestRender() End Method Method OnRender(canvas:Canvas) Override App.RequestRender() 'this will call the opengl render Super.OnRender(canvas) canvas.DrawText( "FPS="+App.FPS,Width,0,1,0 ) canvas.DrawText("Monkey2 OpenGL", 10, 10) canvas.Color = Color.Blue canvas.DrawRect( 210, 10, 10, 200 ) End Method OnRenderGL() Override 'clear the screen buffers glClearStencil( 0 ) glClear( GL_COLOR_BUFFER_BIT|GL_DEPTH_BUFFER_BIT|GL_STENCIL_BUFFER_BIT ) 'Drawing area. You're always drawing to the entire window in GL regardless of Layout. glViewport( 0, 0 ,Frame.Width, Frame.Height ) 'initalize the texture - we are not using ' local texint:GLuint = tex.GLTexture ' tex.Bind( 0, TextureFilterGL.None ) Local scale:float = 1.618 'here's the format for the following drawing commands: 'method DrawModel( model:int, x:float, y:float, z:float, lightMix:float, textureMix:float, baseColor:Color, scale:float = 1, yrot:float = 0, xrot:float = 0, zrot:float = 0 ) my3d.DrawLines( r3d_Grid, 0, -1.5, -3.7, NO_LIGHT, HIDE_TEX, Color.Cyan, scale, 0 ) my3d.DrawModel( r3d_Grid, 0, -1, -3.7, NO_LIGHT, HIDE_TEX, Color.Orange, scale*0.5, _objectRotate, _objectRotate ) my3d.DrawLines( r3d_Grid, 0, -.5, -3.7, NO_LIGHT, HIDE_TEX, Color.Red, scale*0.25, 0, -_objectRotate ) End private 'the timer ticks 60 times a second and handles the screen update Field _timer:Timer 'global game time derrived from a single call to Millisecs() field _gameTime:int field _objectRotate:float = 0 End Function Main() Local cfg := New StringMap<String> cfg["GL_depth_buffer_enabled"] = 1 cfg["GL_stencil_buffer_enabled"] = 1 New AppInstance( cfg ) 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 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156

#import "rameses3d"     #import "assets/grid.3do" 'the size of our window Const Size := New Vec2i( 950,720 )   'And some nice stuff const PI:float = 3.14159265359 const PIHALF:float = PI * 0.5   const SHOW_TEX:float = 1 const HIDE_TEX:float = 0   const USE_LIGHT:float = 1 const NO_LIGHT:float = 0       Class MyWindow Extends GLWindow   'this is the 3d system field my3d:Rameses3d   'we need at lest one shader field myShader:GLShader   'and this is the 3d object field r3d_Grid:int   'we dont need this,  but it is the texture that can be fed into rameses3d field tex:TextureGL Method New() 'create a window Super.New( "My Window", Size.X, Size.Y, WindowFlags.Resizable )   'this is a timer. it will 'tick' 60 times a second. calling OnUpdate _timer = New Timer( 60, OnUpdate )   'if you want a constant canvas size use this ' Layout = "letterbox" 'or If you want the canvas to always fill the window use this Layout = "fill"   'get the shaders. we are not using any user defined ones,  but we wil need to get a basic one InitShaders()   'next initalize Rameses my3d = New Rameses3d( Width, Height ) 'and set a light. Think of you the observer as position 0, 0, 0. ' with x being left/right ' y being up/down ' and z being in/out z starts at 0,  and goes minus away from you, plus towards you ' so... 0, 1, -1 is centered,  above and into the screen my3d.SetLight( 0, 1, -2 )   'load the texture - we are not using ' tex = TextureGL.Load( "asset::ship32x32_font.png", TextureFlagsGL.Dynamic )   'now we load the 3d shape from the assets r3d_Grid = my3d.Load( "asset::grid.3do", myShader )   'and finally some opengl 'set the clear color of the screen to black glClearColor(0, 0, 0, 1.0)   'cull the face drawing and add depth glEnable(GL_CULL_FACE) glEnable(GL_DEPTH_TEST) End   method InitShaders() 'first get the basic internal shader from Rameses3d myShader = New GLShader() End method Method OnUpdate() 'this 'ticks' at 60 fps 'use it For your master updating system _gameTime = Millisecs() 'lets update the rotation _objectRotate += 0.005   'finally call everything to render 'the render is done:OnRenderGL first then standard monkey2 OnRender RequestRender() End Method Method OnRender(canvas:Canvas) Override App.RequestRender() 'this will call the opengl render Super.OnRender(canvas)   canvas.DrawText( "FPS="+App.FPS,Width,0,1,0 )   canvas.DrawText("Monkey2 OpenGL", 10, 10) canvas.Color = Color.Blue canvas.DrawRect( 210, 10, 10, 200 )   End     Method OnRenderGL() Override 'clear the screen buffers glClearStencil( 0 ) glClear( GL_COLOR_BUFFER_BIT|GL_DEPTH_BUFFER_BIT|GL_STENCIL_BUFFER_BIT )   'Drawing area. You're always drawing to the entire window in GL regardless of Layout. glViewport( 0, 0 ,Frame.Width, Frame.Height )   'initalize the texture - we are not using ' local texint:GLuint = tex.GLTexture ' tex.Bind( 0, TextureFilterGL.None )   Local scale:float = 1.618 'here's the format for the following drawing commands: 'method DrawModel( model:int,  x:float, y:float, z:float, lightMix:float, textureMix:float, baseColor:Color, scale:float = 1, yrot:float = 0, xrot:float = 0, zrot:float = 0 ) my3d.DrawLines( r3d_Grid, 0, -1.5, -3.7, NO_LIGHT, HIDE_TEX,  Color.Cyan, scale, 0 )   my3d.DrawModel( r3d_Grid, 0, -1, -3.7, NO_LIGHT, HIDE_TEX,  Color.Orange, scale*0.5, _objectRotate, _objectRotate )   my3d.DrawLines( r3d_Grid, 0, -.5, -3.7, NO_LIGHT, HIDE_TEX,  Color.Red, scale*0.25, 0, -_objectRotate ) End   private 'the timer ticks 60 times a second and handles the screen update Field _timer:Timer   'global game time derrived from a single call to Millisecs() field _gameTime:int field _objectRotate:float = 0 End     Function Main() Local cfg := New StringMap<String> cfg["GL_depth_buffer_enabled"] = 1 cfg["GL_stencil_buffer_enabled"] = 1 New AppInstance( cfg )   New MyWindow App.Run() End

I’ve included all the files in a zip for you. but I thought the main file was better to be seen. the assets folder has lots of .3do files to play with

Attachments:

1. demo.zip

[AdamStrangeParticipant]

yep. very simple to use with shader support. I’ll get a demo for you

[Author]

Posts