Class animated_colour_cube (unit Animation_3D) |
Inherits from
animation__3D
constructor create_colour_cube(dest:TWinControl);
- ///////////////////////////////////////////////////////////////////////////// Animated RGB colour cube // /////////////////////////////////////////////////////////////////////////////
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);
bi : integer;
colour_bar_offset : integer;
gi : integer;
newcube : array[0..7] of coord;
RGB_walker : pal_animator;
ri : integer;
constructor create_colour_cube(dest:TWinControl);
///////////////////////////////////////////////////////////////////////////// Animated RGB colour cube // /////////////////////////////////////////////////////////////////////////////
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);
bi : integer;
colour_bar_offset : integer;
gi : integer;
newcube : array[0..7] of coord;
RGB_walker : pal_animator;
ri : integer;