| Class pal_animator (unit PalUnit) |
TObject
| Constructors |
constructor create(nc,rf:integer; gamma_:double);| Functions |
procedure create_pseudo_gamma_lookups(g:double);
function new_random_m : integer;
function new_random_p : integer;
procedure pseudo_gamma_correct;
procedure update;| Properties |
| Events |
| Variables |
controls : array[0..15] of RGBvalues;
gamma : double;
gamma_v : array[0..255] of integer;
incs : array[0..15] of RGBvalues;
num_controls : integer;
points : integer;
pp_edge : integer;
ran_factor : integer;
RGB_nogamma : palentries;
RGB_values : palentries;| Constructors |
constructor create(nc,rf:integer; gamma_:double);///////////////////////////////////////////////////////////////////////////// Palette walker thingy.....bit overengineered, but looks cool! // /////////////////////////////////////////////////////////////////////////////
| Functions |
procedure create_pseudo_gamma_lookups(g:double);add a little randomness when hitting edges
function new_random_m : integer;
function new_random_p : integer;
procedure pseudo_gamma_correct;create pseudo gamma lookup tables
procedure update;| Properties |
| Events |
| Variables |
controls : array[0..15] of RGBvalues;
gamma : double;
gamma_v : array[0..255] of integer;
incs : array[0..15] of RGBvalues;
num_controls : integer;
points : integer;
pp_edge : integer;
ran_factor : integer;
RGB_nogamma : palentries;
RGB_values : palentries;