Sindbad~EG File Manager

/**
 * Author: M. Beeson Geoscript for creating segment equal to BC with given
 * endpoint A. returns the other endpoint of the segment. This code is in the
 * public domain.
 *
 */

package org.dynamicgeometry.scripts;
/** @return Point L such that AL = BC
*/
public class CopySegmentScript extends Scripts
{
	public CopySegmentScript()
	{
		super("CopySegment", "Point",   // name and return type
		    new String[] {"A", "B", "C"},   // parameter names
			new String[] {"Point", "Point", "Point"},    // parameter types
			new String[] {
			        "s = segment(B,C);",
					"D = EquilateralTriangle(A,B);",
					"K = Line(D,B);",
					"Q = Circle(B,C);",
					"G = intersectLineCircle2(D,B,B,C);",
					"M = Line(A,D);",
					"R = Circle(D,G);",
					"L = intersectLineCircle1(A,D,D,G);",
					"t = segment(A,L);",
					"return L and t and s;"},
					new String[]{"Point", "Segment", "Segment"}   // return types
			);
	     Purpose = "Construct a point D such that AD = BC";
	     EuclidReference = "Book I, Prop. 2";
	}
}