Another update from ingydotnet^djgoku

Task/Bitmap-PPM-conversion-through-a-pipe/Mathematica/bitmap-ppm-conversion-through-a-pipe-1.math

@@ -0,0 +1,6 @@
+convert[img_, out_] :=
+  Module[{pipe =
+     StartProcess[{"WolframKernel", "-noinit", "-noprompt", "-run",
+       "Export[\"out.jpg\",ImportString[InputString[],\"PPM\"]]"}]},
+   WriteString[pipe, ExportString[Image[Graphics[]], "PPM"]];
+   Close[pipe];];

Task/Bitmap-PPM-conversion-through-a-pipe/Mathematica/bitmap-ppm-conversion-through-a-pipe-2.math

@@ -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 -> ()
+;;