Bitmap/Read a PPM file: Difference between revisions

Content added Content deleted
m (→‎{{header|zkl}}: Forgot to fix another file link)
m (Adjust color element names.)
Line 1,430: Line 1,430:
for y range 0 to pred(height) do
for y range 0 to pred(height) do
for x range 0 to pred(width) do
for x range 0 to pred(width) do
pixColor.red_part := ord(getc(ppmFile));
pixColor.redLight := ord(getc(ppmFile));
pixColor.green_part := ord(getc(ppmFile));
pixColor.greenLight := ord(getc(ppmFile));
pixColor.blue_part := ord(getc(ppmFile));
pixColor.blueLight := ord(getc(ppmFile));
end for;
end for;
end for;
end for;
Retrieved from "https://rosettacode.org/wiki/Bitmap/Read_a_PPM_file"