[coconParticipant]

I did some updates to the original post to include directions for MSVC2017, currently I have switched to MSVC and it seems good.

[coconParticipant]

Yeah, as nerobot says, by going to this directory: monkey2\scripts you can see various bat-sh files that use such commands, useful as examples.

For example a typical console application would be “rebuildmx2cc.bat”. A gui application that uses the mojox module would be “rebuildted2.bat”.

[coconParticipant]

Perhaps following the latest trends the astronaut would ride a roadster, instead.

[coconParticipant]

Doing another test to see how it looks in a desktop environment.

Attachments:

1. 

   previz-mac.png
   

[coconParticipant]

This WebAssembly thing was fun.

This time I took another approach to the design. It has stuck to me for a couple of days now, the power of abstraction. Instead of adding more details to the design the point is to actually take things out.  For this reason I took out some details. Now from my point of view the logo seems more “grounded” or “serious”, perhaps the eyes previously made the monkey in the logo look too cute,  but now the purpose is to become more pumped and badass. Another reason for the abstraction is where you can consider the Python language, where the logo has the resemblance to the python animal but not presenting it literally in the full form. Actually from what I remember python meant to be a reference to Monty Python. Anyways…

 

There are various variations, logo, letters, transparent_logo+letters. Colors come into both variations, pinkish and blue. I am not against pinkish theme but I could consider adding the blue version for the sake of comparison.

 

Also I had some thoughts, about the case of  trying to see the plain “mx” case, how it looks and how it rolls. The mindset for this is that if you can consider that many languages are named after for letters. Since mx has a historic sense it makes a good alternative. Another consideration is where the PHP language started as something like “Personal Homepage Preprocessor” but since it has evolved too far since it’s creation, now the PHP stands on it’s own as letters an abstraction. But anyway this is just a test.

These images are tests, done in a great hurry. I can create high resolution versions if needed, though is easy to reproduce. The font I use is Ubuntu Mono since the licence good.

Attachments:

1. 

   logo-tests.png
   

[coconParticipant]

Great demo!

One thing I noticed was by switching a tab in this forum for about 30 seconds and then activating the plane tab again, the game was spinning like crazy and the plane went into the “stratosphere”. Anyone else noticed that?

I use chrome on windows.

 

 

[coconParticipant]

Downloaded and tested it, it surely looks interesting , some notes I have:

• When I tried to move towards the car (level starts and I move forward), I got stuck on the hill while going down. Perhaps it would help to allow the player move into more steep slopes. Also perhaps allowing little jumping might be good to avoid getting stuck.
• As I was moving, the camera wanted to slightly rotate on it’s own. I have no gamepad attached though, in case it was a calibration issue.
• Perhaps having an .ini configuration file might help, I would set the resolution I want that way (1920X1050), the mouse speed (I have low DPI mouse and I would set it to faster).
• Perhaps a cinematic in the beginning would help understand what is going on. That you are an astronaut, and your ship crashed, and now you have to survive. A clever idea to avoid animations is to have simple model placements according to frame time, that would look like 3D comic strips.

I hope this feedback would give you more ideas you can use 

[coconParticipant]

These are tremendously important components, thanks for posting.

Perhaps we could drop various ideas in case there is interest into making a full featured profiling framework, if it’s really useful and needed by the people who use Monkey. One such idea would be to attach some sort of console input and logging mechanism which can be useful when debugging the application at runtime. http://monkeycoder.co.nz/forums/topic/mojox-gui-components/ .

[coconParticipant]

Since I wanted to try writing a console based application and I could not figure out the input streams I did this.

Monkey

#Import "<std>" #Import "<mojo>" #Import "<mojox>" Using std.. Using mojo.. Using mojox.. Class Console Abstract Public Function Create() Instance = New ConsoleClass End Global ReadLineCallback:Void(input:String) Function Write(text:String) Instance.Write(text) End Function WriteLine(text:String) Instance.WriteLine(text) End Private Global Instance : ConsoleClass Class ConsoleClass Extends Window Private Field textInput : TextField Field textOutput : TextView Public Method ClearOutput() textOutput.Clear() End Method ClearInput() textInput.Clear() End Method Write(text:String) textOutput.AppendText(text) End Method WriteLine(text:String) textOutput.AppendText(text + "~n") End Method New() Super.New("Monkey2 Console", 640, 480, WindowFlags.Resizable) textInput = New TextField textOutput = New TextView textInput.Entered = Lambda() If Console.ReadLineCallback <> Null Console.ReadLineCallback(textInput.Text) textInput.Clear() End End Local label := New Label label.Text = "Input: " label.AddView(textInput) Local dockingView := New DockingView dockingView.AddView(label , "top", "10%") dockingView.AddView(textOutput, "bottom", "90%") ContentView = dockingView End End End Function GetCommandResult:String(command:String) Select command Case "help" Local output := "" output += "Available Commands~n" output += "~qhelp~q, ~qhello~q, ~qquick math~q" Return output Case "hello" Return "Hello There" Case "quick math" Return "two plus two is four, minus one is three" End Return Null End Function SetupCommands() Console.WriteLine("Type ~qhelp~q for more information.") Console.ReadLineCallback = Lambda(input:String) Local result := GetCommandResult(input) If result = Null Then result = "Command not identified." Console.WriteLine(result) End End Function Main() New AppInstance Console.Create() SetupCommands() 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

#Import "<std>" #Import "<mojo>" #Import "<mojox>"   Using std.. Using mojo.. Using mojox..   Class Console Abstract Public Function Create() Instance = New ConsoleClass End Global ReadLineCallback:Void(input:String) Function Write(text:String) Instance.Write(text) End Function WriteLine(text:String) Instance.WriteLine(text) End Private Global Instance : ConsoleClass Class ConsoleClass Extends Window Private Field textInput  : TextField Field textOutput : TextView Public Method ClearOutput() textOutput.Clear() End Method ClearInput() textInput.Clear() End Method Write(text:String) textOutput.AppendText(text) End Method WriteLine(text:String) textOutput.AppendText(text + "~n") End Method New() Super.New("Monkey2 Console", 640, 480, WindowFlags.Resizable) textInput  = New TextField textOutput = New TextView textInput.Entered = Lambda() If Console.ReadLineCallback <> Null Console.ReadLineCallback(textInput.Text) textInput.Clear() End End Local label := New Label label.Text = "Input: " label.AddView(textInput) Local dockingView := New DockingView dockingView.AddView(label , "top", "10%") dockingView.AddView(textOutput, "bottom", "90%") ContentView = dockingView End End End   Function GetCommandResult:String(command:String) Select command Case "help" Local output := "" output += "Available Commands~n" output += "~qhelp~q, ~qhello~q, ~qquick math~q" Return output Case "hello" Return "Hello There" Case "quick math" Return "two plus two is four, minus one is three" End Return Null End   Function SetupCommands() Console.WriteLine("Type ~qhelp~q for more information.") Console.ReadLineCallback = Lambda(input:String) Local result := GetCommandResult(input) If result = Null Then result = "Command not identified." Console.WriteLine(result) End End   Function Main() New AppInstance Console.Create() SetupCommands() App.Run() End

[coconParticipant]

Yeah in some sense Blitz3D was “interpreted” language since the code turned into objects that run in the C++ engine. Blitzmax on the other hand was converted to assembly (fasm) so it would be considerably more optimized code rather than other high level source (such as C++). Monkey2 on the other hand is compiled as C++ source code.

However is MSVC considerably faster than gcc? I havent tried it yet though but I am interested too in trying it.

[coconParticipant]

The console can easily toast the competition in terms of practicalilty, I am impressed so far.

[coconParticipant]

This looks great.

[coconParticipant]

Now I am throwing away some stuff and cleaning up my drives, this code I had written a year ago (there was no Ted2Go back then ). It does not mean much but anyways… If for some reason there is something useful it would not mind to grab it. The implementation does not match Ted2Go but with a few porting it will work. There were about a dozen of features but all of them were added to mojox or Ted2Go

Line commenting is interesting since it uses toggling, similar behavior to Sublime.

Monkey

Class PluginTextView_LineComment Extends PluginTextView Public Property Name:String() Override Return "Toggle comment for lines." End Property Shortcut:String() Override Return "Alt + C" End Protected Method New() AddPlugin(Self) End Method OnFilterKeyEvent(event:KeyEvent, textView:TextView) Override If IsModifierPressed(event.Modifiers, Modifier.Alt) If IsEventKeyDown(event) And event.Key = Key.C ' the status of the first line will define the operation that is going to be used. ' when it is to add comment, it will always be done (characters will be appended). ' when it is to remove comment, it will be done when: a) comment character is found, b) is in the same identation level Local operation := "None" Local indexComment := 0 Local indexCommentStart := 0 Local lineStart := textView.Document.FindLine(Min(textView.Cursor, textView.Anchor)) Local lineEnd := textView.Document.FindLine(Max(textView.Cursor, textView.Anchor)) For Local i := lineStart To lineEnd indexComment = SearchCommentCharacterIndex(textView.Document.GetLine(i)) If operation = "None" If indexComment = -1 operation = "Add" Else operation = "Remove" indexCommentStart = indexComment End If operation = "Add" AddComment(textView, i) Elseif operation = "Remove" And (indexComment <> -1) And (indexCommentStart = indexComment) RemoveComment(textView, i, indexComment) End Next event.Eat() End End End Private Method SearchCommentCharacterIndex:Int(line:String) For Local i := 0 Until line.Length Local s := String.FromChar(line[i]) If s = "'" Return i If TextViewFeat.IsCharacterAlphaNumeric(s) Return -1 Next Return -1 End Method AddComment(textView:TextView, line:Int) Local cursorCurrent := textView.Cursor Local cursorStartLine := TextViewFeat.LineStartIndex(line) textView.SelectText(cursorStartLine, cursorStartLine) textView.ReplaceText("'") ' characters shift one position to the right textView.SelectText(cursorCurrent + 1, cursorCurrent + 1) End Method RemoveComment(textView:TextView, line:Int, index:Int) Local cursorCurrent := textView.Cursor Local cursorStartLine := TextViewFeat.LineStartIndex(line) Local characterIndex := cursorStartLine + index textView.SelectText(characterIndex, characterIndex + 1) textView.ReplaceText("") ' characters shift one position to the left textView.SelectText(cursorCurrent - 1, cursorCurrent - 1) End Global _instance := New PluginTextView_LineComment 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

Class PluginTextView_LineComment Extends PluginTextView Public Property Name:String() Override Return "Toggle comment for lines." End Property Shortcut:String() Override Return "Alt + C" End Protected Method New() AddPlugin(Self) End Method OnFilterKeyEvent(event:KeyEvent, textView:TextView) Override If IsModifierPressed(event.Modifiers, Modifier.Alt) If IsEventKeyDown(event) And event.Key = Key.C ' the status of the first line will define the operation that is going to be used. ' when it is to add comment, it will always be done (characters will be appended). ' when it is to remove comment, it will be done when: a) comment character is found, b) is in the same identation level   Local operation := "None" Local indexComment := 0 Local indexCommentStart := 0 Local lineStart := textView.Document.FindLine(Min(textView.Cursor, textView.Anchor)) Local lineEnd := textView.Document.FindLine(Max(textView.Cursor, textView.Anchor))   For Local i := lineStart To lineEnd indexComment = SearchCommentCharacterIndex(textView.Document.GetLine(i))   If operation = "None" If indexComment = -1 operation = "Add" Else operation = "Remove" indexCommentStart = indexComment End   If operation = "Add" AddComment(textView, i) Elseif operation = "Remove" And (indexComment <> -1) And (indexCommentStart = indexComment) RemoveComment(textView, i, indexComment) End Next   event.Eat() End End End Private Method SearchCommentCharacterIndex:Int(line:String) For Local i := 0 Until line.Length Local s := String.FromChar(line[i]) If s = "'" Return i If TextViewFeat.IsCharacterAlphaNumeric(s) Return -1 Next Return -1 End Method AddComment(textView:TextView, line:Int) Local cursorCurrent := textView.Cursor Local cursorStartLine := TextViewFeat.LineStartIndex(line) textView.SelectText(cursorStartLine, cursorStartLine) textView.ReplaceText("'") ' characters shift one position to the right textView.SelectText(cursorCurrent + 1, cursorCurrent + 1) End Method RemoveComment(textView:TextView, line:Int, index:Int) Local cursorCurrent := textView.Cursor Local cursorStartLine := TextViewFeat.LineStartIndex(line) Local characterIndex := cursorStartLine + index textView.SelectText(characterIndex, characterIndex + 1) textView.ReplaceText("") ' characters shift one position to the left textView.SelectText(cursorCurrent - 1, cursorCurrent - 1) End Global _instance := New PluginTextView_LineComment End

Move lines up and down is a shortcut for cut and paste.

Monkey

Class PluginTextView_MoveLine Extends PluginTextView Public Property Name:String() Override Return "Move a line or a selection of lines." End Property Shortcut:String() Override Return "Alt + Up/Down Arrow" End Protected Method New() AddPlugin(Self) End Method OnFilterKeyEvent(event:KeyEvent, textView:TextView) Override If IsModifierPressed(event.Modifiers, Modifier.Alt) If event.Type = EventType.KeyDown If event.Key = Key.Up MoveLineVertical(textView, -1) event.Eat() Return End If event.Key = Key.Down MoveLineVertical(textView, 1) event.Eat() Return End If event.Key = Key.Enter Print("Cursor: " + textView.Cursor) event.Eat() Return End End End End Private Method Column:Int(index:Int) Return index - TextViewFeat.TextViewInstance.Document.StartOfLine(TextViewFeat.TextViewInstance.Document.FindLine(index)) End Method MoveLineVertical(textView:TextView, delta:Int) Local textViewAnchor := Min(textView.Anchor, textView.Cursor) Local textViewCursor := Max(textView.Anchor, textView.Cursor) ' get lines Local blockLineStart := textView.Document.FindLine(textViewAnchor) Local blockLineEnd := textView.Document.FindLine(textViewCursor) ' store cursor and anchor column index Local storeAnchorColumn := Self.Column(textViewAnchor) Local storeCursorColumn := Self.Column(textViewCursor) ' recalculate line range If delta = 0 Then Return If delta < 0 Then blockLineStart -= 1 If delta > 0 Then blockLineEnd += 1 ' validate line range If blockLineStart < 0 Then Return If blockLineStart >= textView.Document.NumLines Then Return ' get the text range Local blockLines := New StringList For Local line := blockLineStart To blockLineEnd blockLines.Add(textView.Document.GetLine(line)) Next ' perform the line swapping If delta < 0 ' when moving up first cell becomes the last Local a := blockLines.RemoveFirst() blockLines.AddLast(a) Else ' when moving down last cell becomes the first Local z := blockLines.RemoveLast() blockLines.AddFirst(z) End ' replace the text Local blockText := blockLines.Join("~n") textView.SelectText(TextViewFeat.LineStartIndex(blockLineStart), TextViewFeat.LineEndIndex(blockLineEnd)) textView.ReplaceText(blockText) ' restore cursor position Local getPosition := Lambda:Int(textView:TextView, line:Int, column:Int) Return textView.Document.StartOfLine(line) + column End If textViewAnchor = textViewCursor ' no text is selected Local newCursor := 0 If delta < 0 newCursor = getPosition(textView, blockLineStart, storeCursorColumn) Else newCursor = getPosition(textView, blockLineStart + 1, storeCursorColumn) End textView.SelectText(newCursor, newCursor) Else ' text is selected Local newAnchor := 0 Local newCursor := 0 If delta < 0 newAnchor = getPosition(textView, blockLineStart, storeAnchorColumn) newCursor = getPosition(textView, blockLineEnd - 1, storeCursorColumn) Else newAnchor = getPosition(textView, blockLineStart + 1, storeAnchorColumn) newCursor = getPosition(textView, blockLineEnd, storeCursorColumn) End textView.SelectText(newAnchor, newCursor) End End Method MoveLineHorizontal(textView:TextView, direction:Int) End Global _instance := New PluginTextView_MoveLine 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

Class PluginTextView_MoveLine Extends PluginTextView Public Property Name:String() Override Return "Move a line or a selection of lines." End Property Shortcut:String() Override Return "Alt + Up/Down Arrow" End Protected Method New() AddPlugin(Self) End Method OnFilterKeyEvent(event:KeyEvent, textView:TextView) Override If IsModifierPressed(event.Modifiers, Modifier.Alt) If event.Type = EventType.KeyDown If event.Key = Key.Up MoveLineVertical(textView, -1) event.Eat() Return End If event.Key = Key.Down MoveLineVertical(textView, 1) event.Eat() Return End   If event.Key = Key.Enter Print("Cursor: " + textView.Cursor) event.Eat() Return End End End End Private   Method Column:Int(index:Int) Return index - TextViewFeat.TextViewInstance.Document.StartOfLine(TextViewFeat.TextViewInstance.Document.FindLine(index)) End   Method MoveLineVertical(textView:TextView, delta:Int) Local textViewAnchor := Min(textView.Anchor, textView.Cursor) Local textViewCursor := Max(textView.Anchor, textView.Cursor)   ' get lines Local blockLineStart := textView.Document.FindLine(textViewAnchor) Local blockLineEnd := textView.Document.FindLine(textViewCursor) ' store cursor and anchor column index Local storeAnchorColumn := Self.Column(textViewAnchor) Local storeCursorColumn := Self.Column(textViewCursor) ' recalculate line range If delta = 0 Then Return If delta < 0 Then blockLineStart -= 1 If delta > 0 Then blockLineEnd += 1   ' validate line range If blockLineStart < 0 Then Return If blockLineStart >= textView.Document.NumLines Then Return   ' get the text range Local blockLines := New StringList For Local line := blockLineStart To blockLineEnd blockLines.Add(textView.Document.GetLine(line)) Next ' perform the line swapping If delta < 0 ' when moving up first cell becomes the last Local a := blockLines.RemoveFirst() blockLines.AddLast(a) Else ' when moving down last cell becomes the first Local z := blockLines.RemoveLast() blockLines.AddFirst(z) End   ' replace the text Local blockText := blockLines.Join("~n") textView.SelectText(TextViewFeat.LineStartIndex(blockLineStart), TextViewFeat.LineEndIndex(blockLineEnd)) textView.ReplaceText(blockText) ' restore cursor position Local getPosition := Lambda:Int(textView:TextView, line:Int, column:Int) Return textView.Document.StartOfLine(line) + column End If textViewAnchor = textViewCursor ' no text is selected Local newCursor := 0 If delta < 0 newCursor = getPosition(textView, blockLineStart, storeCursorColumn) Else newCursor = getPosition(textView, blockLineStart + 1, storeCursorColumn) End textView.SelectText(newCursor, newCursor) Else ' text is selected Local newAnchor := 0 Local newCursor := 0 If delta < 0 newAnchor = getPosition(textView, blockLineStart, storeAnchorColumn) newCursor = getPosition(textView, blockLineEnd - 1, storeCursorColumn) Else newAnchor = getPosition(textView, blockLineStart + 1, storeAnchorColumn) newCursor = getPosition(textView, blockLineEnd, storeCursorColumn) End textView.SelectText(newAnchor, newCursor) End End   Method MoveLineHorizontal(textView:TextView, direction:Int) End Global _instance := New PluginTextView_MoveLine End

[coconParticipant]

Currying and other higher order functions…

[coconParticipant]

It looks awesome, lots of inspiration for code hits me with this weather.

[Author]

Posts