RVB RandOrthVector

From scripting
Revision as of 19:48, 24 April 2017 by Nickpisca (talk | contribs) (Created page with " 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 = ((Rn...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
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