Pseudorandom number generator image: Difference between revisions
→{{header|Phix}}
Thundergnat (talk | contribs) m (Thundergnat moved page Pseudorandom Number Generator Image to Pseudorandom number generator image: Follow normal task title capitalization policy) |
|||
Line 225:
print F $img->png;</lang>
[https://github.com/SqrtNegInf/Rosettacode-Perl5-Smoke/blob/master/ref/PNG-image500.png image500.png] (sample image, offsite)
=={{header|Phix}}==
{{libheader|pGUI}}
<lang Phix>-- demo\rosetta\Pseudorandom_number_generator_image.exw
include pGUI.e
IupOpen()
integer w=250, h=w
sequence bw = repeat(0,w*h)
for x=0 to w-1 do
for y=0 to h-1 do
if rand(2)=2 then bw[x*h+y+1] = 255 end if
end for
end for
Ihandle image = IupImage(w,h,bw)
object res = IupSaveImage(image,"bw.png","PNG")
IupClose()</lang>
=={{header|PicoLisp}}==
| |||