graph.fi

开放源码的编译器open watcom 1.6.0版的源代码

        integer _TOP
        integer _CAP
        integer _HALF
        integer _BASE
        integer _BOTTOM

        parameter (_TOP=1)
        parameter (_CAP=2)
        parameter (_HALF=3)
        parameter (_BASE=4)
        parameter (_BOTTOM=5)

        ! text path

        integer _PATH_RIGHT
        integer _PATH_LEFT
        integer _PATH_UP
        integer _PATH_DOWN

        parameter (_PATH_RIGHT=0)
        parameter (_PATH_LEFT=1)
        parameter (_PATH_UP=2)
        parameter (_PATH_DOWN=3)

        integer _GSCROLLUP
        integer _GSCROLLDOWN
        integer _MAXTEXTROWS

        parameter (_GSCROLLUP      = 1)
        parameter (_GSCROLLDOWN    = -1)
        parameter (_MAXTEXTROWS    = -1)

! Video Setup and Query Functions

        external _setvideomode
        external _setvideomoderows
        external _getvideoconfig
        external _grstatus
        external _setactivepage
        external _getactivepage
        external _setvisualpage
        external _getvisualpage

        integer*2 _setvideomode
        integer*2 _setvideomoderows
        integer*2 _grstatus
        integer*2 _setactivepage
        integer*2 _getactivepage
        integer*2 _setvisualpage
        integer*2 _getvisualpage

! Colour Setting and Query Functions

        external _setcolor
        external _getcolor
        external _setbkcolor
        external _getbkcolor
        external _remappalette
        external _remapallpalette
        external _selectpalette

        integer*2 _setcolor
        integer*2 _getcolor
        integer*4 _setbkcolor
        integer*4 _getbkcolor
        integer*4 _remappalette
        integer*2 _remapallpalette
        integer*2 _selectpalette

! Shape and Curve Drawing Functions

        external _lineto
        external _lineto_w
        external _rectangle
        external _rectangle_w
        external _rectangle_wxy
        external _arc
        external _arc_w
        external _arc_wxy
        external _ellipse
        external _ellipse_w
        external _ellipse_wxy
        external _pie
        external _pie_w
        external _pie_wxy
        external _polygon
        external _polygon_w
        external _polygon_wxy
        external _floodfill
        external _floodfill_w
        external _setpixel
        external _setpixel_w
        external _getpixel
        external _getpixel_w
        external _getarcinfo

        integer*2 _lineto
        integer*2 _lineto_w
        integer*2 _rectangle
        integer*2 _rectangle_w
        integer*2 _rectangle_wxy
        integer*2 _arc
        integer*2 _arc_w
        integer*2 _arc_wxy
        integer*2 _ellipse
        integer*2 _ellipse_w
        integer*2 _ellipse_wxy
        integer*2 _pie
        integer*2 _pie_w
        integer*2 _pie_wxy
        integer*2 _polygon
        integer*2 _polygon_w
        integer*2 _polygon_wxy
        integer*2 _floodfill
        integer*2 _floodfill_w
        integer*2 _setpixel
        integer*2 _setpixel_w
        integer*2 _getpixel
        integer*2 _getpixel_w
        integer*2 _getarcinfo

! Position Determination Functions

        external _getcurrentposition
        external _getcurrentposition_w
        external _getviewcoord
        external _getviewcoord_w
        external _getviewcoord_wxy
        external _getphyscoord
        external _getwindowcoord
        external _moveto
        external _moveto_w
        external _setvieworg

        record /xycoord/ _getcurrentposition
        record /_wxycoord/ _getcurrentposition_w
        record /xycoord/ _getviewcoord
        record /xycoord/ _getviewcoord_w
        record /xycoord/ _getviewcoord_wxy
        record /xycoord/ _getphyscoord
        record /_wxycoord/ _getwindowcoord
        record /xycoord/ _moveto
        record /_wxycoord/ _moveto_w
        record /xycoord/ _setvieworg

! Output Determination Functions

        external _setfillmask
        external _getfillmask
        external _setlinestyle
        external _getlinestyle
        external _setplotaction
        external _getplotaction
        external _setwritemode
        external _getwritemode

        integer*2 _getlinestyle
        integer*2 _setplotaction
        integer*2 _getplotaction
        integer*2 _setwritemode
        integer*2 _getwritemode

! Screen Manipulation Functions

        external _clearscreen
        external _setviewport
        external _setcliprgn
        external _getcliprgn
        external _displaycursor
        external _wrapon
        external _setwindow

        integer*2 _displaycursor
        integer*2 _wrapon
        integer*2 _setwindow

! Graphics Text Manipulation Functions

        external _gettextsettings
        external _gettextextent
        external _setcharsize
        external _setcharsize_w
        external _settextalign
        external _settextpath
        external _settextorient
        external _setcharspacing
        external _setcharspacing_w
        external _grtext
        external _grtext_w

        integer*2 _grtext
        integer*2 _grtext_w

! Text Manipulation Functions

        external _settextwindow
        external _outtext
        external _settextcolor
        external _gettextcolor
        external _settextposition
        external _gettextposition
        external _scrolltextwindow
        external _gettextwindow
        external _gettextcursor
        external _settextcursor
        external _outmem
        external _settextrows

        integer*2 _settextcolor
        integer*2 _gettextcolor
        record /rccoord/ _settextposition
        record /rccoord/ _gettextposition
        integer*2 _gettextcursor
        integer*2 _settextcursor
        integer*2 _settextrows

! Image Manipulation Functions

        external _getimage
        external _getimage_w
        external _getimage_wxy
        external _putimage
        external _putimage_w
        external _imagesize
        external _imagesize_w
        external _imagesize_wxy

        integer*4 _imagesize
        integer*4 _imagesize_w
        integer*4 _imagesize_wxy

! Font Manipulation Functions

        external _registerfonts
        external _unregisterfonts
        external _setfont
        external _getfontinfo
        external _outgtext
        external _getgtextextent
        external _setgtextvector
        external _getgtextvector

        integer*2 _registerfonts
        integer*2 _setfont
        integer*2 _getfontinfo
        integer*2 _getgtextextent
        record /xycoord/ _setgtextvector
        record /xycoord/ _getgtextvector

c$reference