
<JSP>

$(
	Translation/MarkedAngle/MarkedDistance/Positive ($Object, $AngleMeasure, $DistanceMeasure)
${
	The JSP construction has negative angle orientation.
	This macro sets that right.
	The MeasureInDegrees and DirectedAngles parameters affect the result.
$}
	Calculate (0, 0, '', '0 A - ') ($AngleMeasure) [hidden];
	Translation/MarkedAngle/MarkedDistance ($Object, $1, $DistanceMeasure)
$)


$(
	Translation/MarkedAngle/FixedDistance/Positive ($Object, $AngleMeasure, $Distance)
${
	The JSP construction has negative angle orientation.
	This macro sets that right.
	The MeasureInDegrees and DirectedAngles parameters affect the result.
$}
	Calculate (0, 0, '', '0 A - ') ($AngleMeasure) [hidden];
	Translation/MarkedAngle/FixedDistance ($Object, $1, $Distance)
$)


${
	Translation/FixedAngle/MarkedDistance/Positive ($Object, $DistanceMeasure, $Angle)

	You don't need a macro for that, just use the standard construction
	and change the sign of the angle!
$}


${
	Just testing.

* Background = 239, 239, 239
* MeasureInDegrees = 0
* LabelSize = 8

$V	Point (50, 60);
$S1	UnitPoint ($V, 25);
$c	Circle ($V, $S1) [black];
	Circle interior ($c) [color (223, 223, 223)];
$S2	Point on Object ($c, -1.0);  { this has negative orientation too. }
	Segment ($V, $S1) [black];
	Segment ($V, $S2) [black];
$alpha	Angle ($S1, $V, $S2, 10, 15, 'alpha: ') [suffix (' radians')];
$d	Distance ($V, $S1, 10, 27, 'd: ') [suffix (' pixels')];
$P	Point (50, 150) [label ('P')];
$P1	Translation/MarkedAngle/MarkedDistance/Positive ($P, $alpha, $d) [blue, label ('P translated by (d, alpha)')];
	Circle ($P, $P1) [hidden];
	Circle interior ($1) [color (223, 223, 239)];
$P2	Translation/MarkedAngle/FixedDistance/Positive ($P, $alpha, 10.0) [blue, label ('P translated by (10, alpha)')];
	Circle ($P, $P2) [hidden];
	Circle interior ($1) [color (215, 215, 239)];
$}

</JSP>