---

SUB BP2(posns%(2),biomorphs%(2),bio%) local presntbase%,oldbase%,itn% x% = 320 reflec% = 320 y% = 125 locate 1,1 input"What magnification do you want ";magn line (x%,y%)-(x%,(y%-(magn * biomorphs%(bio%,8)))) posns%(1,1) = x% : posns%(1,2) = y% posns%(1,3) = biomorphs%(bio%,8) * magn posns%(2,2) = (y%-(magn * biomorphs%(bio%,8))) : posns%(2,1) = x% if biomorphs%(bio%,5)/2 = int(biomorphs%(bio%,5)/2) then posns%(2,3) = magn * (biomorphs%(bio%,3) + biomorphs%(bio%,4)) else posns%(2,3) = magn * (biomorphs%(bio%,3) * biomorphs%(bio%,4)) end if posns%(2,4) = biomorphs%(bio%,6) presntbase% = 2 call vectorplot(posns%(),reflec%,presntbase%) oldbase% = 2 for itn% = 1 to biomorphs%(bio%,2) presntbase% = 2^itn% + 1 count% = presntbase% for vector% = oldbase% to (presntbase%-1) xroot% = posns%(vector%,1) - posns%(vector%,3)*sin(posns%(vector%,4)/6.28319) yroot% = posns%(vector%,2) + posns%(vector%,3)*cos(posns%(vector%,4)/6.28319) posns%(count%,1) = xroot% posns%(count%,2) = yroot% if biomorphs%(bio%,5)/2 = int(biomorphs%(bio%,5)/2) then posns%(count%,3) = magn*(biomorphs%(bio%,3)+biomorphs%(bio%,4)) else posns%(count%,3) = magn*(biomorphs%(bio%,3)*biomorphs%(bio%,4)) end if posns%(count%,4) = biomorphs%(bio%,6) call vectorplot(posns%(),reflec%,count%) count% = count% + 1 posns%(count%,1) = xroot% posns%(count%,2) = yroot% if biomorphs%(bio%,5)/2 = int(biomorphs%(bio%,5)/2) then posns%(count%,3) = magn*(biomorphs%(bio%,3)+biomorphs%(bio%,4)) else posns%(count%,3) = magn*(biomorphs%(bio%,3)*biomorphs%(bio%,4)) end if posns%(count%,4) = biomorphs%(bio%,7) - biomorphs%(bio%,6) call vectorplot(posns%(),reflec%,count%) count% = count%+1 next vector% oldbase% = presntbase% next itn% locate 12,1 print"Biomorph gene values:" for itn% = 1 to 8 print itn%;" : ";biomorphs%(bio%,itn%) next itn%

---

The views and opinions stated within this web page are those of the author or authors which wrote them and may not reflect the views and opinions of the ISP or account user which hosts the web page. The opinions may or may not be those of the Chairman of The Skeptic Tank.

Return to The Skeptic Tank's main Index page.

E-Mail Fredric L. Rice / The Skeptic Tank