Rhino Script - Surface lofted Between Triangle and offset degree Curve

Option Explicit
'Script written by KatieAdee & NatashaHarper
'Script version Sunday, March 02, 2008 10:01:46 PM
Call Rhino.AddLayer("cv", RGB(255, 100, 0))
Call Rhino.CurrentLayer("cv")
Call Main()
Sub Main()
Dim arrTri,tri,arrCvPoints, arrBladder,surf, blad, loft
arrTri = Rhino.GetObjects("Select triangles", 4)

For Each tri In arrTri

If isNull(arrBladder) Then
Call rhino. print("Error")
Else
arrCvPoints=Rhino.PolylineVertices (tri)
arrBladder = Rhino.AddCurve (arrCvPoints,3)
blad = arrBladder
loft = array(tri,blad)
Call Rhino.AddLayer("PlanarSrf", RGB(10, 100, 50))

Surf= Rhino.AddLoftSrf (loft)
Call Rhino.ObjectLayer(Surf,"PlanarSrf")
End If


Next


End Sub