Pseudorandom number generator image: Difference between revisions
Pseudorandom number generator image (view source)
Revision as of 01:41, 12 February 2022
, 2 years agoPseudorandom number generator image en FreeBASIC
(Added Forth entry) |
(Pseudorandom number generator image en FreeBASIC) |
||
Line 148:
prngimage</lang>
=={{header|FreeBASIC}}==
<lang freebasic>Windowtitle "Pseudorandom number generator image"
Dim As Integer w = 500, h = w, x, y
Screenres w, h, 16
For x = 0 To w-1
For y = 0 To h-1
Pset(x, y), Rgb(Rnd * 255, Rnd * 255, Rnd * 255)
Next y
Next x
Bsave "Pseudo-Random-Algorithm.bmp",0</lang>
[https://www.dropbox.com/s/xsj4y5rnwlid6r4/Pseudo-Random-Algorithm.bmp?dl=0 image500.png] (sample image, offsite)
| |||