Class Zonerings (unit Zone_Rings) |
Inherits from
Tobject
constructor Create(Windowed_obj:TWinControl; Settings_:TSettings_Form);
- ----------------------------------------------------------------------- } { Multiple Polygons (Zonerings) object structure } { -----------------------------------------------------------------------
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);
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;
constructor Create(Windowed_obj:TWinControl; Settings_:TSettings_Form);
----------------------------------------------------------------------- } { Multiple Polygons (Zonerings) object structure } { -----------------------------------------------------------------------
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);
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;