Section Header
  
  
    + name        := AREA_MASK;
  
  
    - comment     := "Mask Window Clipping.";
    
  
    - version     := 2;
  
Section Inherit
  
  
    + parent_area:Expanded AREA;
    
Section Public  
  
    + mask:FAST_ARRAY[FAST_ARRAY[UINTEGER_16]];
  
  
    - clear_mask <-
    
  
  
 Creation
  
  
  
    - make father:AREA from (x0,y0:INTEGER) size (w,h:INTEGER) <-
    
  
    - resize (lx,ly:INTEGER) <-
    
  
  
 Master display
  
 (Build mask)
  
  
    - pixel_hard (x,y:INTEGER) color col:UINTEGER_32 <- 
    
  
    - line_h_hard (x1,y:INTEGER) until x2:INTEGER color col:UINTEGER_32 <- 
  
  
    - line_h_hard (x1,y:INTEGER) until x2:INTEGER image line:ABSTRACT_BMP_LINE offset ofs:INTEGER <-
    
  
  
 Slave display
  
 (Use Mask)
  
  
    - slave_pixel_hard (x,y:INTEGER) color col:UINTEGER_32 <- 
    
  
    - slave_line_h_hard (x1,y:INTEGER) until x2:INTEGER color col:UINTEGER_32 <- 
  
  
    - slave_line_h_hard (x1,y:INTEGER) until x2:INTEGER image line:ABSTRACT_BMP_LINE offset ofs:INTEGER <-
    
  
    - mask_draw (x0,y0:INTEGER) to (x1,y1:INTEGER) color col:UINTEGER_32 <-