Lisaac prototype interface

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