Class pal_animator (unit PalUnit)

Inherits from

TObject

Constructors


constructor create(nc,rf:integer; gamma_:double);

///////////////////////////////////////////////////////////////////////////// Palette walker thingy.


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;



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;