Lisaac prototype interface

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 <-