Sindbad~EG File Manager

/**
 * Author: M. Beeson Geoscript for constructing a square on a given segment AB.
 * Returns the square.  This is a somewhat shorter method than SquareOnGivenSide,
 * but in hyperbolic geometry the circles in the last step need not intersect again.
 * This code is in the public domain.
 */

package org.dynamicgeometry.scripts;

public class SquareOnGivenSide2Script extends Scripts
{
	public SquareOnGivenSide2Script()
	{
		super("SquareOnGivenSide2", "Quadrilateral", new String[] {"A", "B"},
			new String[] {"Point", "Point"}, new String[] {
					"E = ErectPerpendicular(B,A,A);",  // so BAE is a left turn
					"C = CopySegmentOntoLine(A,B,A,E);",
					"K = Circle(C,A);",
					"L = Circle(B,A);",
					"D = IntersectCircles1(K,L);",   // so KDL is a left turn
					"return Quadrilateral(A,B,D,C);"
			});
	}
}