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

 FILLSCREEN            Fill Graphic Screen With Color                 pp 175

 Syntax:  FillScreen (Color) ;

 Type:    Integer

 Form:    Extended Graphics Procedure

 Purpose: Fill active screen window with Color.

 Notes:   Requires {$I Graph.P} include file in the source file.
          If the Integer expression Color is 0..3 the color will be selected
          from the color palette.  If Color is -1 then ColorTable will be
          used.  Setting ColorTable to 3,2,1,0 and calling FillScreen (-1)
          will invert the entire image in the active display window.


 ----------------------------------------------------------------------------


 Usage:
          {$I Graph.P}                 { Extended graphics support         }
       CONST
          Color : Integer = 2      ;   { Set palette color #1              }


       BEGIN
          GraphColorMode           ;
          ColorTable (3,2,1,0)     ;
          FillScreen (Color)       ;   { Fill window with color 1          }
          Delay (500)              ;   { Wait 500 msec                     }
          FillScreen (-1)          ;   { Fill window with ColorTable value }
       END.