Option Explicit
'Script written by Tobias Schwinn
'Script version Sonntag, 5. Juli 2009 12:09:30

Call Main()
Sub Main()
	
	Dim numPts, max, i, j, arrDbl()
	
	numPts = Rhino.GetInteger("Number of Points", 1000, 1, 1000000)
	If IsNull(numPts) Then Exit Sub
	
	max = numPts - 1
	ReDim arrDbl(max)
	
	' Reset the random-number generator and provide
	' a seed value for subsequent calls To Rnd
	Rnd (-1)	
	Randomize 2
	
	For i = 0 To max
		arrDbl(i) = Rnd
	Next
	
	Call Rhino.EnableRedraw(False)
	For j = 0 To max
		If j = max - 1 Then
			Call Rhino.AddPoint(Array(arrDbl(j), arrDbl(j + 1), arrDbl(0)))
		ElseIf j = max Then
			Call Rhino.AddPoint(Array(arrDbl(j), arrDbl(0), arrDbl(1)))
		Else
			Call Rhino.AddPoint(Array(arrDbl(j), arrDbl(j + 1), arrDbl(j + 2)))
		End If
	Next
	Call Rhino.EnableRedraw(True)

End Sub