DIRECTORY
GraphicsDefs: FROM "GraphicsDefs" USING [Bitmap];

HalftoneDefs: DEFINITIONS =
BEGIN OPEN GraphicsDefs;

SetHalftoneResolution: PROCEDURE [nOutputBitsPerPixel,fieldLength,nOffsetBits: CARDINAL,useError: BOOLEAN ← TRUE,distributeError: BOOLEAN ← FALSE];

InitHalftone: PROCEDURE [
x,y: CARDINAL,--top left corner in bitmap
nInputPixels,nOutputDots: CARDINAL,--8 bit pixels, packed
black: INTEGER ← 0,white: INTEGER ← 255,
bitmap: POINTER TO Bitmap ← NIL,
nInputLines: CARDINAL ← 0,nOutputLines: CARDINAL ← 0,
mode: CARDINAL ← 3];

SetTRC: PUBLIC PROCEDURE [trc: POINTER TO ARRAY [0..256) OF CARDINAL];

PrintHalftoneLine: PROCEDURE [p: LONG POINTER] RETURNS [nLinesPrinted: CARDINAL];

END.