Author Topic: Fun With Circles  (Read 6498 times)

0 Members and 1 Guest are viewing this topic.

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Fun With Circles
« Reply #15 on: January 11, 2021, 12:18:57 pm »
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.

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Fun With Circles
« Reply #16 on: January 11, 2021, 12:27:06 pm »
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.     LINE (0, 0)-(_WIDTH, _HEIGHT), &H20000000, BF
  3.     FOR i = n - 1 TO 0 STEP -1
  4.         FOR j = 0 TO 15 STEP .5
  5.             CIRCLE (x(i), y(i)), i + j, _RGB32(127 + 127 * SIN(r * i), 127 + 127 * SIN(g * i), 127 + 127 * SIN(b * i), 80)
  6.             x(i + 1) = x(i): y(i + 1) = y(i)
  7.         NEXT
  8.     NEXT
  9.     x(0) = _WIDTH / 2 + 200 * COS(a): y(0) = _HEIGHT / 2 + 200 * SIN(a)
  10.     a = a + _PI(1 / 22)
  11.     _DISPLAY
  12.  

That surely beats MS wait cycler!
« Last Edit: January 11, 2021, 12:41:49 pm by bplus »

Offline Dav

  • Forum Resident
  • Posts: 792
    • View Profile
Re: Fun With Circles
« Reply #17 on: January 11, 2021, 01:16:29 pm »
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
« Last Edit: January 11, 2021, 01:17:33 pm by Dav »

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Fun With Circles
« Reply #18 on: January 11, 2021, 04:35:43 pm »
Thanks Dav and Ken.

Quote
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... :)

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Fun With Circles
« Reply #19 on: January 11, 2021, 06:25:47 pm »
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. :)
« Last Edit: January 11, 2021, 06:33:46 pm by SierraKen »