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