Bitmap/Read a PPM file: Difference between revisions

 

=={{header|Ada}}==

with Ada.Characters.Latin_1; use Ada.Characters.Latin_1;

with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;

end;

end Get_PPM;

The implementation propagates Data_Error when the file format is incorrect. End_Error is propagated when the file end is prematurely met. The following example illustrates conversion of a color file to grayscale.

declare

F1, F2 : File_Type;

Close (F2);

end;

 

=={{header|C}}==

[[Read image file through a pipe]] without modification. It only understand the P6 file format.

 

 

#define PPMREADBUFLEN 256

return img;

}

 

The following acts as a filter to convert a PPM file read from standard input into a PPM gray image, and it outputs the converted image to standard output (see [[Grayscale image]], [[Write ppm file]], and [[Raster graphics operations]] in general):

 

/* #include "imglib.h" */

 

free_img(source); free_img((image)idest);

return 0;

 

=={{header|Forth}}==

=={{header|OCaml}}==

 

let ic = open_in filename in

let line = input_line ic in

r_channel,

g_channel,

 

and converting a given color file to grayscale:

let img = read_ppm ~filename:"logo.ppm" in

let img = to_color(to_grayscale ~img) in

output_ppm ~oc:stdout ~img;

ocaml script.ml | display -