Monkey 2 » All Posts

abakobo — Tue, 09 Apr 2019 10:27:53 +0000

I had a small look and GLWindow extends Window and only has a few addition to Window. And Window works (there is this vsync issue with previous systems). So it’s looks doable. May be posting an issue on github could be interresting if you really need it working.
There is this vsync issue with different Mac systems for now and I’d love to see it solved as well as those gl issue. But Apple is not helping here..

]]>

AdamStrange — Sun, 07 Apr 2019 10:37:42 +0000

Nope, not operational 🙁

Mojo3d works, so there must be something to do with the GLWindow and the GL stuff that’s not correct anymore

]]>

bosh77 — Sat, 06 Apr 2019 16:34:34 +0000

Now I have another problem, I can’t detect the back button while the keyboard is active.

]]>

bosh77 — Sat, 06 Apr 2019 06:52:27 +0000

Thank You very much!!

]]>

AdamStrange — Sat, 06 Apr 2019 05:45:27 +0000

That’s very helpful information 🙂

I’ll do a quick hack and report back…

]]>

abakobo — Fri, 05 Apr 2019 13:42:11 +0000

here’s the commit mark made for the blank screen on mojave. it’s a sdl2 hack. But I thought you had made your own hack for your monkey2 fork. https://github.com/blitz-research/monkey2/commit/ce3a9ebdd92aa861358210e24c94d3d8c6a5631e
Maybe your problem has nothing to do with this blank screen issue on mojave, I haven’t tested the banana, just guessing here.

]]>

abakobo — Fri, 05 Apr 2019 07:35:06 +0000

Since Apple has deprecated opengl with Mojave there as been a lot of troubles. I think importing latest dev sdl2 would resolve the problem (and reverting back the displaylink commit for Mac vsync). I had a try but sdl2 is configured by default to dynamic linking and there is some hack to do to get it statically linked.

]]>

abakobo — Fri, 05 Apr 2019 07:17:01 +0000

Import sdl2 then it’s sdl2.SDL_StartTextInput( ) (and sdl2.SDL_StopTextInput( ) )

]]>

DruggedBunny — Thu, 04 Apr 2019 13:00:24 +0000

That looks much more appropriate — you should never use floats for anything that requires accuracy, in any language!

They’re inaccurate by design as they have to work within a set number of bits.

Try this simple, obvious division:

Namespace myapp

#Import "<std>"

Using std..

Function Main()

	Print 1.0 / 10.0
	
End

Namespace myapp

#Import ""

Using std..

Function Main()

Print 1.0 / 10.0

End

Here, it prints 0.10000000000000001, but the result may vary on different platforms/targets, and this is to be expected for floating point numbers — they simply can’t represent all decimal numbers accurately.

Anyway, you’ve figured out a solution that looks good for currency.

]]>

jondecker76 — Thu, 04 Apr 2019 12:12:54 +0000

For anyone else having a similar issue, I just made a simple currency class to ensure decimal rounding is handled as expected. It’s nothing fancy, but does what I need it to do anyways

Class Currency
	' Store the whole and fractional parts as integers
	Private
	Field wholeNumber:Int
	Field fractionalNumber:Int
	
	Public
	
	Method New(number:String="0.00")
		Local decimal:=number.Find(".",0)
		wholeNumber=Cast<Int>(number.Mid(0,decimal))
		'0.00
		fractionalNumber=Cast<Int>(number.Mid(decimal+1,number.Length-1-decimal))
	End	
	
	Method New(whole:Int,fractional:Int)
		wholeNumber=whole
		fractionalNumber=fractional
	End
	
	Method Get:String(prepend:String="")
		Return prepend+wholeNumber+"."+LPad(fractionalNumber)
	End
	
	Method LPad:String(num:Int)
		If num<10 Then 
			Return "0"+num
		Else
			Return num
		Endif
	End
	
	' Currency Operator Overloads
	Operator+:Currency(rhs:Currency)
		Local whole:=wholeNumber+rhs.wholeNumber
		Local dec:=fractionalNumber+rhs.fractionalNumber
		If dec>99 Then 
			dec-=100
			whole+=1
		Endif
		Return New Currency(whole,dec)
	End
	
	Operator-:Currency(rhs:Currency)
		Local whole:=wholeNumber-rhs.wholeNumber
		Local dec:=fractionalNumber-rhs.fractionalNumber
		If dec<0 Then 
			dec+=100
			whole-=1	
		Endif
		Return New Currency(whole,dec)
	End
	
	Operator To:String()
		Return Get("$")
	End
End

Function Main()
   Local a:=New Currency("1.99")
   Local b:=New Currency("10.00")
   Local c:=a+b
   Print c
End

Class Currency

' Store the whole and fractional parts as integers

Private

Field wholeNumber:Int

Field fractionalNumber:Int

Public

Method New(number:String="0.00")

Local decimal:=number.Find(".",0)

wholeNumber=Cast(number.Mid(0,decimal))

'0.00

fractionalNumber=Cast(number.Mid(decimal+1,number.Length-1-decimal))

End

Method New(whole:Int,fractional:Int)

wholeNumber=whole

fractionalNumber=fractional

End

Method Get:String(prepend:String="")

Return prepend+wholeNumber+"."+LPad(fractionalNumber)

End

Method LPad:String(num:Int)

If num<10 Then

Return "0"+num

Else

Return num

Endif

End

' Currency Operator Overloads

Operator+:Currency(rhs:Currency)

Local whole:=wholeNumber+rhs.wholeNumber

Local dec:=fractionalNumber+rhs.fractionalNumber

If dec>99 Then

dec-=100

whole+=1

Endif

Return New Currency(whole,dec)

End

Operator-:Currency(rhs:Currency)

Local whole:=wholeNumber-rhs.wholeNumber

Local dec:=fractionalNumber-rhs.fractionalNumber

If dec<0 Then

dec+=100

whole-=1

Endif

Return New Currency(whole,dec)

End

Operator To:String()

Return Get("$")

End

Function Main()

Local a:=New Currency("1.99")

Local b:=New Currency("10.00")

Local c:=a+b

Print c

End

]]>