Sindbad~EG File Manager

/**
 * Author: M. Beeson Geoscript for bisecting segment AB. Returns the midpoint M
 * This code is in the public domain.
 */

package org.dynamicgeometry.scripts;

public class BisectSegment2Script extends Scripts
{
	public BisectSegment2Script()
	{
		super("BisectSegment2", "Point", new String[] {"A", "B"}, new String[] {
				"Point", "Point"},
				  new String[] {
				  "s = Segment(A,B);",
				  "C1 = circle(A,B);",
				  "C2 = circle(B,A);",
				  "D = intersectCircles1(C1,C2);",
				  "E = intersectCircles2(C1,C2);",
				  "t = Segment(D,E);",
				  "M = intersectLines(A,B,D,E);",
				  "return M and s;"},
				 new String[]{ "Point", "Segment"}
			);
	}
}