[EthernautParticipant]

Sure, the main missing MacOS keys are:

Option+Up: Page Up
Option+Down: Page Down
Option+Left: Jump to previous word
Option+Right: Jump to next word
Adding shift to any of these should select from the current position.

Also, after commenting/uncommenting a selection, selection shouldn’t be cleared (not MacOs specific)
Bonus: Being able to scroll past the end of the document, let’s say by a half page height, would be lovely!

The issue I had with the toolbar was in fact related to my theme, “Warm”. Sorry about that. Will fix the theme and try to do a pull request for it in GitHub (my first pull request ever, whoo-hoo!).

[EthernautParticipant]

You guys are amazing!

I’m enjoying MojoX now that I understand it better, and diving into it led me to rework my “Game” class so it extends View instead of Window. That way I can more easily stick it into a GUI with all kinds of docks and toolbars, and even have two or more different instances of that class, each one showing something different, in the same interface.

Thanks!

[EthernautParticipant]

I got the scrolling and the resizing working perfectly, thanks for the help!

I agree percentage sizes should probably have a resize knob too if ‘resizable=true’ and the percentage should mean ‘initial’ size. Will have a look at fixing this.

That seems like it would be really helpful, thanks Mark!

Here’s the revised example. Only one thing I’m not being able to get right: I’d like the initial Scroll coordinates to be centered in the frame when the App starts, but setting Scroll in New() seems to have no effect. I could make a ‘_firstFrame:Bool” field and check for it in OnRender, but it feels like it would be unnecessary clutter if there’s a place where Scroll can be initialized. Where is it?

Monkey

#Import "<mojo>" #Import "<mojox>" Using std.. Using mojo.. Using mojox.. Function Main() New AppInstance New TestGui App.Run() End Class TestGui Extends Window Field mainDock:DockingView Field rgtDock:ScrollView Field graphView:GraphView Const smallFont:Font = Font.Load( "font::DejaVuSans.ttf", 10 ) Method New() Super.New( "Test", 1024, 640, WindowFlags.Resizable ) mainDock = New MainDock() rgtDock = New RightDock() mainDock.AddView( rgtDock, "right", "400", True ) ContentView = mainDock End End Class MainDock Extends DockingView Method New() Layout="fill" Local newStyle := Style.Copy() newStyle.BackgroundColor = Color.DarkGrey newStyle.BorderColor = Color.Black newStyle.Font = TestGui.smallFont Style = newStyle End Method OnRender( canvas:Canvas ) Override Super.OnRender( canvas ) canvas.Color = New Color( Rnd(), Rnd(), Rnd() ) canvas.DrawCircle( 200, 200, 50 ) canvas.Color = Color.Aluminum canvas.DrawText( "gameview:" + App.FPS + " fps", 5, 5 ) End End Class RightDock Extends ScrollView Private Field _panSpeed := 5.0 Public Method New() Layout="fill" ScrollBarsVisible = True Local newStyle := Style.Copy() newStyle.BackgroundColor = Color.Grey newStyle.BorderColor = Color.Black newStyle.Font = TestGui.smallFont Style = newStyle Local graph:=New GraphView ContentView = graph Scroll = New Vec2i( graph.Frame.Width/2, graph.Frame.Height/2 ) 'Doesn't work! End Method OnRender( canvas:Canvas ) Override Super.OnRender( canvas ) canvas.Color = Color.Aluminum canvas.DrawText( "size:" + Frame + " ,scroll:" + Scroll , 5, 5 ) End Method OnMouseEvent( event:MouseEvent ) Override Select event.Type Case EventType.MouseWheel Scroll = New Vec2i( Scroll.X+(event.Wheel.X*_panSpeed), Scroll.Y-(event.Wheel.Y*_panSpeed) ) App.RequestRender() End End End Class GraphView Extends View Private Field _panSpeed := 5.0 Field _size := New Vec2i( 1024, 1024 ) Public Method New() MinSize=New Vec2i( _size.X, _size.Y ) End Method OnRender( canvas:Canvas ) Override Local r:= 20.0 For Local x := 1 Until 10 For Local y := 1 Until 10 Local v := (x/10.0) -0.05 canvas.Color = New Color( v, v, v ) canvas.DrawCircle( (x*100)+r, (y*100)+r, r ) Next Next 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

#Import "<mojo>" #Import "<mojox>"   Using std.. Using mojo.. Using mojox..   Function Main() New AppInstance New TestGui App.Run() End     Class TestGui Extends Window Field mainDock:DockingView Field rgtDock:ScrollView Field graphView:GraphView Const smallFont:Font = Font.Load( "font::DejaVuSans.ttf", 10 ) Method New() Super.New( "Test", 1024, 640, WindowFlags.Resizable ) mainDock = New MainDock() rgtDock = New RightDock() mainDock.AddView( rgtDock, "right", "400", True  ) ContentView = mainDock End End     Class MainDock Extends DockingView Method New() Layout="fill" Local newStyle := Style.Copy() newStyle.BackgroundColor = Color.DarkGrey newStyle.BorderColor = Color.Black newStyle.Font = TestGui.smallFont Style = newStyle End Method OnRender( canvas:Canvas ) Override Super.OnRender( canvas ) canvas.Color = New Color( Rnd(), Rnd(), Rnd() ) canvas.DrawCircle( 200, 200, 50 ) canvas.Color = Color.Aluminum canvas.DrawText( "gameview:" + App.FPS + " fps", 5, 5 ) End End       Class RightDock Extends ScrollView Private Field _panSpeed := 5.0 Public Method New() Layout="fill" ScrollBarsVisible = True Local newStyle := Style.Copy() newStyle.BackgroundColor = Color.Grey newStyle.BorderColor = Color.Black newStyle.Font = TestGui.smallFont Style = newStyle Local graph:=New GraphView ContentView = graph Scroll = New Vec2i( graph.Frame.Width/2, graph.Frame.Height/2 ) 'Doesn't work! End Method OnRender( canvas:Canvas ) Override Super.OnRender( canvas ) canvas.Color = Color.Aluminum canvas.DrawText( "size:" + Frame + " ,scroll:" + Scroll , 5, 5 ) End Method OnMouseEvent( event:MouseEvent ) Override Select event.Type Case EventType.MouseWheel Scroll = New Vec2i( Scroll.X+(event.Wheel.X*_panSpeed), Scroll.Y-(event.Wheel.Y*_panSpeed) ) App.RequestRender() End End End     Class GraphView Extends View Private Field _panSpeed := 5.0 Field _size := New Vec2i( 1024, 1024 ) Public Method New() MinSize=New Vec2i( _size.X, _size.Y ) End Method OnRender( canvas:Canvas ) Override Local r:= 20.0 For Local x := 1 Until 10 For Local y := 1 Until 10 Local v :=  (x/10.0) -0.05 canvas.Color = New Color( v, v, v ) canvas.DrawCircle( (x*100)+r, (y*100)+r, r ) Next Next End End

[EthernautParticipant]

In both cases (yours and the linked one) it’s Windows running on a Macbook. Is it a retina screen macbook? If yes, seems like windows doesn’t handle the hi dpi scaling well.

Have you tried on MacOS, since you’re on a Mac? Looks razor sharp here, the only minor problem is that sometimes when I uninstall and reinstall it the fonts look absolutely tiny, and you have to hit Window/Zoom In several times to go back to normal. Another benefit is that Monkey2 seems to compile much faster on MacOS, at least for me.

More info about other IDE options here:
http://monkeycoder.co.nz/forums/topic/monkey2-3rd-party-ide/

[EthernautParticipant]

Although it’s true I don’t use the ‘micro view’…

Hah! As soon as I read that, I turned off the Codemap in the preferences and… CPU usage went from over 40% to… about 2% most of the time!

[EthernautParticipant]

I’ve been using the dev branch from yesterday, and it sits between 40% and 50% CPU use when I’m not doing anything. Don’t think this happened in whatever previous version I was using.

MacOS, quad core processor laptop.

[EthernautParticipant]

Thanks Mark!

If you decide to add a SpriteFrames class or similar I’ll update my stuff, but for now I made an “AnimSprite” class that extends Sprite and stores the coordinates internally. I also have an “AnimationClip” class that simply stores a named frame sequence, so you refer to it by name and “grab” different frames from the same sprite sheet.

Here’s the class, complete with Json file loading for animation clips (use example attached at the bottom). This is more or less super untested!

Monkey

Namespace mojo3d.graphics Class AnimSprite Extends Sprite 'Event functions Field onLastFrame :Void() Field onFirstFrame :Void() Protected 'Atlas values Field _frame:Int = 0 'The frame currently displayed Field _coordinates:= New Stack<Rect<Double>> 'A stack containing the UV coordinates for each cell 'Animation clip management Field _timeScale := 1.0 'Adjusts playback speed. Can be used to create slow motion effects without changing the framerate. Field _anim :AnimationClip 'The animation clip currently playing Field _animations := New StringMap< AnimationClip > 'List of available animation clips Field _offset :Int 'Current frame offset Field _framerate:Double = 15.0 'Frame rate, if a clip is not provided 'Misc Field _firstFrame := True Field _hasReachedEnd := False Field _hasReachedStart := False '******************************* Public Properties ******************************* Public 'Current frame Property Frame:Int() Return _frame Setter( number:Int ) If number <> _frame _frame = Clamp( number, 0, _coordinates.Length-1 ) TextureRect = _coordinates[ _frame ] If _frame >= LastFrame If Not _hasReachedEnd onLastFrame() _hasReachedEnd = True _hasReachedStart = False End End If _firstFrame onFirstFrame() _firstFrame = False Else If _frame = FirstFrame If Not _hasReachedStart onFirstFrame() _hasReachedStart = True _hasReachedEnd = False End End End End End 'current AnimationClip Property Animation:String() Return _anim.name Setter( name:String ) If _animations[ name ] _anim = _animations[ name ] Else Print( "AnimSprite: animation '" + name + "' Not found!" ) End End 'Map with all animations as values and their names as keys Property AllAnimations:StringMap< AnimationClip >() Return _animations End 'Offsets the current frame, useful when creating multiple copies of the same sprite Property FrameOffset:Int() Return _offset Setter( number:Int ) _offset = number End 'Sets the frame rate. If a clip is in use, that clip's frame rate will be set. Property FrameRate:Double() If _anim Return _anim.framerate Else Return _framerate End Setter( value:Double ) If _anim _anim.framerate = value Else _framerate = value End End 'Duration (in seconds) of the current animation clip. If none, duration of the entire spritesheet is provided. Property Duration:Double() Local _period:Double = ( 1.0 / FrameRate ) * _timeScale If _anim Return _period * _anim.frames.Length Else Return _period * _coordinates.Length End End 'First frame in clip Property FirstFrame:Int() If _anim Return _anim.frames[ 0 ] Else Return 0 End End 'Last frame in clip Property LastFrame:Int() If _anim Return _anim.frames[ _anim.frames.Length-1 ] Else Return _coordinates.Length - 1 End End '******************************* Public Methods ******************************* Method New( path:String, cellWidth:Int, cellHeight:Int, padding:Int = 0, border:Int = 0, flags:TextureFlags = TextureFlags.FilterMipmap ) 'Creates new Sprite with material Super.New( SpriteMaterial.Load( path, flags ) ) Local texture := Cast<SpriteMaterial>( Material ).ColorTexture Local _paddedWidth:Double = cellWidth + ( padding * 2 ) Local _paddedHeight:Double = cellHeight + ( padding * 2 ) Local _rows:Int = ( texture.Height - border - border ) / _paddedHeight Local _columns:Int = ( texture.Width - border - border ) / _paddedWidth 'Generates UV coordinates for each frame Local numFrames := _rows * _columns Local w:Double = texture.Width Local h:Double = texture.Height For Local i:= 0 Until numFrames Local col := i Mod _columns Local x:Double = ( col * _paddedWidth ) + padding + border Local y:Double = ( ( i / _columns ) * _paddedHeight ) + padding + border _coordinates.Push( New Rectf( x/w, y/h, (x+cellWidth)/w, (y+cellHeight)/h ) ) Next 'Defaults to frame 0 Frame = 0 End 'Update time is in seconds (Double), not milliseconds Method Update( time:Double ) Local frameLength:Double = ( 1.0 / FrameRate ) / _timeScale time += ( _offset * frameLength ) If _anim If _anim.loop Frame = _anim.frames[ Int( ( time Mod Duration ) / frameLength ) ] Else Frame = _anim.frames[ Int( time / frameLength ) ] End Else Frame = Int( ( time Mod Duration ) /frameLength ) End End 'Adds new animation clips. Method AddAnimationClip( _name:String, _loop:Bool = True, framerate:Int, _frames:Int[] ) local animClip := New AnimationClip animClip.name = _name animClip.loop = _loop animClip.frames = _frames animClip.framerate = framerate _animations.Add( _name, animClip ) End 'Loads Json file Method LoadAnimations( path:String ) Local json := JsonObject.Load( path ) If json Local anims := json.GetObject( "animations" ) If anims For Local a := Eachin anims.ToObject() Local obj := a.Value.ToObject() Local loop := obj[ "loop" ].ToBool() Local rate := obj[ "rate" ].ToNumber() Local frameStack := obj[ "frames" ].ToArray() Local frames:Int[] = New Int[ frameStack.Length ] For Local n := 0 Until frameStack.Length frames[n] = frameStack[n].ToNumber() Next AddAnimationClip( a.Key, loop, rate, frames ) Next End Else Print( "AnimSprite: Warning, json file not found or invalid" ) End End End '**************************************************************************************************************************************' Class AnimationClip 'AnimationClips contain a sequence of frames to be played, its name, framerate and loop state. field name :String 'Animation name field loop := True 'looping can be controlled per animation field frames :Int[] 'Frame list array, contains the sequence in which the frames play Field framerate := 15.0 'frame rate per clip Property FrameCount:Int() Return frames.Length 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 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231

Namespace mojo3d.graphics     Class AnimSprite Extends Sprite   'Event functions Field onLastFrame :Void() Field onFirstFrame :Void() Protected 'Atlas values Field _frame:Int = 0 'The frame currently displayed Field _coordinates:= New Stack<Rect<Double>> 'A stack containing the UV coordinates for each cell   'Animation clip management Field _timeScale := 1.0 'Adjusts playback speed. Can be used to create slow motion effects without changing the framerate. Field _anim :AnimationClip 'The animation clip currently playing Field _animations := New StringMap< AnimationClip > 'List of available animation clips Field _offset :Int 'Current frame offset Field _framerate:Double = 15.0 'Frame rate, if a clip is not provided 'Misc Field _firstFrame := True Field _hasReachedEnd := False Field _hasReachedStart := False '******************************* Public Properties ******************************* Public 'Current frame Property Frame:Int() Return _frame Setter( number:Int ) If number <> _frame _frame = Clamp( number, 0, _coordinates.Length-1 ) TextureRect = _coordinates[ _frame ] If _frame >= LastFrame If Not _hasReachedEnd onLastFrame() _hasReachedEnd = True _hasReachedStart = False End End If _firstFrame onFirstFrame() _firstFrame = False Else If _frame = FirstFrame If Not _hasReachedStart onFirstFrame() _hasReachedStart = True _hasReachedEnd = False End End End End End 'current AnimationClip Property Animation:String() Return _anim.name Setter( name:String ) If _animations[ name ] _anim = _animations[ name ] Else Print( "AnimSprite: animation '" + name + "' Not found!" ) End End 'Map with all animations as values and their names as keys Property AllAnimations:StringMap< AnimationClip >() Return _animations End 'Offsets the current frame, useful when creating multiple copies of the same sprite Property FrameOffset:Int() Return _offset Setter( number:Int ) _offset = number End 'Sets the frame rate. If a clip is in use, that clip's frame rate will be set. Property FrameRate:Double() If _anim Return _anim.framerate Else Return _framerate End Setter( value:Double ) If _anim _anim.framerate = value Else _framerate = value End End 'Duration (in seconds) of the current animation clip. If none, duration of the entire spritesheet is provided. Property Duration:Double() Local _period:Double = ( 1.0 / FrameRate ) * _timeScale If _anim Return _period * _anim.frames.Length Else Return _period * _coordinates.Length End End   'First frame in clip Property FirstFrame:Int() If _anim Return _anim.frames[ 0 ] Else Return 0 End End 'Last frame in clip Property LastFrame:Int() If _anim Return _anim.frames[ _anim.frames.Length-1 ] Else Return _coordinates.Length - 1 End End '******************************* Public Methods ******************************* Method New( path:String, cellWidth:Int, cellHeight:Int, padding:Int = 0, border:Int = 0, flags:TextureFlags = TextureFlags.FilterMipmap ) 'Creates new Sprite with material Super.New( SpriteMaterial.Load( path, flags ) ) Local texture := Cast<SpriteMaterial>( Material ).ColorTexture Local _paddedWidth:Double = cellWidth + ( padding * 2 ) Local _paddedHeight:Double = cellHeight + ( padding * 2 ) Local _rows:Int = ( texture.Height - border - border ) / _paddedHeight Local _columns:Int = ( texture.Width - border - border ) / _paddedWidth 'Generates UV coordinates for each frame Local numFrames := _rows * _columns Local w:Double = texture.Width Local h:Double = texture.Height For Local i:= 0 Until numFrames Local col := i Mod _columns Local x:Double = ( col * _paddedWidth ) + padding + border Local y:Double = ( ( i / _columns ) * _paddedHeight ) + padding + border _coordinates.Push( New Rectf( x/w, y/h, (x+cellWidth)/w, (y+cellHeight)/h ) ) Next 'Defaults to frame 0 Frame = 0 End 'Update time is in seconds (Double), not milliseconds Method Update( time:Double ) Local frameLength:Double = ( 1.0 / FrameRate ) / _timeScale time += ( _offset * frameLength ) If _anim If _anim.loop Frame = _anim.frames[ Int( ( time Mod Duration ) / frameLength ) ] Else Frame = _anim.frames[ Int( time / frameLength ) ] End Else Frame = Int( ( time Mod Duration ) /frameLength ) End End 'Adds new animation clips. Method AddAnimationClip( _name:String, _loop:Bool = True, framerate:Int, _frames:Int[] ) local animClip := New AnimationClip animClip.name = _name animClip.loop = _loop animClip.frames = _frames animClip.framerate = framerate _animations.Add( _name, animClip ) End     'Loads Json file Method LoadAnimations( path:String ) Local json := JsonObject.Load( path ) If json Local anims := json.GetObject( "animations" ) If anims For Local a := Eachin anims.ToObject() Local obj := a.Value.ToObject() Local loop := obj[ "loop" ].ToBool() Local rate := obj[ "rate" ].ToNumber()   Local frameStack := obj[ "frames" ].ToArray() Local frames:Int[] = New Int[ frameStack.Length ] For Local n := 0 Until frameStack.Length frames[n] = frameStack[n].ToNumber() Next   AddAnimationClip( a.Key, loop, rate, frames ) Next End Else Print( "AnimSprite: Warning, json file not found or invalid" ) End End End     '**************************************************************************************************************************************'     Class AnimationClip 'AnimationClips contain a sequence of frames to be played, its name, framerate and loop state. field name :String 'Animation name field loop := True 'looping can be controlled per animation field frames :Int[] 'Frame list array, contains the sequence in which the frames play Field framerate := 15.0 'frame rate per clip   Property FrameCount:Int() Return frames.Length End End

And here’s an example use, with a little animated explosion sprite!
http://monkeycoder.co.nz/wp-content/uploads/2017/08/animSprite-1.zip

Only thing missing now is a way to “flash” a color on the sprite!
Cheers.

[EthernautParticipant]

That’s coming along really well!

[EthernautParticipant]

I’m trying to set the flags after creating the material, like this:

Monkey

material = SpriteMaterial.Load( path ) material.ColorTexture.Flags = TextureFlags.None Local cat := New Sprite( material )

1 2 3

material = SpriteMaterial.Load( path ) material.ColorTexture.Flags = TextureFlags.None Local cat := New Sprite( material )

[EthernautParticipant]

Hi Mark, it’s just an experiment. But I do want the ability to use “traditional” 2D systems in 3D, so I can mix & match depending on the aesthetics I want ( the game “Don’t Starve” is probably a good example of that). Besides, it’s a lot of fun for me since I can play with generating the meshes from scratch, something I’ve never done before!

Also, even if the look is completely 2D, doing it in 3D still has a lot of advantages, like proper occlusion behind objects without breaking things into multiple layers, easily adding “line scrolling” (which, in this case, would be real geometry) and 3D elements to the graphics, even adding real lighting and shadows to seemingly 2d graphics.

Cheers!

[EthernautParticipant]

While I can look at a shader and more or less understand what it does, the way it “connects” to Mojo (how you pass a variable or a texture from within Monkey2 code, for instance) is still very opaque to me… are there are shader tutorials specifically made for Mojo?

(yes I’m a programming noob)

[EthernautParticipant]

It’s good as is, makes more sense to be familiar to programmers who know OpenGL than to artists learning programming. Thanks!

[EthernautParticipant]

Question: naming wise, wouldn’t it be more clear to name the texture arguments “u” and “v”, instead of “s” and “t”, since most CG artists refer to texture coordinates as UV coordinates, or just UVs?

[EthernautParticipant]

Got it. For some reason I didn’t realize you can just add those extra channels in the Vertex class itself.
Actually, how to manipulate UVs would be my next question, so that covers it as well!

Cheers!

[EthernautParticipant]

Attaching zip works…
http://monkeycoder.co.nz/wp-content/uploads/2017/08/3dgrid.monkey2-1.zip

[Author]

Posts