Bright Circle Colors

[DANILIN]

Make it 3D

Code: (Select All)

Screen 12 ' krugi.bas  DANILIN

c1 = 4: c2 = 1: s = 5: r = 78

d = 2 * r: x = 100 + d

For k = 1 To 10

    For i = 1 To d Step s: Cls

        For j = r To 22 Step -.3

            Circle (x - r + i, 100 + r), j, c1

        Next

        For j = r To 22 Step -.3

            Circle (x + r - i, 100 + r), j, c2

    Next: _Display: _Delay .02: Next

Swap c1, c2: Next

Code: (Select All)

[qbjs]https://qbjs.org/?mode=auto&src=https://qb64phoenix.com/forum/attachment.php?aid=4701[/qbjs]