Unit Biomorphs

DescriptionUsesClasses, Interfaces, Objects and RecordsFunctions and ProceduresTypesConstantsVariables

Description

 

Uses

Overview

Functions and Procedures

PROCEDURE Develop (VAR biomorph: person; Here: point);
PROCEDURE Delayvelop (VAR Biomorph: Person; Here: Point);
PROCEDURE SetUpBoxes;
PROCEDURE MakeGeneBox (biomorph: person);
PROCEDURE Snapshot (ThisPic: Pic; box: Rect; biomorph: person);
PROCEDURE ShowGeneBox (j: Integer; biomorph: person);
PROCEDURE ShowChangedGene (an1, an2: person);
PROCEDURE DrawPic (ThisPic: Pic; Place: Point; VAR Biomorph: person);
PROCEDURE Reproduce (parent: person; VAR child: person);
PROCEDURE SendToClipBoard;
PROCEDURE DoHighlight;
PROCEDURE DoBreed;
PROCEDURE DoRowMore;
PROCEDURE DoRowLess;
PROCEDURE DoColMore;
PROCEDURE DoColLess;
PROCEDURE Targetevolve (target: person);
PROCEDURE Evolve (MLoc: point);
PROCEDURE Chess (VAR genotype: person);
PROCEDURE BasicTree (VAR genotype: person);
PROCEDURE Insect (VAR genotype: person);

Variables

min: Integer;

Description

Functions and Procedures

PROCEDURE Develop (VAR biomorph: person; Here: point);
 
PROCEDURE Delayvelop (VAR Biomorph: Person; Here: Point);
 
PROCEDURE SetUpBoxes;
 
PROCEDURE MakeGeneBox (biomorph: person);
 
PROCEDURE Snapshot (ThisPic: Pic; box: Rect; biomorph: person);
 
PROCEDURE ShowGeneBox (j: Integer; biomorph: person);

Show genebox number j (1-based) based on the genes of the supplied person. Swell is shown using the bullet point that is character 165 in the Macintosh character set. For Monochrome Biomorphs, GeneBox 1 through 9, 11, all have SwellType genes. For SwellType = Shrink, the bullet point is drawn at coordinates (2, 21). For SwellType = Swell, the bullet point is drawn at (2,7).

Numerical gene values are displayed by converting their value to a string, determining the string width using a call to StringWidth(), and drawing that centered left-right in the box, 14 pixels from the top.

GeneBoxes 1 to 9 show the values for Genes 1 to 9 and SwellType for dGenes 1 to 9. The value is converted to a string using a call to NumToString, which does not put a plus sign on non-negative values.

For GeneBoxes 10, 11, 14, 15, 16, the values are displayed through a call to DrawInt(), which puts a plus sign on all non-negative values. GeneBox 10 shows SegNoGene. GeneBox 11 shows SegDistGene, and displays the SwellType value of dGene[10]. GeneBox 12 shows Completeness, by displaying the value of AsymString or BitlatString. GeneBox 13 shows SpokesType, by displaying the value of SingleString, UpDnString, or RadialString. GeneBox 14 shows TrickleGene GeneBox 15 shows MutSizeGene GeneBox 16 shows MutProbGene

PROCEDURE ShowChangedGene (an1, an2: person);
 
PROCEDURE DrawPic (ThisPic: Pic; Place: Point; VAR Biomorph: person);
 
PROCEDURE Reproduce (parent: person; VAR child: person);
 
PROCEDURE SendToClipBoard;
 
PROCEDURE DoHighlight;
 
PROCEDURE DoBreed;
 
PROCEDURE DoRowMore;
 
PROCEDURE DoRowLess;
 
PROCEDURE DoColMore;
 
PROCEDURE DoColLess;
 
PROCEDURE Targetevolve (target: person);
 
PROCEDURE Evolve (MLoc: point);
 
PROCEDURE Chess (VAR genotype: person);
 
PROCEDURE BasicTree (VAR genotype: person);
 
PROCEDURE Insect (VAR genotype: person);
 

Variables

min: Integer;
 

Generated by PasDoc 0.14.0.