SUB BP2(posns%(2),biomorphs%(2),bio%) local presntbase%,oldbase%,itn% x% = 320 reflec% = 3

---
Master Index Current Directory Index Go to SkepticTank Go to Human Rights activist Keith Henson Go to Scientology cult

Skeptic Tank!

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%

---

E-Mail Fredric L. Rice / The Skeptic Tank