Richard Dawkins Blind Watchmaker

Units

Class Hierarchy

Classes, Interfaces, Objects and Records

Types

Variables

Constants

Functions and Procedures

Identifiers

Unit Common_Exhibition

DescriptionUsesClasses, Interfaces, Objects and RecordsFunctions and ProceduresTypesConstantsVariables

Description

 

Uses

Overview

Classes, Interfaces, Objects and Records

Name Description
record person  
record Lin  
record Pic  

Types

SwellType = (...);
HorizPos = (...);
VertPos = (...);
SmallNumber = -1..1;
chromosome = array[1..9] of INTEGER;
Compass = (...);
CompletenessType = (...);
SpokesType = (...);
LimbType = (...);
LimbFillType = (...);
LinPtr = ˆLin;
BaseHandle = ˆPtr;
mode = (...);

Constants

MutTypeNo = 13;
GenesHeight = 0;
maxBoxes = 50;
PicSizeMax = 3200;
GeneCount = 26;
trickle = 10;
DiceID = 15208;
HandID = 129;

Variables

Mut: array[1..MutTypeNo] of BOOLEAN;
theMode: mode;
upregion: RgnHandle;
nRows: integer;
nCols: integer;
nBoxes: integer;
nActiveBoxes: integer;
MidBox: integer;
Special: integer;
myPenSize: integer;
oldBox: integer;
PRect: rect;
BusinessPart: rect;
ThumbStrip: rect;
Margin: rect;
box: array[0..MaxBoxes] of rect;
centre: array[0..MaxBoxes] of point;
MyPic: Pic;
child: array[1..maxBoxes] of person;
theBiomorph: Person;
copiedanimal: Person;
PasteBiomorph: Person;
ClipBiomorph: Person;
ourHero: Person;
abortFlag: boolean;
deskScrap: boolean;
deskPaste: boolean;
clipFull: boolean;
YesRevert: boolean;
YesRhythm: boolean;
FileMenuEnabled: boolean;
GeneBox: array[1..26] of rect;
LastMouse: Point;
NowMouse: Point;
MonsterInterval: LongInt;
MonsterRevert: LongInt;
TimeOfEvent: LongInt;
theTime: LongInt;
OldCount: LongInt;
NewCount: LongInt;
AfterAppmenuCount: LongInt;
BeforeAppmenuCount: LongInt;
MyPicture: PicHandle;
Dice: CursHandle;
Hand: CursHandle;
Watch: CursHandle;

Description

Types

SwellType = (...);
 
Values
  • Swell:  
  • Same:  
  • Shrink:  
HorizPos = (...);
 
Values
  • LeftThird:  
  • MidThird:  
  • RightThird:  
VertPos = (...);
 
Values
  • TopRung:  
  • MidRung:  
  • BottomRung:  
SmallNumber = -1..1;
 
chromosome = array[1..9] of INTEGER;
 
Compass = (...);
 
Values
  • NorthSouth:  
  • EastWest:  
CompletenessType = (...);
 
Values
  • Single:  
  • Double:  
SpokesType = (...);
 
Values
  • NorthOnly:  
  • NSouth:  
  • Radial:  
LimbType = (...);
 
Values
  • Stick:  
  • Oval:  
  • Rectangle:  
LimbFillType = (...);
 
Values
  • Open:  
  • Filled:  
LinPtr = ˆLin;
 
BaseHandle = ˆPtr;
 
mode = (...);
 
Values
  • preliminary:  
  • breeding:  
  • albuming:  
  • randoming:  
  • engineering:  
  • drifting:  
  • highlighting:  
  • PlayingBack:  
  • triangling:  
  • sweeping:  

Constants

MutTypeNo = 13;
 
GenesHeight = 0;
 
maxBoxes = 50;
 
PicSizeMax = 3200;
 
GeneCount = 26;
 
trickle = 10;
 
DiceID = 15208;
 
HandID = 129;
 

Variables

Mut: array[1..MutTypeNo] of BOOLEAN;
 
theMode: mode;
 
upregion: RgnHandle;
 
nRows: integer;
 
nCols: integer;
 
nBoxes: integer;
 
nActiveBoxes: integer;
 
MidBox: integer;
 
Special: integer;
 
myPenSize: integer;
 
oldBox: integer;
 
PRect: rect;
 
BusinessPart: rect;
 
ThumbStrip: rect;
 
Margin: rect;
 
box: array[0..MaxBoxes] of rect;
 
centre: array[0..MaxBoxes] of point;
 
MyPic: Pic;
 
child: array[1..maxBoxes] of person;
 
theBiomorph: Person;
 
copiedanimal: Person;
 
PasteBiomorph: Person;
 
ClipBiomorph: Person;
 
ourHero: Person;
 
abortFlag: boolean;
 
deskScrap: boolean;
 
deskPaste: boolean;
 
clipFull: boolean;
 
YesRevert: boolean;
 
YesRhythm: boolean;
 
FileMenuEnabled: boolean;
 
GeneBox: array[1..26] of rect;
 
LastMouse: Point;
 
NowMouse: Point;
 
MonsterInterval: LongInt;
 
MonsterRevert: LongInt;
 
TimeOfEvent: LongInt;
 
theTime: LongInt;
 
OldCount: LongInt;
 
NewCount: LongInt;
 
AfterAppmenuCount: LongInt;
 
BeforeAppmenuCount: LongInt;
 
MyPicture: PicHandle;
 
Dice: CursHandle;
 
Hand: CursHandle;
 
Watch: CursHandle;
 
Generated by PasDoc 0.14.0.