graph.fi

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

c$noreference

        structure /xycoord/             ! structure for pixel position
            integer*2   xcoord
            integer*2   ycoord
        end structure

        structure /_wxycoord/           ! structure for window position
            double precision    wx
            double precision    wy
        end structure

        structure /rccoord/             ! structure for text position
            integer*2   row
            integer*2   col
        end structure

        structure /videoconfig/         ! structure for getvideoconfig
            integer*2   numxpixels
            integer*2   numypixels
            integer*2   numtextcols
            integer*2   numtextrows
            integer*2   numcolors
            integer*2   bitsperpixel
            integer*2   numvideopages
            integer*2   mode
            integer*2   adapter
            integer*2   monitor
            integer*2   memory
        end structure

        structure /textsettings/        ! structure for gettextsettings
            integer*2   basevectorx
            integer*2   basevectory
            integer*2   txpath
            integer*2   height
            integer*2   width
            integer*2   spacing
            integer*2   horizalign
            integer*2   vertalign
        end structure

        structure /_fontinfo/           ! structure for _getfontinfo
            integer*2       type
            integer*2       ascent
            integer*2       pixwidth
            integer*2       pixheight
            integer*2       avgwidth
            character*81    filename
            character*32    facename
        end structure

        integer _MAXRESMODE
        integer _MAXCOLORMODE
        integer _DEFAULTMODE
        integer _TEXTBW40
        integer _TEXTC40
        integer _TEXTBW80
        integer _TEXTC80
        integer _MRES4COLOR
        integer _MRESNOCOLOR
        integer _HRESBW
        integer _TEXTMONO
        integer _HERCMONO
        integer _MRES16COLOR
        integer _HRES16COLOR
        integer _ERESNOCOLOR
        integer _ERESCOLOR
        integer _VRES2COLOR
        integer _VRES16COLOR
        integer _MRES256COLOR
        integer _URES256COLOR
        integer _VRES256COLOR
        integer _SVRES16COLOR
        integer _SVRES256COLOR
        integer _XRES16COLOR
        integer _XRES256COLOR

        integer _NODISPLAY
        integer _UNKNOWN

        integer _MDPA
        integer _CGA
        integer _HERCULES
        integer _MCGA
        integer _EGA
        integer _VGA
        integer _SVGA
        integer _HGC

        integer _MONO
        integer _COLOR
        integer _ENHANCED
        integer _ANALOGMONO
        integer _ANALOGCOLOR

        parameter (_MAXRESMODE=-3)        ! graphics mode w/ highest resolution
        parameter (_MAXCOLORMODE=-2)      ! graphics mode with most colours
        parameter (_DEFAULTMODE=-1)       ! restore screen to original mode
        parameter (_TEXTBW40=0)           ! 40 x 25 text, 16 grey
        parameter (_TEXTC40=1)            ! 40 x 25 text, 16/8 color
        parameter (_TEXTBW80=2)           ! 80 x 25 text, 16 grey
        parameter (_TEXTC80=3)            ! 80 x 25 text, 16/8 color
        parameter (_MRES4COLOR=4)         ! 320 x 200, 4 color
        parameter (_MRESNOCOLOR=5)        ! 320 x 200, 4 grey
        parameter (_HRESBW=6)             ! 640 x 200, BW
        parameter (_TEXTMONO=7)           ! 80 x 25 text, BW
        parameter (_HERCMONO=11)          ! 720 x 350, BW
        parameter (_MRES16COLOR=13)       ! 320 x 200, 16 color
        parameter (_HRES16COLOR=14)       ! 640 x 200, 16 color
        parameter (_ERESNOCOLOR=15)       ! 640 x 350, BW
        parameter (_ERESCOLOR=16)         ! 640 x 350, 4 or 16 color
        parameter (_VRES2COLOR=17)        ! 640 x 480, BW
        parameter (_VRES16COLOR=18)       ! 640 x 480, 16 color
        parameter (_MRES256COLOR=19)      ! 320 x 200, 256 color
        parameter (_URES256COLOR='100'x)  ! 640 x 400, 256 color
        parameter (_VRES256COLOR='101'x)  ! 640 x 480, 256 color
        parameter (_SVRES16COLOR='102'x)  ! 800 x 600, 16 color
        parameter (_SVRES256COLOR='103'x) ! 800 x 600, 256 color
        parameter (_XRES16COLOR='104'x)   ! 1024 x 768, 16 color
        parameter (_XRES256COLOR='105'x)  ! 1024 x 768, 256 color

        parameter (_NODISPLAY=-1)       ! no display device
        parameter (_UNKNOWN=0)          ! unknown adapter/monitor type

        parameter (_MDPA=1)             ! monochrome display/printer adapter
        parameter (_CGA=2)              ! colour/graphics monitor adapter
        parameter (_HERCULES=3)         ! Hercules monochrome adapter card
        parameter (_MCGA=4)             ! PS/2 Model 30 monitor
        parameter (_EGA=5)              ! enhanced graphics adapter
        parameter (_VGA=6)              ! vector graphics array
        parameter (_SVGA=7)             ! super VGA
        parameter (_HGC=_HERCULES)

        parameter (_MONO=1)             ! regular monochrome
        parameter (_COLOR=2)            ! regular color
        parameter (_ENHANCED=3)         ! enhanced color
        parameter (_ANALOGMONO=5)       ! analog monochrome
        parameter (_ANALOGCOLOR=6)      ! analog color

        integer _GROK
        integer _GRERROR
        integer _GRMODENOTSUPPORTED
        integer _GRNOTINPROPERMODE
        integer _GRINVALIDPARAMETER
        integer _GRINSUFFICIENTMEMORY
        integer _GRNOOUTPUT
        integer _GRCLIPPED

        parameter (_GROK                   =0)  ! no error
        parameter (_GRERROR                =-1) ! graphics error
        parameter (_GRMODENOTSUPPORTED     =-2) ! video mode not supported
        parameter (_GRNOTINPROPERMODE      =-3) ! function n/a in this mode
        parameter (_GRINVALIDPARAMETER     =-4) ! invalid parameter(s)
        parameter (_GRINSUFFICIENTMEMORY   =-5) ! out of memory
        parameter (_GRNOOUTPUT             =1)  ! nothing was done
        parameter (_GRCLIPPED              =2)  ! output clipped

        integer _BLACK
        integer _BLUE
        integer _GREEN
        integer _CYAN
        integer _RED
        integer _MAGENTA
        integer _BROWN
        integer _WHITE
        integer _GRAY
        integer _LIGHTBLUE
        integer _LIGHTGREEN
        integer _LIGHTCYAN
        integer _LIGHTRED
        integer _LIGHTMAGENTA
        integer _LIGHTYELLOW
        integer _BRIGHTWHITE
        integer _YELLOW

        parameter (_BLACK='000000'x)
        parameter (_BLUE='2a0000'x)
        parameter (_GREEN='002a00'x)
        parameter (_CYAN='2a2a00'x)
        parameter (_RED='00002a'x)
        parameter (_MAGENTA='2a002a'x)
        parameter (_BROWN='00152a'x)
        parameter (_WHITE='2a2a2a'x)
        parameter (_GRAY='151515'x)
        parameter (_LIGHTBLUE='3F1515'x)
        parameter (_LIGHTGREEN='153f15'x)
        parameter (_LIGHTCYAN='3f3f15'x)
        parameter (_LIGHTRED='15153f'x)
        parameter (_LIGHTMAGENTA='3f153f'x)
        parameter (_LIGHTYELLOW='153f3f'x)
        parameter (_BRIGHTWHITE='3f3f3f'x)
        parameter (_YELLOW = _LIGHTYELLOW)

        ! plotting action

        integer _GOR
        integer _GAND
        integer _GPRESET
        integer _GPSET
        integer _GXOR

        parameter (_GOR=0)
        parameter (_GAND=1)
        parameter (_GPRESET=2)
        parameter (_GPSET=3)
        parameter (_GXOR=4)

        integer _GCLEARSCREEN
        integer _GVIEWPORT
        integer _GWINDOW

        parameter (_GCLEARSCREEN=0)
        parameter (_GVIEWPORT=1)
        parameter (_GWINDOW=2)

        integer _GBORDER
        integer _GFILLINTERIOR

        parameter (_GBORDER=2)
        parameter (_GFILLINTERIOR=3)

        ! cursor display

        integer _GCURSOROFF
        integer _GCURSORON

        parameter (_GCURSOROFF=0)
        parameter (_GCURSORON=1)

        ! text wrapping

        integer _GWRAPOFF
        integer _GWRAPON

        parameter (_GWRAPOFF=0)
        parameter (_GWRAPON=1)

        ! horizontal alignment

        integer _NORMAL
        integer _LEFT
        integer _CENTER
        integer _RIGHT

        parameter (_NORMAL=0)
        parameter (_LEFT=1)
        parameter (_CENTER=2)
        parameter (_RIGHT=3)

        ! vertical alignment