home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AMIGA PD 1
/
AMIGA-PD-1.iso
/
Programme_zum_Heft
/
Programmieren
/
Kurztests
/
PascalPCQ
/
Include
/
Graphics
/
Collide.i
< prev
next >
Wrap
Text File
|
1990-08-28
|
998b
|
33 lines
{
Collide.i for PCQ Pascal
Collision detection and control
}
const
{ These bit descriptors are used by the GEL collide routines.
* These bits are set in the hitMask and meMask variables of
* a GEL to describe whether or not these types of collisions
* can affect the GEL. BNDRY_HIT is described further below;
* this bit is permanently assigned as the boundary-hit flag.
* The other bit GEL_HIT is meant only as a default to cover
* any GEL hitting any other; the user may redefine this bit.
}
BORDERHIT = 0;
{ These bit descriptors are used by the GEL boundry hit routines.
* When the user's boundry-hit routine is called (via the argument
* set by a call to SetCollision) the first argument passed to
* the user's routine is the address of the GEL involved in the
* boundry-hit, and the second argument has the appropriate bit(s)
* set to describe which boundry was surpassed
}
TOPHIT = 1;
BOTTOMHIT = 2;
LEFTHIT = 4;
RIGHTHIT = 8;