<*+ CSTDLIB  *>
<*- NOHEADER *>
<*+ M2EXTENSIONS *>

DEFINITION MODULE ["C"] pngwrite;

FROM SYSTEM IMPORT ADDRESS, CARD8;


TYPE PNGPIXEL=RECORD 
       red,
       green,
       blue  :CARD8;
     END;

     pIMAGE=POINTER TO ARRAY OF PNGPIXEL;
 
     PNGPIXMAP=RECORD
       image:pIMAGE;
       width,
       height:CARDINAL;
     END;

PROCEDURE writepng(fn:ARRAY OF CHAR; VAR pixmap:PNGPIXMAP):INTEGER;


END pngwrite.