Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on October 27, 2019, 12:46:15 am

Title: Goofy Hypnotic Eyes
Post by: SierraKen on October 27, 2019, 12:46:15 am
A small animated graphics program. Was just random chance that I got it to have a 3D effect playing with math and variables. :)

Code: QB64: [Select]
  1. _TITLE "Goofy Hypnotic Eyes"
  2. SCREEN _NEWIMAGE(800, 600, 32)
  3. PAINT (10, 10), _RGB32(255, 177, 127)
  4. FOR t = 1 TO 100 STEP .5
  5.     CIRCLE (400, 550), t, _RGB32(255, t, t), , , 1.5
  7. _LIMIT 1000
  9.     s = 0
  10.     a = a + .5
  11.     IF a > 175 THEN a = 1
  13.     b = INT(RND * 2) + 1
  14.     IF b > 1 THEN c = 255
  15.     IF b = 1 THEN c = 0
  16.     FOR d = a TO 0 STEP -.125
  17.         c = c + 1
  18.         IF c > 255 THEN c = 0
  19.         s = s + 1
  20.         x = COS(s * 3.141592 / 180) * d
  21.         y = SIN(s * 3.151492 / 180) * d
  22.         CIRCLE (x + 200, y + 225), 2, _RGB32(c, 0, 0)
  23.         CIRCLE (x + 600, y + 225), 2, _RGB32(c, 0, 0)
  24.     NEXT d
  26.  
Title: Re: Goofy Hypnotic Eyes
Post by: Ashish on October 27, 2019, 01:42:16 am
Cool man! This is the first time I see you using loop instead of goto & gosub.
Title: Re: Goofy Hypnotic Eyes
Post by: Petr on October 27, 2019, 05:53:44 am
Quote
Ashish wrote:
Cool man! This is the first time I see you using loop instead of goto & gosub.

You're absolutely right, Ashish!
Finally, a program in which I can easily and quickly navigate. I hope you stay with this style, SierraKen, because GOTO - GOSUB is a terribly opaque way to work.
Title: Re: Goofy Hypnotic Eyes
Post by: SMcNeill on October 27, 2019, 08:52:46 am
Quote from: [banned user] on October 27, 2019, 03:37:57 am
Quite a nice animation.

One small note in case you were not aware:
If you use the _LIMIT command it MUST be within the loop.  It doesn't work if you call it outside the loop.

If I am wrong on this, someone can spank me, or slap me.  :P lol

Aye.  Limit works inside the loops.  ;)
Title: Re: Goofy Hypnotic Eyes
Post by: johnno56 on October 27, 2019, 10:00:27 am
Goofy? Looks normal to me... lol
Title: Re: Goofy Hypnotic Eyes
Post by: bplus on October 27, 2019, 10:29:08 am
Quote from: johnno56 on October 27, 2019, 10:00:27 am
Goofy? Looks normal to me... lol

LOL maybe a little less coffee Johnno

Nice one Ken!
Title: Re: Goofy Hypnotic Eyes
Post by: bplus on October 27, 2019, 11:32:30 am
Not spirals but more variation:
Code: QB64: [Select]
  1. _TITLE "Hypnotic Eyes" 'B+   2019-10-27
  3. SCREEN _NEWIMAGE(800, 600, 32)
  5.     cnt = cnt + 1
  6.     IF cnt MOD 20 = 1 THEN cnt = 1: r = RND ^ 2: g = RND ^ 2: b = RND ^ 2
  7.     FOR radius = 0 TO 175 STEP .25
  8.         c = c + .1
  9.         clr~& = _RGB32(127 + 127 * SIN(r * c), 127 + 127 * SIN(g * c), 127 + 127 * SIN(b * c))
  10.         CIRCLE (200, 225), radius, clr~&
  11.         CIRCLE (600, 225), radius, clr~&
  12.     NEXT
  13.     _LIMIT 6
  15.  
Title: Re: Goofy Hypnotic Eyes
Post by: SierraKen on October 27, 2019, 12:23:38 pm
Wow thanks everyone!!! Yeah I wasn't sure about the _LIMIT, I should have tested that. So I removed it and will put the rest of the code here.
Sometimes I have to use GOSUB's in order for different things to happen when a user does different things. I suppose everything can be in one giant IF / THEN statement of many lines. I'll try to work on that I think. Thanks.

LOL Bplus that's really cool looking! Could be used in a haunted house or carnival. :)

Code: QB64: [Select]
  1. _TITLE "Goofy Hypnotic Eyes"
  2. SCREEN _NEWIMAGE(800, 600, 32)
  3. PAINT (10, 10), _RGB32(255, 177, 127)
  4. FOR t = 1 TO 100 STEP .5
  5.     CIRCLE (400, 550), t, _RGB32(255, t, t), , , 1.5
  8.     s = 0
  9.     a = a + .5
  10.     IF a > 175 THEN a = 1
  12.     b = INT(RND * 2) + 1
  13.     IF b > 1 THEN c = 255
  14.     IF b = 1 THEN c = 0
  15.     FOR d = a TO 0 STEP -.125
  16.         c = c + 1
  17.         IF c > 255 THEN c = 0
  18.         s = s + 1
  19.         x = COS(s * 3.141592 / 180) * d
  20.         y = SIN(s * 3.151492 / 180) * d
  21.         CIRCLE (x + 200, y + 225), 2, _RGB32(c, 0, 0)
  22.         CIRCLE (x + 600, y + 225), 2, _RGB32(c, 0, 0)
  23.     NEXT d
  25.  
Text Only | Text with Attachments