Bitmap/PPM conversion through a pipe: Difference between revisions
Content added Content deleted
(→{{header|Go}}: library path updates) |
No edit summary |
||
Line 139: | Line 139: | ||
# Write to "img.jpg" through a pipe |
# Write to "img.jpg" through a pipe |
||
(ppmWrite *Ppm '("convert" "-" "img.jpg"))</lang> |
(ppmWrite *Ppm '("convert" "-" "img.jpg"))</lang> |
||
=={{header|Racket}}== |
|||
<lang racket> |
|||
(define (ppm->jpeg bitmap [jpg-file "output"] [quality 75]) |
|||
(define command (format "convert ppm:- -quality ~a jpg:~a.jpg" quality jpg-file)) |
|||
(match-define (list in out pid err ctrl) (process command)) |
|||
(bitmap->ppm bitmap out) |
|||
(close-input-port in) |
|||
(close-output-port out)) |
|||
(ppm->jpeg bm)</lang> |
|||
=={{header|Ruby}}== |
=={{header|Ruby}}== |