Option Explicit
'Script written by Russell Loveridge
'Script copyrighted by <RAL: lapa.epfl.ch>

Call Main()
Sub Main()

	' this is declaring the variables:
	' strObject = this will be the identifier or the temporary name for our SPHERE
	' dblSize = this is a REAL "variable" that will be input by the user.
	' REAL numbers are numbers that include a decimal point and fraction ex: 3.1459
	' INTEGER numbers are numbers that DO NOT have a decimal point ex: 1  or 5 >>but not 1.3 (no)

	Dim strObject, dblSize

	dblSize = Rhino.GetReal("Input the radius of the new sphere ", 10)
	If (VarType(dblSize) = vbNull Or (dblSize <= 0)) Then Exit Sub


	strObject = AddSphere(Array(0,0,0), dblSize)

End Sub