Section Header
  
  
    + name    := PIXEL;
  
  
    - comment := "Generic Pixel.";
  
Section Inherit
  
  
    - parent_object:OBJECT := 
  
Section Public
  
  
    - red:UINTEGER_8   <- 
  
         Abstracted red component on 8 bits.
  
    - green:UINTEGER_8 <- 
  
         Abstracted green component on 8 bits.
  
    - blue:UINTEGER_8  <- 
  
         Abstracted blue component on 8 bits.
  
  
    - get_raw col:UINTEGER_32 :UINTEGER_32 <- 
  
  
  
 Access color 32 bits.
  
  
  
    - rgbcolor:UINTEGER_32 <-
    
  
  
 Modification 32bits.
  
  
  
    - make col:UINTEGER_32 <- 
  
  
    - make_rgb (r,g,b:UINTEGER_8) <-   
         For speed conversion between pixels
  
  
  
 Consultation geometry.
  
  
  
    - size:UINTEGER_8 <-  
  
    - red_size:UINTEGER_8 <-       
  
    - red_pos:UINTEGER_8 <- 
  
    - green_size:UINTEGER_8 <- 
  
    - green_pos:UINTEGER_8 <- 
  
    - blue_size:UINTEGER_8 <- 
  
    - blue_pos:UINTEGER_8 <- 
  
    - reserved_size:UINTEGER_8 <- 
  
    - reserved_pos:UINTEGER_8 <- 
  
  
  
 Conversion.
  
  
  
    - to_pixel_8:PIXEL_8 <- 
  
  
    - to_pixel_15:PIXEL_15 <-
    
  
    - to_pixel_16:PIXEL_16 <-
  
  
    - to_pixel_24:PIXEL_24 <-
  
  
    - to_pixel_32:PIXEL_32 <-
    
  
  
 Display.
  
  
  
    - print <-