Richard Dawkins Blind Watchmaker

Units

Class Hierarchy

Classes, Interfaces, Objects and Records

Types

Variables

Constants

Functions and Procedures

Identifiers

Unit SetUpBoxes_aka_FirstSeg

DescriptionUsesClasses, Interfaces, Objects and RecordsFunctions and ProceduresTypesConstantsVariables

Description

 

Uses

Overview

Functions and Procedures

function chooseColor (index: integer): RGBColor;
function Rainbow: longint;
function Randint (Max: Integer): Integer;
function Odd (i: INTEGER): boolean;
function RandSwell (Indgene: Swelltype): SwellType;
procedure EraseInnerRect (box: rect);
procedure FrameOuterRect (box: rect);
procedure FrameInnerRect (box: rect);
function RandLimbType: LimbType;
function RandLimbFill: LimbFillType;
procedure Reproduce (parent: person; var child: person);
function Sgn (x: INTEGER): INTEGER;
procedure Slide (LiveRect, DestRect: Rect);
procedure SetUpBoxes (drawing: BOOLEAN);
procedure PicLine (var ThisPic: Pic; x, y, xnew, ynew: Integer; color: integer);
procedure ZeroPic (var ThisPic: Pic; Here: Point);
procedure DrawPic (ThisPic: Pic; Place: Point; var Biomorph: person);
function CheckAbort: BOOLEAN;
function ThisColor (j: INTEGER): INTEGER;
function LongintColour (IntColour: Integer): LongInt;
function IntColour (LongintColour: Longint): Integer;
function ChangedColour (oldColour, Amount: integer): integer;
procedure Message (s: str255);

Description

Functions and Procedures

function chooseColor (index: integer): RGBColor;

Palettes,

function Rainbow: longint;
 
function Randint (Max: Integer): Integer;

delivers the number of colours available with the present hardware;

function Odd (i: INTEGER): boolean;
 
function RandSwell (Indgene: Swelltype): SwellType;
 
procedure EraseInnerRect (box: rect);
 
procedure FrameOuterRect (box: rect);
 
procedure FrameInnerRect (box: rect);
 
function RandLimbType: LimbType;
 
function RandLimbFill: LimbFillType;
 
procedure Reproduce (parent: person; var child: person);
 
function Sgn (x: INTEGER): INTEGER;
 
procedure Slide (LiveRect, DestRect: Rect);
 
procedure SetUpBoxes (drawing: BOOLEAN);
 
procedure PicLine (var ThisPic: Pic; x, y, xnew, ynew: Integer; color: integer);
 
procedure ZeroPic (var ThisPic: Pic; Here: Point);
 
procedure DrawPic (ThisPic: Pic; Place: Point; var Biomorph: person);
 
function CheckAbort: BOOLEAN;
 
function ThisColor (j: INTEGER): INTEGER;
 
function LongintColour (IntColour: Integer): LongInt;
 
function IntColour (LongintColour: Longint): Integer;
 
function ChangedColour (oldColour, Amount: integer): integer;
 
procedure Message (s: str255);
 
Generated by PasDoc 0.14.0.