<*+ CSTDLIB *> <*- NOHEADER *> <*+ M2EXTENSIONS *> DEFINITION MODULE ["C"] pngwritebw; FROM SYSTEM IMPORT ADDRESS, CARD8; TYPE pIMAGE=POINTER TO ARRAY OF CARD8; PNGPIXMAP=RECORD image:pIMAGE; width, height:CARDINAL; END; PROCEDURE writepng(fn:ARRAY OF CHAR; VAR pixmap:PNGPIXMAP):INTEGER; END pngwritebw.