Having Fun With Water Waves Again

[SierraKen]

Last June I made some cool looking water waves if any of you remember. I will put the link it below. So tonight I decided to try a simpler approach on them which makes smaller waves and more of them. Instead of plotting each point, this time I just used one single CIRCLE command for the entire program. I then added the idea B+ gave me last time to shift them over to the side to make an angle and it did the same thing here. :) Check it out!

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(800, 600, 32)
2. c = .01 'c is shape of half-circle.
3. d = 1 'd is direction of up and down.
4. xx = 400 'Added amount to fill the screen below.
5. _LIMIT 30
6. DO
7.     IF d = 1 THEN c = c + .01
8.     IF c > .9 THEN d = 2
9.     IF d = 2 THEN c = c - .01
10.     IF c < .01 THEN d = 1
11.     xx = xx + 2 'Movement from left to right.
12.     IF xx > 2000 THEN xx = 400
13.     FOR y = 300 TO 600 STEP 1 'Vertical Loop.
14.         xxx = xxx + 1 'Shift making it at an angle.
15.         FOR x = xx + 800 TO -xx STEP -50 'Horizontal Loop.
16.             CIRCLE (x + xxx, y), 25, _RGB32(0, b, 155 + b), _PI, 2 * _PI, c 'All of the waves you see.
17.             b = b + 1 'Blue color.
18.             IF b > 100 THEN b = 0
19.         NEXT x
20.     NEXT y
21.     xxx = 0
22.     _DISPLAY
23.     CLS
24.     PAINT (2, 2), _RGB32(116, 205, 255) 'Sky
25.     _LIMIT 30
26. LOOP
27.  

Here is last June's waves: https://www.qb64.org/forum/index.php?topic=2682.0

[johnno56]

Hi Ken,

I think that replacing the "paint()" command with LINE (0, 0)-(800, 325), _RGB32(116, 205, 255), BF may be a little more efficient...

Principle: (correct me if I am wrong) A floodfill needs to process surrounding pixels from the 'start point' and either continues check and plotting, as it goes, until it reaches a predetermined colour or the edge of the screen. Doing this 30 times per second could cause a lot of memory usage and on some older machines it may impact performance... There is probably a lot more involved but this is 'my' understanding... lol

[SierraKen]

Thanks Johnno, I keep forgetting about that. It did reduce my CPU usage from around 6% to around 4%. Also, I have it cover the entire screen to fill-in any dark areas of the water.
Edit: I also just deleted CLS since that is not needed anymore either. :)

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(800, 600, 32)
2. c = .01 'c is shape of half-circle.
3. d = 1 'd is direction of up and down.
4. xx = 400 'Added amount to fill the screen below.
5. _LIMIT 30
6. DO
7.     IF d = 1 THEN c = c + .01
8.     IF c > .9 THEN d = 2
9.     IF d = 2 THEN c = c - .01
10.     IF c < .01 THEN d = 1
11.     xx = xx + 2 'Movement from left to right.
12.     IF xx > 2000 THEN xx = 400
13.     FOR y = 300 TO 600 STEP 1 'Vertical Loop.
14.         xxx = xxx + 1 'Shift making it at an angle.
15.         FOR x = xx + 800 TO -xx STEP -50 'Horizontal Loop.
16.             CIRCLE (x + xxx, y), 25, _RGB32(0, b, 155 + b), _PI, 2 * _PI, c 'All of the waves you see.
17.             b = b + 1 'Blue color.
18.             IF b > 100 THEN b = 0
19.         NEXT x
20.     NEXT y
21.     xxx = 0
22.     _DISPLAY
23.     LINE (0, 0)-(800, 600), _RGB32(128, 233, 255), BF
24.     _LIMIT 30
25. LOOP
26.  

[johnno56]

I just whipped up a little program to test the timing between Paint and Line()-(),,bf

Every time BF was instant. The majority of the time, paint varied between 0.05 and 0.0 seconds. So, visually anyway, either method is as good as the other.... I don't know how to test for memory usage...

So, on more recent machines - visually, my earlier explanation may not be applicable...

[SierraKen]

To see CPU usage and memory usage, while the program is running, press Ctrl Alt Del and look at the name of your program on the list of programs running and what they are using. This is for Windows only. Then just close it when you are done.

[bplus]

OK try again, a little drama to the calm scene :)

[SierraKen]

LOL B+! I was wondering if someone would add an animal, etc. to this. lol Good one.

[bplus]

Ha! I was wondering when / if you would notice, a fun little break from puzzle making and analyzing. :)