BallDisplay - Free any resources
Kill the Palette
FreeBalls - Startup
select the pallette
InitBalls - the Previous Pen
Set Flags
ReadBallDefaults - Display a Sphere
Bump Vars
PALSEG
PALSIZE
hPal
hPalMem
iNumSpheres
MaxSize
nBars
NumDone
OldBrush
OldPalette
OldPen
PalOff
pLogPal
Rc1
Which
xl
xr
yb
yt
Procedure BallDisplay;
Free any resources Kill the Palette
Procedure FreeBalls;
Startup select the pallette
Procedure InitBalls;
the Previous Pen Set Flags
Procedure ReadBallDefaults;
Display a Sphere Bump Vars
PALSEG = 39
PALSIZE = 236
Renamed from CodeBall.pas 6/13/1998 Paul Rice to avoid conflicts with others' work.} {$N+
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
Which : Integer
xl : Integer
xr : Integer
Rectangle surrounding a sphere
yb : Integer
yt : Integer