Blitzmax/monkey differences

Monkey Forums/Monkey Programming/Blitzmax/monkey differences

peterigz

(Posted 2011) [#1]

Hello, is there a summary anywhere that lists the main language differences between blitzmax and monkey to help migrate over?

Beaker

(Posted 2011) [#2]

Type -> Class
:+ -> += (etc)
EndIf, Next, Wend, End Function, End Method, End Select -> End (optional)
TList -> List<MyType>
TMap -> Map<KeyType,ValueType>
For Local thing:MyType = EachIn MyType -> For Local thing := EachIn MyType
Local found:Int = False -> Local found:Bool = False OR Local found? = False

wiebow

(Posted 2011) [#3]

Beaker -> Awesome

Volker

(Posted 2011) [#4]

2^2 -> Pow(2,2)
Sqr -> Sqrt

taumel

(Posted 2011) [#5]

; (command seperation in one line) -> space

taumel

(Posted 2011) [#6]

Btw what's the character for seperating one line into several ones again?

therevills

(Posted 2011) [#7]

Are you talking about .. taumel?

You dont need it in Monkey - just press Enter :P

If x = 0 And
   y = 1 Then
   z = 2
End

taumel

(Posted 2011) [#8]

I mean if you have one big line of code or a defined list and want to break it up into several lines for better readability.

BigAnd

(Posted 2011) [#9]

Like therevills says, just press enter.

e.g.

Global	dir:=[
	255,1,1,0,
	255,0,0,0,
	255,0,1,0]

works fine, no need for the ".." of Max.

taumel

(Posted 2011) [#10]

Oh, thanks! I always forgot about that .. is the way how to do it in Max until i needed it, so...

.. -> return

ziggy

(Posted 2011) [#11]

I mean if you have one big line of code or a defined list and want to break it up into several lines for better readability.

The last character in the line has to be an operator, a open bracket or a coma for it to work. Otherwise it's a syntax error.

Also, the separation of sentences in the same line using the space character. It was there too in BlitzMax and I would consider it more a side effect of how the compiler tokenize the language than a officially supported feature. As far as I know, Monkey does not officially support several sentences in a single line, but it happens to work most of the time.

taumel

(Posted 2011) [#12]

Well, it works with stuff like

pos.x=x pos.y=y

and the list example BigAnd showed. That's all i want.

peterigz

(Posted 2011) [#13]

Thanks all :)

degac

(Posted 2011) [#14]

Array resizing

BlitzMax

   Local arr:int[]
   arr=arr[..100]

Monkey

   Local arr:int[]
   arr=arr.Resize(100)

degac

(Posted 2011) [#15]

About 'command separation' this is an example that doesnt' work

Function Main()
	Print "One" Print "Two"
	Print "Three"
End

I get a syntax error.

PS: in the pdf file there also another version (page 27)

Import mojo
Function Main ()
' This...
Print "Hello"; Print "Hello again"; Print "Hello again, again"
' … is the same as this...
Print "Hello"
Print "Hello again"
Print "Hello again, again"
End

Xaron

(Posted 2011) [#16]

Of course it doesn't work because for the parser it makes no sense to see something like

Print "One" Print "Two"

I don't know a language where that would work. You need that ";" between. :)

Brucey

(Posted 2011) [#17]

About 'command separation'

I've always found pressing ENTER/RETURN works best... ?

degac

(Posted 2011) [#18]

@Xaron:
read part 2 of my post (the pdf part)... ';' doesnt work...

@brucey
I usually use
IF
...
END IF

because is more readable, so I agree for the 'RETURN' solution.
I report only what is indicated in the current documentation.

Yahfree

(Posted 2011) [#19]

What's wrong with this code? It's throwing a syntax error, (It's code I'm trying to translate from max:

	Function TFormPolyToTFormPoly:Int( p1_xy:Float[], p1_x:Float=0, p1_y:Float=0,
							p1_rot:Float=0, p1_scale_x:Float=1, p1_scale_y:Float=1,
							p1_handle_x:Float=0, p1_handle_y:Float=0,
							p1_origin_x:Float=0, p1_origin_y:Float=0,
							p2_xy:Float[], p2_x:Float=0, p2_y:Float=0,
							p2_rot:Float=0, p2_scale_x:Float=1, p2_scale_y:Float=1,
							p2_handle_x:Float=0, p2_handle_y:Float=0,
							p2_origin_x:Float=0, p2_origin_y:Float=0)

therevills

(Posted 2011) [#20]

@Yahfree - Looks like you cant put parameters on the next line...

This compiles okay:

Function TFormPolyToTFormPoly:Int( p1_xy:Float[], p1_x:Float=0, p1_y:Float=0, p1_rot:Float=0, p1_scale_x:Float=1, p1_scale_y:Float=1, p1_handle_x:Float=0, p1_handle_y:Float=0, 	p1_origin_x:Float=0, p1_origin_y:Float=0, p2_xy:Float[], p2_x:Float=0, p2_y:Float=0, p2_rot:Float=0, p2_scale_x:Float=1, p2_scale_y:Float=1, p2_handle_x:Float=0, p2_handle_y:Float=0, p2_origin_x:Float=0, p2_origin_y:Float=0)
	return 1
end

Yahfree

(Posted 2011) [#21]

Weird, getting rid of the line breaks fixed it. Is there anything I can do to make it not a one-liner?

EDIT: Breaking lines works on if statements and array declarations, why not functions?

peterigz

(Posted 2011) [#22]

Is there an equivalent to var?

ie: function GetCoords(x:float var, y:float var)

Beaker

(Posted 2011) [#23]

No.

TMK	(Posted 2011) [#24]

peterigz:

You can box values/use arrays instead of var's:

http://www.monkeycoder.co.nz/Community/posts.php?topic=172

Yahfree

(Posted 2011) [#25]

Can anyone help me finish translating this collision code?

Class Collision
	Function TFormPolyToTFormPoly:Int( p1_xy:Float[], p1_x:Float=0, p1_y:Float=0,p1_rot:Float=0, p1_scale_x:Float=1, p1_scale_y:Float=1,p1_handle_x:Float=0, p1_handle_y:Float=0,p1_origin_x:Float=0, p1_origin_y:Float=0,p2_xy:Float[], p2_x:Float=0, p2_y:Float=0,p2_rot:Float=0, p2_scale_x:Float=1, p2_scale_y:Float=1,p2_handle_x:Float=0, p2_handle_y:Float=0,p2_origin_x:Float=0, p2_origin_y:Float=0)
		
		If p1_xy.length<6 Or (p1_xy.length&1) Return False
		If p2_xy.length<6 Or (p2_xy.length&1) Return False
		
		Local tform1_xy:Float[]=TFormPoly(p1_xy,p1_x,p1_y,p1_rot,p1_scale_x,p1_scale_y,
							p1_handle_x,p1_handle_y,p1_origin_x,p1_origin_y)
		
		Local tform2_xy:Float[]=TFormPoly(p2_xy,p2_x,p2_y,p2_rot,p2_scale_x,p2_scale_y,
							p2_handle_x,p2_handle_y,p2_origin_x,p2_origin_y)
		
		If PolyToPoly(tform1_xy,tform2_xy)
			Return True
		Else
			Return False
		Endif
		
	End Function
	
	Function PolyToTFormPoly:Int( p1_xy:Float[], p2_xy:Float[],p2_x:Float=0, p2_y:Float=0, rot:Float=0,scale_x:Float=1, scale_y:Float=1,handle_x:Float=0, handle_y:Float=0,origin_x:Float=0, origin_y:Float=0 )
		
		If p1_xy.length<6 Or (p1_xy.length&1) Return False
		If p2_xy.length<6 Or (p2_xy.length&1) Return False
		
		Local tform_xy:Float[]=TFormPoly(p2_xy,p2_x,p2_y,rot,scale_x,scale_y,
							handle_x,handle_y,origin_x,origin_y)
		
		If PolyToPoly(p1_xy,tform_xy)
			Return True
		Else
			Return False
		Endif
		
	End Function
	
	Function PolyToPoly:Int( p1_xy:Float[], p2_xy:Float[] )
		
		If p1_xy.length<6 Or (p1_xy.length&1) Return False
		If p2_xy.length<6 Or (p2_xy.length&1) Return False
		
		For Local i:Int=0 Until p1_xy.Length Step 2
			If PointInPoly(p1_xy[i],p1_xy[i+1],p2_xy) Then Return True
		Next
		For Local i:Int=0 Until p2_xy.Length Step 2
			If PointInPoly(p2_xy[i],p2_xy[i+1],p1_xy) Then Return True
		Next
		
		Local l1_x1:Float=p1_xy[p1_xy.Length-2]
		Local l1_y1:Float=p1_xy[p1_xy.Length-1]
		For Local i1:Int=0 Until p1_xy.Length Step 2
			Local l1_x2:Float=p1_xy[i1]
			Local l1_y2:Float=p1_xy[i1+1]
			
			Local l2_x1:Float=p2_xy[p2_xy.Length-2]
			Local l2_y1:Float=p2_xy[p2_xy.Length-1]
			For Local i2:Int=0 Until p2_xy.Length Step 2
				Local l2_x2:Float=p2_xy[i2]
				Local l2_y2:Float=p2_xy[i2+1]
				
				If LinesCross(l1_x1,l1_y1,l1_x2,l1_y2,l2_x1,l2_y1,l2_x2,l2_y2)
					Return True
				Endif
				
				l2_x1=l2_x2
				l2_y1=l2_y2
			Next
			l1_x1=l1_x2
			l1_y1=l1_y2
		Next
		Return False
	End Function
	
	Function CircleToTFormPoly:Int( circle_x:Float, circle_y:Float, radius:Float,xy:Float[], poly_x:Float=0, poly_y:Float=0, rot:Float=0,scale_x:Float=1, scale_y:Float=1,handle_x:Float=0, handle_y:Float=0,origin_x:Float=0, origin_y:Float=0 )
		
		If xy.length<6 Or (xy.length&1) Return False
		
		Local tform_xy:Float[]=TFormPoly(xy,poly_x,poly_y,rot,scale_x,scale_y,
							handle_x,handle_y,origin_x,origin_y)
		
		Return CircleToPoly(circle_x,circle_y,radius,tform_xy)
	End Function
	
	Function CircleToPoly:Int( circle_x:Float, circle_y:Float, radius:Float, xy:Float[] )
		
		If xy.length<6 Or (xy.length&1) Return False
		
		If PointInPoly(circle_x,circle_y,xy) Then Return True
		
		Local x1:Float=xy[xy.Length-2]
		Local y1:Float=xy[xy.Length-1]
		
		For Local i:Int=0 Until Len xy Step 2
			Local x2:Float=xy[i]
			Local y2:Float=xy[i+1]
			
			If LineToCircle(x1,y1,x2,y2,circle_x,circle_y,radius) Then Return True
			x1=x2
			y1=y2
		Next
		
		Return False
	End Function
	
	Function LineToTFormPoly:Int( line_x1:Float, line_y1:Float, line_x2:Float, line_y2:Float,xy:Float[], poly_x:Float=0, poly_y:Float=0,rot:Float=0, scale_x:Float=1, scale_y:Float=1,handle_x:Float=0, handle_y:Float=0,origin_x:Float=0, origin_y:Float=0 )
		
		If xy.length<6 Or (xy.length&1) Return False
		
		TFormGlobalToLocal(line_x1,line_y1,poly_x,poly_y,rot,scale_x,
							scale_y,handle_x,handle_y,origin_x,origin_y)
		
		TFormGlobalToLocal(line_x2,line_y2,poly_x,poly_y,rot,scale_x,
							scale_y,handle_x,handle_y,origin_x,origin_y)
		
		Return LineToPoly(line_x1,line_y1,line_x2,line_y2,xy)
	End Function
	
	Function LineToPoly:Int( line_x1:Float, line_y1:Float, line_x2:Float, line_y2:Float, xy:Float[] )
		
		If xy.length<6 Or (xy.length&1) Return False
		
		If PointInPoly(line_x1,line_y1,xy) Then Return True
		
		Local poly_x1:Float=xy[xy.Length-2]
		Local poly_y1:Float=xy[xy.Length-1]
		
		For Local i:Int=0 Until Len xy Step 2
			Local poly_x2:Float=xy[i]
			Local poly_y2:Float=xy[i+1]
			
			If LinesCross(line_x1,line_y1,line_x2,line_y2,
							poly_x1,poly_y1,poly_x2,poly_y2) Then Return True
			poly_x1=poly_x2
			poly_y1=poly_y2
		Next
		
		Return False
		
	End Function
	
	Function PointInTFormPoly:Int( point_x:Float, point_y:Float, xy:Float[],poly_x:Float=0, poly_y:Float=0, rot:Float=0,scale_x:Float=1, scale_y:Float=1,handle_x:Float=0, handle_y:Float=0,origin_x:Float=0, origin_y:Float=0 )
		
		If xy.length<6 Or (xy.length&1) Return False
		
		TFormGlobalToLocal(point_x,point_y,poly_x,poly_y,rot,scale_x,
							scale_y,handle_x,handle_y,origin_x,origin_y)
		
		Return PointInPoly(point_x,point_y,xy)
	End Function
	
	Function PointInPoly:Int( point_x:Float, point_y:Float, xy:Float[] )
		
		If xy.length<6 Or (xy.length&1) Return False
		
		Local x1:Float=xy[xy.Length-2]
		Local y1:Float=xy[xy.Length-1]
		Local cur_quad:Int=GetQuad(point_x,point_y,x1,y1)
		Local next_quad:Int
		Local total:Int
		
		For Local i:Int=0 Until Len xy Step 2
			Local x2:Float=xy[i]
			Local y2:Float=xy[i+1]
			next_quad=GetQuad(point_x,point_y,x2,y2)
			Local diff:Int=next_quad-cur_quad
			
			Select diff
			Case 2,-2
				If ( x2 - ( ((y2 - point_y) * (x1 - x2)) / (y1 - y2) ) )<point_x
					diff=-diff
				Endif
			Case 3
				diff=-1
			Case -3
				diff=1
			End Select
			
			total:+diff
			cur_quad=next_quad
			x1=x2
			y1=y2
		Next
		
		If Abs(total)=4 Then Return True Else Return False
	End Function
	
	Function TFormPoly:Float[]( xy:Float[], tform_x:Float=0, tform_y:Float=0, rot:Float=0,scale_x:Float=1, scale_y:Float=1,handle_x:Float=0, handle_y:Float=0,origin_x:Float=0, origin_y:Float=0 )
		
		If xy.length<6 Or (xy.length&1) Return Null
		
		Local tform_xy:Float[]=xy[..]
		
		For Local i:Int=0 Until tform_xy.Length Step 2
			TFormLocalToGlobal(tform_xy[i],tform_xy[i+1],tform_x,tform_y,rot,
							scale_x,scale_y,handle_x,handle_y,origin_x,origin_y)
		Next
		
		Return tform_xy
	End Function
	
	Function TFormGlobalToLocal( point_x:Float Var, point_y:Float Var,tform_x:Float=0, tform_y:Float=0, rot:Float=0,scale_x:Float=1, scale_y:Float=1,handle_x:Float=0, handle_y:Float=0,origin_x:Float=0, origin_y:Float=0 )
		
		point_x:-origin_x
		point_y:-origin_y
		
		point_x:-tform_x
		point_y:-tform_y
		
		Local mag:Float=Sqr(point_x*point_x+point_y*point_y)
		Local ang:Float=ATan2(point_y,point_x)
		point_x=Cos(ang-rot)*mag
		point_y=Sin(ang-rot)*mag
		
		point_x:/scale_x
		point_y:/scale_y
		
		point_x:+handle_x
		point_y:+handle_y
	End Function
	
	Function TFormLocalToGlobal( point_x:Float Var, point_y:Float Var,tform_x:Float=0, tform_y:Float=0, rot:Float=0,scale_x:Float=1, scale_y:Float=1,handle_x:Float=0, handle_y:Float=0,origin_x:Float=0, origin_y:Float=0 )
		
		point_x:-handle_x
		point_y:-handle_y
		
		point_x:*scale_x
		point_y:*scale_y
		
		Local mag:Float=Sqr(point_x*point_x+point_y*point_y)
		Local ang:Float=ATan2(point_y,point_x)
		point_x=Cos(ang+rot)*mag
		point_y=Sin(ang+rot)*mag
		
		point_x:+tform_x
		point_y:+tform_y
		
		point_x:+origin_x
		point_y:+origin_y
	End Function
	
	'Adapted from Fredborg's code
	Function LinesCross:Int(x0:Float, y0:Float , x1:Float, y1:Float,x2:Float ,y2:Float, x3:Float, y3:Float )
		  
		Local n:Float=(y0-y2)*(x3-x2)-(x0-x2)*(y3-y2)
		Local d:Float=(x1-x0)*(y3-y2)-(y1-y0)*(x3-x2)
		
		If Abs(d) < 0.0001 
			' Lines are parallel!
			Return False
		Else
			' Lines might cross!
			Local Sn:Float=(y0-y2)*(x1-x0)-(x0-x2)*(y1-y0)
	
			Local AB:Float=n/d
			If AB>0.0 And AB<1.0
				Local CD:Float=Sn/d
				If CD>0.0 And CD<1.0
					' Intersection Point
					Local X:Float=x0+AB*(x1-x0)
			       	Local Y:Float=y0+AB*(y1-y0)
					Return True
				End If
			End If
		
			' Lines didn't cross, because the intersection was beyond the end points of the lines
		Endif
	
		' Lines do Not cross!
		Return False
	
	End Function
	
	'Adapted from TomToad's code
	Function LineToCircle:Int( x1:Float, y1:Float, x2:Float, y2:Float, px:Float, py:Float, r:Float )
		
		Local sx:Float = x2-x1
		Local sy:Float = y2-y1
		
		Local q:Float = ((px-x1) * (x2-x1) + (py - y1) * (y2-y1)) / (sx*sx + sy*sy)
		
		If q < 0.0 Then q = 0.0
		If q > 1.0 Then q = 1.0
		
		Local cx:Float=(1-q)*x1+q*x2
		Local cy:Float=(1-q)*y1 + q*y2
		
		
		If PointToPointDist(px,py,cx,cy) < r
			
			Return True
			
		Else
			
			Return False
			
		Endif
	
		
	End Function 
	
	Function PointToPointDist:Float( x1:Float, y1:Float, x2:Float, y2:Float )
	
		Local dx:Float = x1-x2
		Local dy:Float = y1-y2
		
		Return Sqr(dx*dx + dy*dy)
	End Function
	
	
	Function GetQuad:Int(axis_x:Float,axis_y:Float,vert_x:Float,vert_y:Float)
		If vert_x<axis_x
			If vert_y<axis_y
				Return 1
			Else
				Return 4
			Endif
		Else
			If vert_y<axis_y
				Return 2
			Else
				Return 3
			Endif	
		Endif
	
	End Function	
End

I'm getting a syntax error on:

		For Local i:Int=0 Until Len xy Step 2

Is there an array length in monkey? I believe after fixing these, and all the Float Var types, the code will be completely translated.

dawlane

(Posted 2011) [#26]

See if changing Len xy to xy.Length works

Jesse

(Posted 2011) [#27]

it supposed to be xy.Length(). I am not sure if Len is valid but if it is maybe use Len(xy) instead. the first one should be faster anyway.
also you are going to have to find an alternative for var sense it's not valid in monkey.

CdrJameson

(Posted 2011) [#28]

- Move your files to the appname.data directory
- Convert *.bmp to *.png
- Watch out for change of behviour in millisecs()

Cartman

(Posted 2011) [#29]

Here are some more things I've noticed while converting code over:

MouseHit and MouseDown values start at 0 instead of 1 for MOUSE_LEFT.
For example, MouseHit(1) in BlitzMax is now MouseHit(0) in monkey.

And some helpful function so that I don't have to change these things in my code:

Function Upper:String(Text:String)
Return Text.ToUpper()
End

Function Lower:String(Text:String)
Return Text.ToLower()
End

Function ImageWidth:Int(image:Image)
Return image.Width()
End

Function ImageHeight:Int(image:Image)
Return image.Height()
End

Function Len:Int(Text:String)
Return Text.Length()
End

Loofadawg

(Posted 2011) [#30]

@Cartman Nice one, er- "Hella-Nice"