Noise generator

[loudar]

Does what it says!

Types:
0: sets a point
1: draws sine waves
2: empty rectangles
3: rectangles with a sinus curve stretched to the height of the rectangle

Feel free to add more or use it in a different context!

Code: QB64: [Select]

1. 'noise generator
2.  
3. CLS
4. CLEAR
5. CLOSE
6.  
7. SCREEN _NEWIMAGE(1280, 720, 32)
8. RANDOMIZE TIMER
9.  
10. steps = 10 'maximum alpha for one pixel
11. clustersize = 100
12. count = 10000
13. minwidth = 20
14. minheight = 20
15.  
16. maxntype = 3
17.  
18. ntype = -1: DO: ntype = ntype + 1
19.     IF ntype = 0 THEN count = count * 10: steps = steps * 20
20.     IF ntype = 2 THEN steps = steps * 10
21.  
22.     CLS
23.     d = 0: DO: d = d + 1 'd serves as index for Drawn pixels
24.  
25.         x(1) = RND * _WIDTH
26.         y(1) = RND * _HEIGHT
27.         x(2) = (RND * (clustersize - minwidth)) + minwidth
28.         x(2) = x(1) + (x(2) - (x(2) / 2))
29.         y(2) = (RND * (clustersize - minheight)) + minheight
30.         y(2) = y(1) + (y(2) - (y(2) / 2))
31.         t = RND * steps
32.         IF y(2) > y(1) THEN ydif = y(2) - y(1) ELSE ydif = y(1) - y(2)
33.         IF x(2) > x(1) THEN xdif = x(2) - x(1) ELSE xdif = x(1) - x(2)
34.  
35.         SELECT CASE ntype
36.             CASE 0
37.                 PSET (x(1), y(1)), _RGBA(255, 255, 255, t)
38.             CASE 1
39.                 s = 0: DO: s = s + 1
40.                     PSET (s, y(1) + (SIN(s / xdif) * ydif)), _RGBA(255, 255, 255, t)
41.                     PSET (s, y(1) + (SIN(s / xdif) * ydif) + 1), _RGBA(255, 255, 255, t)
42.                 LOOP UNTIL s = _WIDTH
43.             CASE 2
44.                 LINE (x(1), y(1))-(x(2), y(2)), _RGBA(255, 255, 255, t), B
45.             CASE 3
46.                 c = 0: DO: c = c + 1
47.                     f = c / ydif
48.                     x = SIN(f * (_PI / 2)) * xdif
49.                     'x = xdif - x
50.                     LINE (x(1), y(1) + c)-(x(1) + x, y(1) + c), _RGBA(255, 255, 255, t)
51.                 LOOP UNTIL c = INT(ydif)
52.         END SELECT
53.  
54.     LOOP UNTIL d = count 'tries to make good contrast
55.     _DISPLAY
56.  
57.     IF ntype = 0 THEN count = count / 10: steps = steps / 20
58.     IF ntype = 2 THEN steps = steps / 10
59.     SLEEP
60. LOOP UNTIL ntype = maxntype

[OldMoses]

Good one.

Funny story, I rather liked that second shot as a wispy filament type background for potential picture projects. So I go to screen capture, but Doh!! it's a sleep statement, so every time I go to hit the <alt> <PrtSc> the screen jumps to the next image. LOL I felt like a monkey with his hand stuck in a cookie jar.

I got it by substituting a keydown do loop for sleep.

[bplus]

Yes that 2nd pattern looks almost like looking down on ocean.