<*+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.