Fun With Circles

[SierraKen]

Pretty neat NOVARSEG!

B+, you always impress me, I could never top that. LOL Yep Static, looks like a Slinkee. I think we all did Slinkees last year if I recall and someone, probably B+ wanted me to make one that walks. So I did. It's not as good as this one though with the mouse that he made.

[bplus]

Ha! I can't quit ;-)) another variation

Code: QB64: [Select]

1. n = 200: r = RND * RND: g = RND * RND: b = RND * RND: REDIM x(n), y(n) ' b+ update follow me 2021-01-11
2. SCREEN _NEWIMAGE(800, 600, 32): _DELAY .25: _SCREENMOVE _MIDDLE: RANDOMIZE TIMER: _MOUSEHIDE: CLS
3. WHILE 1
4.     LINE (0, 0)-(_WIDTH, _HEIGHT), &H20000000, BF
5.     FOR i = n - 1 TO 0 STEP -1
6.         FOR j = 0 TO 15 STEP .5
7.             CIRCLE (x(i), y(i)), i + j, _RGB32(127 + 127 * SIN(r * i), 127 + 127 * SIN(g * i), 127 + 127 * SIN(b * i), 80)
8.             x(i + 1) = x(i): y(i + 1) = y(i)
9.         NEXT
10.     NEXT
11.     x(0) = _WIDTH / 2 + 200 * COS(a): y(0) = _HEIGHT / 2 + 200 * SIN(a)
12.     a = a + _PI(1 / 22)
13.     _DISPLAY
14. WEND
15.  

That surely beats MS wait cycler!

[Dav]

Great stuff, @bplus!  I swear if I tried to do effects like that I'd probably bloat it out to 100's of lines of nonesense.  Your code is so clear and tidy.

- Dav

[bplus]

Thanks Dav and Ken.

I could never top that.

Ken never say never, I started out doing same thing as you on forums long gone 5-6 years ago doing little mods with programs after QB4.5 and early VB in early and mid 90's and maybe NOVARSEG may be so inclined as well :)

As STx said, you learn a couple of tricks... :)

[SierraKen]

Thanks B+. :) I'm thinking about making some kind of text game or adventure next. It doesn't take much skill but a lot of time. I made one Dungeon game back in the 90's with QBasic but it only has around 10 screens (places). But I used DATA lines to make each graphic on the screen. I'm thinking about it anyway. :)