Bitmap/Write a PPM file: Difference between revisions

[[Category:Input Output]]

 

 

=={{header|Ada}}==

with Ada.Streams.Stream_IO; use Ada.Streams.Stream_IO;

 

procedure Put_PPM (File : File_Type; Picture : Image) is

end loop;

Character'Write (Stream (File), LF);

The solution writes the image into an opened file. The file format might fail to work on certain [[OS]]es, because output might mangle control characters like LF, CR, FF, HT, VT etc. The OS might also limit the line length of a text file. In general it is a bad idea to mix binary and text output in one file. This solution uses ''stream I/O'', which should be as portable as possible.

=={{header|AutoHotkey}}==

{

}

 

 

=={{header|C}}==

 

Interface:

 

 

Implementation:

 

 

void output_ppm(FILE *fd, image img)

{

=={{header|C sharp|C#}}==

This implementation uses a StreamWriter to write the header in text, then writes the pixel data in binary using a BinaryWriter.

using System.IO;

class PPMWriter

{

 

=={{header|Common Lisp}}==

 

(with-open-file (stream filename

:element-type '(unsigned-byte 8)

(write-byte green stream)

(write-byte blue stream)))))))

=={{header|D}}==

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

=={{header|Fortran}}==

{{works with|Fortran|90 and later}}

 

implicit none

 

 

 

end do

 

 

 

=={{header|Haskell}}==

 

module Bitmap.Netpbm(readNetpbm, writeNetpbm) where

readNetpbm :: forall c. Color c => FilePath -> IO (Image RealWorld c)

readNetpbm path = do

let (s, rest) = splitAt 2 ppm

unless (s == magicNumber) die

i <- stToIO $ listImage width height $

fromNetpbm $ map fromEnum rest

return i

where skipBlanks =

 

writeNetpbm :: forall c. Color c => FilePath -> Image RealWorld c -> IO ()

(width, height) <- stToIO $ dimensions i

let w = hPutStrLn h

w $ magicNumber

w $ show width ++ " " ++ show height

stToIO (getPixels i) >>= hPutStr h . toNetpbm

where magicNumber = netpbmMagicNumber (nil :: c)

=={{header|J}}==

'''Solution:'''

 

'''Example:'''

Using routines from [[Basic_bitmap_storage#J|Basic Bitmap Storage]]:

 

=={{header|Modula-3}}==

<code>Bitmap</code> is the module from [[Basic_bitmap_storage#Modula-3|Basic Bitmap Storage]].

 

IMPORT Bitmap, Pathname;

PROCEDURE Create(imgfile: Pathname.T; img: Bitmap.T);

 

 

IMPORT Bitmap, Wr, FileWr, Pathname;

BEGIN

 

 

let width = Bigarray.Array2.dim1 r_channel

and height = Bigarray.Array2.dim2 r_channel in

output_char oc '\n';

flush oc;

 

=={{header|Perl}}==

 

 

 

 

 

 

 

 

 

 

=={{header|R}}==

{{libheader|pixmap}}

# View the existing code in the library

library(pixmap)

#Usage

write.pnm(theimage, filename)

 

=={{header|Tcl}}==

{{libheader|Tk}}

Referring to [[Basic bitmap storage#Tcl]]:

 

proc output_ppm {image filename} {

binary scan [read $fh 3] c3 pixel

foreach colour $pixel {puts [expr {$colour & 0xff}]} ;# ==> 255 \n 0 \n 0 \n

 

=={{header|Vedit macro language}}==

 

Return

</pre>