Four Animated Scenes

[SierraKen]

Today I made four animated scenes. One shows a television's static, one shows a river, one shows a pond, and one shows snow falling down. Thanks for B+ for the array teaching from the space warp I did the other day. I used that information to make the falling snow but geared it my own way some. Press the space bar to see each one. After the 4th one it goes back to the 1st.

Code: QB64: [Select]

1. 'Four Animated Scenes
2. 'By Sierraken on June 18, 2020.
3. 'Press the Space Bar to see each one.
4. 'Thanks to B+ for teaching me more about arrays.
5.  
6. SCREEN _NEWIMAGE(800, 600, 32)
7. _TITLE "Press space bar to see more."
8. RANDOMIZE TIMER
9. nSnow = 32
10. DIM x(1 TO nSnow), y(1 TO nSnow), s(1 TO nSnow), speed(1 TO nSnow)
11.  
12. start:
13. 'One: Television
14. DO
15.     fx2 = fx2 + 1
16.     IF fx2 > 5 THEN fx2 = 1
17.     FOR fy = 100 TO 300
18.         FOR fx = 300 TO 500
19.             IF tt = 0 THEN t = t + 1
20.             IF t > 10 THEN tt = 1
21.             IF tt = 1 THEN t = t - 1
22.             IF t < -10 THEN tt = 0
23.             PSET ((SIN(fy * 0.017453 / fx2) * t) + fx, (SIN(fx * 0.017453 / fx2) * t) + fy), _RGB32(200, 200, 200)
24.         NEXT fx
25.     NEXT fy
26.     FOR tv = 0 TO 30
27.         LINE (300 - tv, 100 - tv)-(500 + tv, 300 + tv), _RGB32(150, 127, 0), B
28.     NEXT tv
29.     FOR sz = .25 TO 4 STEP .25
30.         CIRCLE (450, 315), sz, _RGB32(0, 0, 0)
31.         CIRCLE (475, 315), sz, _RGB32(0, 0, 0)
32.     NEXT sz
33.     LINE (390, 330)-(410, 380), _RGB32(150, 127, 0), BF
34.     LINE (330, 380)-(470, 400), _RGB32(150, 127, 0), BF
35.     _DISPLAY
36.     CLS
37.     a$ = INKEY$
38.     IF a$ = CHR$(27) THEN END
39.     IF a$ = " " THEN GOTO two:
40. LOOP
41. two:
42. fx2 = 0
43. t = 0: tt = 0
44.  
45. 'Two: Creek
46. DO
47.     _LIMIT 15
48.     LINE (0, 0)-(800, 300), _RGB32(0, 150, 255), BF
49.     LINE (0, 300)-(800, 600), _RGB32(0, 255, 172), BF
50.     LINE (0, 400)-(800, 550), _RGB32(127, 172, 255), BF
51.     FOR hills = 1 TO 800 STEP 150
52.         FOR sz = .25 TO 125 STEP .25
53.             hc = hc + .25
54.             CIRCLE (hills, 300), sz, _RGB32(0, 255 - hc, 0), 2 * _PI, _PI
55.         NEXT sz
56.         hc = 0
57.     NEXT hills
58.     fx2 = fx2 + 2
59.     IF fx2 > 5 THEN fx2 = 1
60.     FOR fy = 400 TO 550
61.         FOR fx = 1 TO 800
62.             IF tt = 0 THEN t = t + .2
63.             IF t > 8 THEN tt = 1
64.             IF tt = 1 THEN t = t - .2
65.             IF t < -8 THEN tt = 0
66.             PSET ((SIN(fy * 2.017453 / fx2) * t) + fx, (SIN(fx * 4.017453 / fx2) * t) + fy), _RGB32(20, 80, 255)
67.         NEXT fx
68.     NEXT fy
69.     _DISPLAY
70.     CLS
71.     a$ = INKEY$
72.     IF a$ = CHR$(27) THEN END
73.     IF a$ = " " THEN GOTO three:
74. LOOP
75. three:
76. fx2 = 0
77. t = 0: tt = 0
78.  
79. 'Three: Pond
80. tt = 1
81. t = 155
82. CLS
83. LINE (0, 300)-(800, 600), _RGB32(0, 255, 172), BF
84. LINE (0, 0)-(800, 300), _RGB32(0, 150, 255), BF
85. FOR hills = 1 TO 900 STEP 175
86.     FOR sz = .25 TO 125 STEP .25
87.         hc = hc + .25
88.         CIRCLE (hills, 300), sz, _RGB32(0, 255 - hc, 0), 2 * _PI, _PI
89.     NEXT sz
90.     hc = 0
91. NEXT hills
92. DO
93.     cir = cir + .25
94.     t = t + tt
95.     IF t > 255 THEN t = 155
96.     IF cir > 175 THEN cir = .5
97.     CIRCLE (400, 450), cir, _RGB32(0, 0, t), , , .75
98.     _DISPLAY
99.     a$ = INKEY$
100.     IF a$ = CHR$(27) THEN END
101.     IF a$ = " " THEN GOTO four:
102. LOOP
103. four:
104. fx2 = 0
105. t = 0: tt = 0
106. CLS
107.  
108. 'Four: Snow
109. FOR i = 1 TO nSnow
110.     x(i) = RND * 800 + 1
111.     y(i) = 0
112.     speed(i) = RND * 5 + 1
113.     s(i) = RND * 5
114.     IF s(i) < 1 THEN s(i) = 1
115.     IF s(i) > 5 THEN s(i) = 1
116. NEXT
117. L = 200
118. DO
119.     _LIMIT 100
120.     PAINT (2, 2), _RGB32(122, 144, 155)
121.     FOR i = 1 TO nSnow
122.         y(i) = y(i) + speed(i)
123.         FOR sze = .25 TO s(i) STEP .25
124.             CIRCLE (x(i), y(i)), sze, _RGB32(255, 255, 255)
125.         NEXT
126.     NEXT
127.     _DISPLAY
128.     CLS
129.     FOR i = 1 TO nSnow
130.         ' is x or y off screen?
131.         IF x(i) > _WIDTH OR x(i) < 0 THEN s(i) = RND * 5 + 1: y(i) = 0: x(i) = RND * 800 + 1: speed(i) = RND * 5 + 1
132.         IF y(i) > _HEIGHT OR y(i) < 0 THEN s(i) = RND * 5 + 1: y(i) = 0: x(i) = RND * 800 + 1: speed(i) = RND * 5 + 1
133.     NEXT
134.     a$ = INKEY$
135.     IF a$ = CHR$(27) THEN END
136.     IF a$ = " " THEN CLS: GOTO start:
137. LOOP
138.  

[bplus]

Wow code is looking more normal to me,

I like snow and TV best, static on TV is cool!

[OldMoses]

I think I see dead people in that TV... ;)

[SierraKen]

LOL OldMoses! Thanks guys. :). I use these examples to get code from later. :) Maybe others will do the same here.

[Ashish]

Nice! Awesome! I like it!
Keep posting programs like this! :)

[Petr]

Yeah, it's really nice.

[SierraKen]

Thanks Ashish and Petr. :)