GetFillPattern procedure

  DECLARATION:  GetFillPattern(var FillPattern : FillPatternType)

      PURPOSE:  Returns the last fill pattern set by SetFillPattern

         UNIT:  Graph

      REMARKS:  If there has not yet been a call to SetFillPattern, then
                GetFillPattern will return an array filled with $FF.
                The type, FillPatternType, is defined in the Graph Unit as:

                   Type
                      FillPatternType = Array[1..8] of Byte;

 RESTRICTIONS:  Must be in graphics mode.