freepascal.compiler/packages/extra/amunits/units/prtgfx.pas

{
    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.

    [email protected]
}

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.