 dЇ * Biomorphs * nЇ  by Mike Cook xЇ (c) Micro User Вы1 М▐ morph(5,12),parent(5) Ц▐ gi(5,2),px(12),py(12) а<Ї READ IN INCREMENTS AND LIMITS (MIN & MAX) OF EACH GENE к
ў НdH@ ┤у A%=0 ╕ 2:у B%=0 ╕ 5 ╛є gi(B%,A%):э:э ╚4▄ 1,4,0.16,0.2,0.16,2       :REM GENE INCREMENTS ╥-▄ 1,-36,-3.14,0.1,-3.14,-18 :REM GENE MIN ▄-▄ 9,36,3.14,10,3.14,18      :REM GENE MAX ц+Є_INTPOS :Ї INITIALISE DISPLAY POSITION Ё Є_INTP : Ї INITIALISE PARENT ·	gen=0ы 0їgen=gen+1"Є_MUTATE,Є_DISPLAY6Є_CHOSE@¤ гJ▌ Є_INTPTч A$="C" М с^parent(0)=1hparent(1)=4rparent(2)=.785|parent(3)=1Жparent(4)=0Рparent(5)=0Ъч A$="A" М сду A%=0 ╕ 5о parent(A%)=(│(5)+1)*gi(A%,0)╕э┬parent(0)=│(3)+1╠с╓▌ Є_MUTATEру B%=1 ╕ 12ъу A%=0 ╕ 5Їmorph(A%,B%)=parent(A%)■ч (B%Г2) D%=-1 Л D%=1C%=(B%-1)Б2ч C%<>A% М НTpBVч morph(A%,B%)+D%*(gi(A%,0))<gi(A%,1) Д morph(A%,B%)+D%*(gi(A%,0))>gi(A%,2) М НTpB&+morph(A%,B%)=morph(A%,B%)+D%*(gi(A%,0))0	э:э:с:▌ Є_DISPLAYDЄ_LINESNOЄ_TREE(parent(0),parent(1),parent(2),parent(3),parent(4),parent(5),640,500)Xу A%=1 ╕ 12baЄ_TREE(morph(0,A%),morph(1,A%),morph(2,A%),morph(3,A%),morph(4,A%),morph(5,A%),px(A%),py(A%))lэ:сv▌ Є_INTPOSА
ў НDHCКу A=1 ╕ 12Фє px(A),py(A):эЮё''Й(14);"Biomorph"и)ё"An exercise in Darwinian Evolution"▓ё''"By Mike Cook"╝*ё"Based on an idea by Richard Dawkins"╞%ё"Author of THE BLIND WATCHMAKER"╨*ё'''"Options to start evolving from:-"┌ё"A - A microbe."фё"B - Some random point."юё"C - A defined point."°&ё'"Press the key of your choice.";-A$=╛:ч м(A$="A" Д A$="B" Д A$="C") М НTBCё:ч A$<>"C" су A%=0 ╕ 5 ё"Gene number ";A%"=";*ш parent(A%)4dч parent(A%)>gi(A%,2) Д parent(A%)<gi(A%,1) ё'"Values between ";gi(A%,1);" and ";gi(A%,2):х НT`C>э:сHH▄ 160,860,480,860,800,860,1120,860,160,604,1120,604,160,348,1120,348R"▄ 160,92,480,92,800,92,1120,92\▌ Є_LINESfя 12,23,1,0;0;0;0;5pёzу X%=320 ╕ 960 И 320Ду Y%=256 ╕ 800 И 256Оь X%,0:▀ X%,1023Шь 0,Y%:▀ 1259,Y%вэ:эмь 640,260:Ё 7,640,764╢ь 324,512:Ё 7,958,512└у A%=1 ╕ 12╩ь px(A%)-150,py(A%)-60╘я&40+A%:э▐ь 360,322шё"PARENT BIOMORPH"Єь 360,755№ё"GENERATION NUMBER ";genя4:с▌ Є_CHOSEя5:ь 360,290$+ё"? or Breed from child (A-L) ?";:*FX15.A$=╛8ёA$;:C%=Ч(A$)-&40Bч C%<0 Д C%>12 Є_REVIEW:сLу A%=0 ╕ 5Vparent(A%)=morph(A%,C%)`
э:я4:сj▌ Є_REVIEWt	я22,1~ё''"Current Biomorph has:-"Иу A%=0 ╕ 5Т#ё"GENE ";A%" VALUE ";parent(A%)ЬэжOЄ_TREE(parent(0),parent(1),parent(2),parent(3),parent(4),parent(5),640,300)░(ёК0,30);"Press any key to continue";║A$=╛:gen=gen-1:я22,0─с╬!▌ Є_TREE(D,L,dA,AR,DT,DS,X,Y)╪ь X,Y:▀ X,Y-LтЄ_GROW(п/2,L,X,Y,D)ьсЎ▌ Є_GROW(TH,L,X,Y,D) ч D ь X,Y Л с
dX=L*Ы(TH+dA)*(1/AR)dY=L*╡(TH+dA)*ARЁ 1,dX,dY('Є_GROW(TH+dA+DT,L-DS,X+dX,Y+dY,D-1)2	ь X,Y<dX=L*Ы(TH-dA)*(1/AR)FdY=L*╡(TH-dA)*ARPЁ 1,dX,dY:ь X,YZ'Є_GROW(TH-dA-DT,L-DS,X+dX,Y+dY,D-1)dс