Bitmap/Write a PPM file: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,312: / Line 1,312: @@
 == {{Header|Nim}} ==
-<lang nim>proc writePPM(img: Image, f: TFile) =
+<lang nim>
+import bitmap
-  f.writeln "P6\n", img.w, " ", img.h, "\n255"
+proc writePPM(img: Image, file: var File) =
+  ## Write an image in a PPM file.
+  file.writeLine("P6 ", img.w, " ", img.h, " 255")
   for x,y in img.indices:
-    f.write char(img[x,y].r)
+    file.writeBytes(img[x,y], 0, 3)
-    f.write char(img[x,y].g)
+proc writePPM(img: Image; filename: string) =
-    f.write char(img[x,y].b)</lang>
+  ## Write an image in a PPM file.
+  var file = open(filename, fmWrite)
+  file.writePPM(img)
+</lang>
 == {{Header|OCaml}} ==