GraphBar2()

         Another bar graph with Clipper!!

    Syntax:

         GraphBar2( cTitle, aArray, nTypeBar ) -> Nil

         cTitle   : Title or legend of graphic
         aArray   : A bidimensional array containing numerical values
         nTypeBar : Bar Type
                      0 : Default, normal bar
                      1 : top pyramidal bar
                      2 : bottom pyramidal bar
                      3 : cylindric bar

    Description:

         It generates a bar graph in Clipper. It only works in EGA
         and VGA.

         This function is made from other functions of Fast Library, so
         if you do not like it, you can make your own directly. The only
         objective is to save you some work.

         Fast offers the resources to rebuild this function if there is
         something in it that you would like to modify more to you liking.
         The only thing needed is some simple knowledge of Plain Geometry.

    Return:

         Nothing.

    Example:

         SetVGA ()
         GraphBar2( "GraphBar2 Demo", ;
                    { { 481, 212, 212, 266, 699, 312 }, ;
                      { ... }, ;
                      { 481, 212, 212, 266, 699, 312 }, ;
                      { 281, 332, 212, 557, 499, 612 }, ;
                    }, ;
                    2 )
         Inkey (0)
         TxtMode ()