Procedure GetFillPattern (Var FillPattern : FillPatternType) ;
GetFillPattern returns an array with the current fill-pattern in FillPattern
None
SetFillPattern