Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: loudar on August 21, 2020, 11:05:35 am

Title: Noise generator
Post by: loudar on August 21, 2020, 11:05:35 am
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.  
  6.  
  7. SCREEN _NEWIMAGE(1280, 720, 32)
  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
Title: Re: Noise generator
Post by: OldMoses on August 21, 2020, 12:29:49 pm
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.
Title: Re: Noise generator
Post by: bplus on August 21, 2020, 03:07:59 pm
Yes that 2nd pattern looks almost like looking down on ocean.
Text Only | Text with Attachments