Today I was checking out my recent Kaleidoscope I made I wondered to myself, "What if I slowed everything down and see what animation it could make?" So I tried it and I hit a gold mine.
I changed the name of it which is now Fun Math Graphics 2. I used medium sized circles to move around using LINE (0, 0)-(800, 600), _RGBA(0, 0, 0, 30), BF to add some effects to it.
Don't ask me to explain the math, because I am just as amazed as what random equations can do. It makes a few random variables which determine the path the circles go. Most of them go in a pattern like a giant lid going in circles on a table starting from the edge and rotating around and around until it hits the table, but they are all random in the dynamics. Many other ones do some strange and bizarre paths. There are 1000's of possible outcomes or more. So try it out and tell me what you think. Watch it for a few minutes so you can see the potential of this program. I added some of the variables to the Title Bar in case anyone wants to try and duplicate the same pattern with their own by pressing the Space Bar to pause first.
Space Bar pauses, Esc quits.
start:
PRINT " Fun Math Graphics 2" PRINT " Watch the computer calculate different" PRINT " pathways for a circle to move around on." PRINT " Space Bar to Pause." INPUT " Press Enter To Begin.", bg$
s = 0
s = s + k
x
= COS(s
* 3.141592 / 180) * d
x = x + mx
y
= SIN(s
* 3.151492 / 180) * d
y = y + my
xx = x + 300: yy = y + 300
LINE (0, 0)-(800, 600), _RGBA(0, 0, 0, 30), BF
_TITLE "Fun Math Graphics 2 - K=" + k$
+ " mx=" + mx$
+ " my=" + my$
+ " s=" + s$