Sindbad~EG File Manager

/**
 * Author: M. Beeson Geoscript for bisecting an acute angle BAC. Returns the
 * 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 BisectAngle2Script extends Scripts
{
	public BisectAngle2Script()
	{
		super("BisectAngle2",
		    "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 = EquilateralTriangle(D,C);",  //not BisectSegment2 as in BisectAngle
					"r = Ray(A,E);",
					"return E and r and p and q;"
			             },
            new String[] {"Point", "Ray", "Ray", "Ray"}
		 );
	   Purpose = "Bisect angle BAC";
	}
}