RVB RandOrthVector

From scripting

Jump to: navigation, search

Public Function RandOrthVector(BasePtArr, MaxRange)
Dim XV, YV, ZV, EndArr
XV = ((Rnd()*2)-1)*MaxRange + BasePtArr(0)
YV = ((Rnd()*2)-1)*MaxRange + BasePtArr(1)
ZV = ((Rnd()*2)-1)*MaxRange + BasePtArr(2)
EndArr = Array(XV, YV, ZV)
RandOrthVector = EndArr
End Function

Retrieved from "http://nickpisca.com/BLAST/index.php?title=RVB_RandOrthVector&oldid=287"

RhinoScript