Overlapping Circles

[SierraKen]

Here is a much slower Earth:

Code: (Select All)

Screen _NewImage(800, 600, 32)
t = 1800
x = 400: y = 300: r = 50
Do
    _Limit 20
    If t < 90 Then t = 1800
    x2 = (Sin(t) * 360) + 400
    y2 = (Cos(t) * 180) / _Pi / 1.5 + 300
    r2 = (Cos(t) * 180) / _Pi / 1.5 + 50
    t = t - .025
    If y2 < 300 Then
        'Earth
        For S = .25 To r2 Step .25
            cc = cc + .25
            Circle (x2, y2), S, _RGB32(cc, cc, 100 + cc)
        Next S
        cc = 0
    End If
    'Sun
    For sun = .25 To 35 Step .25
        cc2 = cc2 + 1
        Circle (x, y), sun, _RGB32(200 + cc2, 200 + cc2, 64 + cc2)
    Next sun
    cc2 = 0
    If y2 > 300 Then
        'Earth
        For S = .25 To r2 Step .25
            cc3 = cc3 + .25
            Circle (x2, y2), S, _RGB32(cc3, cc3, 100 + cc3)
        Next S
        cc3 = 0
    End If
    _Delay .05
    _Display
    Cls
Loop Until InKey$ = Chr$(27)