RH-Hair04

-----------------------------------------------------------

Dim arrplane

Dim strcir

Dim dbldist

arrPlane = Rhino.PlaneFromNormal(arrpt(i+1,j+1),arrSrfData(1))

arrPlane = Rhino.PlaneFromNormal(arrpt(i+2,j+2),arrSrfData(1))

dblDist = Rhino.Distance(arrSrfData(0), arrPtA1)

dblDist = dblDist/4

strCir = Rhino.AddCircle(arrPlane,0.6)

'Rhino.ExtrudeCurve strCir,strCrv

Dim strcir2

Dim arrplane2

arrPlane2 = Rhino.PlaneFromNormal(myVector,arrSrfData(1))

dblDist = Rhino.Distance(arrSrfData(0), arrPtA1)

dblDist = dblDist/4

strCir2 = Rhino.AddCircle(arrPlane2,0.1)

Rhino.AddPlanarSrf (array(strcir2))

Call rhino.addloftsrf( array (strcir,strcir2))

-----------------------------------------------------------