USC 4th year studio topic-Linear Aggregations

Option Explicit
'Script written by <David Mans>
‘Script edited by Karmen Huang
'Script copyrighted by <NeoArchaic Design>
'Script version Sunday, May 03, 2009 1:54:38 PM
Call Main()
Sub Main()
Dim Curves, SM, DN

Curves= Rhino.GetObjects("Select Curves",4)
If isNull(Curves) Then Exit Sub

SM = Rhino.GetBoolean("Blend Type",array("Type","Straight","Smooth"),array(False))
If isNull(SM) Then Exit Sub
 
DN = Rhino.GetReal("Blend Density",15,1)
If isNull(SM) Then Exit Sub
 
Call Rhino.EnableRedraw(False)
If uBound(Curves) > 0 Then
  Call BlendCurves(Curves,SM(0),DN)  
Else
  Call Rhino.Print("2 or more curves required") 
End If

Call Rhino.EnableRedraw(True)
End Sub
Function BlendCurves(arrCurves,blnSmooth,dblDensity)