Data commit

Task/Bitmap-PPM-conversion-through-a-pipe/Nim/bitmap-ppm-conversion-through-a-pipe-1.nim

@@ -0,0 +1,27 @@
+import bitmap
+import ppm_write
+import osproc
+
+# Build an image.
+var image = newImage(100, 50)
+image.fill(color(255, 0, 0))
+for row in 10..20:
+  for col in 0..<image.w:
+    image[col, row] = color(0, 255, 0)
+for row in 30..40:
+  for col in 0..<image.w:
+    image[col, row] = color(0, 0, 255)
+
+# Launch ImageMagick "convert".
+# Input is taken from stdin and result written in "output1.jpeg".
+var p = startProcess("convert", args = ["ppm:-", "output1.jpeg"], options = {poUsePath})
+var stream = p.inputStream()
+image.writePPM(stream)
+p.close()
+
+# Launch Netpbm "pnmtojpeg".
+# Input is taken from stdin and output sent to "output2.jpeg".
+p = startProcess("pnmtojpeg >output2.jpeg", options = {poUsePath, poEvalCommand})
+stream = p.inputStream()
+image.writePPM(stream)
+p.close()

Task/Bitmap-PPM-conversion-through-a-pipe/Nim/bitmap-ppm-conversion-through-a-pipe-2.nim

@@ -0,0 +1,15 @@
+let print_jpeg ~img ?(quality=96) () =
+  let cmd = Printf.sprintf "cjpeg -quality %d" quality in
+  (*
+  let cmd = Printf.sprintf "ppmtojpeg -quality %d" quality in
+  let cmd = Printf.sprintf "convert ppm:- -quality %d jpg:-" quality in
+  *)
+  let ic, oc = Unix.open_process cmd in
+  output_ppm ~img ~oc;
+  try
+    while true do
+      let c = input_char ic in
+      print_char c
+    done
+  with End_of_file -> ()
+;;