GraphEllipse()

         Pie graphics with CA-Clipper!!

    Syntax:

         GraphEllipse ( nX, nY, nFocus, aArray ) -> Nil

         nX     : Coordinate X of the center of the ellipse
         nY     : Coordinate Y of the center of the ellipse
         nFocus : Focus A of the ellipse
         aArray : An array of values for the graphic. It allows as
                  many elements as you like.

    Description:

         It generates a bar graphics in CA-Clipper. It only works in EGA
         and VGA.
         This function does not have the option of place title and legends
         because, as it allows to place the graphic in a determinate
         position, it may be of interest to place this data in whichever
         place you like.
         It is important to detach that the graphic will be painting zones
         of different colours, always starting with colour 1 in the first
         zone, 2 in the second, and so on until 15. This process will be
         recursively repeated if there is more than 15 zones. This is a
         very important point in order to determine later the colour of
         each legend in the graphic.
         It is also important to detach that Fast offers the resources to
         rebuild this function if there is something in it that is not of
         your like. The only thing needed is some simple knowledge of Plain
         Geometry.

    Return:

         Nothing.

    Example:

         SetVGA()
         cTitulo := "Fast Graphic System"
         GraphEllipse( 320, 240, 100, { 17, 3, 15, 60, 15 } )
         DispStr ( cTitulo, 320 - Len ( cTitulo ) * 4, 370, 15, 0 )
         Legend ( 320, 460, 15, 4, "Fast Library" )
         Inkey (0)
         TxtMode ()