Class pal_animator (unit PalUnit) |
Inherits from
TObject
constructor create(nc,rf:integer; gamma_:double);
- ///////////////////////////////////////////////////////////////////////////// Palette walker thingy.
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;
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;
constructor create(nc,rf:integer; gamma_:double);
///////////////////////////////////////////////////////////////////////////// Palette walker thingy.....bit overengineered, but looks cool! // /////////////////////////////////////////////////////////////////////////////
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;
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;