Sindbad~EG File Manager

/**
 * Author: M. Beeson Geoscript for constructing a square on a given segment AB.
 * Returns the square,  ABDC;  each vertex is a right turn.
 * This code is in the public domain.
 */

package org.dynamicgeometry.scripts;

public class SquareOnGivenSideScript extends Scripts
{
	public SquareOnGivenSideScript()
	{
		super("SquareOnGivenSide", "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);",
					"F = ParallelThroughPoint(A,B,C);",
					"G = ErectPerpendicular(A,B,B);",
					"D = IntersectLines(C,F,B,G);",
					"return Quadrilateral(A,B,D,C);"
			});
	}
}