 dТ > Biomorphs 1.02 nТ  by Mike Cook xТ (c) Micro User }Т Tweeked by JGH ┌К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 А$Н ┘:Ж:Г÷<>17:Я" at line ";·:A%=╔ БК1 Ф+Р_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):М·Я'┴13;"Biomorph"╗)Я"An exercise in Darwinian Evolution"╡Я┴11;"By Mike Cook"╪+Я'"Based on an idea by Richard Dawkins"ф'Я┴2"Author of THE BLIND WATCHMAKER"п)Я''"Options to start evolving from:"'зЯ"A - A microbe."ДЯ"B - Some random point."НЯ"C - A defined point."СЯ"Q - Quit."Ь&Я'"Press the key of your choice:";'A$=Ґ(╔ ─ &DF):Гї"ABCQ",A$)=0 ▄ █TBCЯA$:Г A$="Q":ЮЯ:Г A$<>"C" АЦ A%=0 ╦ 5 QЯ"Gene number ";A%;" (";╗(gi(A%,1)/gi(A%,0));" to ";╗(gi(A%,2)/gi(A%,0));")";*3Х ": "parent(A%):parent(A%)=parent(A%)*gi(A%,0)4NГ parent(A%)<╗(gi(A%,1)/gi(A%,0)) └ parent(A%)>╗(gi(A%,2)/gi(A%,0)):Е █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%:МчЛ 536,338+16ХЯ"PARENT BIOMORPH"РЛ 504,755ЭЯ"GENERATION NUMBER ";genО4:Ащ Р_CHOSEО5:Л 368,322<Ц A%=0 ╦ 5:Я;A%;":";юц╗(parent(A%)/gi(A%,0))+"   ",5);:МЛ 336,290$-Я"A-L: Breed from child, R: Random child".A$=Ў8'C%=(≈(A$)─&DF)-&40:Г C%=18:C%=Ё(12)BГ C%<1 └ 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%)/gi(A%,0))°Мі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АЪ