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