pmgpi.fi

来自「开放源码的编译器open watcom 1.6.0版的源代码」· FI 代码 · 共 2,079 行 · 第 1/4 页

        integer  SCP_ALTERNATE
        parameter (SCP_ALTERNATE = 0)
        integer  SCP_WINDING
        parameter (SCP_WINDING = 2)
        integer  SCP_AND
        parameter (SCP_AND = 4)
        integer  SCP_RESET
        parameter (SCP_RESET = 0)

c$ifndef INCL_DDIDEFS

        external GpiBeginPath
        integer*4 GpiBeginPath

        external GpiEndPath
        integer*4 GpiEndPath

        external GpiCloseFigure
        integer*4 GpiCloseFigure

        external GpiModifyPath
        integer*4 GpiModifyPath

        external GpiFillPath
        integer*4 GpiFillPath

        external GpiSetClipPath
        integer*4 GpiSetClipPath

        external GpiOutlinePath
        integer*4 GpiOutlinePath

        external GpiPathToRegion
        integer*4 GpiPathToRegion

        external GpiStrokePath
        integer*4 GpiStrokePath

c$endif

c$endif

c$ifdef INCL_GPILOGCOLORTABLE

c$define INCL_GPIBITMAPS

        integer  LCOL_RESET
        parameter (LCOL_RESET = '00000001'x)
        integer  LCOL_REALIZABLE
        parameter (LCOL_REALIZABLE = '00000002'x)
        integer  LCOL_PURECOLOR
        parameter (LCOL_PURECOLOR = '00000004'x)
        integer  LCOL_OVERRIDE_DEFAULT_COLORS
        parameter (LCOL_OVERRIDE_DEFAULT_COLORS = '00000008'x)
        integer  LCOL_REALIZED
        parameter (LCOL_REALIZED = '00000010'x)

        integer  LCOLF_DEFAULT
        parameter (LCOLF_DEFAULT = 0)
        integer  LCOLF_INDRGB
        parameter (LCOLF_INDRGB = 1)
        integer  LCOLF_CONSECRGB
        parameter (LCOLF_CONSECRGB = 2)
        integer  LCOLF_RGB
        parameter (LCOLF_RGB = 3)
        integer  LCOLF_PALETTE
        parameter (LCOLF_PALETTE = 4)

        integer  LCOLOPT_REALIZED
        parameter (LCOLOPT_REALIZED = '00000001'x)
        integer  LCOLOPT_INDEX
        parameter (LCOLOPT_INDEX = '00000002'x)

        integer  QLCT_ERROR
        parameter (QLCT_ERROR = -1)
        integer  QLCT_RGB
        parameter (QLCT_RGB = -2)

        integer  QLCT_NOTLOADED
        parameter (QLCT_NOTLOADED = -1)

        integer  QCD_LCT_FORMAT
        parameter (QCD_LCT_FORMAT = 0)
        integer  QCD_LCT_LOINDEX
        parameter (QCD_LCT_LOINDEX = 1)
        integer  QCD_LCT_HIINDEX
        parameter (QCD_LCT_HIINDEX = 2)
        integer  QCD_LCT_OPTIONS
        parameter (QCD_LCT_OPTIONS = 3)

        integer  PAL_ERROR
        parameter (PAL_ERROR = -1)

        integer  PC_RESERVED
        parameter (PC_RESERVED = '00000001'x)
        integer  PC_EXPLICIT
        parameter (PC_EXPLICIT = '00000002'x)
        integer  PC_NOCOLLAPSE
        parameter (PC_NOCOLLAPSE = '00000004'x)

c$ifndef INCL_DDIDEFS

        external GpiCreateLogColorTable
        integer*4 GpiCreateLogColorTable

        external GpiQueryColorData
        integer*4 GpiQueryColorData

        external GpiQueryLogColorTable
        integer*4 GpiQueryLogColorTable

        external GpiQueryRealColors
        integer*4 GpiQueryRealColors

        external GpiQueryNearestColor
        integer*4 GpiQueryNearestColor

        external GpiQueryColorIndex
        integer*4 GpiQueryColorIndex

        external GpiQueryRGBColor
        integer*4 GpiQueryRGBColor

        external GpiCreatePalette
        integer*4 GpiCreatePalette

        external GpiDeletePalette
        integer*4 GpiDeletePalette

        external GpiSelectPalette
        integer*4 GpiSelectPalette

        external GpiAnimatePalette
        integer*4 GpiAnimatePalette

        external GpiSetPaletteEntries
        integer*4 GpiSetPaletteEntries

        external GpiQueryPalette
        integer*4 GpiQueryPalette

        external GpiQueryPaletteInfo
        integer*4 GpiQueryPaletteInfo

c$endif

c$endif

c$ifdef INCL_GPIPRIMITIVES

        integer  CLR_FALSE
        parameter (CLR_FALSE = -5)
        integer  CLR_TRUE
        parameter (CLR_TRUE = -4)

        integer  CLR_ERROR
        parameter (CLR_ERROR = -255)
        integer  CLR_DEFAULT
        parameter (CLR_DEFAULT = -3)
        integer  CLR_WHITE
        parameter (CLR_WHITE = -2)
        integer  CLR_BLACK
        parameter (CLR_BLACK = -1)
        integer  CLR_BACKGROUND
        parameter (CLR_BACKGROUND = 0)
        integer  CLR_BLUE
        parameter (CLR_BLUE = 1)
        integer  CLR_RED
        parameter (CLR_RED = 2)
        integer  CLR_PINK
        parameter (CLR_PINK = 3)
        integer  CLR_GREEN
        parameter (CLR_GREEN = 4)
        integer  CLR_CYAN
        parameter (CLR_CYAN = 5)
        integer  CLR_YELLOW
        parameter (CLR_YELLOW = 6)
        integer  CLR_NEUTRAL
        parameter (CLR_NEUTRAL = 7)

        integer  CLR_DARKGRAY
        parameter (CLR_DARKGRAY = 8)
        integer  CLR_DARKBLUE
        parameter (CLR_DARKBLUE = 9)
        integer  CLR_DARKRED
        parameter (CLR_DARKRED = 10)
        integer  CLR_DARKPINK
        parameter (CLR_DARKPINK = 11)
        integer  CLR_DARKGREEN
        parameter (CLR_DARKGREEN = 12)
        integer  CLR_DARKCYAN
        parameter (CLR_DARKCYAN = 13)
        integer  CLR_BROWN
        parameter (CLR_BROWN = 14)
        integer  CLR_PALEGRAY
        parameter (CLR_PALEGRAY = 15)

        integer  RGB_ERROR
        parameter (RGB_ERROR = -255)
        integer  RGB_BLACK
        parameter (RGB_BLACK = '00000000'x)
        integer  RGB_BLUE
        parameter (RGB_BLUE = '000000FF'x)
        integer  RGB_GREEN
        parameter (RGB_GREEN = '0000FF00'x)
        integer  RGB_CYAN
        parameter (RGB_CYAN = '0000FFFF'x)
        integer  RGB_RED
        parameter (RGB_RED = '00FF0000'x)
        integer  RGB_PINK
        parameter (RGB_PINK = '00FF00FF'x)
        integer  RGB_YELLOW
        parameter (RGB_YELLOW = '00FFFF00'x)
        integer  RGB_WHITE
        parameter (RGB_WHITE = '00FFFFFF'x)

        integer  BA_NOBOUNDARY
        parameter (BA_NOBOUNDARY = 0)
        integer  BA_BOUNDARY
        parameter (BA_BOUNDARY = '00000001'x)

        integer  BA_ALTERNATE
        parameter (BA_ALTERNATE = 0)
        integer  BA_WINDING
        parameter (BA_WINDING = '00000002'x)

        integer  DRO_FILL
        parameter (DRO_FILL = 1)
        integer  DRO_OUTLINE
        parameter (DRO_OUTLINE = 2)
        integer  DRO_OUTLINEFILL
        parameter (DRO_OUTLINEFILL = 3)

        integer  PATSYM_ERROR
        parameter (PATSYM_ERROR = -1)
        integer  PATSYM_DEFAULT
        parameter (PATSYM_DEFAULT = 0)
        integer  PATSYM_DENSE1
        parameter (PATSYM_DENSE1 = 1)
        integer  PATSYM_DENSE2
        parameter (PATSYM_DENSE2 = 2)
        integer  PATSYM_DENSE3
        parameter (PATSYM_DENSE3 = 3)
        integer  PATSYM_DENSE4
        parameter (PATSYM_DENSE4 = 4)
        integer  PATSYM_DENSE5
        parameter (PATSYM_DENSE5 = 5)
        integer  PATSYM_DENSE6
        parameter (PATSYM_DENSE6 = 6)
        integer  PATSYM_DENSE7
        parameter (PATSYM_DENSE7 = 7)
        integer  PATSYM_DENSE8
        parameter (PATSYM_DENSE8 = 8)
        integer  PATSYM_VERT
        parameter (PATSYM_VERT = 9)
        integer  PATSYM_HORIZ
        parameter (PATSYM_HORIZ = 10)
        integer  PATSYM_DIAG1
        parameter (PATSYM_DIAG1 = 11)
        integer  PATSYM_DIAG2
        parameter (PATSYM_DIAG2 = 12)
        integer  PATSYM_DIAG3
        parameter (PATSYM_DIAG3 = 13)
        integer  PATSYM_DIAG4
        parameter (PATSYM_DIAG4 = 14)
        integer  PATSYM_NOSHADE
        parameter (PATSYM_NOSHADE = 15)
        integer  PATSYM_SOLID
        parameter (PATSYM_SOLID = 16)
        integer  PATSYM_HALFTONE
        parameter (PATSYM_HALFTONE = 17)
        integer  PATSYM_HATCH
        parameter (PATSYM_HATCH = 18)
        integer  PATSYM_DIAGHATCH
        parameter (PATSYM_DIAGHATCH = 19)
        integer  PATSYM_BLANK
        parameter (PATSYM_BLANK = 64)

        integer  LCID_ERROR
        parameter (LCID_ERROR = -1)
        integer  LCID_DEFAULT
        parameter (LCID_DEFAULT = 0)

c$ifndef INCL_DDIDEFS

        external GpiSetColor
        integer*4 GpiSetColor

        external GpiQueryColor
        integer*4 GpiQueryColor

        external GpiBox
        integer*4 GpiBox

        external GpiMove
        integer*4 GpiMove

        external GpiLine
        integer*4 GpiLine

        external GpiPolyLine
        integer*4 GpiPolyLine

        external GpiPolyLineDisjoint
        integer*4 GpiPolyLineDisjoint

        external GpiSetPattern
        integer*4 GpiSetPattern

        external GpiQueryPattern
        integer*4 GpiQueryPattern

        external GpiBeginArea
        integer*4 GpiBeginArea

        external GpiEndArea
        integer*4 GpiEndArea

        external GpiCharString
        integer*4 GpiCharString

        external GpiCharStringAt
        integer*4 GpiCharStringAt

c$endif

c$endif

c$ifdef INCL_GPIPRIMITIVES

        integer  AM_ERROR
        parameter (AM_ERROR = -1)
        integer  AM_PRESERVE
        parameter (AM_PRESERVE = 0)
        integer  AM_NOPRESERVE
        parameter (AM_NOPRESERVE = 1)

        integer  FM_ERROR
        parameter (FM_ERROR = -1)
        integer  FM_DEFAULT
        parameter (FM_DEFAULT = 0)
        integer  FM_OR
        parameter (FM_OR = 1)
        integer  FM_OVERPAINT
        parameter (FM_OVERPAINT = 2)
        integer  FM_LEAVEALONE
        parameter (FM_LEAVEALONE = 5)

        integer  FM_XOR
        parameter (FM_XOR = 4)
        integer  FM_AND
        parameter (FM_AND = 6)
        integer  FM_SUBTRACT
        parameter (FM_SUBTRACT = 7)
        integer  FM_MASKSRCNOT
        parameter (FM_MASKSRCNOT = 8)
        integer  FM_ZERO
        parameter (FM_ZERO = 9)
        integer  FM_NOTMERGESRC
        parameter (FM_NOTMERGESRC = 10)
        integer  FM_NOTXORSRC
        parameter (FM_NOTXORSRC = 11)
        integer  FM_INVERT
        parameter (FM_INVERT = 12)
        integer  FM_MERGESRCNOT
        parameter (FM_MERGESRCNOT = 13)
        integer  FM_NOTCOPYSRC
        parameter (FM_NOTCOPYSRC = 14)
        integer  FM_MERGENOTSRC
        parameter (FM_MERGENOTSRC = 15)
        integer  FM_NOTMASKSRC
        parameter (FM_NOTMASKSRC = 16)
        integer  FM_ONE
        parameter (FM_ONE = 17)

        integer  BM_ERROR
        parameter (BM_ERROR = -1)
        integer  BM_DEFAULT
        parameter (BM_DEFAULT = 0)
        integer  BM_OR
        parameter (BM_OR = 1)
        integer  BM_OVERPAINT
        parameter (BM_OVERPAINT = 2)
        integer  BM_LEAVEALONE
        parameter (BM_LEAVEALONE = 5)

        integer  BM_XOR
        parameter (BM_XOR = 4)
        integer  BM_AND
        parameter (BM_AND = 6)
        integer  BM_SUBTRACT
        parameter (BM_SUBTRACT = 7)
        integer  BM_MASKSRCNOT
        parameter (BM_MASKSRCNOT = 8)
        integer  BM_ZERO
        parameter (BM_ZERO = 9)
        integer  BM_NOTMERGESRC
        parameter (BM_NOTMERGESRC = 10)
        integer  BM_NOTXORSRC
        parameter (BM_NOTXORSRC = 11)
        integer  BM_INVERT
        parameter (BM_INVERT = 12)
        integer  BM_MERGESRCNOT
        parameter (BM_MERGESRCNOT = 13)
        integer  BM_NOTCOPYSRC
        parameter (BM_NOTCOPYSRC = 14)
        integer  BM_MERGENOTSRC
        parameter (BM_MERGENOTSRC = 15)
        integer  BM_NOTMASKSRC
        parameter (BM_NOTMASKSRC = 16)
        integer  BM_ONE
        parameter (BM_ONE = 17)

        integer  LINETYPE_ERROR
        parameter (LINETYPE_ERROR = -1)
        integer  LINETYPE_DEFAULT
        parameter (LINETYPE_DEFAULT = 0)
        integer  LINETYPE_DOT
        parameter (LINETYPE_DOT = 1)
        integer  LINETYPE_SHORTDASH
        parameter (LINETYPE_SHORTDASH = 2)
        integer  LINETYPE_DASHDOT
        parameter (LINETYPE_DASHDOT = 3)
        integer  LINETYPE_DOUBLEDOT
        parameter (LINETYPE_DOUBLEDOT = 4)
        integer  LINETYPE_LONGDASH
        parameter (LINETYPE_LONGDASH = 5)
        integer  LINETYPE_DASHDOUBLEDOT
        parameter (LINETYPE_DASHDOUBLEDOT = 6)
        integer  LINETYPE_SOLID
        parameter (LINETYPE_SOLID = 7)
        integer  LINETYPE_INVISIBLE
        parameter (LINETYPE_INVISIBLE = 8)
        integer  LINETYPE_ALTERNATE
        parameter (LINETYPE_ALTERNATE = 9)

        integer  LINEWIDTH_ERROR
        parameter (LINEWIDTH_ERROR = -1)
        integer  LINEWIDTH_DEFAULT
        parameter (LINEWIDTH_DEFAULT = 0)
        integer  LINEWIDTH_NORMAL
        parameter (LINEWIDTH_NORMAL = '00010000'x)
        integer  LINEWIDTH_THICK
        parameter (LINEWIDTH_THICK = '00020000'x)

        integer  LINEWIDTHGEOM_ERROR
        parameter (LINEWIDTHGEOM_ERROR = -1)

        integer  LINEEND_ERROR
        parameter (LINEEND_ERROR = -1)
        integer  LINEEND_DEFAULT
        parameter (LINEEND_DEFAULT = 0)
        integer  LINEEND_FLAT
        parameter (LINEEND_FLAT = 1)
        integer  LINEEND_SQUARE
        parameter (LINEEND_SQUARE = 2)
        integer  LINEEND_ROUND
        parameter (LINEEND_ROUND = 3)

        integer  LINEJOIN_ERROR
        parameter (LINEJOIN_ERROR = -1)
        integer  LINEJOIN_DEFAULT
        parameter (LINEJOIN_DEFAULT = 0)
        integer  LINEJOIN_BEVEL
        parameter (LINEJOIN_BEVEL = 1)
        integer  LINEJOIN_ROUND
        parameter (LINEJOIN_ROUND = 2)
        integer  LINEJOIN_MITRE
        parameter (LINEJOIN_MITRE = 3)

        integer  CHDIRN_ERROR
        parameter (CHDIRN_ERROR = -1)
        integer  CHDIRN_DEFAULT
        parameter (CHDIRN_DEFAULT = 0)
        integer  CHDIRN_LEFTRIGHT
        parameter (CHDIRN_LEFTRIGHT = 1)
        integer  CHDIRN_TOPBOTTOM
        parameter (CHDIRN_TOPBOTTOM = 2)
        integer  CHDIRN_RIGHTLEFT
        parameter (CHDIRN_RIGHTLEFT = 3)
        integer  CHDIRN_BOTTOMTOP
        parameter (CHDIRN_BOTTOMTOP = 4)

        integer  TA_NORMAL_HORIZ
        parameter (TA_NORMAL_HORIZ = '00000001'x)
        integer  TA_LEFT
        parameter (TA_LEFT = '00000002'x)
        integer  TA_CENTER
        parameter (TA_CENTER = '00000003'x)
        integer  TA_RIGHT
        parameter (TA_RIGHT = '00000004'x)
        integer  TA_STANDARD_HORIZ
        parameter (TA_STANDARD_HORIZ = '00000005'x)
        integer  TA_NORMAL_VERT
        parameter (TA_NORMAL_VERT = '00000100'x)
        integer  TA_TOP
        parameter (TA_TOP = '00000200'x)
        integer  TA_HALF
        parameter (TA_HALF = '00000300'x)
        integer  TA_BASE
        parameter (TA_BASE = '00000400'x)
        integer  TA_BOTTOM
        parameter (TA_BOTTOM = '00000500'x)
        integer  TA_STANDARD_VERT
        parameter (TA_STANDARD_VERT = '00000600'x)

        integer  CM_ERROR
        parameter (CM_ERROR = -1)
        integer  CM_DEFAULT
        parameter (CM_DEFAULT = 0)
        integer  CM_MODE1
        parameter (CM_MODE1 = 1)
        integer  CM_MODE2
        parameter (CM_MODE2 = 2)
        integer  CM_MODE3
        parameter (CM_MODE3 = 3)

        integer  MARKSYM_ERROR
        parameter (MARKSYM_ERROR = -1)