[coconParticipant]

This would be very nice if they are added to the language. Thanks Mark.

My estimation on this, is that in the first step, tuples would be used to model interesting structured arrays – which is the essential part. The next step would be how these tuples can managed in terms of usage and syntax such as initialization, assignments, operations – which are language constructs for ease of use.

My approach on this would be to implement Tuples as library and not as language constructs, because this can introduce competing paradigms. This way you will be able to do tuple things but in a more controlled fashion, the bounds will be clear and they can be accessed through the library.

Languages as Swift or Kotlyn have functional concepts embedded in them so they need tuples in more fundamental levels, The FP paradigm assumes to abstract datatypes from functions and rely on type signatures instead. Tuples are used to signify the type signatures. Where in Monkey2 I don’t think that there is such to go too functional, the program designs can be managed differently, as OO or modular.

Monkey

instead of writing: var a = 1 var b = 2 var c = 3 you can write: var (a, b, c) = (1, 2, 3)

1 2 3 4 5 6 7

instead of writing: var a = 1 var b = 2 var c = 3   you can write: var (a, b, c) = (1, 2, 3)

[coconParticipant]

This file browser looks very useful. If you plan to release anything drop a line here.

[coconParticipant]

This brings me an idea of capturing this turning this touchtest into a nice component.

This is a rough sketch I made of the design to get an idea of where is going, when I will actually start doing mobile I will return to this thread and post an update. For more information I will also examine other engines just to clear things out and avoid any confusion on the API.

Monkey

Class GestureInput Method Update() ' does every sort of update here ' such as how many active touches ' and what state are they are in End Property IsFingerUp:Bool ' any finger up assuming 1 Method IsFingerUp:Bool(amount:Int) ' how many fingers (1 or many) Property IsFingerDown:Bool ' any finger down assuming 1 Method IsFingerDown:Bool(amount:Int) ' how many fingers (1 or many) Field TouchState:Bool[5] ' keeping touch state of all touches Field PrevTouchTime:Double[5] ' keeping the timing of all touches Property OnFingerUp:Void() ' a callback for when finger is up Property OnFingerDown:Void() ' a callback for when finger is down Property IsGesturePinch:Bool() ' pinching Property IsGestureDoubleTap:Bool() ' double tapping Function IsGestureDoubleTapWith(fingers:Int) ' double tapping with how many fingers Field TouchDragSpeed:Vec2f ' how fast is the touch drag Property IsSwipe:Bool() ' if swipe happens Property SwipeSpeed:Vec2f ' how fast was the swipe Property SwipeDirection:String ' converting swipe to angle and return id (U/D/L/R) 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

Class GestureInput   Method Update() ' does every sort of update here ' such as how many active touches ' and what state are they are in End   Property IsFingerUp:Bool ' any finger up assuming 1 Method IsFingerUp:Bool(amount:Int) ' how many fingers (1 or many) Property IsFingerDown:Bool ' any finger down assuming 1 Method IsFingerDown:Bool(amount:Int) ' how many fingers (1 or many)   Field TouchState:Bool[5] ' keeping touch state of all touches Field PrevTouchTime:Double[5] ' keeping the timing of all touches   Property OnFingerUp:Void() ' a callback for when finger is up Property OnFingerDown:Void() ' a callback for when finger is down   Property IsGesturePinch:Bool() ' pinching Property IsGestureDoubleTap:Bool() ' double tapping Function IsGestureDoubleTapWith(fingers:Int) ' double tapping with how many fingers Field TouchDragSpeed:Vec2f ' how fast is the touch drag Property IsSwipe:Bool() ' if swipe happens Property SwipeSpeed:Vec2f ' how fast was the swipe Property SwipeDirection:String ' converting swipe to angle and return id (U/D/L/R)   End

[coconParticipant]

I tried something but I did not get any results, whoever wants to continue the search I will mention the details.

 

I went to mojo3d.graphics.mesh and I added this method (after the TransformVertices):

Monkey

Method TransformVertex(index:Int, position:Vec3f) If index > 0 Or index < _vbuffer.Length Return End Local matrix := New AffineMat4f(position) Local vertices := Cast<Vertex3f Ptr>(_vbuffer.Data) Local cofactor := matrix.m.Cofactor() vertices[index].position=matrix * vertices[index].position vertices[index].normal=(cofactor * vertices[index].normal).Normalize() vertices[index].tangent.XYZ=(cofactor * vertices[index].tangent.XYZ).Normalize() _vbuffer.Invalidate() _dirty|=Dirty.Bounds End

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

Method TransformVertex(index:Int, position:Vec3f) If index > 0 Or index < _vbuffer.Length Return End Local matrix := New AffineMat4f(position) Local vertices := Cast<Vertex3f Ptr>(_vbuffer.Data) Local cofactor := matrix.m.Cofactor() vertices[index].position=matrix * vertices[index].position vertices[index].normal=(cofactor * vertices[index].normal).Normalize() vertices[index].tangent.XYZ=(cofactor * vertices[index].tangent.XYZ).Normalize() _vbuffer.Invalidate() _dirty|=Dirty.Bounds End

 

Then I did a rebuild:

Monkey

mx2cc_windows makemods mojo3d

1	mx2cc_windows makemods mojo3d

 

And then at the “makequad” example I added this on the update loop.

Monkey

Local position := New Vec3f(0, 0, 0) position.X = Sin(Now()) * 100 _model.Mesh.TransformVertex(0, position)

1 2 3

Local position := New Vec3f(0, 0, 0) position.X = Sin(Now()) * 100 _model.Mesh.TransformVertex(0, position)

 

 

Unfortunately I did not get any results, but this is how it should be done. Once I get more familiar with the inner workings of the Mojo3D I will know better, but this is the first time I every looked at it.

[coconParticipant]

From what I think, the “Enabled” field can be controlled by configuration, the trigger is actually where the input is updated.

Interesting bit of code, I will use it as well.

[coconParticipant]

From what I guess (based on similar threads) Mark wants to avoid syntactic sugar additions (unless they are mostly essential) in order to keep the parser thin and lightweight, perhaps I might be mistaken.

If the feature won’t make to the parser API hacks can be used for sure. This concept is based on factory patterns – to encapsulate the logic of creating stuff.

In the example below, the motivation is to pack variables into an array and return the array. The function overloading works like a dream here because it makes  things very simple – a similar approach was used in the Tuples example I made earlier.

In this case if you dislike the API naming, perhaps other more meaningful names can be found, perhaps even extending the std Array class to form a smooth integration.

Monkey

#Import "<std>" Using std.. Class Params Abstract Function Create<T>:T[](item1:T) Return New T[] (item1) End Function Create<T>:T[](item1:T, item2:T) Return New T[] (item1, item2) End Function Create<T>:T[](item1:T, item2:T, item3:T) Return New T[] (item1, item2, item3) End Function Create<T>:T[](item1:T, item2:T, item3:T, item4:T) Return New T[] (item1, item2, item3, item4) End Function Create<T>:T[](item1:T, item2:T, item3:T, item4:T, item5:T) Return New T[] (item1, item2, item3, item4, item5) End End Function RunCommand(tokens:String[]) Local command := "" For Local t := Eachin tokens command += t + " " Next Print(command) End Function Main() ' the default way ' RunCommand(New String[] ("Start", "Level")) ' RunCommand(New String[] ("Create", "Player", "RandomPosition")) ' RunCommand(New String[] ("Create", "Enemy", "LotsOfThem", "100", "Robots")) ' RunCommand(New String[] ("Timer", "Start")) ' RunCommand(New String[] ("Begin", "Countdown", "GameLogic", "3")) ' with params RunCommand(Params.Create("Start", "Level")) RunCommand(Params.Create("Create", "Player", "RandomPosition")) RunCommand(Params.Create("Create", "Enemy", "LotsOfThem", "100", "Robots")) RunCommand(Params.Create("Timer", "Start")) RunCommand(Params.Create("Begin", "Countdown", "GameLogic", "3")) 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

#Import "<std>" Using std..   Class Params Abstract Function Create<T>:T[](item1:T) Return New T[] (item1) End   Function Create<T>:T[](item1:T, item2:T) Return New T[] (item1, item2) End   Function Create<T>:T[](item1:T, item2:T, item3:T) Return New T[] (item1, item2, item3) End   Function Create<T>:T[](item1:T, item2:T, item3:T, item4:T) Return New T[] (item1, item2, item3, item4) End   Function Create<T>:T[](item1:T, item2:T, item3:T, item4:T, item5:T) Return New T[] (item1, item2, item3, item4, item5) End End   Function RunCommand(tokens:String[]) Local command := "" For Local t := Eachin tokens command += t + " " Next Print(command) End   Function Main() ' the default way ' RunCommand(New String[] ("Start", "Level")) ' RunCommand(New String[] ("Create", "Player", "RandomPosition")) ' RunCommand(New String[] ("Create", "Enemy", "LotsOfThem", "100", "Robots")) ' RunCommand(New String[] ("Timer", "Start")) ' RunCommand(New String[] ("Begin", "Countdown", "GameLogic", "3"))   ' with params RunCommand(Params.Create("Start", "Level")) RunCommand(Params.Create("Create", "Player", "RandomPosition")) RunCommand(Params.Create("Create", "Enemy", "LotsOfThem", "100", "Robots")) RunCommand(Params.Create("Timer", "Start")) RunCommand(Params.Create("Begin", "Countdown", "GameLogic", "3")) End

[coconParticipant]

Which g++ version do you have?

For example:

Monkey

g++ -v ... gcc version 5.3.0 (i686-posix-dwarf-rev0, Built by MinGW-W64 project)

1 2 3 4 5

g++ -v   ... gcc version 5.3.0 (i686-posix-dwarf-rev0, Built by MinGW-W64 project)

[coconParticipant]

nerobot said:
Similar feature is right inside of Ted2Go IDE [to clean the buildv directories]
It works if you have a .buildv right inside project folder. So you can’t clean modules inside of ‘monkey2’ project. I can add recursive search if needed.

MojoX Build Cleaner Utility

It seems that once a directory is imported as a Project the command can be triggered from right click context menu in the Project tab. It does the trick however perhaps there could be room for improvement.

a) It seems by GUI design the functionality is related to the right click context menu. This will allow me to import first the directory and then trigger the clean command (I will assume recursive search exists). Perhaps there could be also another alternative way to use the tool in a more project-independent way.

b) Having a recursive function might be useful. For example I might open a massive directory that contains many monkey2 projects.

c) If you are interested to attach this utility in the IDE feel free to do so, if you find it good. Perhaps by throwing an entry in the main menu, it will show this GUI to be used accordingly, alternatively activating the project clean command from the Project tab might still present this GUI but initialized with the appropriate values.

d) A note to myself I might consider later on to add the option to include .project directories or not as well in the deletion process.

No need to respond to this message, do anything you like.

[coconParticipant]

Thanks for the feedback.

If you have any suggestions let me know.

nerobot: I will respond to the Ted2Go thread for more information.

[coconParticipant]

Did you do the the same implementation more or less?

If you have any ideas for improvements let me know.

[coconParticipant]

Can monkey support gestures? I have not tried mobile yet.

[coconParticipant]

Oh, I see! So this assignment statement is really important from what it seems.

[coconParticipant]

Another question is how can I send the struct to a function for updating?

This currently does not work:

Monkey

#Import "<std>" Using std.. Function Main() Local items := New List<Vec2f> For Local n := 0 Until 10 items.Add(New Vec2f(Rnd(1,10), Rnd(1,10))) Next PrintItems(items) ResetItems(Varptr items) PrintItems(items) End Function ResetItems(items:List<Vec2f> Ptr) Local iter := items->All() While Not iter.AtEnd iter.Current.X = 0 iter.Current.Y = 0 iter.Bump() End End Function PrintItems(items:List<Vec2f>) Print("Items") For Local i := Eachin items Print(i) Next 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

#Import  "<std>" Using std.. Function Main() Local items := New List<Vec2f> For Local n := 0 Until 10 items.Add(New Vec2f(Rnd(1,10), Rnd(1,10))) Next PrintItems(items) ResetItems(Varptr items) PrintItems(items) End   Function ResetItems(items:List<Vec2f> Ptr) Local iter := items->All() While Not iter.AtEnd iter.Current.X = 0 iter.Current.Y = 0 iter.Bump() End End   Function PrintItems(items:List<Vec2f>) Print("Items") For Local i := Eachin items Print(i) Next End

[coconParticipant]

I had created this character a few months ago to be used in a game but I decided to change the theme instead. Now for me is unusable but if is needed somewhere else let me know.

Attachments:

1. 

   monkey.png
   

[coconParticipant]

Is this an actual design pattern?

I tried to make a simple example to understand it better.

Monkey

#Import "<std>" Using std.. Class Message Property Content:String() Return _content End Protected Field _content:String End Class MessageChanger Extends Message Abstract Function Set(message:Message, content:String) message._content = content End End Function Main() Local m := New Message MessageChanger.Set(m, "Hello World") Print(m.Content) End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

#Import  "<std>" Using std..   Class Message Property Content:String() Return _content End Protected Field _content:String End   Class MessageChanger Extends Message Abstract Function Set(message:Message, content:String) message._content = content End End   Function Main() Local m := New Message MessageChanger.Set(m, "Hello World") Print(m.Content) End

I had this question for quite some time, how to control the access of class contents by certain restrictions, this seems to do the trick nicely. However the only bummer -as I think of it- is that the Changer class needs to inherit from the actual object, I hope that there won’t be any problem with creating such inheritance.

[Author]

Posts