Unit Zone_Rings |
///////////////////////////////////////////////////////////////////////////// // Main Zonerings code for visual effects // ŠJohn Biddiscombe // j.biddiscombe@rl.ac.uk // // ///////////////////////////////////////////////////////////////////////////// // have modified pen routines so that they must be created before using this code. Pens should be created before, and destroyed after Zonerings objects Pens use paletteindex - so colour can be set to anything! // also the default palette must have been setup, just in case the first setting used uses palette walking.
Classes |
Functions |
Types |
polylist
polypoints
ppolylist
Pquickcopy
quickcopy
Constants |
Variables |
Global_colour_value
global_pens
Functions |
Types |
polylist = array[0..maximum_polys] of poly;
polypoints = array[0..10] of Tpoint;
ppolylist = ^polylist
Pquickcopy = ^quickcopy
quickcopy = array[0..buff_size-1] of byte;
Constants |
Variables |