Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on June 18, 2020, 08:44:29 pm

Title: Four Animated Scenes
Post by: SierraKen on June 18, 2020, 08:44:29 pm
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."
  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
  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:
  41. two:
  42. fx2 = 0
  43. t = 0: tt = 0
  44.  
  45. 'Two: Creek
  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:
  75. three:
  76. fx2 = 0
  77. t = 0: tt = 0
  78.  
  79. 'Three: Pond
  80. tt = 1
  81. t = 155
  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
  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:
  103. four:
  104. fx2 = 0
  105. t = 0: tt = 0
  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
  117. L = 200
  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:
  138.  
Title: Re: Four Animated Scenes
Post by: bplus on June 18, 2020, 09:56:38 pm
Wow code is looking more normal to me,

I like snow and TV best, static on TV is cool!
Title: Re: Four Animated Scenes
Post by: OldMoses on June 18, 2020, 10:54:56 pm
I think I see dead people in that TV... ;)
Title: Re: Four Animated Scenes
Post by: SierraKen on June 18, 2020, 11:14:02 pm
LOL OldMoses! Thanks guys. :). I use these examples to get code from later. :) Maybe others will do the same here.
Title: Re: Four Animated Scenes
Post by: Ashish on June 19, 2020, 01:49:46 am
Nice! Awesome! I like it!
Keep posting programs like this! :)
Title: Re: Four Animated Scenes
Post by: Petr on June 19, 2020, 10:59:42 am
Yeah, it's really nice.
Title: Re: Four Animated Scenes
Post by: SierraKen on June 20, 2020, 10:50:59 pm
Thanks Ashish and Petr. :)
Text Only | Text with Attachments