pmddim.for

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

        integer function GreRestorePath( a, b )
        integer Gre32Entry4, a, b
        GreRestorePath = Gre32Entry4( a, b, 0, '00004051'x )
        end

        integer function GreClip1DPath( a, b, c )
        integer Gre32Entry5, a, b, c
        GreClip1DPath = Gre32Entry5( a, loc( b ), loc( c ), 0,
     +                               '00004052'x )
        end

        integer function GreDrawRawPath( a, b )
        integer Gre32Entry4, a, b
        GreDrawRawPath = Gre32Entry4( a, loc( b ), 0, '00004053'x )
        end

        integer function GreDrawCookedPath( a, b, c, d )
        integer Gre32Entry6, a, b, c, d
        GreDrawCookedPath = Gre32Entry6( a, loc( b ), loc( c ), d, 0,
     +                                   '00004054'x )
        end

        integer function GreAreaSetAttributes( a, b, c, d, e )
        integer Gre32Entry7, a, b, c, d, e
        GreAreaSetAttributes = Gre32Entry7( a, b, c, d, loc( e ), 0,
     +                                      '00004055'x )
        end

c$endif

c$ifdef INCL_GRE_REGIONS

        integer function GreGetRegionBox( a, b, c )
        integer Gre32Entry5, a, b, c
        GreGetRegionBox = Gre32Entry5( a, b, loc( c ), 0, '0000405D'x )
        end

        integer function GreGetRegionRects( a, b, c, d, e )
        integer Gre32Entry7, a, b, c, d, e
        GreGetRegionRects = Gre32Entry7( a, b, loc( c ), loc( d ),
     +                                   loc( e ), 0, '0000405E'x )
        end

        integer function GreOffsetRegion( a, b, c )
        integer Gre32Entry5, a, b, c
        GreOffsetRegion = Gre32Entry5( a, b, loc( c ), 0, '0000405F'x )
        end

        integer function GrePtInRegion( a, b, c )
        integer Gre32Entry5, a, b, c
        GrePtInRegion = Gre32Entry5( a, b, loc( c ), 0, '00004060'x )
        end

        integer function GreRectInRegion( a, b, c )
        integer Gre32Entry5, a, b, c
        GreRectInRegion = Gre32Entry5( a, b, loc( c ), 0, '00004061'x )
        end

        integer function GreCreateRectRegion( a, b, c )
        integer Gre32Entry5, a, b, c
        GreCreateRectRegion = Gre32Entry5( a, loc( b ), c, 0,
     +                                     '00004062'x )
        end

        integer function GreDestroyRegion( a, b )
        integer Gre32Entry4, a, b
        GreDestroyRegion = Gre32Entry4( a, b, 0, '00004063'x )
        end

        integer function GreSetRectRegion( a, b, c, d )
        integer Gre32Entry6, a, b, c, d
        GreSetRectRegion = Gre32Entry6( a, b, loc( c ), d, 0,
     +                                  '00004064'x )
        end

        integer function GreCombineRegion( a, b, c, d, e )
        integer Gre32Entry7, a, b, c, d, e
        GreCombineRegion = Gre32Entry7( a, b, c, d, e, 0, '00004065'x )
        end

        integer function GreCombineRectRegion( a, b, c, d, e )
        integer Gre32Entry7, a, b, c, d, e
        GreCombineRectRegion = Gre32Entry7( a, b, loc( c ), d, e, 0,
     +                                      '00004066'x )
        end

        integer function GreCombineShortLineRegion( a, b, c )
        integer Gre32Entry5, a, b, c
        GreCombineShortLineRegion = Gre32Entry5( a, b, loc( c ), 0,
     +                                           '00004067'x )
        end

        integer function GreEqualRegion( a, b, c )
        integer Gre32Entry5, a, b, c
        GreEqualRegion = Gre32Entry5( a, b, c, 0, '00004068'x )
        end

        integer function GrePaintRegion( a, b )
        integer Gre32Entry4, a, b
        GrePaintRegion = Gre32Entry4( a, b, 0, '00004069'x )
        end

        integer function GreSetRegionOwner( a, b, c )
        integer Gre32Entry5, a, b, c
        GreSetRegionOwner = Gre32Entry5( a, b, c, 0, '0000406A'x )
        end

        integer function GreFrameRegion( a, b, c )
        integer Gre32Entry5, a, b, c
        GreFrameRegion = Gre32Entry5( a, b, loc( c ), 0, '0000406B'x )
        end

c$endif

c$ifdef INCL_GRE_CLIP

        integer function GreGetClipBox( a, b )
        integer Gre32Entry4, a, b
        GreGetClipBox = Gre32Entry4( a, loc( b ), 0, '0000406E'x )
        end

        integer function GreGetClipRects( a, b, c, d )
        integer Gre32Entry6, a, b, c, d
        GreGetClipRects = Gre32Entry6( a, loc( b ), loc( c ), loc( d ),
     +                                 0, '0000406F'x )
        end

        integer function GreOffsetClipRegion( a, b )
        integer Gre32Entry4, a, b
        GreOffsetClipRegion = Gre32Entry4( a, loc( b ), 0, '00004070'x )
        end

        integer function GrePtVisible( a, b )
        integer Gre32Entry4, a, b
        GrePtVisible = Gre32Entry4( a, loc( b ), 0, '00004071'x )
        end

        integer function GreRectVisible( a, b )
        integer Gre32Entry4, a, b
        GreRectVisible = Gre32Entry4( a, loc( b ), 0, '00004072'x )
        end

        integer function GreQueryClipRegion( a )
        integer Gre32Entry3, a
        GreQueryClipRegion = Gre32Entry3( a, 0, '00004073'x )
        end

        integer function GreSelectClipRegion( a, b, c )
        integer Gre32Entry5, a, b, c
        GreSelectClipRegion = Gre32Entry5( a, b, loc( c ), 0,
     +                                     '00004074'x )
        end

        integer function GreIntersectClipRectangle( a, b )
        integer Gre32Entry4, a, b
        GreIntersectClipRectangle = Gre32Entry4( a, loc( b ), 0,
     +                                           '00004075'x )
        end

        integer function GreExcludeClipRectangle( a, b )
        integer Gre32Entry4, a, b
        GreExcludeClipRectangle = Gre32Entry4( a, loc( b ), 0,
     +                                         '00004076'x )
        end

        integer function GreSetXformRect( a, b )
        integer Gre32Entry4, a, b
        GreSetXformRect = Gre32Entry4( a, loc( b ), 0, '00004077'x )
        end

        integer function GreSaveRegion( a, b )
        integer Gre32Entry4, a, b
        GreSaveRegion = Gre32Entry4( a, b, 0, '0000407B'x )
        end

        integer function GreRestoreRegion( a, b )
        integer Gre32Entry4, a, b
        GreRestoreRegion = Gre32Entry4( a, b, 0, '0000407C'x )
        end

        integer function GreClipPathCurves( a, b, c )
        integer Gre32Entry5, a, b, c
        GreClipPathCurves = Gre32Entry5( a, loc( b ), loc( c ), 0,
     +                                   '0000407D'x )
        end

        integer function GreSelectPathRegion( a, b )
        integer Gre32Entry4, a, b
        GreSelectPathRegion = Gre32Entry4( a, b, 0, '0000407E'x )
        end

        integer function GreRegionSelectBitmap( a, b )
        integer Gre32Entry4, a, b
        GreRegionSelectBitmap = Gre32Entry4( a, b, 0, '0000407F'x )
        end

        integer function GreCopyClipRegion( a, b, c, d )
        integer Gre32Entry6, a, b, c, d
        GreCopyClipRegion = Gre32Entry6( a, b, loc( c ), d, 0,
     +                                   '00004080'x )
        end

        integer function GreSetupDC( a, b, c, d, e, f )
        integer Gre32Entry8, a, b, c, d, e, f
        GreSetupDC = Gre32Entry8( a, b, c, d, loc( e ), f, 0,
     +                            '00004081'x )
        end

c$endif

c$ifdef INCL_GRE_XFORMS

        integer function GreGetPageUnits( a, b )
        integer Gre32Entry4, a, b
        GreGetPageUnits = Gre32Entry4( a, loc( b ), 0, '00004083'x )
        end

        integer function GreSetPageUnits( a, b, c, d )
        integer Gre32Entry6, a, b, c, d
        GreSetPageUnits = Gre32Entry6( a, b, c, d, 0, '00004084'x )
        end

        integer function GreGetModelXform( a, b )
        integer Gre32Entry4, a, b
        GreGetModelXform = Gre32Entry4( a, loc( b ), 0, '00004085'x )
        end

        integer function GreSetModelXform( a, b, c )
        integer Gre32Entry5, a, b, c
        GreSetModelXform = Gre32Entry5( a, loc( b ), c, 0, '00004086'x )
        end

        integer function GreGetWindowViewportXform( a, b )
        integer Gre32Entry4, a, b
        GreGetWindowViewportXform = Gre32Entry4( a, loc( b ), 0,
     +                                           '00004087'x )
        end

        integer function GreSetWindowViewportXform( a, b, c )
        integer Gre32Entry5, a, b, c
        GreSetWindowViewportXform = Gre32Entry5( a, loc( b ), c, 0,
     +                                           '00004088'x )
        end

        integer function GreGetGlobalViewingXform( a, b )
        integer Gre32Entry4, a, b
        GreGetGlobalViewingXform = Gre32Entry4( a, loc( b ), 0,
     +                                          '00004089'x )
        end

        integer function GreSetGlobalViewingXform( a, b, c )
        integer Gre32Entry5, a, b, c
        GreSetGlobalViewingXform = Gre32Entry5( a, loc( b ), c, 0,
     +                                          '0000408A'x )
        end

        integer function GreSaveXformData( a, b, c )
        integer Gre32Entry5, a, b, c
        GreSaveXformData = Gre32Entry5( a, b, loc( c ), 0, '0000408B'x )
        end

        integer function GreRestoreXformData( a, b, c )
        integer Gre32Entry5, a, b, c
        GreRestoreXformData = Gre32Entry5( a, b, loc( c ), 0,
     +                                     '0000408C'x )
        end

        integer function GreGetPageViewport( a, b )
        integer Gre32Entry4, a, b
        GreGetPageViewport = Gre32Entry4( a, loc( b ), 0, '0000408D'x )
        end

        integer function GreSetPageViewport( a, b, c )
        integer Gre32Entry5, a, b, c
        GreSetPageViewport = Gre32Entry5( a, loc( b ), c, 0,
     +                                    '0000408E'x )
        end

        integer function GreGetGraphicsField( a, b )
        integer Gre32Entry4, a, b
        GreGetGraphicsField = Gre32Entry4( a, loc( b ), 0, '00004091'x )
        end

        integer function GreSetGraphicsField( a, b )
        integer Gre32Entry4, a, b
        GreSetGraphicsField = Gre32Entry4( a, loc( b ), 0, '00004092'x )
        end

        integer function GreGetViewingLimits( a, b )
        integer Gre32Entry4, a, b
        GreGetViewingLimits = Gre32Entry4( a, loc( b ), 0, '00004093'x )
        end

        integer function GreSetViewingLimits( a, b )
        integer Gre32Entry4, a, b
        GreSetViewingLimits = Gre32Entry4( a, loc( b ), 0, '00004094'x )
        end

        integer function GreQueryViewportSize( a, b, c, d )
        integer Gre32Entry6, a, b, c, d
        GreQueryViewportSize = Gre32Entry6( a, b, c, loc( d ), 0,
     +                                      '00004095'x )
        end

        integer function GreConvert( a, b, c, d, e )
        integer Gre32Entry7, a, b, c, d, e
        GreConvert = Gre32Entry7( a, b, c, loc( d ), e, 0, '00004096'x )
        end

        integer function GreConvertPath( a, b, c, d, e, f )
        integer Gre32Entry8, a, b, c, d, e, f
        GreConvertPath = Gre32Entry8( a, loc( b ), c, d, loc( e ), f, 0,
     +                                '00004097'x )
        end

        integer function GreSaveXform( a, b )
        integer Gre32Entry4, a, b
        GreSaveXform = Gre32Entry4( a, b, 0, '00004098'x )
        end

        integer function GreRestoreXform( a, b )
        integer Gre32Entry4, a, b
        GreRestoreXform = Gre32Entry4( a, b, 0, '00004099'x )
        end

        integer function GreMultiplyXforms( a, b, c, d )
        integer Gre32Entry6, a, b, c, d
        GreMultiplyXforms = Gre32Entry6( a, loc( b ), loc( c ), d, 0,
     +                                   '0000409A'x )
        end

        integer function GreConvertWithMatrix( a, b, c, d )
        integer Gre32Entry6, a, b, c, d
        GreConvertWithMatrix = Gre32Entry6( a, loc( b ), c, loc( d ),
     +                                      0, '0000409B'x )
        end

c$endif

c$ifdef INCL_GRE_DEVMISC1

        integer function GreDeviceGetAttributes( a, b, c, d )
        integer Gre32Entry6, a, b, c, d
        GreDeviceGetAttributes = Gre32Entry6( a, b, c, loc( d ), 0,
     +                                        '0000409D'x )
        end

        integer function GreDeviceSetAVIOFont2( a, b, c, d )
        integer Gre32Entry6, a, b, c, d
        GreDeviceSetAVIOFont2 = Gre32Entry6( a, loc( b ), loc( c ), d,
     +                                       0, '0000409E'x )
        end

        integer function GreGetPairKerningTable( a, b, c )
        integer Gre32Entry5, a, b, c
        GreGetPairKerningTable = Gre32Entry5( a, b, loc( c ), 0,
     +                                        '000040A0'x )
        end

        integer function GreDeviceSetAVIOFont( a, b, c )
        integer Gre32Entry5, a, b, c
        GreDeviceSetAVIOFont = Gre32Entry5( a, loc( b ), c, 0,