Pseudorandom number generator image: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (Thundergnat moved page Pseudorandom Number Generator Image to Pseudorandom number generator image: Follow normal task title capitalization policy) |
|||
Line 225: | Line 225: | ||
print F $img->png;</lang> |
print F $img->png;</lang> |
||
[https://github.com/SqrtNegInf/Rosettacode-Perl5-Smoke/blob/master/ref/PNG-image500.png image500.png] (sample image, offsite) |
[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}}== |
=={{header|PicoLisp}}== |