12-27-2024, 08:24 PM
[I also posted this in the New Release thread.]. Attn: @a740g
I'm having a problem with QB64pe 4.0 on the Mac. If I try to run older programs of mine on 4.0, the IDE compiles them, gives no error message and then nothing happens. Nothing. I've tried it with many progs.
If I open a program that doesn't run and save it with a different name, then sometimes it'll run, but not always. If I try the "bad" progs on version 3.14.1, all is well.
This for example doesn't run unless I rename it.
I'm having a problem with QB64pe 4.0 on the Mac. If I try to run older programs of mine on 4.0, the IDE compiles them, gives no error message and then nothing happens. Nothing. I've tried it with many progs.
If I open a program that doesn't run and save it with a different name, then sometimes it'll run, but not always. If I try the "bad" progs on version 3.14.1, all is well.
This for example doesn't run unless I rename it.
Code: (Select All)
Option _Explicit
_Title " A Spinning Circle: bplus mod 2 of NakedApe"
Screen _NewImage(600, 400, 32)
Dim As Integer i, start, fini, stepper, top ' Playing with Aspects
Dim As _Unsigned Long col
$Color:32
Dim asp(1 To 90)
i = 1: asp(1) = 1 ' make an array of aspect values Note: asp(i) = Cos(_D2R(i)) will spin on the other axis
While i < 90
i = i + 1: asp(i) = 1 / Cos(_D2R(i))
Wend
top = i: col = Red: start = 1: fini = top: stepper = 1
Do
For i = start To fini Step stepper
Cls
Circle (_Width / 2, _Height / 2), 100, White, , , asp(i)
Paint (_Width / 2, _Height / 2), col, White
If _KeyDown(27) Then System Else _Limit 90
_Display
Next
If start = 1 Then
start = top: fini = 1: stepper = -1
If col = Red Then col = Green Else col = Red ' flip colors on odd cycles
Else
start = 1: fini = top: stepper = 1
End If
Loop