DEFINITION MODULE PrtGfx; (*$Implementation:=FALSE*)
(* 07-May-1992/cn *)

FROM SYSTEM IMPORT ADDRESS;

FROM GraphicsD IMPORT
 RastPortPtr;

CONST
 yellow=0;
 magenta=1;
 cyan=2;
 black=3;

 blue=yellow;
 green=magenta;
 red=cyan;
 white=black;

TYPE
 ColorEntry=RECORD
  CASE :INTEGER OF
  |0: colorLong:LONGCARD;
  |1: colorByte: ARRAY [0..3] OF SHORTCARD;
  |2: colorSByte:ARRAY [0..3] OF SHORTINT;
  END;
 END;
 ColorEntryPtr=POINTER TO ColorEntry;

 PrtInfo=RECORD
  render:PROCEDURE():INTEGER;
  rp:RastPortPtr;
  temprp:RastPortPtr;
  rowBuf:ADDRESS;
  hamBuf:ADDRESS;
  colorMap:ColorEntryPtr;
  colorInt:ColorEntryPtr;
  hamInt:ColorEntryPtr;
  dest1Int:ColorEntryPtr;
  dest2Int:ColorEntryPtr;
  scaleX:ADDRESS;
  scaleXAlt:ADDRESS;
  dmatrix:ADDRESS;
  topBuf:ADDRESS;
  botBuf:ADDRESS;
  rowBufSize:CARDINAL;
  hamBufSize:CARDINAL;
  colorMapSize:CARDINAL;
  colorIntSize:CARDINAL;
  hamIntSize:CARDINAL;
  dest1IntSize:CARDINAL;
  dest2IntSize:CARDINAL;
  scaleXSize:CARDINAL;
  scaleXAltSize:CARDINAL;
  prefsFlags:CARDINAL;
  special:LONGCARD;
  xstart:CARDINAL;
  ystart:CARDINAL;
  width:CARDINAL;
  height:CARDINAL;
  pc:LONGCARD;
  pr:LONGCARD;
  ymult:CARDINAL;
  ymod:CARDINAL;
  ety:INTEGER;
  xpos:CARDINAL;
  threshold:CARDINAL;
  tempwidth:CARDINAL;
  flags:CARDINAL;
 END;
 PrtInfoPtr=POINTER TO PrtInfo;

END PrtGfx.noimp
