pmgpi.fi

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

c$noreference

c$ifdef INCL_GPI
c$define INCL_GPICONTROL
c$define INCL_GPICORRELATION
c$define INCL_GPISEGMENTS
c$define INCL_GPISEGEDITING
c$define INCL_GPITRANSFORMS
c$define INCL_GPIPATHS
c$define INCL_GPIPOLYGON
c$define INCL_GPILOGCOLORTABLE
c$define INCL_GPIPRIMITIVES
c$define INCL_GPILCIDS
c$define INCL_GPIBITMAPS
c$define INCL_GPIREGIONS
c$define INCL_GPIMETAFILES
c$define INCL_GPIDEFAULTS
c$endif

c$ifdef INCL_ERRORS
c$define INCL_GPIERRORS
c$endif

c$ifdef INCL_DDIDEFS
c$define INCL_GPITRANSFORMS
c$define INCL_GPIPATHS
c$define INCL_GPILOGCOLORTABLE
c$define INCL_GPIPRIMITIVES
c$define INCL_GPILCIDS
c$define INCL_GPIBITMAPS
c$define INCL_GPIREGIONS
c$define INCL_GPIERRORS
c$endif

        integer  GPI_ERROR
        parameter (GPI_ERROR = 0)
        integer  GPI_OK
        parameter (GPI_OK = 1)
        integer  GPI_ALTERROR
        parameter (GPI_ALTERROR = -1)

        integer*4 MAKEFIXED
        external MAKEFIXED

        integer*2 FIXEDFRAC
        external FIXEDFRAC

        integer*2 FIXEDINT
        external FIXEDINT

        structure /SIZEL/
            integer*4 cx
            integer*4 cy
        end structure

        integer  CLR_NOINDEX
        parameter (CLR_NOINDEX = -254)

c$ifdef INCL_GPICONTROL

        integer  PU_ARBITRARY
        parameter (PU_ARBITRARY = '00000004'x)
        integer  PU_PELS
        parameter (PU_PELS = '00000008'x)
        integer  PU_LOMETRIC
        parameter (PU_LOMETRIC = '0000000C'x)
        integer  PU_HIMETRIC
        parameter (PU_HIMETRIC = '00000010'x)
        integer  PU_LOENGLISH
        parameter (PU_LOENGLISH = '00000014'x)
        integer  PU_HIENGLISH
        parameter (PU_HIENGLISH = '00000018'x)
        integer  PU_TWIPS
        parameter (PU_TWIPS = '0000001C'x)

        integer  GPIF_DEFAULT
        parameter (GPIF_DEFAULT = 0)
        integer  GPIF_SHORT
        parameter (GPIF_SHORT = '00000100'x)
        integer  GPIF_LONG
        parameter (GPIF_LONG = '00000200'x)


        integer  GPIT_NORMAL
        parameter (GPIT_NORMAL = 0)
        integer  GPIT_MICRO
        parameter (GPIT_MICRO = '00001000'x)

        integer  GPIA_NOASSOC
        parameter (GPIA_NOASSOC = 0)
        integer  GPIA_ASSOC
        parameter (GPIA_ASSOC = '00004000'x)

        integer  HDC_ERROR
        parameter (HDC_ERROR = -1)

        external GpiCreatePS
        integer*4 GpiCreatePS

        external GpiDestroyPS
        integer*4 GpiDestroyPS

        external GpiAssociate
        integer*4 GpiAssociate

        external GpiRestorePS
        integer*4 GpiRestorePS

        external GpiSavePS
        integer*4 GpiSavePS

        external GpiErase
        integer*4 GpiErase

        external GpiQueryDevice
        integer*4 GpiQueryDevice

        integer  GRES_ATTRS
        parameter (GRES_ATTRS = '00000001'x)
        integer  GRES_SEGMENTS
        parameter (GRES_SEGMENTS = '00000002'x)
        integer  GRES_ALL
        parameter (GRES_ALL = '00000004'x)

        integer  PS_UNITS
        parameter (PS_UNITS = '000000FC'x)
        integer  PS_FORMAT
        parameter (PS_FORMAT = '00000F00'x)
        integer  PS_TYPE
        parameter (PS_TYPE = '00001000'x)
        integer  PS_MODE
        parameter (PS_MODE = '00002000'x)
        integer  PS_ASSOCIATE
        parameter (PS_ASSOCIATE = '00004000'x)
        integer  PS_NORESET
        parameter (PS_NORESET = '00008000'x)

        integer  GPIE_SEGMENT
        parameter (GPIE_SEGMENT = 0)
        integer  GPIE_ELEMENT
        parameter (GPIE_ELEMENT = 1)
        integer  GPIE_DATA
        parameter (GPIE_DATA = 2)

        integer  DCTL_ERASE
        parameter (DCTL_ERASE = 1)
        integer  DCTL_DISPLAY
        parameter (DCTL_DISPLAY = 2)
        integer  DCTL_BOUNDARY
        parameter (DCTL_BOUNDARY = 3)
        integer  DCTL_DYNAMIC
        parameter (DCTL_DYNAMIC = 4)
        integer  DCTL_CORRELATE
        parameter (DCTL_CORRELATE = 5)

        integer  DCTL_ERROR
        parameter (DCTL_ERROR = -1)
        integer  DCTL_OFF
        parameter (DCTL_OFF = 0)
        integer  DCTL_ON
        parameter (DCTL_ON = 1)

        integer  SDW_ERROR
        parameter (SDW_ERROR = -1)
        integer  SDW_OFF
        parameter (SDW_OFF = 0)
        integer  SDW_ON
        parameter (SDW_ON = 1)

        integer  DM_ERROR
        parameter (DM_ERROR = 0)
        integer  DM_DRAW
        parameter (DM_DRAW = 1)
        integer  DM_RETAIN
        parameter (DM_RETAIN = 2)
        integer  DM_DRAWANDRETAIN
        parameter (DM_DRAWANDRETAIN = 3)

        external GpiResetPS
        integer*4 GpiResetPS

        external GpiSetPS
        integer*4 GpiSetPS

        external GpiQueryPS
        integer*4 GpiQueryPS

        external GpiErrorSegmentData
        integer*4 GpiErrorSegmentData

        external GpiQueryDrawControl
        integer*4 GpiQueryDrawControl

        external GpiSetDrawControl
        integer*4 GpiSetDrawControl

        external GpiQueryDrawingMode
        integer*4 GpiQueryDrawingMode

        external GpiSetDrawingMode
        integer*4 GpiSetDrawingMode

        external GpiQueryStopDraw
        integer*4 GpiQueryStopDraw

        external GpiSetStopDraw
        integer*4 GpiSetStopDraw

c$endif

c$ifdef INCL_GPICORRELATION

        integer  PICKAP_DEFAULT
        parameter (PICKAP_DEFAULT = 0)
        integer  PICKAP_REC
        parameter (PICKAP_REC = 2)

        integer  PICKSEL_VISIBLE
        parameter (PICKSEL_VISIBLE = 0)
        integer  PICKSEL_ALL
        parameter (PICKSEL_ALL = 1)

        integer  GPI_HITS
        parameter (GPI_HITS = 2)

        external GpiCorrelateChain
        integer*4 GpiCorrelateChain

        external GpiQueryTag
        integer*4 GpiQueryTag

        external GpiSetTag
        integer*4 GpiSetTag

        external GpiQueryPickApertureSize
        integer*4 GpiQueryPickApertureSize

        external GpiSetPickApertureSize
        integer*4 GpiSetPickApertureSize

        external GpiQueryPickAperturePosition
        integer*4 GpiQueryPickAperturePosition

        external GpiSetPickAperturePosition
        integer*4 GpiSetPickAperturePosition

        external GpiQueryBoundaryData
        integer*4 GpiQueryBoundaryData

        external GpiResetBoundaryData
        integer*4 GpiResetBoundaryData

        external GpiCorrelateFrom
        integer*4 GpiCorrelateFrom

        external GpiCorrelateSegment
        integer*4 GpiCorrelateSegment

c$endif

c$ifdef INCL_GPISEGMENTS

        integer  DFORM_NOCONV
        parameter (DFORM_NOCONV = 0)

        integer  DFORM_S370SHORT
        parameter (DFORM_S370SHORT = 1)
        integer  DFORM_PCSHORT
        parameter (DFORM_PCSHORT = 2)
        integer  DFORM_PCLONG
        parameter (DFORM_PCLONG = 4)

        integer  ATTR_ERROR
        parameter (ATTR_ERROR = -1)
        integer  ATTR_DETECTABLE
        parameter (ATTR_DETECTABLE = 1)
        integer  ATTR_VISIBLE
        parameter (ATTR_VISIBLE = 2)
        integer  ATTR_CHAINED
        parameter (ATTR_CHAINED = 6)

        integer  ATTR_DYNAMIC
        parameter (ATTR_DYNAMIC = 8)

        integer  ATTR_FASTCHAIN
        parameter (ATTR_FASTCHAIN = 9)
        integer  ATTR_PROP_DETECTABLE
        parameter (ATTR_PROP_DETECTABLE = 10)
        integer  ATTR_PROP_VISIBLE
        parameter (ATTR_PROP_VISIBLE = 11)

        integer  ATTR_OFF
        parameter (ATTR_OFF = 0)
        integer  ATTR_ON
        parameter (ATTR_ON = 1)

        integer  LOWER_PRI
        parameter (LOWER_PRI = -1)
        integer  HIGHER_PRI
        parameter (HIGHER_PRI = 1)

        external GpiOpenSegment
        integer*4 GpiOpenSegment

        external GpiCloseSegment
        integer*4 GpiCloseSegment

        external GpiDeleteSegment
        integer*4 GpiDeleteSegment

        external GpiQueryInitialSegmentAttrs
        integer*4 GpiQueryInitialSegmentAttrs

        external GpiSetInitialSegmentAttrs
        integer*4 GpiSetInitialSegmentAttrs

        external GpiQuerySegmentAttrs
        integer*4 GpiQuerySegmentAttrs

        external GpiSetSegmentAttrs
        integer*4 GpiSetSegmentAttrs

        external GpiQuerySegmentPriority
        integer*4 GpiQuerySegmentPriority

        external GpiSetSegmentPriority
        integer*4 GpiSetSegmentPriority

        external GpiDeleteSegments
        integer*4 GpiDeleteSegments

        external GpiQuerySegmentNames
        integer*4 GpiQuerySegmentNames

        external GpiGetData
        integer*4 GpiGetData

        external GpiPutData
        integer*4 GpiPutData

        external GpiDrawChain
        integer*4 GpiDrawChain

        external GpiDrawFrom
        integer*4 GpiDrawFrom

        external GpiDrawSegment
        integer*4 GpiDrawSegment

        external GpiDrawDynamics
        integer*4 GpiDrawDynamics

        external GpiRemoveDynamics
        integer*4 GpiRemoveDynamics

c$endif

c$ifdef INCL_GPISEGEDITING

        integer  SEGEM_ERROR
        parameter (SEGEM_ERROR = 0)
        integer  SEGEM_INSERT
        parameter (SEGEM_INSERT = 1)
        integer  SEGEM_REPLACE
        parameter (SEGEM_REPLACE = 2)

        external GpiBeginElement
        integer*4 GpiBeginElement

        external GpiEndElement
        integer*4 GpiEndElement

        external GpiLabel
        integer*4 GpiLabel

        external GpiElement
        integer*4 GpiElement

        external GpiQueryElement
        integer*4 GpiQueryElement

        external GpiDeleteElement
        integer*4 GpiDeleteElement

        external GpiDeleteElementRange
        integer*4 GpiDeleteElementRange

        external GpiDeleteElementsBetweenLabels
        integer*4 GpiDeleteElementsBetweenLabels

        external GpiQueryEditMode
        integer*4 GpiQueryEditMode

        external GpiSetEditMode
        integer*4 GpiSetEditMode

        external GpiQueryElementPointer
        integer*4 GpiQueryElementPointer

        external GpiSetElementPointer
        integer*4 GpiSetElementPointer

        external GpiOffsetElementPointer
        integer*4 GpiOffsetElementPointer

        external GpiQueryElementType
        integer*4 GpiQueryElementType

        external GpiSetElementPointerAtLabel
        integer*4 GpiSetElementPointerAtLabel

c$endif

c$ifdef INCL_GPITRANSFORMS

        integer  CVTC_WORLD
        parameter (CVTC_WORLD = 1)
        integer  CVTC_MODEL
        parameter (CVTC_MODEL = 2)
        integer  CVTC_DEFAULTPAGE
        parameter (CVTC_DEFAULTPAGE = 3)
        integer  CVTC_PAGE
        parameter (CVTC_PAGE = 4)
        integer  CVTC_DEVICE
        parameter (CVTC_DEVICE = 5)

        integer  TRANSFORM_REPLACE
        parameter (TRANSFORM_REPLACE = 0)
        integer  TRANSFORM_ADD
        parameter (TRANSFORM_ADD = 1)
        integer  TRANSFORM_PREEMPT
        parameter (TRANSFORM_PREEMPT = 2)

        structure /MATRIXLF/
            integer*4 fxM11
            integer*4 fxM12
            integer*4 lM13
            integer*4 fxM21
            integer*4 fxM22
            integer*4 lM23
            integer*4 lM31
            integer*4 lM32
            integer*4 lM33
        end structure

c$ifndef INCL_DDIDEFS

        external GpiQuerySegmentTransformMatrix
        integer*4 GpiQuerySegmentTransformMatrix

        external GpiSetSegmentTransformMatrix
        integer*4 GpiSetSegmentTransformMatrix

        external GpiConvert
        integer*4 GpiConvert

        external GpiConvertWithMatrix
        integer*4 GpiConvertWithMatrix

        external GpiQueryModelTransformMatrix
        integer*4 GpiQueryModelTransformMatrix

        external GpiSetModelTransformMatrix
        integer*4 GpiSetModelTransformMatrix

        external GpiCallSegmentMatrix
        integer*4 GpiCallSegmentMatrix

        external GpiQueryDefaultViewMatrix
        integer*4 GpiQueryDefaultViewMatrix

        external GpiSetDefaultViewMatrix
        integer*4 GpiSetDefaultViewMatrix

        external GpiQueryPageViewport
        integer*4 GpiQueryPageViewport

        external GpiSetPageViewport
        integer*4 GpiSetPageViewport

        external GpiQueryViewingTransformMatrix
        integer*4 GpiQueryViewingTransformMatrix

        external GpiSetViewingTransformMatrix
        integer*4 GpiSetViewingTransformMatrix

        external GpiTranslate
        integer*4 GpiTranslate

        external GpiScale
        integer*4 GpiScale

        external GpiRotate
        integer*4 GpiRotate

        external GpiSetGraphicsField
        integer*4 GpiSetGraphicsField

        external GpiQueryGraphicsField
        integer*4 GpiQueryGraphicsField

        external GpiSetViewingLimits
        integer*4 GpiSetViewingLimits

        external GpiQueryViewingLimits
        integer*4 GpiQueryViewingLimits

c$endif

c$endif

c$ifdef INCL_GPIPATHS

        integer  MPATH_STROKE
        parameter (MPATH_STROKE = 6)

        integer  FPATH_ALTERNATE
        parameter (FPATH_ALTERNATE = 0)
        integer  FPATH_WINDING
        parameter (FPATH_WINDING = 2)