Bitmap/Write a PPM file: Difference between revisions

Content added Content deleted
m (→‎{{header|Phix}}: minor tidy)
Line 1,428: Line 1,428:


=={{header|Phix}}==
=={{header|Phix}}==
Copy of [[Bitmap/Write_a_PPM_file#Euphoria|Euphoria]]. Included as demo\rosetta\Bitmap_write_ppm.exw The results may be verified with demo\rosetta\viewppm.exw
Copy of [[Bitmap/Write_a_PPM_file#Euphoria|Euphoria]]. The results may be verified with demo\rosetta\viewppm.exw
<lang Phix>constant dimx = 512, dimy = 512
<lang Phix>-- demo\rosetta\Bitmap_write_ppm.exw
constant dimx = 512, dimy = 512
constant fn = open("first.ppm","wb") -- b - binary mode
constant fn = open("first.ppm","wb") -- b - binary mode
sequence color
sequence color