Sindbad~EG File Manager

/**
 * Author: M. Beeson Geoscript for bisecting an acute angle BAC. Returns a
 * point F such that AF is the angle bisector. This code is in the public
 * domain.
 *
 *	Assumption: BAC is a right turn
 */

package org.dynamicgeometry.scripts;

public class BisectAngleScript extends Scripts
{
	public BisectAngleScript()
	{
		super("BisectAngle",
		    "Point",         // return type
		    new String[] {"B", "A", "C"}, // parameter names
			new String[] {"Point", "Point", "Point"}, new String[] {  // script
			        "p = Ray(A,B);",
			        "q = Ray(A,C);",
					"D = CopySegmentOntoLine2(A,B,C);",
					"E = BisectSegment2(D,C);",  //not EquilateralTriangle as in Euclid
					"r = Ray(A,E);",
					"return E and r and p and q;"
			             },
            new String[] {"Point", "Ray", "Ray", "Ray"}
		 );
		Purpose = "Bisect angle BAC";
	}
}