Overlapping Circles

[bplus]

Hi Ken,

I reversed the coloring so spheres get darker as you approach the outer edge, not lighter, looks more like sheres instead of vacuum holes (have you seen any? LOL )

Code: (Select All)

'3D Earth Orbit and Moon by SierraKen
'Made on July 6, 2022.

_Title "3D Earth Orbit and Moon by SierraKen"
Screen _NewImage(800, 600, 32)
t = 1800
x = 400: y = 300: r = 50
t2 = 1800
cc4 = 100
cc5 = 100
Do
    _Limit 20
    If t < 90 Then t = 1800
    If t2 < 90 Then t2 = 1800
    x2 = (Sin(t) * 360) + 400
    y2 = (Cos(t) * 180) / _Pi / 1.5 + 300
    r2 = (Cos(t) * 180) / _Pi / 1.5 + 50
    x3 = (Sin(t2) * r2 * (y3 / y2) * _Pi) + x2
    y3 = (Cos(t2) * 120) / _Pi / 1.5 + y2
    r3 = (Cos(t2) * 20) / _Pi / 1.5 + r2 / 5
    t = t - .025
    t2 = t2 - .3
    If y2 < 300 Then
        'Earth
        cc = 0
        For S = .25 To r2 Step .25
            cc = cc + .25
            Circle (x2, y2), S, _RGB32(100 - cc, 100 - cc, 200 - cc)
        Next S
        cc = 0
        'Moon
        cc4 = 200
        For S = .25 To r3 Step .25
            cc4 = cc4 - 2
            Circle (x3, y3), S, _RGB32(cc4, cc4, cc4)
        Next S
        cc4 = 0
    End If
    'Sun
    For sun = .25 To 35 Step .25
        cc2 = cc2 + 1
        Circle (x, y), sun, _RGB32(255 - cc2, 255 - cc2, 128 - cc2)
    Next sun
    cc2 = 0
    If y2 > 300 Then
        'Earth
        cc3 = 0
        For S = .25 To r2 Step .25
            cc3 = cc3 + .25
            Circle (x2, y2), S, _RGB32(100 - cc3, 100 - cc3, 200 - cc3)
        Next S
        cc3 = 0
        'Moon
        cc5 = 200
        For S = .25 To r3 Step .25
            cc5 = cc5 - 2
            Circle (x3, y3), S, _RGB32(cc5, cc5, cc5)
        Next S
        cc3 = 0
        If y3 < y2 Then
            'Earth
            cc3 = 0
            For S = .25 To r2 Step .25
                cc3 = cc3 + .25
                Circle (x2, y2), S, _RGB32(100 - cc3, 100 - cc3, 200 - cc3)
            Next S
            cc3 = 0
        End If
    End If
    _Delay .05
    _Display
    Cls
Loop Until InKey$ = Chr$(27)