Lisaac prototype interface

Section Header
+ name := BITMAP[E];
- comment := "Generic Bitmap.";
Section Inherit
+ parent_abstract_bitmap:Expanded ABSTRACT_BITMAP;
Section Public
- get_y_line y:INTEGER :ABSTRACT_BMP_LINE <-
Data.
- pixel_geometry:PIXEL <-
Creation.
- make (w,h:INTEGER) <-
- make (w,h:INTEGER) at offset_begin:UINTEGER_32 bytes_per_line lx:INTEGER <-
****************************************************************************
* PutImage *
****************************************************************************
- put_bitmap bmp:ABSTRACT_BITMAP to (x,y:INTEGER) <-
- put_bitmap bmp:ABSTRACT_BITMAP to (x,y:INTEGER) scale (scale_x,scale_y:REAL_16_16) <-
Section Public
Low level.
- pixel_hard (x,y:INTEGER) color col:UINTEGER_32 <-
- line_h_hard (x,y:INTEGER) until x1:INTEGER color col:UINTEGER_32 <-
- line_h_hard (x,y:INTEGER) until x1:INTEGER image line:ABSTRACT_BMP_LINE offset ofs:INTEGER <-
- get_pixel_hard (x,y:INTEGER) :PIXEL <-