Click above to get retro games delivered to your door ever month!

 ARC                        Draw a Graphics Arc                       pp 173

 Syntax:  Arc (X,Y,Angle,Radius,Color) ;

 Type:    Integer, Real

 Form:    Extended Graphics Procedure

 Purpose: Draw an arc of Angle degrees, starting at the position given
          by X,Y using Radius.

 Notes:   Requires {$I Graph.P} include file in the source file.
          If Angle is positive the arc turns clockwise, otherwise it turns
          counter clockwise.
          For color values of 0..3 the color is selected from the palette.
          If Color is -1 then the color is selected for the translation
          table defined by the ColorTable procedure.


 Usage:
          {$I Graph.P}                    { Extended graphics support }
       CONST
          X      : Integer = 100       ;  { 270 start position        }
          Y      : Integer = 100       ;  { mid screen position       }
          Radius : Integer =  50       ;  { 50 pixels radius          }
          Color  : Integer =   2       ;  { Red                       }
          Angle  : Integer = 180       ;  { 180 degrees               }

       BEGIN
          GraphColorMode               ;  { Set 320x200 graphics mode }
          Arc (X,Y,Angle,Radius,Color) ;  { Draw semi circlular arc   }
       END.