Water Waves

[bplus]

Oh just found reply #7 added beach:

Code: QB64: [Select]

1. _TITLE "Waves over beach" 'By SMcNeil mod Ken G.  mod b+ 2020-01-11
2. SCREEN _NEWIMAGE(800, 600, 32)
3. DIM k(8) AS _UNSIGNED LONG
4. COLOR , _RGB32(155, 100, 50) ' alittle beach
5. CLS
6. FOR k = 0 TO 8
7.     k(k) = _RGB32((9 - k) * 8, (9 - k) * 8, 128 + 128 / (9 - k)) ' a little colr reversal
8. NEXT
9. i = 802
10. DO
11.     LINE (0, 0)-(800, 600), _RGBA32(155, 100, 50, 5), BF 'water recedes
12.     i = (i - 8)
13.     IF i < -80 THEN i = 800
14.     FOR m = 0 TO 640 STEP 40
15.         COLOR k(m \ 80)
16.         FOR j = -600 TO 600 STEP 50
17.             sz = (RND * 30) + 5
18.             CIRCLE (i + m, SIN(_D2R(i)) * 300 + 300 + j), sz
19.             PAINT (i + m, SIN(_D2R(i)) * 300 + 300 + j), k(m \ 80)
20.         NEXT
21.     NEXT
22.     _LIMIT 60
23. LOOP
24.  

[SierraKen]

Incredible stuff guys! I had a feeling you all have done this before. :D Thanks for sharing. Awesome beach B+!

[Petr]

Nice sources, but one problem. When try compiling STxAxTIC 5000+ rows source code to exe, CC1Plus.EXE eat up to 7 gigabytes of RAM and EXE file is not creates after long time. Please someone try also compiling this source code under 1.3, if it works for you.

[bplus]

Nice sources, but one problem. When try compiling STxAxTIC 5000+ rows source code to exe, CC1Plus.EXE eat up to 7 gigabytes of RAM and EXE file is not creates after long time. Please someone try also compiling this source code under 1.3, if it works for you.

Yes it worked on my system w10-64 QB64 v1.3, I just checked mode 14 and not very thorough test but it compiled.

[Petr]

BPlus, May I ask what version 1.3 you use? Maybe I'll have to upgrade.

[bplus]

I think the version 1.3 [stable] git 96937f0 I got soon after the announcement of the update, so it's not particularly new.

[Petr]

Thank you BPlus. It is strange. This version doesn't work for me, but I downloaded the same version again, did a clean install in a new folder, and it works there.