7 lines
199 B
Text
7 lines
199 B
Text
proc writePPM(img: Image, f: TFile) =
|
|
f.writeln "P6\n", img.w, " ", img.h, "\n255"
|
|
|
|
for x,y in img.indices:
|
|
f.write char(img[x,y].r)
|
|
f.write char(img[x,y].g)
|
|
f.write char(img[x,y].b)
|