Option Explicit
'Script written by <David Mans>
'Script copyrighted by <Neoarchaic Studio>
'Script version Monday, February 02, 2009 8:11:02 PM
'Adapted from work by 

Call Main()
Sub Main()
	Call Rhino.EnableRedraw(False)
	Call tetrahedron(array(0,0,0),3)
	Call Rhino.EnableRedraw(True)
End Sub
Function tetrahedron(pt,r)
	tetrahedron = Null
	
	Dim i, x, y, z, arrOutput(4)
	
	Dim a, b, c, d
	
	a = sqr(3)/3*r
	b = sqr(3)/6*r
	c = sqr(6)/3*r
	d = sqr(6)/4*r
	
	x = array(pt(0),pt(0)-r*0.5,pt(0)+r*0.5,pt(0),pt(0))
	y = array(pt(1),pt(1)+b,pt(1)+b,pt(1)-a,pt(1))
	z = array(pt(2),pt(2)-c+d,pt(2)-c+d,pt(2)-c+d,pt(2)+d)
	
	For i = 0 To 4 Step 1
		arrOutput(i) = array(x(i),y(i),z(i))
		Call Rhino.AddPoint(arrOutput(i))
	Next
	
	tetrahedron = arrOutput
End Function