Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Bright Circle Colors
#5
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]


Attached Files
.bas   krugki.bas (Size: 360 bytes / Downloads: 94)
.bas   krugi.bas (Size: 389 bytes / Downloads: 87)
Write name of program in 1st line to copy & paste & save filename.bas
Insert program pictures: press print-screen-shot button
Open paint & Paste & Save as PNG
Add picture file to program topic

Russia looks world from future. Big data is peace data.
I never recommend anything & always write only about myself
Reply


Messages In This Thread
Bright Circle Colors - by SierraKen - 08-12-2025, 09:51 PM
RE: Bright Circle Colors - by DANILIN - 08-21-2025, 02:50 PM
RE: Bright Circle Colors - by bplus - 08-22-2025, 01:42 PM
RE: Bright Circle Colors - by SierraKen - 08-23-2025, 03:52 AM
RE: Bright Circle Colors - by DANILIN - 08-23-2025, 03:33 PM

Possibly Related Threads…
Thread Author Replies Views Last Post
  Converting 24-Bit images to Paletted Images (2-colors to 256-colors) The Joyful Programmer 13 1,404 02-10-2026, 11:22 AM
Last Post: Unseen Machine
  The Curve statement, an improved Circle 2112 6 679 11-02-2025, 09:45 PM
Last Post: bplus
  Draw that Circle James D Jarvis 17 3,283 08-28-2022, 06:29 AM
Last Post: justsomeguy
  Rotating Circle CharlieJV 0 517 08-06-2022, 02:56 AM
Last Post: CharlieJV

Forum Jump:


Users browsing this thread: 1 Guest(s)