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

poly -
Zonerings -

Functions

Types

polylist
polypoints
ppolylist
Pquickcopy
quickcopy

Constants

buff_size
maximum_polys

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

buff_size = sizeof(integer)*5 + sizeof(longbool) + sizeof(double)*2

maximum_polys = 500

Mine

Variables

Global_colour_value : integer

used to make sure palette for about box is OK, even when preview has been activated, with different number of colours to main window.

global_pens : pen_array

Global pen array - create once only - use paletteindex -