Category : Science and Education
Archive   : BIOMRF.ZIP
Filename : VTRPLOT.INC

Output of file : VTRPLOT.INC contained in archive : BIOMRF.ZIP
' Subroutine VECTORPLOT
' This routine does the screen plot for each biomorph vector as BIOPLOT
' generates it. Parameters are the vector array (only one part of this is
' used at each call, but as it is passed as a global variable and not
' copied, this does not matter in execution time); the y coordinate of the
' first branch (because each morph has a vertical mirror plane and only one
' side is actually stored, the other side being calculated from the
' reflection of this vector in the plane) and the pointer to the vector
' (in the vector array) being plotted.

SUB VECTORPLOT(posns%(2),reflec%,vctr%)

local x%,y%,x1%

x% = posns%(vctr%,1)-posns%(vctr%,3)*sin(posns%(vctr%,4)/6.28319)
y% = posns%(vctr%,2)+posns%(vctr%,3)*cos(posns%(vctr%,4)/6.28319)

line (posns%(vctr%,1),posns%(vctr%,2))-(x%,y%),15

x% = 2*reflec% - x%
x1% = 2*reflec% - posns%(vctr%,1)

line (x1%,posns%(vctr%,2))-(x%,y%),15

end sub

  3 Responses to “Category : Science and Education
Archive   : BIOMRF.ZIP
Filename : VTRPLOT.INC

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: