Slinky Animated Sequence

[SierraKen]

Using the same math equations as my random curly hair program, I decided to make a Slinky.
It's non-stop and when it reaches the end of the screen, about 2 seconds later it starts over again.

Code: QB64: [Select]

1. 'Slinky Animated Sequence - by SierraKen
2. 'August 3, 2020
3.  
4. SCREEN _NEWIMAGE(1000, 600, 32)
5. h = 2: h2 = -.04: fuzzy = 150
6. c1 = 255: c2 = 255: c3 = 169
7. t = -400
8. DO
9.     FOR tt = 1 TO 2
10.         FOR a = 1 TO 650 STEP 20
11.             _LIMIT 300
12.             seconds = seconds + 1
13.             sec = (60 - seconds) * 6 + 280
14.             xx = INT(SIN(sec / 180 * 3.141592) * 180) + 400
15.             yy = INT(COS(sec / 180 * 3.141592) * 180) + 300
16.             s = sec
17.             FOR d = 55 TO 35 STEP h2
18.                 s = s + h
19.                 x = COS(s * 3.141592 / fuzzy) * d
20.                 y = SIN(s * 3.141592 / fuzzy) * d
21.                 x2 = x + xx: y2 = y + yy
22.                 x3 = x2 + t
23.                 IF tt = 2 AND a > 600 THEN GOTO again:
24.                 FOR sz = .25 TO 1 STEP .25
25.                     CIRCLE (x3, y2 + 50 + h - (h2 * 10)), sz, _RGB32(c1, c2, c3)
26.                 NEXT sz
27.             NEXT d
28.             _DELAY .05
29.         NEXT a
30.         _DELAY .02
31.         seconds = 0
32.         c1 = 0: c2 = 0: c3 = 0
33.     NEXT tt
34.     again:
35.     seconds = 0
36.     CLS
37.     c1 = 255: c2 = 255: c3 = 169
38.     t = t + 355
39.     IF t > 800 THEN t = -400
40. LOOP
41.  

[Dav]

Lol.  Cool.  You come up with some interesting things, @SierraKen . 

- Dav

[johnno56]

Does it come in blue? lol

Nicely done! Will version #2 include a set of stairs?

[SierraKen]

LOL Thanks guys. :) You can make it any color you want, it only has one CIRCLE command. :)  c1, c2, and c3 are the colors.

[FellippeHeitor]

That was fun, Ken!

[OldMoses]

I messed around with random colors for it.

Changing line 37:

Code: QB64: [Select]

1.  c1 = 255: c2 = 255: c3 = 169

to:

Code: QB64: [Select]

1. c1 = ByteRan: c2 = ByteRan: c3 = ByteRan

and adding the following function:

Code: QB64: [Select]

1. FUNCTION ByteRan
2.  
3.     ByteRan = INT(256 * RND(1))
4.  
5. END FUNCTION 'ByteRan
6.  

After seeing the effect that had, I got to really parsing out some of what your code was doing, and I'm kind of amazed at how it was done. Nice work.

[Richard Frost]

Now you could do the Ren & Stimpy toy, the log.

"What rolls down stairs, alone or in pairs, runs over your neighbor's dog, it's log log log."

[SierraKen]

Thanks guys :)).

LOL Richard, been ages since I seen that show. :)

[SierraKen]

OldMoses, to be honest, I really don't know how the SIN and COS equations work exactly. It is code I got a year ago for spirals and circles and I just put them together. Spirals going in half-circles. :)

[OldMoses]

OldMoses, to be honest, I really don't know how the SIN and COS equations work exactly. It is code I got a year ago for spirals and circles and I just put them together. Spirals going in half-circles. :)

I have the same problem. Been using trig for years and still don't quite "get it". It's like driving a car, you can do it without understanding how it works, but if it breaks down, you at a disadvantage to fix it.

[loudar]

Just out of curiosity, why not use _PI instead of 3.141592 (and 3.151492, but that's either a typo or an easteregg)? :D

[bplus]

Just out of curiosity, why not use _PI instead of 3.141592 (and 3.151492, but that's either a typo or an easteregg)? :D

_PI is a function, number literals are faster, faster than even a constant? I sure hate to have to measure the difference!
It may be all the same after compiled.

He may or may not know he is converting to Radians for SIN and COS and wouldn't need the _PI/180, could use _D2R same thing.

SIN and COS are ratio's unique to the Angle argument of the function, so it is important to understand QB64 SIN and COS are expecting Radian Angle arguments.

[SierraKen]

Thanks B+, but actually, I  was just lazy and didn't even think about using anything else besides the code I found a year ago. lol
But thanks Loudar for showing me the Pi error, I didn't even notice it, I just fixed it in the code above.

[_vince]

Can't go wrong with

Code: [Select]

dim shared pi as double
pi = 4*atn(1)

Works with QB64, freebasic, and QB. I am opposed to _PI and _D2R in principle and avoid using them. I do approve of _ATAN2, _ASIN, and _ACOS on the other hand.

Anyways, nice work @SierraKen. Now let's make it crawl down a set of stairs like the real ones!

[SMcNeill]

Can't go wrong with

Code: [Select]

dim shared pi as double
pi = 4*atn(1)

Works with QB64, freebasic, and QB. I am opposed to _PI and _D2R in principle and avoid using them. I do approve of _ATAN2, _ASIN, and _ACOS on the other hand.

Anyways, nice work @SierraKen. Now let's make it crawl down a set of stairs like the real ones!

Why use a formula at all?  Why not just

CONST PI## = 3.141592654(to whatever degree of precision is desired)