Class animated_colour_cube (unit Animation_3D)

Inherits from

animation__3D

Constructors


constructor create_colour_cube(dest:TWinControl);

///////////////////////////////////////////////////////////////////////////// Animated RGB colour cube // /////////////////////////////////////////////////////////////////////////////


Functions

procedure animate_palette(num:integer);


procedure compute_frame;

offset for colour scale bar

destructor Destroy;


procedure Draw_cube;


procedure draw_frame(dest_DC:HDC);


procedure Save_colours_to_File(name:string);


procedure setup_initial_state(i1,i2:integer);

don't want to animate cube as well !

procedure set_RGB_parameters(cp,ecc:integer; gamma:double);


Properties

Events

Variables

bi : integer;


colour_bar_offset : integer;


gi : integer;


newcube : array[0..7] of coord;


RGB_walker : pal_animator;


ri : integer;



Constructors


constructor create_colour_cube(dest:TWinControl);

///////////////////////////////////////////////////////////////////////////// Animated RGB colour cube // /////////////////////////////////////////////////////////////////////////////


Functions


procedure animate_palette(num:integer);


procedure compute_frame;

offset for colour scale bar


destructor Destroy;


procedure Draw_cube;


procedure draw_frame(dest_DC:HDC);


procedure Save_colours_to_File(name:string);


procedure setup_initial_state(i1,i2:integer);

don't want to animate cube as well !


procedure set_RGB_parameters(cp,ecc:integer; gamma:double);


Properties


Events


Variables


bi : integer;


colour_bar_offset : integer;


gi : integer;


newcube : array[0..7] of coord;


RGB_walker : pal_animator;


ri : integer;