This allows you edit the active cels genes directly. It will then mutate them to fill the cells with offspring.
Use the pen to select a cel.
Pressing mutate will take the genes of the selected cel, the one currently highlighted, and produce a series of mutated offspring for further selection.
All shapes are just one mutation of the active cel's genes. Since not all gene mutations produce visible differences directly, a number of them will look the same. Some mutations however can cause big shape changes.
This is a program that let's you experiment with form creation using genetic algorithm's. It is based on the well known Wacthmaker program described by Richard Dawkins. See www.spacelab.net/~catalj/home.html for more information.
A simple genetic code is used to generate a series of shapes. By selecting a shape you can breed new and slightly mutated offspring. Just select the one you like best.
The shape code is based on an OPL program by ShaneMcKee for the series 3. You can find the original code at dnausers.d-n-a.dnethwhmo/watchmak.htm
Sketch
333333
&Paint.app
A Genetic Progam
Contact
You can find more information on programs about genetic shape creation and images made by me at my website www.xs4all.nl/~ljlapre/ or you can email me at ljlapre@xs4all.nl
Random all
This will randomize all genes of all cells and setup a start situation. Select one of the more interesting shapes and start to breed.
Mutate selected
Load geneY
Load a gene from file and display. It will mutate the gene from file to fill the cells.
Save geneK
Save the genes of the active cel, the one currently highlighted, to disk.
Save imager
This will save the current screen to a MBM file. You can use this to transfer images to skecth or other progams.
Print image
This will print the current image using the standard psion print dialogs. You can set the scale, for printing to larger media.
Stop drawing
Tapping the screen or using a key will stop the drawing off the cells. It may take a little while to respond since the program tests for events once while drawing a cell.
Evolve selected
This generates a series of "in between" shapes ranging from the orginal form, a dot, to the selected active cel. Not all shapes will create an "interesting" evolve sequence.
D:\Programs\Genetic\Genetic.pre
SCRWID%
SCRHGHT%
MENUPOS%
EVENT&
ACTIVECEL%
MAXCEL%
HELPFILE$
HELPTHREAD&
TBARLINK
Initialising
z:\system\opl\toolbar
MyAppO
MYHELP
MYTOOLBAR
INITCELLS
RANDOMGENES
DRAWCELLS
MYNEXTEV
HELPFILE$
genetic.hlpO
TBARINIT
TBARBUTT
TBARSHOW
SCRWID%
SCRHGHT%
TBWIDTH%
genetic.mbmO
File [
] was not foundKW8
GeneticO
MutateO
LoadO
HelpO
Exit O
MENUPOS%
Generate+
Random allOrh+
Mutate selectedOm+
Evolve selectedOo
Gene+ Load geneOl+ Save geneOvh+ Edit geneOf
View+
Save imageOg+
Print imageOp
Tools+
AboutOa+
HelpOhh+
ExitOx
CMDX%
TBAROFFER%
UNSELECTCEL
GETACTIVECEL%
SELECTCEL
MYOFFRCMD%
EVENT&
ACTIVECEL%
{A`[@
MYMENU%
'@`[:
DRAWMORPH
DRAWBOX
DRAWBOX
DRAWCEL
UNSELECTCEL
SELECTCEL
MAXCEL%
ACTIVECEL%
SCRWID%
SCRHGHT%
MAXCEL%
MAXCEL%
ACTIVECEL%
MAXCEL%
MAXCEL%
O |RJy
O @[G
|*433333
|*433333
MUTATEGENE
MAXCEL%
ACTIVECEL%
MAXCEL%
SCRWID%
SCRHGHT%
SCRWID%
SCRHGHT%
HELPTHREAD&
Genetic v1.0
For breeding biomorphs+
By Laurens Lapre+
With code by Shane McKee+
Oct 19 1998+
RANDOMGENES
DRAWCELLS
HELPFILE$
HELPTHREAD&
File [
] was not foundKW8
COPYACTIVE
MUTATEGENES
DRAWCELLS
UNSELECTCEL
COPYACTIVE
MUTATEGENES
DRAWCELLS
SELECTCEL
ACTIVECEL%
Edit active genesO
Gene 1O
Gene 2O
Gene 3O
Gene 4O
Gene 5O
Gene 6O
Gene 7O
Recursion depthO
SizeO
CancelO
EVOLVEGENES
DRAWCELLS
UNSELECTCEL
SAVESCREEN
SELECTCEL
ACTIVECEL%
+ Image.mbmO
Save image
Set filename, Folder, DiskO _
CancelO
SaveO
Saved
UNSELECTCEL
PRINTSCREEN
SELECTCEL
ACTIVECEL%
Print image
Set magnification*
CancelO
COPYACTIVE
MUTATEGENES
DRAWCELLS
ACTIVECEL%
*.g1O
+ Load gene
Select file, Folder, DiskO
CancelO
LoadO
ACTIVECEL%
+ Sample.g1O
Save active gene
Set filename, Folder, DiskO
CancelO
SaveO
Saved
MAIN4
MYAPP|
MYHELP
MYTOOLBAR@
MYMENU%!
MYNEXTEV
MYOFFRCMD%n
CLIP
DRAWMORPH_
DRAWCELL
DRAWBOX
SELECTCELP
UNSELECTCEL
GETACTIVECEL%
DRAWCELLS
INITCELLS
INITGENES)
COPYACTIVE
RANDOMGENES
MUTATEGENE
MUTATEGENESp
EVOLVEGENES
SAVESCREENp
PRINTSCREEN
CMDX%?
CMDA%|
CMDR%
CMDH%C
CMDM%
CMDF%
CMDO%l
CMDG%
CMDP%~
CMDL%?
CMDV%
SYSTEM\
PRINTER]
Genetic
Table1
Table1
Table1
Table1
Table1
Table1
This SIS-file is designed from BISON Software.
Bison Software doesn't accept any liability for the
function of the programme to be installed.
Please pay attention to the comment in the README file
of the author.
Before installing this software please make a
B A C K U P of your Psion Series 5.
Have a lot of fun!
Diese SIS-Datei wurde von Bison Software erstellt.
Bison Software
bernimmt keinerlei Garantie f
r die
Funktion des zu installierenden Programmes.
Bitte beachten Sie die Hinweise in der README Datei des
Autors.
Bevor Sie das Programm installieren machen Sie ein