| Class Zonerings (unit Zone_Rings) |
Tobject
| Constructors |
constructor Create(Windowed_obj:TWinControl; Settings_:TSettings_Form);| Functions |
procedure Animate_Palette;
procedure Blank_screen;
procedure CycleRings(paused:boolean);
destructor destroy;
procedure draw_all_rings;
procedure setup_densities;
procedure set_mousepos(x,y:integer);
function sides : word;
procedure Update_frame_counter;
procedure Window_Changed(Windowed_obj:TWinControl);| Properties |
| Events |
| Variables |
aspect_countx : integer;
aspect_county : integer;
aspect_flag : boolean;
aspect_incx : integer;
aspect_incy : integer;
central_poly : poly;
colours : integer;
coloursm1 : integer;
col_inc : integer;
col_max : integer;
densities : array[0..9] of word;
diffx : integer;
diffy : integer;
frame_speed : frame_speed_obj;
gamma_correct : double;
ideal_speed : integer;
lastx : integer;
lasty : integer;
listpoly : polylist;
log_palette : TMyLogPalette;
mmid : integer;
mot_damping : double;
mouseX : integer;
mouseY : integer;
movex_counter : integer;
movex_timeout : integer;
movey_counter : integer;
movey_timeout : integer;
move_tempx : integer;
move_tempy : integer;
num_polys : integer;
old_palette : HPalette;
pal_inc : integer;
pal_pos : integer;
ref_pos : integer;
RGB_Walker : pal_animator;
rotat_counter : integer;
rotat_timeout : integer;
rot_ampl : double;
rot_inc : integer;
rot_inc2 : integer;
rot_loop : integer;
Settings : TSettings_Form;
shape_counter : integer;
shape_timeout : integer;
sigmax : integer;
sigmay : integer;
total_prob : integer;
tot_rot : integer;
use_palette : boolean;
xmid : integer;
x_asp : double;
x_count : integer;
x_count2 : integer;
x_div : integer;
x_inc : integer;
x_inc2 : integer;
x_rad : double;
ymid : integer;
y_asp : double;
y_count : integer;
y_count2 : integer;
y_div : integer;
y_inc : integer;
y_inc2 : integer;
y_rad : double;
Zone_palette : integer;
Zone_win : TWinControl;| Constructors |
constructor Create(Windowed_obj:TWinControl; Settings_:TSettings_Form);----------------------------------------------------------------------- } { Multiple Polygons (Zonerings) object structure } { -----------------------------------------------------------------------
| Functions |
procedure Animate_Palette;NB : the palette animation still uses an increment based on the old fixed point arithmetic implementation (hence the funny 65536 etc etc
procedure Blank_screen;
procedure CycleRings(paused:boolean);
destructor destroy;just a pointer offset by 10 timing
procedure draw_all_rings;
procedure setup_densities;
procedure set_mousepos(x,y:integer);
function sides : word;-655360 = -10
procedure Update_frame_counter;
procedure Window_Changed(Windowed_obj:TWinControl);| Properties |
| Events |
| Variables |
aspect_countx : integer;
aspect_county : integer;
aspect_flag : boolean;
aspect_incx : integer;
aspect_incy : integer;
central_poly : poly;
colours : integer;
coloursm1 : integer;
col_inc : integer;
col_max : integer;
densities : array[0..9] of word;all the densities
diffx : integer;
diffy : integer;
frame_speed : frame_speed_obj;timing
gamma_correct : double;
ideal_speed : integer;
lastx : integer;
lasty : integer;
listpoly : polylist;
log_palette : TMyLogPalette;use integer not HPalette for C++Builder compatibility
mmid : integer;
mot_damping : double;
mouseX : integer;
mouseY : integer;
movex_counter : integer;
movex_timeout : integer;
movey_counter : integer;
movey_timeout : integer;
move_tempx : integer;
move_tempy : integer;
num_polys : integer;
old_palette : HPalette;
pal_inc : integer;
pal_pos : integer;
ref_pos : integer;
RGB_Walker : pal_animator;RGB palette walk & create
rotat_counter : integer;
rotat_timeout : integer;
rot_ampl : double;
rot_inc : integer;
rot_inc2 : integer;
rot_loop : integer;
Settings : TSettings_Form;essential !
shape_counter : integer;
shape_timeout : integer;
sigmax : integer;
sigmay : integer;
total_prob : integer;
tot_rot : integer;
use_palette : boolean;colour stuff
xmid : integer;
x_asp : double;
x_count : integer;
x_count2 : integer;
x_div : integer;
x_inc : integer;
x_inc2 : integer;
x_rad : double;
ymid : integer;
y_asp : double;
y_count : integer;
y_count2 : integer;
y_div : integer;
y_inc : integer;
y_inc2 : integer;
y_rad : double;
Zone_palette : integer;
Zone_win : TWinControl;