RhinoScript function IntersectSpheres doesn't work

@mathias wrote:

Hi,

I am trying to use Rhino.IntersectSpheres in RhinoScript without success. To test, I have copied this example from the help file page for the function (I just added the Rhino.Print "NULL" in the end:

Dim arrLine, arrPlane0, arrPlane1, dblHeight, dblRadius

Dim arrResults, i

arrPlane0 = Rhino.WorldXYPlane

arrPlane1 = Rhino.MovePlane(arrPlane0, Array(10, 0, 0))

dblRadius = 10

arrResults = Rhino.IntersectSpheres(arrPlane0, dblRadius, arrPlane1, dblRadius)

If IsArray(arrResults) Then

	If arrResults(0) = 0 Then

		Rhino.AddPoint arrResults(1)

	Else

		Rhino.AddCircle arrResults(1), arrResults(2)

	End If

Else
	Rhino.Print "NULL"
	
End If

This always prints NULL although the spheres should clearly intersect. I guess this is a bug report.

Best,
Mathias

Posts: 2

Participants: 2

Read full topic