mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-19 05:23:25 +01:00
105 lines
4.5 KiB
ObjectPascal
105 lines
4.5 KiB
ObjectPascal
{
|
|
This file is part of the Free Pascal run time library.
|
|
|
|
A file in Amiga system run time library.
|
|
Copyright (c) 1998 by Nils Sjoholm
|
|
member of the Amiga RTL development team.
|
|
|
|
See the file COPYING.FPC, included in this distribution,
|
|
for details about the copyright.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
**********************************************************************}
|
|
|
|
{
|
|
History:
|
|
|
|
Update for AmigaOS 3.9.
|
|
31 Jan 2003.
|
|
|
|
nils.sjoholm@mailbox.swipnet.se
|
|
}
|
|
|
|
unit prtgfx;
|
|
|
|
INTERFACE
|
|
|
|
uses exec,utility;
|
|
Const
|
|
|
|
PCMYELLOW = 0; { byte index for yellow }
|
|
PCMMAGENTA = 1; { byte index for magenta }
|
|
PCMCYAN = 2; { byte index for cyan }
|
|
PCMBLACK = 3; { byte index for black }
|
|
PCMBLUE = PCMYELLOW; { byte index for blue }
|
|
PCMGREEN = PCMMAGENTA; { byte index for green }
|
|
PCMRED = PCMCYAN; { byte index for red }
|
|
PCMWHITE = PCMBLACK; { byte index for white }
|
|
|
|
Type
|
|
PUWORD = ^UWORD;
|
|
|
|
pColorEntry = ^tColorEntry;
|
|
tcolorEntry = record
|
|
colorLong : ULONG; { quick access to all of YMCB }
|
|
colorByte : Array [0..3] of Byte; { 1 entry for each of YMCB }
|
|
colorSByte : Array [0..3] of Shortint; { ditto (except signed) }
|
|
end;
|
|
|
|
pPrtInfo = ^tPrtInfo;
|
|
tPrtInfo = record { printer info }
|
|
pi_render : Pointer; { PRIVATE - DO NOT USE! }
|
|
pi_rp : Pointer; { PRIVATE - DO NOT USE! (RastPortPtr)}
|
|
pi_temprp : Pointer; { PRIVATE - DO NOT USE! (RastPortPtr)}
|
|
pi_RowBuf : Pointer; { PRIVATE - DO NOT USE! }
|
|
pi_HamBuf : Pointer; { PRIVATE - DO NOT USE! }
|
|
pi_ColorMap : pcolorEntry; { PRIVATE - DO NOT USE! }
|
|
pi_ColorInt : pcolorEntry; { color intensities for entire row }
|
|
pi_HamInt : pcolorEntry; { PRIVATE - DO NOT USE! }
|
|
pi_Dest1Int : pcolorEntry; { PRIVATE - DO NOT USE! }
|
|
pi_Dest2Int : pcolorEntry; { PRIVATE - DO NOT USE! }
|
|
pi_ScaleX : Pointer; { array of scale values for X }
|
|
pi_ScaleXAlt : Pointer; { PRIVATE - DO NOT USE! }
|
|
pi_dmatrix : Pointer; { pointer to dither matrix }
|
|
pi_TopBuf : Pointer; { PRIVATE - DO NOT USE! }
|
|
pi_BotBuf : Pointer; { PRIVATE - DO NOT USE! }
|
|
|
|
pi_RowBufSize : Word; { PRIVATE - DO NOT USE! }
|
|
pi_HamBufSize : Word; { PRIVATE - DO NOT USE! }
|
|
pi_ColorMapSize : Word; { PRIVATE - DO NOT USE! }
|
|
pi_ColorIntSize : Word; { PRIVATE - DO NOT USE! }
|
|
pi_HamIntSize : Word; { PRIVATE - DO NOT USE! }
|
|
pi_Dest1IntSize : Word; { PRIVATE - DO NOT USE! }
|
|
pi_Dest2IntSize : Word; { PRIVATE - DO NOT USE! }
|
|
pi_ScaleXSize : Word; { PRIVATE - DO NOT USE! }
|
|
pi_ScaleXAltSize : Word; { PRIVATE - DO NOT USE! }
|
|
|
|
pi_PrefsFlags : Word; { PRIVATE - DO NOT USE! }
|
|
pi_special : ULONG; { PRIVATE - DO NOT USE! }
|
|
pi_xstart : Word; { PRIVATE - DO NOT USE! }
|
|
pi_ystart : Word; { PRIVATE - DO NOT USE! }
|
|
pi_width : Word; { source width (in pixels) }
|
|
pi_height : Word; { PRIVATE - DO NOT USE! }
|
|
pi_pc : ULONG; { PRIVATE - DO NOT USE! }
|
|
pi_pr : ULONG; { PRIVATE - DO NOT USE! }
|
|
pi_ymult : Word; { PRIVATE - DO NOT USE! }
|
|
pi_ymod : Word; { PRIVATE - DO NOT USE! }
|
|
pi_ety : Shortint; { PRIVATE - DO NOT USE! }
|
|
pi_xpos : Word; { offset to start printing picture }
|
|
pi_threshold : Word; { threshold value (from prefs) }
|
|
pi_tempwidth : Word; { PRIVATE - DO NOT USE! }
|
|
pi_flags : Word; { PRIVATE - DO NOT USE! }
|
|
{ V44 additions }
|
|
pi_ReduceBuf : PUWORD; { PRIVATE - DO NOT USE! }
|
|
pi_ReduceBufSize : UWORD; { PRIVATE - DO NOT USE! }
|
|
pi_SourceHook : PHook; { PRIVATE - DO NOT USE! }
|
|
pi_InvertHookBuf : PULONG; { RESERVED - DO NOT USE! }
|
|
end;
|
|
|
|
IMPLEMENTATION
|
|
|
|
end.
|