7 lines
209 B
Text
7 lines
209 B
Text
declare
|
|
[BitmapIO Grayscale] = {Module.link ['BitmapIO.ozf' 'Grayscale.ozf']}
|
|
|
|
B = {BitmapIO.read "image.ppm"}
|
|
G = {Grayscale.toGraymap B}
|
|
in
|
|
{BitmapIO.write {Grayscale.fromGraymap G} "greyimage.ppm"}
|