Difference between revisions of "RVB RandOrthVector"
From scripting
(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...") |
(No difference)
|
Latest revision as of 19:48, 24 April 2017
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