[TomToadParticipant]

I see the problem now.  When the std.graphics.color module is compiled, an overloaded bbCompare() function is created.  In this function, the fields are compared 1×1 and result is returned.  This is what the If/Else/End statement is using to compare the two parameters.  If I overload the = operator, a function called m_eq() is created and this is used instead of bbCompare.

Monkey2

Monkey

If currentColor = Color.White Print "Current color is white" Else Print "Current color is not white" End If

1 2 3 4 5

If currentColor = Color.White Print "Current color is white" Else Print "Current color is not white" End If

Compiles to C++

C++

if((bbCompare(l_currentColor,g_std_graphics_Color_White)==0)){ bb_print(bbString(L"Current color is white",22)); }else{ bb_print(bbString(L"Current color is not white",26)); }

1 2 3 4 5

if((bbCompare(l_currentColor,g_std_graphics_Color_White)==0)){     bb_print(bbString(L"Current color is white",22));   }else{     bb_print(bbString(L"Current color is not white",26));   }

Now the Select/Case statement is different.  Instead of using bbCompare(), it is using C++’s built in == operator.  Since Monkey2 has no way to overload C++’s == operator, it creates the error.

monkey2

Monkey

Select currentColor Case Color.White Print "Select/Case Color is white" Case Color.Red Print "Select/Case Color is Red" Default Print "Select/Case Color is neither red nor white" End select

1 2 3 4 5 6 7 8

Select currentColor Case Color.White Print "Select/Case Color is white" Case Color.Red Print "Select/Case Color is Red" Default Print "Select/Case Color is neither red nor white" End select

Compiles to C++

C++

if(l_currentColor==g_std_graphics_Color_White){ bb_print(bbString(L"Select/Case Color is white",26)); }else if(l_currentColor==g_std_graphics_Color_Red){ bb_print(bbString(L"Select/Case Color is Red",24)); }else{ bb_print(bbString(L"Select/Case Color is neither red nor white",42)); }

1 2 3 4 5 6 7

if(l_currentColor==g_std_graphics_Color_White){     bb_print(bbString(L"Select/Case Color is white",26));   }else if(l_currentColor==g_std_graphics_Color_Red){     bb_print(bbString(L"Select/Case Color is Red",24));   }else{     bb_print(bbString(L"Select/Case Color is neither red nor white",42));   }

So the solution would be either 1) Have Select/Case use bbCompare instead of == or 2) be able to override == at the C++ level.

[TomToadParticipant]

Your example has nothing to do with my problem.  [b]If currentColor = Color.White [/b] works just fine.  Succeeds when currentColor is white, fails on any other color.  The problem is not with If/Then, but with Select/Case, which won’t even compile.  Your example compiles fine, even though you don’t get the expected results.

Also, floats are comparable.  The reason why your test fails is due to the tiny imprecision caused by storing floats.  Due to that imprecision, they are rarely exactly equal. Instead, you should subtract the two and compare against a tolerance.  If c-(a-b) < .001 gives the expected results in your example.

[TomToadParticipant]

You could always keep a copy of the image in a pixmap, then you can alter the pixmap with pixmap.SetPixel() when you need to and use New Image(pixmap) to transfer the altered pixmap to an image for rendering

Monkey

Namespace myapp #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Field pixmap:Pixmap = New Pixmap(64,64) Field image:Image Field currentColor:Color = Color.White Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null ) Super.New( title,width,height,flags ) 'let's fill the pixmap with a red circle For Local x:Int = -32 To 31 For Local y:Int = -32 To 31 If Sqrt(x*x+y*y) < 32 pixmap.SetPixel(x+32,y+32,Color.Red) Else pixmap.SetPixel(x+32,y+32,Color.Black) End If Next Next 'Now insert white square For Local x:Int = 24 To 40 For Local y:Int = 24 To 40 pixmap.SetPixel(x,y,Color.White) Next Next 'now load the pixmap into an image image = New Image(pixmap) End Method OnRender( canvas:Canvas ) Override App.RequestRender() 'if space key is pressed, change the color to the next one If Keyboard.KeyPressed(Key.Space) 'get the next color Select currentColor.ToARGB() Case Color.White.ToARGB() currentColor = Color.Blue Case Color.Blue.ToARGB() currentColor = Color.Green Case Color.Green.ToARGB() currentColor = Color.Yellow Case Color.Yellow.ToARGB() currentColor = Color.White End Select 'draw a square in the pixmap For Local x:Int = 24 To 40 For Local y:Int = 24 To 40 pixmap.SetPixel(x,y,currentColor) Next Next 'transfer the pixmap to image image = New Image(pixmap) End If 'draw the image canvas.DrawImage(image,100,100) 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 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

Namespace myapp   #Import "<std>" #Import "<mojo>"   Using std.. Using mojo..   Class MyWindow Extends Window Field pixmap:Pixmap = New Pixmap(64,64) Field image:Image Field currentColor:Color = Color.White   Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null )   Super.New( title,width,height,flags ) 'let's fill the pixmap with a red circle For Local x:Int = -32 To 31 For Local y:Int = -32 To 31 If Sqrt(x*x+y*y) < 32 pixmap.SetPixel(x+32,y+32,Color.Red) Else pixmap.SetPixel(x+32,y+32,Color.Black) End If Next Next 'Now insert white square For Local x:Int = 24 To 40 For Local y:Int = 24 To 40 pixmap.SetPixel(x,y,Color.White) Next Next 'now load the pixmap into an image image = New Image(pixmap) End   Method OnRender( canvas:Canvas ) Override App.RequestRender() 'if space key is pressed, change the color to the next one If Keyboard.KeyPressed(Key.Space) 'get the next color Select currentColor.ToARGB() Case Color.White.ToARGB() currentColor = Color.Blue Case Color.Blue.ToARGB() currentColor = Color.Green Case Color.Green.ToARGB() currentColor = Color.Yellow Case Color.Yellow.ToARGB() currentColor = Color.White End Select 'draw a square in the pixmap For Local x:Int = 24 To 40 For Local y:Int = 24 To 40 pixmap.SetPixel(x,y,currentColor) Next Next 'transfer the pixmap to image image = New Image(pixmap) End If 'draw the image canvas.DrawImage(image,100,100) End End   Function Main()   New AppInstance New MyWindow App.Run() End

[TomToadParticipant]

Maybe try out the different themes (window->themes). Going through them, I find a couple blurry, just assumed it is my bad eyes trying to focus on the different color combinations. Maybe it is just certain fonts can’t scale properly at certain resolutions.

[TomToadParticipant]

Took a look at a simple json output from Tiled.

The “layers” array is actually an array of objects. Each object contains info about each map layer. The “data” array within the layer object contains the actual map data.

I wrote a little sample here that reads the data, stores it in an array, and prints the info. Not complete, but hopefully will help.

Hmm, When I post the code here, I get a “Forbidden” error. well, you can grab the source here. https://drive.google.com/open?id=0B1zQ5dfVU3jbZGtjZmtCckx3SWM

[TomToadParticipant]

Not a bug. Using a leading 0 is how you type numbers in octal with Monkey2, just like typing a leading $ for hexadecimal. I guess you will need to use leading spaces instead

Monkey

Function Main() Local a:Int = 31 Local b:Int = $1F 'hex for 31 Local c:Int = 037 'oct for 31 Print a + " " + b + " " + c End

1 2 3 4 5 6 7 8 9

Function Main() Local a:Int = 31 Local b:Int = $1F 'hex for 31 Local c:Int = 037 'oct for 31     Print a + " " + b + " " + c End

[TomToadParticipant]

This example creates a vector class in which the vector can be stored as direction/magnitude, or as x/y. Internally, it is stored the same way so uses properties to convert between the two. This is handy as it allows you to change implementation behind the scenes without needing to change the interface as well.

Monkey

Namespace myapp #Import "<std>" Using std.. Class Vector Private Field _x:Double Field _y:Double Public Property x:Double() Return _x Setter (n:Double) _x = n End Property y:Double() Return _y Setter (n:Double) _y = n end Property direction:Double() Return ATan2(_y,_x) Setter(n:Double) Local magnitude:Double = Sqrt(_x*_x+_y*_y) _x = Cos(n) * magnitude _y = Sin(n) * magnitude End Property magnitude:Double() Return Sqrt(_x*_x+_y*_y) Setter(n:Double) Local direction:Double = ATan2(_y,_x) _x = Cos(direction)*n _y = Sin(direction)*n End Method normalize() Self.magnitude = 1 End method End Function Main() Local vector := New Vector vector.x = 10 vector.y = 10 Print "direction = "+vector.direction Print "magnitude = "+vector.magnitude vector.normalize() Print "normalized direction = "+vector.direction Print "normalized magnitude = "+vector.magnitude Print "normalized x = "+vector.x Print "normlaized y = "+vector.y 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

Namespace myapp   #Import "<std>"   Using std..   Class Vector Private Field _x:Double Field _y:Double Public Property x:Double() Return _x Setter (n:Double) _x = n End Property y:Double() Return _y Setter (n:Double) _y = n end Property direction:Double() Return ATan2(_y,_x) Setter(n:Double) Local magnitude:Double = Sqrt(_x*_x+_y*_y) _x = Cos(n) * magnitude _y = Sin(n) * magnitude End Property magnitude:Double() Return Sqrt(_x*_x+_y*_y) Setter(n:Double) Local direction:Double = ATan2(_y,_x) _x = Cos(direction)*n _y = Sin(direction)*n End Method normalize() Self.magnitude = 1 End method End   Function Main()   Local vector := New Vector   vector.x = 10 vector.y = 10 Print "direction = "+vector.direction Print "magnitude = "+vector.magnitude vector.normalize() Print "normalized direction = "+vector.direction Print "normalized magnitude = "+vector.magnitude Print "normalized x = "+vector.x Print "normlaized y = "+vector.y End

[TomToadParticipant]

An Enum will compile to an opaque enum class in the c++ source which uses a signed int for its base. For some reason, M2’s Enum will not accept negative values. I think this might be a parser bug as I can do this

Monkey

#Import"<std>" Using std.. Enum Direction up = 0-10, down, left, right, end Function Main() Local direction := Direction.down If direction = Direction.up Print "You are moving up" Else Print "You are not moving up" Endif End

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

#Import"<std>"   Using std..   Enum Direction up = 0-10, down, left, right, end   Function Main() Local direction := Direction.down If direction = Direction.up Print "You are moving up" Else Print "You are not moving up" Endif End

And it works as expected. (much easier to understand than the $FFFFFFFF hack I posted earlier)

[TomToadParticipant]

Don’t know if this is the best way, but it works. MyImage is the image you wish to save, and savefile is the name of the png file to be saved.

Monkey

(New Canvas(MyImage)).CopyPixmap(New Recti(0,0,MyImage.Width,MyImage.Height)).Save(savefile)

1	(New Canvas(MyImage)).CopyPixmap(New Recti(0,0,MyImage.Width,MyImage.Height)).Save(savefile)

[TomToadParticipant]

Two dimensional arrays cannot currently be resized. You need to roll your own function to do so. Here is an example function that works.

Monkey

Namespace myapp #Import "<std>" Using std.. Function resize2<T>:T[,](source:T[,],x:Int,y:Int) Local dest := New T[x,y] For Local i:Int = 0 Until Min(source.GetSize(0),dest.GetSize(0)) For Local j:Int = 0 Until Min(source.GetSize(1),dest.GetSize(1)) dest[i,j] = source[i,j] Next Next Return dest end Function Main() 'create array and fill with random data Local test:String[,] = New String[5,5] For Local x:Int = 0 To 4 For Local y:Int = 0 To 4 test[x,y] = String.FromChar(Rnd(26)+65) Next next printArray(test) 'increase array size test = resize2(test,10,10) printArray(test) 'decrease array size test = resize2(test,7,7) printArray(test) 'increase one dimention, decrease another test = resize2(test,10,3) printArray(test) End Function printArray(source:String[,]) Print "-----------------------------------------~n" For Local y:Int = 0 Until source.GetSize(1) Local s:String = "" For Local x:Int = 0 Until source.GetSize(0) If Not source[x,y] s += "# " Else s += source[x,y] + " " Endif Next Print s Next Print "~n----------------------------------------" 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

Namespace myapp   #Import "<std>"   Using std..   Function resize2<T>:T[,](source:T[,],x:Int,y:Int) Local dest := New T[x,y] For Local i:Int = 0 Until Min(source.GetSize(0),dest.GetSize(0)) For Local j:Int = 0 Until Min(source.GetSize(1),dest.GetSize(1)) dest[i,j] = source[i,j] Next Next Return dest end   Function Main() 'create array and fill with random data Local test:String[,] = New String[5,5] For Local x:Int = 0 To 4 For Local y:Int = 0 To 4 test[x,y] = String.FromChar(Rnd(26)+65) Next next     printArray(test) 'increase array size test = resize2(test,10,10) printArray(test) 'decrease array size test = resize2(test,7,7) printArray(test) 'increase one dimention, decrease another test = resize2(test,10,3) printArray(test) End   Function printArray(source:String[,]) Print "-----------------------------------------~n" For Local y:Int = 0 Until source.GetSize(1) Local s:String = "" For Local x:Int = 0 Until source.GetSize(0) If Not source[x,y] s += "# " Else s += source[x,y] + " " Endif Next Print s Next Print "~n----------------------------------------" end

[TomToadParticipant]

You could cheat a bit and use twos compliment

Monkey

[crayon-5cb9d04b7604b190385103 inline="true" ]Enum Flag MyNum = $FFFFFFFF End

1 2 3

[crayon-5cb9d04b7604b190385103 inline="true" ]Enum Flag     MyNum = $FFFFFFFF End

[/crayon]

is equivalent to C++

Monkey

[crayon-5cb9d04b76050618506230 inline="true" ]enum class Flag { MyNum = -1 };

1 2 3 4

[crayon-5cb9d04b76050618506230 inline="true" ]enum class Flag {     MyNum = -1 };

[/crayon]

To find the twos compliment of a signed Int, you can use Print Hex(UInt(-1)) in Monkey2

[TomToadParticipant]

I never understood the value in dynamic types.  Seems that it is unproductive to save a few seconds of typing int, float, etc.. when the result is hours of debugging headaches when you type myNum = 3 instead of myNum = 3.0

As for null objects, it makes sense that you should create an instance with new controls before calling fortifyunit() method.  Without an instance, there is no fortifyunit() to call, only a definition.

[TomToadParticipant]

I have the same problem.  Open Ted2go, start a new document, type Self. and just as soon as you hit the ., the IDE closes.  If you turn off autocomplete, the problem goes away (but you loose autocomplete)

 

Edit: Just submitted an issue with the Ted2Go github site.

[TomToadParticipant]

I get 11598408 for both on Windows 10.  I think it has to do with the Float to Int conversion done on the .1. If you use 0.1 instead or define y as a float, then you get correct results.

[TomToadParticipant]

A class for swapping big/little endian from/to native format.  Just create an instance of the class and call endian.swapEndian(n:int, original:Int) where n is the number to convert and original is the byte order you are converting from/to.  Nice thing is, the same method is used in each case. pass the int you wish to save followed by the ByteOrder value you are saving to, or pass the value you just read followed by the stored  ByteOrder .

Monkey

#Import "<std>" Using std.. Class Endian Field endian:Int Method New() Local a:Int = $AABBCCDD If UByte Ptr(Varptr a)[0] = $AA endian = ByteOrder.BigEndian Else endian = ByteOrder.LittleEndian End End Method swapEndian:Int(n:Int, original:Int) If endian = original Then Return n Return ((n & $FF000000) Shr 24) | ((n & $FF0000) Shr 8) | ((n & $FF00) Shl 8) | ((n & $FF) Shl 24) End End Function Main() Local endian := New Endian Local a:Int = $AABBCCDD 'Load a with a value Print "Value of a = "+Hex(a) Local be:String = Hex(endian.swapEndian(a,ByteOrder.BigEndian)) 'save a as big endian Local le:String = Hex(endian.swapEndian(a,ByteOrder.LittleEndian)) 'save a as little endian Print "be = "+be+"~nle = "+le 'print the contents of be and le Local b:Int = endian.swapEndian(FromHex(be),ByteOrder.BigEndian) 'load from big endian Local c:Int = endian.swapEndian(FromHex(le),ByteOrder.LittleEndian) 'load from little endian Print "~nb = "+Hex(b)+"~nc = "+Hex(c) 'both should be the same 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

#Import "<std>" Using std..   Class Endian Field endian:Int Method New() Local a:Int = $AABBCCDD If UByte Ptr(Varptr a)[0] = $AA endian = ByteOrder.BigEndian Else endian = ByteOrder.LittleEndian End End Method swapEndian:Int(n:Int, original:Int) If endian = original Then Return n Return ((n & $FF000000) Shr 24) | ((n & $FF0000) Shr 8) | ((n & $FF00) Shl 8) | ((n & $FF) Shl 24) End End   Function Main() Local endian := New Endian Local a:Int = $AABBCCDD 'Load a with a value Print "Value of a = "+Hex(a)   Local be:String = Hex(endian.swapEndian(a,ByteOrder.BigEndian)) 'save a as big endian Local le:String = Hex(endian.swapEndian(a,ByteOrder.LittleEndian)) 'save a as little endian Print "be = "+be+"~nle = "+le 'print the contents of be and le Local b:Int = endian.swapEndian(FromHex(be),ByteOrder.BigEndian) 'load from big endian Local c:Int = endian.swapEndian(FromHex(le),ByteOrder.LittleEndian) 'load from little endian Print "~nb = "+Hex(b)+"~nc = "+Hex(c) 'both should be the same   end

[Author]

Posts