pmddim.for

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

c$define INCL_GRE
c$include pmddim.fap

c$ifdef INCL_GRE_ARCS

        integer function GreGetArcParameters( a, b )
        integer Gre32Entry4, a, b
        GreGetArcParameters = Gre32Entry4( a, loc( b ), 0, '00004000'x )
        end

        integer function GreSetArcParameters( a, b )
        integer Gre32Entry4, a, b
        GreSetArcParameters = Gre32Entry4( a, loc( b ), 0, '00004001'x )
        end

        integer function GreArc( a, b )
        integer Gre32Entry4, a, b
        GreArc = Gre32Entry4( a, loc( b ), 0, '00004002'x )
        end

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

        integer function GreFullArcInterior( a, b )
        integer Gre32Entry4, a, b
        GreFullArcInterior = Gre32Entry4( a, b, 0, '00004004'x )
        end

        integer function GreFullArcBoundary( a, b )
        integer Gre32Entry4, a, b
        GreFullArcBoundary = Gre32Entry4( a, b, 0, '00004005'x )
        end

        integer function GreFullArcBoth( a, b )
        integer Gre32Entry4, a, b
        GreFullArcBoth = Gre32Entry4( a, b, 0, '00004006'x )
        end

        integer function GreBoxInterior( a, b )
        integer Gre32Entry4, a, b
        GreBoxInterior = Gre32Entry4( a, loc( b ), 0, '00004007'x )
        end

        integer function GreBoxBoundary( a, b )
        integer Gre32Entry4, a, b
        GreBoxBoundary = Gre32Entry4( a, loc( b ), 0, '00004008'x )
        end

        integer function GreBoxBoth( a, b )
        integer Gre32Entry4, a, b
        GreBoxBoth = Gre32Entry4( a, loc( b ), 0, '00004009'x )
        end

        integer function GrePolyFillet( a, b, c )
        integer Gre32Entry5, a, b, c
        GrePolyFillet = Gre32Entry5( a, loc( b ), c, 0, '0000400A'x )
        end

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

        integer function GrePolySpline( a, b, c )
        integer Gre32Entry5, a, b, c
        GrePolySpline = Gre32Entry5( a, loc( b ), c, 0, '0000400C'x )
        end

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

        integer function GreCookWholePath( a, b )
        integer Gre32Entry4, a, b
        GreCookWholePath = Gre32Entry4( a, loc( b ), 0, '0000400E'x )
        end

        integer function GreCookPathCurves( a, b, c )
        integer Gre32Entry5, a, b, c
        GreCookPathCurves = Gre32Entry5( a, loc( b ), loc( c ), 0,
     +                                   '0000400F'x )
        end

        integer function GreRenderPath( a, b, c, d, e, f, g, h )
        integer Gre32Entry10, a, b, c, d, e, f, g, h
        GreRenderPath = Gre32Entry10( a, loc( b ), loc( c ), d, e, f,
     +                                loc( g ), h, 0, '00004011'x )
        end

c$endif

c$ifdef INCL_GRE_LINES

        integer function GreDisjointLines( a, b, c )
        integer Gre32Entry5, a, b, c
        GreDisjointLines = Gre32Entry5( a, loc( b ), c, 0, '00004016'x )
        end

        integer function GreGetCurrentPosition( a, b )
        integer Gre32Entry4, a, b
        GreGetCurrentPosition = Gre32Entry4( a, loc( b ), 0,
     +                                       '00004017'x )
        end

        integer function GreSetCurrentPosition( a, b )
        integer Gre32Entry4, a, b
        GreSetCurrentPosition = Gre32Entry4( a, loc( b ), 0,
     +                                       '00004018'x )
        end

        integer function GrePolyLine( a, b, c )
        integer Gre32Entry5, a, b, c
        GrePolyLine = Gre32Entry5( a, loc( b ), c, 0, '00004019'x )
        end

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

        integer function GrePolyShortLine( a, b )
        integer Gre32Entry4, a, b
        GrePolyShortLine = Gre32Entry4( a, loc( b ), 0, '0000401B'x )
        end

c$endif

c$ifdef INCL_GRE_SCANS

        integer function GrePolyScanline( a, b )
        integer Gre32Entry4, a, b
        GrePolyScanline = Gre32Entry4( a, loc( b ), 0, '0000401C'x )
        end

c$endif

c$ifdef INCL_GRE_BITMAPS

        integer function GreDrawBits( a, b, c, d, e, f, g )
        integer Gre32Entry9, a, b, c, d, e, f, g
        GreDrawBits = Gre32Entry9( a, loc( b ), loc( c ), d, loc( e ),
     +                             f, g, 0, '00004022'x )
        end

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

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

        integer function GreDeviceSelectBitmap( a, b )
        integer Gre32Entry4, a, b
        GreDeviceSelectBitmap = Gre32Entry4( a, b, 0, '00004025'x )
        end

        integer function GreBitblt( a, b, c, d, e, f, g )
        integer Gre32Entry9, a, b, c, d, e, f, g
        GreBitblt = Gre32Entry9( a, b, c, loc( d ), e, f, loc( g ), 0,
     +                           '00004026'x )
        end

        integer function GreGetPel( a, b )
        integer Gre32Entry4, a, b
        GreGetPel = Gre32Entry4( a, loc( b ), 0, '00004027'x )
        end

        integer function GreSetPel( a, b )
        integer Gre32Entry4, a, b
        GreSetPel = Gre32Entry4( a, loc( b ), 0, '00004028'x )
        end

        integer function GreImageData( a, b, c, d )
        integer Gre32Entry6, a, b, c, d
        GreImageData = Gre32Entry6( a, loc( b ), c, d, 0, '00004029'x )
        end

        integer function GreSaveScreenBits( a, b )
        integer Gre32Entry4, a, b
        GreSaveScreenBits = Gre32Entry4( a, loc( b ), 0, '0000402C'x )
        end

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

        integer function GreDrawBorder( a, b, c, d, e, f, g )
        integer Gre32Entry9, a, b, c, d, e, f, g
        GreDrawBorder = Gre32Entry9( a, loc( b ), c, d, e, f, g, 0,
     +                               '0000402E'x )
        end

        integer function GreDeviceSetCursor( a, b, c )
        integer Gre32Entry5, a, b, c
        GreDeviceSetCursor = Gre32Entry5( a, loc( b ), c, 0,
     +                                    '0000402F'x )
        end

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

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

c$endif

c$ifdef INCL_WINPOINTERS

        integer function GreSetColorCursor( a, b )
        integer Gre32Entry4, a, b
        GreSetColorCursor = Gre32Entry4( a, loc( b ), 0, '00004032'x )
        end

c$endif

c$ifdef INCL_GRE_STRINGS

        integer function GreCharString( a, b, c )
        integer Gre32Entry5, a, b, c
        GreCharString = Gre32Entry5( a, b, loc( c ), 0, '00004035'x )
        end

        integer function GreCharStringPos(a,b,c,d,e,f,g,h)
        integer Gre32Entry10, a, b, c, d, e, f, g, h
        GreCharStringPos = Gre32Entry10( a, loc( b ), c, d, e, loc( f ),
     +                                   loc( g ), loc( h ), 0,
     +                                   '00004036'x )
        end

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

        integer function GreQueryCharPositions( a, b, c, d, e, f, g )
        integer Gre32Entry9, a, b, c, d, e, f, g
        GreQueryCharPositions = Gre32Entry9( a, loc( b ), c, d,
     +                                       loc( e ), loc( f ),
     +                                       loc( g ), 0, '00004038'x )
        end

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

c$endif

c$ifdef INCL_GRE_MARKERS

        integer function GrePolyMarker( a, b, c )
        integer Gre32Entry5, a, b, c
        GrePolyMarker = Gre32Entry5( a, loc( b ), c, 0, '0000403A'x )
        end

c$endif

c$ifdef INCL_GRE_STRINGS

        integer function GreCharRect( a, b, c )
        integer Gre32Entry5, a, b, c
        GreCharRect = Gre32Entry5( a, loc( b ), loc( c ), 0,
     +                             '0000403B'x )
        end

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

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

        integer function GreUpdateCursor( a, b )
        integer Gre32Entry4, a, b
        GreUpdateCursor = Gre32Entry4( a, loc( b ), 0, '0000403E'x )
        end

c$endif

c$ifdef INCL_GRE_PATHS

        integer function GreBeginArea( a, b )
        integer Gre32Entry4, a, b
        GreBeginArea = Gre32Entry4( a, b, 0, '00004046'x )
        end

        integer function GreEndArea( a, b )
        integer Gre32Entry4, a, b
        GreEndArea = Gre32Entry4( a, b, 0, '00004047'x )
        end

        integer function GreBeginPath( a, b )
        integer Gre32Entry4, a, b
        GreBeginPath = Gre32Entry4( a, loc( b ), 0, '00004048'x )
        end

        integer function GreEndPath( a, b )
        integer Gre32Entry4, a, b
        GreEndPath = Gre32Entry4( a, b, 0, '00004049'x )
        end

        integer function GreCloseFigure( a )
        integer Gre32Entry3, a
        GreCloseFigure = Gre32Entry3( a, 0, '0000404A'x )
        end

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

        integer function GreOutlinePath( a, b, c )
        integer Gre32Entry5, a, b, c
        GreOutlinePath = Gre32Entry5( a, loc( b ), c, 0, '0000404C'x )
        end

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

        integer function GreStrokePath( a, b, c )
        integer Gre32Entry5, a, b, c
        GreStrokePath = Gre32Entry5( a, loc( b ), c, 0, '0000404E'x )
        end

        integer function GreSelectClipPath( a, b, c )
        integer Gre32Entry5, a, b, c
        GreSelectClipPath = Gre32Entry5( a, loc( b ), c, 0,
     +                                   '0000404F'x )
        end

        integer function GreSavePath( a, b )
        integer Gre32Entry4, a, b
        GreSavePath = Gre32Entry4( a, b, 0, '00004050'x )
        end