Option _Explicit '                   A Spinning Circle

Screen _NewImage(600, 400, 32)

Dim As Integer b, c, counter '                  Playing with Aspects

Dim As Single aspect, adder

Dim As _Unsigned Long col

$Color:32

counter = 0: col = Red

Do

    aspect = 1: adder = .015 '                 initial values

    '                                                      ASPECTS 1 TO 70

    For c = 1 To 9

        For b = 1 To 10 '                           redraw circle 10 times adding to the aspect each loop

            Cls

            aspect = aspect + adder '          increase the aspect by adder

            Circle (_Width / 2, _Height / 2), 100, White, , , aspect

            Paint (_Width / 2, _Height / 2), col, White

            _Limit 110

            _Display

        Next b

        If aspect >= 70 Then Exit For '       @ ~90 degrees drop thru to reverse loops

        adder = adder * 2 '                        adder amounts have to double after each 10-loop cycle to look right-ish

    Next c

    '                                                       * now reverse the process *

    counter = counter + 1

    If counter Mod 2 <> 0 Then If col = Red Then col = Green Else col = Red '  flip colors on odd cycles



    For c = 1 To 9 '                                  ASPECTS 70 TO 1

        For b = 1 To 10

            Cls

            aspect = aspect - adder

            Circle (_Width / 2, _Height / 2), 100, White, , , aspect

            If aspect <= 1 Then Exit For

            Paint (_Width / 2, _Height / 2), col, White

            _Limit 110

            _Display

        Next b

        adder = adder / 2 '

    Next c



    counter = counter + 1

    If counter = 4 Then counter = 0

    If _KeyDown(27) Then System

Loop

System

_Title "Spinning Circle" ' b+ 2024-09-10  highlight front edge

Screen _NewImage(620, 620, 32)

_ScreenMove 300, 60

cx = 308: cy = 308: xr = 0: dxr = 1: dyr = 1: yr = 300: c1~& = &HFFFF0000

Do

    Cls

    FEllipse cx, cy, xr, 300, &HFFFFFFFF

    FEllipse 310, 310, xr, 300, c1~&

    xr = xr + dxr

    If xr > 300 Then dxr = -dxr: xr = 299: cx = 312: cy = 312: _Delay .1

    If xr < 0 Then

        dxr = -dxr: xr = 1: cx = 308: cy = 308

        If c1~& = &HFFFF0000 Then c1~& = &HFF008800 Else c1~& = &HFFFF0000

    End If

    _Display

    _Limit 120

Loop Until _KeyDown(27)



Sub FEllipse (CX As Long, CY As Long, xr As Long, yr As Long, C As _Unsigned Long)

    If xr = 0 Or yr = 0 Then Exit Sub

    Dim h2 As _Integer64, w2 As _Integer64, h2w2 As _Integer64

    Dim x As Long, y As Long

    w2 = xr * xr: h2 = yr * yr: h2w2 = h2 * w2

    Line (CX - xr, CY)-(CX + xr, CY), C, BF

    Do While y < yr

        y = y + 1

        x = Sqr((h2w2 - y * y * w2) \ h2)

        Line (CX - x, CY + y)-(CX + x, CY + y), C, BF

        Line (CX - x, CY - y)-(CX + x, CY - y), C, BF

    Loop

End Sub

Option _Explicit

_Title " A Spinning Circle: bplus mod of NakedApe"

Screen _NewImage(600, 400, 32)

Dim As Integer i, x, start, fini, stepper '                  Playing with Aspects

Dim As Single aspect

Dim As _Unsigned Long col

$Color:32

Dim asp(1 To 8)

i = 1: x = 1: asp(1) = 1 ' make an array of aspect values that double from 1

While x < 70

    i = i + 1: x = x * 2: asp(i) = x

Wend

col = Red: start = 1: fini = 8: 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

        _Limit 5

        _Display

    Next

    If start = 1 Then

        start = 8: fini = 1: stepper = -1

        If col = Red Then col = Green Else col = Red '  flip colors on odd cycles

    Else

        start = 1: fini = 8: stepper = 1

    End If

Loop Until _KeyDown(27)

Option _Explicit

_Title " A Spinning Circle: bplus mod 2 of NakedApe"

Screen _NewImage(600, 400, 32)

Dim As Integer i, x, 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

        _Limit 60

        _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 Until _KeyDown(27)

(09-11-2024, 01:20 AM)SMcNeill Wrote: 'Coin Obverse & Reverse           

Code: (Select All)

_MAPTRIANGLE (Radius%, Radius%)-(MapFrom!(N%, 0), MapFrom!(N%, 1))-(MapFrom!(N%, 2), MapFrom!(N%, 3)), Obverse& TO(SpinMeRound!(0, 0, 0), SpinMeRound!(0, 0, 1), SpinMeRound!(0, 0, 2) + Offset%)-(SpinMeRound!(0, 1, 0), SpinMeRound!(0, 1, 1), ZTemp!)-(SpinMeRound!(0, 2, 0), SpinMeRound!(0, 2, 1), ZTemp2!)
_MAPTRIANGLE (Radius%, Radius%)-(MapFrom!(N%, 4), MapFrom!(N%, 5))-(MapFrom!(N%, 6), MapFrom!(N%, 7)), Reverse& TO(SpinMeRound!(1, 0, 0), SpinMeRound!(1, 0, 1), SpinMeRound!(1, 0, 2) + Offset%)-(SpinMeRound!(1, 1, 0), SpinMeRound!(1, 1, 1), ZTemp1!)-(SpinMeRound!(1, 2, 0), SpinMeRound!(1, 2, 1), ZTemp3!)
'Coin Edge
_MAPTRIANGLE (0, 0)-(0, EdgeLess1%)-(EdgingLess1%, EdgeLess1%), EdgePart& TO(SpinMeRound!(0, 1, 0), SpinMeRound!(0, 1, 1), ZTemp!)-(SpinMeRound!(1, 1, 0), SpinMeRound!(1, 1, 1), ZTemp1!)-(SpinMeRound!(1, 2, 0), SpinMeRound!(1, 2, 1), ZTemp3!)
_MAPTRIANGLE (0, 0)-(EdgingLess1%, 0)-(EdgingLess1%, EdgeLess1%), EdgePart& TO(SpinMeRound!(0, 1, 0), SpinMeRound!(0, 1, 1), ZTemp!)-(SpinMeRound!(0, 2, 0), SpinMeRound!(0, 2, 1), ZTemp2!)-(SpinMeRound!(1, 2, 0), SpinMeRound!(1, 2, 1), ZTemp3!)

Most of the program has disappeared into the ether (it was saved as a dropbox file and deleted in the passing of time), but this is basically the main flip process that was discussed.

---

Might ask Richard Notley aka QWERKY if he still has a copy of that coin toss demo.