<*+M2EXTENSIONS *>

DEFINITION MODULE imagetext; (* write text on 16 bit rgb image in dyn array by oe5dxl *)

FROM SYSTEM IMPORT CARD16;

TYPE
     PIX=RECORD r,g,b:CARD16 END;
     IMAGELINE=ARRAY OF PIX;
     IMAGE=ARRAY OF IMAGELINE;
     pIMAGE=POINTER TO IMAGE;

PROCEDURE writestr(image:pIMAGE; x, y, fontsize, dir, contrast:CARDINAL; br,bg,bb:INTEGER; s:ARRAY OF CHAR);
PROCEDURE strsize(fontsize:CARDINAL; s:ARRAY OF CHAR):CARDINAL;
PROCEDURE fontsizex(fontsize:CARDINAL):CARDINAL;
PROCEDURE fontsizey(fontsize:CARDINAL):CARDINAL;

END imagetext.
