Goofy Hypnotic Eyes

[SierraKen]

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
6. NEXT t
7. _LIMIT 1000
8. DO
9.     s = 0
10.     a = a + .5
11.     IF a > 175 THEN a = 1
12.     RANDOMIZE TIMER
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
25. LOOP
26.  

[Ashish]

Cool man! This is the first time I see you using loop instead of goto & gosub.

[Petr]

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.

[SMcNeill]

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.  ;)

[johnno56]

Goofy? Looks normal to me... lol

[bplus]

Goofy? Looks normal to me... lol

LOL maybe a little less coffee Johnno

Nice one Ken!

[bplus]

Not spirals but more variation:

Code: QB64: [Select]

1. _TITLE "Hypnotic Eyes" 'B+   2019-10-27
2. RANDOMIZE TIMER
3. SCREEN _NEWIMAGE(800, 600, 32)
4. DO
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
14. LOOP
15.  

[SierraKen]

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
6. NEXT t
7. DO
8.     s = 0
9.     a = a + .5
10.     IF a > 175 THEN a = 1
11.     RANDOMIZE TIMER
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
24. LOOP
25.