home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Programme_zum_Heft / Programmieren / Kurztests / PascalPCQ / Include / Devices / PrtGfx.i < prev    next >
Text File  |  1990-08-28  |  3KB  |  71 lines
  1. {
  2.     PrtGfx.i for PCQ Pascal
  3. }
  4.  
  5. Const
  6.  
  7.     PCMYELLOW        = 0;        { byte index for yellow }
  8.     PCMMAGENTA        = 1;        { byte index for magenta }
  9.     PCMCYAN        = 2;        { byte index for cyan }
  10.     PCMBLACK        = 3;        { byte index for black }
  11.     PCMBLUE        = PCMYELLOW;    { byte index for blue }
  12.     PCMGREEN        = PCMMAGENTA;    { byte index for green }
  13.     PCMRED        = PCMCYAN;    { byte index for red }
  14.     PCMWHITE        = PCMBLACK;    { byte index for white }
  15.  
  16. Type
  17.  
  18.     colorEntry = record
  19.     colorLong    : Integer;    { quick access to all of YMCB }
  20.     colorByte    : Array [0..3] of Byte;    { 1 entry for each of YMCB }
  21.     colorSByte    : Array [0..3] of Byte;    { ditto (except signed) }
  22.     end;
  23.     colorEntryPtr = ^colorEntry;
  24.  
  25.  
  26.     PrtInfo = record { printer info }
  27.     pi_render    : Address;    { PRIVATE - DO NOT USE! }
  28.     pi_rp        : Address;    { PRIVATE - DO NOT USE! (RastPortPtr)}
  29.     pi_temprp    : Address;    { PRIVATE - DO NOT USE! (RastPortPtr)}
  30.     pi_RowBuf    : Address;    { PRIVATE - DO NOT USE! }
  31.     pi_HamBuf    : Address;    { PRIVATE - DO NOT USE! }
  32.     pi_ColorMap    : colorEntryPtr; { PRIVATE - DO NOT USE! }
  33.     pi_ColorInt    : colorEntryPtr; { color intensities for entire row }
  34.     pi_HamInt    : colorEntryPtr; { PRIVATE - DO NOT USE! }
  35.     pi_Dest1Int    : colorEntryPtr; { PRIVATE - DO NOT USE! }
  36.     pi_Dest2Int    : colorEntryPtr; { PRIVATE - DO NOT USE! }
  37.     pi_ScaleX    : Address;    { array of scale values for X }
  38.     pi_ScaleXAlt    : Address;    { PRIVATE - DO NOT USE! }
  39.     pi_dmatrix    : Address;    { pointer to dither matrix }
  40.     pi_TopBuf    : Address;    { PRIVATE - DO NOT USE! }
  41.     pi_BotBuf    : Address;    { PRIVATE - DO NOT USE! }
  42.  
  43.     pi_RowBufSize    : Short;    { PRIVATE - DO NOT USE! }
  44.     pi_HamBufSize    : Short;    { PRIVATE - DO NOT USE! }
  45.     pi_ColorMapSize    : Short;    { PRIVATE - DO NOT USE! }
  46.     pi_ColorIntSize    : Short;    { PRIVATE - DO NOT USE! }
  47.     pi_HamIntSize    : Short;    { PRIVATE - DO NOT USE! }
  48.     pi_Dest1IntSize    : Short;    { PRIVATE - DO NOT USE! }
  49.     pi_Dest2IntSize    : Short;    { PRIVATE - DO NOT USE! }
  50.     pi_ScaleXSize    : Short;    { PRIVATE - DO NOT USE! }
  51.     pi_ScaleXAltSize : Short;    { PRIVATE - DO NOT USE! }
  52.  
  53.     pi_PrefsFlags    : Short;    { PRIVATE - DO NOT USE! }
  54.     pi_special    : Integer;    { PRIVATE - DO NOT USE! }
  55.     pi_xstart    : Short;    { PRIVATE - DO NOT USE! }
  56.     pi_ystart    : Short;    { PRIVATE - DO NOT USE! }
  57.     pi_width    : Short;    { source width (in pixels) }
  58.     pi_height    : Short;    { PRIVATE - DO NOT USE! }
  59.     pi_pc        : Integer;    { PRIVATE - DO NOT USE! }
  60.     pi_pr        : Integer;    { PRIVATE - DO NOT USE! }
  61.     pi_ymult    : Short;    { PRIVATE - DO NOT USE! }
  62.     pi_ymod        : Short;    { PRIVATE - DO NOT USE! }
  63.     pi_ety        : Short;    { PRIVATE - DO NOT USE! }
  64.     pi_xpos        : Short;    { offset to start printing picture }
  65.     pi_threshold    : Short;    { threshold value (from prefs) }
  66.     pi_tempwidth    : Short;    { PRIVATE - DO NOT USE! }
  67.     pi_flags    : Short;    { PRIVATE - DO NOT USE! }
  68.     end;
  69.     PrtInfoPtr = ^PrtInfo;
  70.  
  71.