Adrian Smith vase wk1








Call Main()
Sub Main()
Dim arrPlane, i, j, strCrv(), strInnerCrv(), strSrf1, strSrf2, arrLftSrf1, arrLftSrf2, arrLftSrf3
For j = 0 To 5
For i = 0 To 10
ReDim Preserve strCrv(i)
ReDim Preserve strInnerCrv(i)
 arrPlane = Rhino.PlaneFromPoints (Array(4*Cos(5*i),j*25+4*Sin(5*i),i*(j+3)), Array(1+4*Cos(5*i),j*25+4*Sin(5*i),i*(j+3)), Array(4*Cos(5*i),j*25+1+4*Sin(5*i),i*(j+3)))
  If i <= j Then
    strCrv(i) = Rhino.AddCircle (arrPlane, 8.0)
    strInnerCrv(i) = Rhino.AddCircle (arrPlane, 7.0)
  If i = 0 Then
    Call Rhino.MoveObject (strInnerCrv(i),Array(0,0,0),Array(0,0,1))
   End If
  strCrv(i) = Rhino.AddCircle (arrPlane, 5.0)
  strInnerCrv(i) = Rhino.AddCircle (arrPlane, 4.0)
   End If
  If i = 0 Then
   strSrf1 = Rhino.AddPlanarSrf (strCrv)
   strSrf2 = Rhino.AddPlanarSrf (strInnerCrv)
   End If
  If i = 10 Then
   arrLftSrf1 = Rhino.AddLoftSrf (Array(strCrv(i),strInnerCrv(i)))
   End If
arrLftSrf2 = Rhino.AddLoftSrf (strCrv,,,1)
arrLftSrf3 = Rhino.AddLoftSrf (strInnerCrv,,,1)
Call Rhino.JoinSurfaces (Array(arrLftSrf1(0),arrLftSrf2(0),arrLftSrf3(0),strsrf1(0),strsrf2(0)),True)
Call Rhino.deleteobjects (strCrv)
Call Rhino.DeleteObjects (strInnerCrv)
End Sub


Leave a Reply

Fill in your details below or click an icon to log in: Logo

You are commenting using your account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )


Connecting to %s