Anonymous user
Bitmap/PPM conversion through a pipe: Difference between revisions
Bitmap/PPM conversion through a pipe (view source)
Revision as of 07:42, 24 June 2010
, 13 years agoAdded PicoLisp
(Added PicoLisp) |
|||
Line 64:
with End_of_file -> ()
;;</lang>
=={{header|PicoLisp}}==
<lang PicoLisp># Create an empty image of 120 x 90 pixels
(setq *Ppm (make (do 90 (link (need 120)))))
# Fill background with green color
(ppmFill *Ppm 0 255 0)
# Draw a diagonal line
(for I 80 (ppmSetPixel *Ppm I I 0 0 0))
# Write to "img.jpg" through a pipe
(ppmWrite *Ppm '("convert" "-" "img.jpg"))</lang>
=={{header|Ruby}}==
Extends [[Write ppm file#Ruby]]. Uses the ImageMagick <code>convert</code> tool.
|