BallDisplay - Free any resources
Kill the Palette
FreeBalls - Startup
select the pallette
InitBalls - Max Sphere Size
Set Flags
ReadBallDefaults - Display a Sphere
Bump Vars
PALSEG
PALSIZE
BallMax
BallSize
hPal
hPalMem
iNumSpheres
MaxSize
nBars
NumDone
OldBrush
OldPalette
OldPen
PalOff
pLogPal
Rc1
Speed
Which
xl
xr
yb
yt
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
PALSEG = 39
PALSIZE = 236
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