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