Spline from Intersect

fn splineFromIntersect obj1 obj2 =
(
	obj1 = copy obj1
	obj2 = copy obj2
	select obj1
	startObjectCreation BooleanObject2 --I want to add this without needing to select...
	clearSelection()
	obj1.AppendOperand obj1 obj2 0
	--macros.run "Modifier Stack" "Convert_to_Spline" --thanks Paul
	convertToSpline obj1
	obj1.name = uniqueName("splineFromIntersect-00")
	obj1.wirecolor = red
)
/*
splineFromIntersect $GeoSphere001 $GeoSphere002

The Boolean settings might be persistent so there are some options
$.operation[2] = 0 --union
$.option[2] = 0 --no options
$.operand_tm[2] = prs () --pos rot scale Matrix3Controller