Class Zonerings (unit Zone_Rings)

Inherits from

Tobject

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;



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;