Unit Codeball

Classes

Functions

BallDisplay - Free any resources

Kill the Palette
FreeBalls - Startup

select the pallette
InitBalls - Max Sphere Size

Set Flags
ReadBallDefaults - Display a Sphere

Bump Vars

Types

Constants

PALSEG
PALSIZE

Variables

BallMax
BallSize
hPal
hPalMem
iNumSpheres
MaxSize
nBars
NumDone
OldBrush
OldPalette
OldPen
PalOff
pLogPal
Rc1
Speed
Which
xl
xr
yb
yt


Functions


procedure BallDisplay;

Free any resources

Kill the Palette


procedure FreeBalls;

Startup

select the pallette


procedure InitBalls;

Max Sphere Size

Set Flags


procedure ReadBallDefaults;

Display a Sphere

Bump Vars


Types


Constants

PALSEG = 39

PALSIZE = 236


Variables

BallMax : Integer

the Previous Pen

BallSize : Integer

Max Spheres B4 clear screen

hPal : HPalette

hPalMem : THandle

Number and which is the current bar

iNumSpheres : Integer

the prevous palette

MaxSize : Integer

Pointer to a palette

nBars : Integer

Position vars

NumDone : Word

current offsaet in the palette

OldBrush : TBrush

the number of spheres on screen

OldPalette : HPalette

Number of spheres displayed

OldPen : TPen

the previous Brush

PalOff : Integer

Handle to memory for palette

pLogPal : ^TLOGPALETTE

Handle to a Palette

Rc1 : TRect

Max size of a sphere

Speed : Integer

Max Sphere Size

Which : Integer

xl : Integer

xr : Integer

Rectangle surrounding a sphere

yb : Integer

yt : Integer