Important Notice
The pages on this site contain documentation for very old MS-DOS software,
purely for historical purposes.
If you're looking for up-to-date documentation, particularly for programming,
you should not rely on the information found here, as it will be woefully
out of date.
ARC.FOR
◄Up► ◄Contents► ◄Index► ◄Back►
────────────────────────────────────────────────────────────────────────────
INCLUDE 'FGRAPH.FI'
INCLUDE 'FGRAPH.FD'
INTEGER*2 status
RECORD / xycoord / xystart, xyend, xyfill
status = setvideomode( $MRES16COLOR )
status = arc( 80, 50, 240, 150, 0, 50, 240, 150 )
status = getarcinfo( xystart, xyend, xyfill )
CALL moveto( xystart.xcoord, xystart.ycoord, xyfill )
status = lineto( xyend.xcoord, xyend.ycoord )
status = floodfill( xyfill.xcoord, xyfill.ycoord, getcolor() )
READ( *, * ) ! Press ENTER to exit
status = setvideomode( $DEFAULTMODE )
END