Fun Math Graphics 2

[SierraKen]

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.

Code: QB64: [Select]

1. start:
2. SCREEN _NEWIMAGE(600, 600, 32)
3. CLS
4. PRINT "                          Fun Math Graphics 2"
5. PRINT: PRINT
6. PRINT "                               by Ken G."
7. PRINT: PRINT
8. PRINT "                 Watch the computer calculate different"
9. PRINT "                 pathways for a circle to move around on."
10. PRINT
11. PRINT "                          Space Bar to Pause."
12. PRINT "                             Esc to Quit"
13. PRINT
14. PRINT
15. INPUT "                        Press Enter To Begin.", bg$
16. CLS
17.  
18. DO
19.     _LIMIT 500
20.     RANDOMIZE TIMER
21.     c1 = INT(RND * 100) + 155
22.     c2 = INT(RND * 100) + 155
23.     c3 = INT(RND * 100) + 155
24.     DO WHILE _MOUSEINPUT
25.         mouseX = _MOUSEX
26.         mouseY = _MOUSEY
27.         mouseLeftButton = _MOUSEBUTTON(1)
28.         mouseRightButton = _MOUSEBUTTON(2)
29.         mouseMiddleButton = _MOUSEBUTTON(3)
30.     LOOP
31.     k = INT(RND * 900) + 100
32.     s = 0
33.     FOR m = 1 TO 3
34.         RANDOMIZE TIMER
35.         mx = (RND * 4) - 2
36.         my = (RND * 4) - 2
37.         FOR d = 320 TO 0 STEP -.125
38.             _LIMIT 1000
39.             s = s + k
40.             x = COS(s * 3.141592 / 180) * d
41.             x = x + mx
42.             y = SIN(s * 3.151492 / 180) * d
43.             y = y + my
44.             xx = x + 300: yy = y + 300
45.             CIRCLE (xx, yy), 30, _RGB32(c1, c2, c3)
46.             _DISPLAY
47.             LINE (0, 0)-(800, 600), _RGBA(0, 0, 0, 30), BF
48.             mx$ = STR$(mx): my$ = STR$(my): s$ = STR$(s): xx$ = STR$(xx): yy$ = STR$(yy): k$ = STR$(k)
49.             _TITLE "Fun Math Graphics 2 - K=" + k$ + " mx=" + mx$ + " my=" + my$ + " s=" + s$
50.             a$ = INKEY$
51.             IF a$ = CHR$(27) THEN END
52.             IF a$ = " " AND sl = 0 THEN sl = 1: a$ = "": SLEEP
53.             IF a$ = " " AND sl = 1 THEN sl = 0
54.         NEXT d
55.     NEXT m
56. LOOP
57.  

[SierraKen]

I just added the ability to input your own variable amounts. When you press I, it goes to the input screen and you can set 4 different variables that you saved from liking something you saw earlier.
It only shows them for a few seconds or so before it randomly chooses another one, but I think it's cool.

Code: QB64: [Select]

1. start:
2. SCREEN _NEWIMAGE(600, 600, 32)
3. CLS
4. PRINT "                          Fun Math Graphics 2"
5. PRINT: PRINT
6. PRINT "                               by Ken G."
7. PRINT: PRINT
8. PRINT "                 Watch the computer calculate different"
9. PRINT "                 pathways for a circle to move around on."
10. PRINT
11. PRINT "                          Space Bar to Pause."
12. PRINT "                      I to set your own variables"
13. PRINT "                             Esc to Quit"
14. PRINT
15. PRINT
16. INPUT "                        Press Enter To Begin.", bg$
17. CLS
18.  
19. DO
20.     _LIMIT 500
21.     RANDOMIZE TIMER
22.     c1 = INT(RND * 100) + 155
23.     c2 = INT(RND * 100) + 155
24.     c3 = INT(RND * 100) + 155
25.     DO WHILE _MOUSEINPUT
26.         mouseX = _MOUSEX
27.         mouseY = _MOUSEY
28.         mouseLeftButton = _MOUSEBUTTON(1)
29.         mouseRightButton = _MOUSEBUTTON(2)
30.         mouseMiddleButton = _MOUSEBUTTON(3)
31.     LOOP
32.     k = INT(RND * 900) + 100
33.     s = 0
34.     FOR m = 1 TO 3
35.         RANDOMIZE TIMER
36.         mx = (RND * 4) - 2
37.         my = (RND * 4) - 2
38.         FOR d = 320 TO 0 STEP -.125
39.             _LIMIT 1000
40.             s = s + k
41.             x = COS(s * 3.141592 / 180) * d
42.             x = x + mx
43.             y = SIN(s * 3.151492 / 180) * d
44.             y = y + my
45.             xx = x + 300: yy = y + 300
46.             CIRCLE (xx, yy), 30, _RGB32(c1, c2, c3)
47.             _DISPLAY
48.             LINE (0, 0)-(800, 600), _RGBA(0, 0, 0, 30), BF
49.             mx$ = STR$(mx): my$ = STR$(my): s$ = STR$(s): xx$ = STR$(xx): yy$ = STR$(yy): k$ = STR$(k)
50.             _TITLE "Fun Math Graphics 2 - K=" + k$ + " mx=" + mx$ + " my=" + my$ + " s=" + s$
51.             a$ = INKEY$
52.             IF a$ = CHR$(27) THEN END
53.             IF a$ = " " AND sl = 0 THEN sl = 1: a$ = "": SLEEP
54.             IF a$ = " " AND sl = 1 THEN sl = 0
55.             IF a$ = "I" OR a$ = "i" THEN GOSUB info:
56.         NEXT d
57.     NEXT m
58. LOOP
59. info:
60. CLS
61. INPUT "k: ", k
62. INPUT "mx: ", mx
63. INPUT "my: ", my
64. INPUT "s: ", s
65. RETURN
66.  

[SierraKen]

If you don't want to wait for random choices it makes, you can press I and enter any of these examples I wrote down:

"Juggle"
k=659
mx=1.070739
my=1.296892
s=655705
------------------
"Coin"
k=321
mx=1.248722
my=.2715797
s=286011
------------------
"Coin 2"
k=321
mx=.4692338
my=.8475013
s=1607247
------------------
"Up and Down"
k=120
mx=1.096297
my=.659328
s=300960
------------------
"Big Coin"
k=106
mx= .1813991
my= -1.679267
s= 235956
------------------
"Dancing"
k=258
mx= -1.142254
my= 1.664867
s= 1489692
-------------------
"Open and Close"
k=166
mx= -1.737304
my= 1.140303
s= 248668
-------------------
"A Dizzy Circle"
k=126
mx= 1.371215
my= 1.281544
s= 699174
-------------------
"Waves"
k= 320
mx=  1.708808
my= -.4963732
s= 1344960
--------------------
"Speed Racer"
k= 214
mx= 1.125437
my= 1.366045
s= 318218
 

[bplus]

Yeah well I don't want to enter all those silly numbers to see what you are liking so

Code: QB64: [Select]

1. start:
2. SCREEN _NEWIMAGE(600, 600, 32)
3. CLS
4. PRINT "                          Fun Math Graphics 2"
5. PRINT: PRINT
6. PRINT "                               by Ken G. mod B+"
7. PRINT: PRINT
8. PRINT "                 Watch the computer calculate different"
9. PRINT "                 pathways for a circle to move around on."
10. PRINT
11. PRINT "                          Space Bar to Pause."
12. PRINT "                      I to set your own variables"
13. PRINT "                             Esc to Quit"
14. PRINT
15. PRINT
16. INPUT "                        Press Enter To Begin.", bg$
17. CLS
18.  
19. DO
20.     _LIMIT 500
21.     RANDOMIZE TIMER
22.     c1 = INT(RND * 100) + 155
23.     c2 = INT(RND * 100) + 155
24.     c3 = INT(RND * 100) + 155
25.     DO WHILE _MOUSEINPUT
26.         mouseX = _MOUSEX
27.         mouseY = _MOUSEY
28.         mouseLeftButton = _MOUSEBUTTON(1)
29.         mouseRightButton = _MOUSEBUTTON(2)
30.         mouseMiddleButton = _MOUSEBUTTON(3)
31.     LOOP
32.     k = INT(RND * 900) + 100
33.     s = 0
34.     name$ = "random"
35.     FOR m = 1 TO 3
36.         RANDOMIZE TIMER
37.         mx = (RND * 4) - 2
38.         my = (RND * 4) - 2
39.         FOR d = 320 TO 0 STEP -.125
40.             _LIMIT 1000
41.             s = s + k
42.             x = COS(s * 3.141592 / 180) * d
43.             x = x + mx
44.             y = SIN(s * 3.151492 / 180) * d
45.             y = y + my
46.             xx = x + 300: yy = y + 300
47.             CIRCLE (xx, yy), 30, _RGB32(c1, c2, c3)
48.             _DISPLAY
49.             LINE (0, 0)-(800, 600), _RGBA(0, 0, 0, 30), BF
50.             mx$ = STR$(mx): my$ = STR$(my): s$ = STR$(s): xx$ = STR$(xx): yy$ = STR$(yy): k$ = STR$(k)
51.             _TITLE "Fun K=" + k$ + " mx=" + mx$ + " my=" + my$ + " s=" + s$ + " name= " + name$
52.             a$ = INKEY$
53.             IF a$ = CHR$(27) THEN END
54.             IF a$ = " " AND sl = 0 THEN sl = 1: a$ = "": SLEEP
55.             IF a$ = " " AND sl = 1 THEN sl = 0
56.             IF a$ = "I" OR a$ = "i" THEN
57.                 GOSUB info
58.                 d = 320
59.                 m = 1
60.             END IF
61.         NEXT d
62.     NEXT m
63. LOOP
64. info:
65. mode = (mode + 1) MOD 10
66. SELECT CASE mode
67.     CASE 1 '
68.         name$ = "Juggle"
69.         k = 659
70.         mx = 1.070739
71.         my = 1.296892
72.         s = 655705
73.     CASE 2
74.         name$ = "Coin"
75.         k = 321
76.         mx = 1.248722
77.         my = .2715797
78.         s = 286011
79.     CASE 3
80.         name$ = "Coin 2"
81.         k = 321
82.         mx = .4692338
83.         my = .8475013
84.         s = 1607247
85.     CASE 4
86.         name$ = "Up and Down"
87.         k = 120
88.         mx = 1.096297
89.         my = .659328
90.         s = 300960
91.     CASE 5
92.         name$ = "Big Coin"
93.         k = 106
94.         mx = .1813991
95.         my = -1.679267
96.         s = 235956
97.     CASE 6
98.         name$ = "Dancing"
99.         k = 258
100.         mx = -1.142254
101.         my = 1.664867
102.         s = 1489692
103.     CASE 7
104.         name$ = "Open and Close"
105.         k = 166
106.         mx = -1.737304
107.         my = 1.140303
108.         s = 248668
109.     CASE 8
110.         name$ = "A Dizzy Circle"
111.         k = 126
112.         mx = 1.371215
113.         my = 1.281544
114.         s = 699174
115.     CASE 9
116.         name$ = "Waves"
117.         k = 320
118.         mx = 1.708808
119.         my = -.4963732
120.         s = 1344960
121.     CASE 0
122.         name$ = "Speed Racer"
123.         k = 214
124.         mx = 1.125437
125.         my = 1.366045
126.         s = 318218
127. END SELECT
128. RETURN
129.  
130.  
131.  

;D BTW what is the mouse stuff for?

[SierraKen]

LOL Bplus, hey my brain is still on holiday mode. :) The mouse stuff was from the Kaleidoscope that I got the code from, I forgot to remove it, thanks for telling me.
Also thanks for the idea of putting in the examples, I used that idea except to make a list of them and have the user choose from them.
I hope to use this program in the future to make animations of different sorts. Tell me what you think, thanks. Also, try picking random numbers, like 100,200,300,400 or whatever. I don't think it works with all the same numbers though for some reason.
Here is my update:

Code: QB64: [Select]

1. start:
2. SCREEN _NEWIMAGE(600, 600, 32)
3. CLS
4. PRINT "                          Fun Math Graphics 2"
5. PRINT: PRINT
6. PRINT "                               by Ken G."
7. PRINT: PRINT
8. PRINT "                 Watch the computer calculate different"
9. PRINT "                 pathways for a circle to move around on."
10. PRINT
11. PRINT "                          Space Bar to Pause."
12. PRINT "               I to set your own variables or see examples."
13. PRINT "                             Esc to Quit"
14. PRINT
15. PRINT
16. INPUT "                        Press Enter To Begin.", bg$
17. CLS
18.  
19. DO
20.     _LIMIT 500
21.     RANDOMIZE TIMER
22.     c1 = INT(RND * 100) + 155
23.     c2 = INT(RND * 100) + 155
24.     c3 = INT(RND * 100) + 155
25.     k = INT(RND * 900) + 100
26.     s = 0
27.     NAME$ = "random"
28.     FOR m = 1 TO 3
29.         RANDOMIZE TIMER
30.         mx = (RND * 4) - 2
31.         my = (RND * 4) - 2
32.         FOR d = 320 TO 0 STEP -.125
33.             _LIMIT 1000
34.             s = s + k
35.             x = COS(s * 3.141592 / 180) * d
36.             x = x + mx
37.             y = SIN(s * 3.151492 / 180) * d
38.             y = y + my
39.             xx = x + 300: yy = y + 300
40.             CIRCLE (xx, yy), 30, _RGB32(c1, c2, c3)
41.             _DISPLAY
42.             LINE (0, 0)-(800, 600), _RGBA(0, 0, 0, 30), BF
43.             mx$ = STR$(mx): my$ = STR$(my): s$ = STR$(s): xx$ = STR$(xx): yy$ = STR$(yy): k$ = STR$(k)
44.             _TITLE "K=" + k$ + " mx=" + mx$ + " my=" + my$ + " s=" + s$ + " name= " + NAME$
45.             a$ = INKEY$
46.             IF a$ = CHR$(27) THEN END
47.             IF a$ = " " AND sl = 0 THEN sl = 1: a$ = "": SLEEP
48.             IF a$ = " " AND sl = 1 THEN sl = 0
49.             IF a$ = "I" OR a$ = "i" THEN GOSUB info:
50.         NEXT d
51.     NEXT m
52. LOOP
53. info:
54. CLS
55. PRINT "See Examples or Input Data Page"
56. PRINT
57. PRINT "(1) See Examples"
58. PRINT "(2) Input Your Own Data"
59. PRINT "(3) Go Back To Random Displays"
60. PRINT "(4) Quit"
61. PRINT
62. INPUT "Choose 1-4 Here:", ex
63. IF ex = 1 THEN GOTO examples:
64. IF ex = 2 THEN GOTO inputting:
65. IF ex = 3 THEN RETURN
66. IF ex = 4 THEN END
67. GOTO info:
68.  
69. examples:
70. CLS
71. PRINT "Examples"
72. PRINT
73. PRINT "(0) Speed Racer"
74. PRINT "(1) Juggle"
75. PRINT "(2) Coin"
76. PRINT "(3) Coin 2"
77. PRINT "(4) Up and Down"
78. PRINT "(5) Big Coin"
79. PRINT "(6) Dancing"
80. PRINT "(7) Open and Close"
81. PRINT "(8) A Dizzy Circle"
82. PRINT "(9) Waves"
83. PRINT
84. INPUT "Type 0-9 Here:"; exx
85. IF exx < 0 OR exx > 9 OR exx <> INT(exx) THEN GOTO examples:
86. IF exx = 1 THEN
87.     NAME$ = "Juggle"
88.     k = 659
89.     mx = 1.070739
90.     my = 1.296892
91.     s = 655705
92. END IF
93. IF exx = 2 THEN
94.     NAME$ = "Coin"
95.     k = 321
96.     mx = 1.248722
97.     my = .2715797
98.     s = 286011
99. END IF
100. IF exx = 3 THEN
101.     NAME$ = "Coin 2"
102.     k = 321
103.     mx = .4692338
104.     my = .8475013
105.     s = 1607247
106. END IF
107. IF exx = 4 THEN
108.     NAME$ = "Up and Down"
109.     k = 120
110.     mx = 1.096297
111.     my = .659328
112.     s = 300960
113. END IF
114. IF exx = 5 THEN
115.     NAME$ = "Big Coin"
116.     k = 106
117.     mx = .1813991
118.     my = -1.679267
119.     s = 235956
120. END IF
121. IF exx = 6 THEN
122.     NAME$ = "Dancing"
123.     k = 258
124.     mx = -1.142254
125.     my = 1.664867
126.     s = 1489692
127. END IF
128. IF exx = 7 THEN
129.     NAME$ = "Open and Close"
130.     k = 166
131.     mx = -1.737304
132.     my = 1.140303
133.     s = 248668
134. END IF
135. IF exx = 8 THEN
136.     NAME$ = "A Dizzy Circle"
137.     k = 126
138.     mx = 1.371215
139.     my = 1.281544
140.     s = 699174
141. END IF
142. IF exx = 9 THEN
143.     NAME$ = "Waves"
144.     k = 320
145.     mx = 1.708808
146.     my = -.4963732
147.     s = 1344960
148. END IF
149. IF exx = 0 THEN
150.     NAME$ = "Speed Racer"
151.     k = 214
152.     mx = 1.125437
153.     my = 1.366045
154.     s = 318218
155. END IF
156. RETURN
157.  
158. inputting:
159. PRINT
160. INPUT "Name: ", NAME$
161. INPUT "k: ", k
162. INPUT "mx: ", mx
163. INPUT "my: ", my
164. INPUT "s: ", s
165. RETURN
166.  

[SierraKen]

LOL Thanks [banned user]!