<JSP>
{ Taala-JSP CODE FOR JSX CONVERSION 20.12.2019 MEP }
{ Muista täpättää LaTeX labels: }

{ Lineaarialgebra: PNS-ratkaisu 3x2 geometrisesti}
{ IV. Symmedians and  }

{ JSX board name: GeomLSQR_Symm }
{ JSX element id: geomlsqr_symm }

{ Symmedian }

#CODE	  = "GSP.class"
#CODEBASE = "..\jsp"
#ARCHIVE  = "jsp4.jar"
#WIDTH    = 400
#HEIGHT   = 400
#ALIGN    = Center
*Frame          =  1
*TextFont       =   "Courier"
*TextBold       =   0
*TextSize       =  14
*LabelFont      =   "Courier"
*LabelBold      =   0
*LabelSize      =  14
*MeasureFont        =   "Courier"
*MeasureSize        =  12
*MeasureBold        =   0
*MeasureInDegrees = 1
*DirectedAngles	  = 1
*BackRed	= 255
*BackGreen	= 255
*BackBlue       = 255

${
$reset  FixedText(385,15,'Reset = ''R''')[black,bold,justifyRight];
$Clear  FixedText(370,413,'Puhdistus: x ->')[red,plain,font('Courier'),justifyRight];
$xText  FixedText(385,195,'x1')[bold, black, justifyCenter];
$yText  FixedText(192, 10,'x2')[bold, black, justifyCenter];
$}

{ The free points A, B and C }
$A	Point(190,230)[yellow, label('A')];
{,LabelAlign(5,5), psize(2), highlight}
$B	Point(290,280)[yellow, label('B')];
{,LabelAlign(5,5), psize(2), highlight}
$C	Point(160,290)[yellow, label('C')];
{,LabelAlign(5,5), psize(2), highlight}


{ The three lines }
$LBC	Line($B,$C)[white];
$LCA	Line($C,$A)[white];
$LAB	Line($A,$B)[white];


{ The triangle ABC yellow }
$Triang	Polygon($A,$B,$C)[yellow];

{ Construction from A }

$LperpCA Perpendicular($LCA,$C)[red,hidden];
{,dash(1)}
$CircCA	 Circle($C,$A)[green,hidden];
{,dash(1)}
$C1	 Intersect2($LperpCA,$CircCA)[red,label('C1'),hidden];
{,label('CSUB{1}')}

$LparCA	 Parallel($LCA,$C1)[red,hidden];
{,dash(1)}
$SBCA  	 ShowButton(  5,  0, 'Construct C1 line')($LperpCA,$CircCA,$C1,$LparCA)[red,bold,hidden];
{,text('Construct \\( CSUB{1} \\) line parallel with \\( AC \\)')}
$HBCA  	 HideButton(205,  0, 'Hide')($LperpCA,$CircCA)[red,hidden];

$LperpBA Perpendicular($LAB,$B)[blue,hidden];
{,dash(1)}
$CircBA	 Circle($B,$A)[cyan,hidden];
{,dash(1)}
$B1	 Intersect2($LperpBA,$CircBA)[blue,label('B1'),hidden];
{,label('BSUB{1}')}

$LparBA	 Parallel($LAB,$B1)[blue,hidden];
{,dash(1)}
$SBBA  	 ShowButton(  5, 22, 'Construct B1 line')($LperpBA,$CircBA,$B1,$LparBA)[blue,bold,hidden];
{,text('Construct \\( BSUB{1} \\) line parallel with \\( AB \\)')}
$HBBA  	 HideButton(205, 22, 'Hide')($LperpBA,$CircBA)[blue,hidden];

$O1	Intersect($LparCA,$LparBA)[magenta,label('O1'),hidden];
{,label('OSUB{1}')}

$LAO	Line($A,$O1)[magenta,hidden];
$P 	Intersect($LAO,$LBC)[magenta,label('P'),hidden];

${
        Angle Bisector (Side1, Vertex, Side2)

        An Angle Bisector that behaves exactly as the GSP construction.
        See also the alternative construction in bisecto2.jsp.

        Translation ($Vertex, 10.0, 0.0) [hidden];
        Circle ($Vertex, $1) [hidden,black];
        Ray ($Side1, $Vertex) [hidden,black];
        Ray ($Side2, $Vertex) [hidden,black];
        Intersect2 ($2, $3) [hidden];
        Intersect2 ($2, $4) [hidden];
        Segment ($2, $1) [hidden,black];
        Midpoint ($1) [hidden];
        Ray($1, $Vertex);
$}
${
$BBis  	Angle Bisector($A,$B,$C)[blue,hidden]; MACRO NOT SUPPORED
$}
$TrAForBis Translation($A, 10.0, 0.0) [hidden];
$CirAForBis  Circle($A, $TrAForBis) [hidden,black];
$RayBAForBis Ray($B, $A) [hidden,black];
$RayCAForBis Ray($C, $A) [hidden,black];
$IntCirRayBA Intersect2($CirAForBis, $RayBAForBis) [hidden];
$IntCirRayCA Intersect2($CirAForBis, $RayCAForBis) [hidden];
$SIntBA_CA   Segment($IntCirRayBA, $IntCirRayCA) [hidden,black];
$MidSegmBACA Midpoint($SIntBA_CA) [hidden];
$ABis        Ray($MidSegmBACA, $A)[white,hidden];
{,dash(2)}
$L	Intersect($LBC,$ABis)[green,label('A_b'),hidden];
{,label(' ASUB{b}'),LabelAlign(-5,5)}

$SBC	Segment($B,$C)[hidden];
$Apr	Midpoint($SBC)[red,label('A_m'),hidden];
{,label(' ASUB{m}'),LabelAlign(-5,5)}
$RayApr Ray($Apr,$A)[red,hidden];
{,dash(2)}
$SAApr	Segment($A,$Apr)[thick,red,hidden];

${
$RaySym Reflection($SAApr,$ABis)[cyan]; NOT SUPPORTED RAY
$}
$RotApr1 Rotation/MarkedAngle($Apr,$A,$Apr,$A,$L)[red,hidden];
$ReflAprL Rotation/MarkedAngle($RotApr1,$A,$Apr,$A,$L)[red,hidden];
{,label(' ASUB{mr}'),LabelAlign(-5,5)}
$SAReflAprL   Segment($A, $ReflAprL) [red,thick,hidden];
$RayReflAprL  Ray($ReflAprL,$A)[red,hidden];
{,dash(2)}

${
$BBis  	Angle Bisector($A,$B,$C)[blue,hidden]; MACRO NOT SUPPORED
$}
$TrBForBis Translation($B, 10.0, 0.0) [hidden];
$CirBForBis  Circle($B, $TrBForBis) [hidden,black];
$RayABForBis Ray($A, $B) [hidden,black];
$RayCBForBis Ray($C, $B) [hidden,black];
$IntCirRayAB Intersect2($CirBForBis, $RayABForBis) [hidden];
$IntCirRayCB Intersect2($CirBForBis, $RayCBForBis) [hidden];
$SIntAB_CB   Segment($IntCirRayAB, $IntCirRayCB) [hidden,black];
$MidSegmABCB Midpoint($SIntAB_CB) [hidden];
$BBis        Ray($MidSegmABCB, $B)[white,hidden];
{,dash(2)}


$CircC	Intersect($ABis,$BBis)[blue,hidden];
$PerpAB	Perpendicular($LAB,$CircC)[blue,hidden];
$PtOnC  Intersect($PerpAB,$LAB)[blue,hidden];
$InnerC	Circle($CircC,$PtOnC)[cyan,hidden];

$SBAbisector  	 ShowButton(  5, 25, 'Show A-bisector')($L,$ABis)[magenta,bold,hidden];
{,text('Show bisector from \\( A \\)')}
$HBAbisector  	 HideButton(140, 25, 'Hide')($L,$ABis)[magenta,hidden];

$SBAmed  	 ShowButton(  5, 50, 'Show median A A_m')($Apr,$SAApr,$RayApr)[magenta,bold,hidden];
{,text('Show median \\( A ASUB{m} \\)')}
$HBAmed  	 HideButton(140, 50, 'Hide')($Apr,$SAApr,$RayApr)[magenta,hidden];

$SBAmedRefl 	 ShowButton(  5,75, 'Reflect median A A_m')($ReflAprL,$SAReflAprL,$RayReflAprL)[magenta,bold,hidden];
{,text('Reflect median \\( A ASUB{m} \\)')}
$HBAmedRefl  	 HideButton(140,75, 'Hide')($ReflAprL,$SAReflAprL,$RayReflAprL)[magenta,hidden];

$SBAsymmedian  	 ShowButton(  5, 0, 'Symmedian')($SBAbisector,$HBAbisector,$SBAmed,$HBAmed,$SBAmedRefl,$HBAmedRefl)[magenta,bold];
{,text('Symmedian \\( A SUB{mr} \\)')}
$HBAsymmedian  	 HideButton(140, 0, 'Hide')($SBAbisector,$HBAbisector,$SBAmed,$HBAmed,$SBAmedRefl,$HBAmedRefl)[magenta];


$SBInnerC 	 ShowButton(  5,150, 'Show inner circle')($ABis,$BBis,$CircC,$InnerC)[magenta,bold];
{,text('Show inner circle')}
$HBInnerC  	 HideButton(140,150, 'Hide')($BBis,$CircC,$InnerC)[magenta];


$SBConstrA  	 ShowButton(  205,  0, 'LSQ construction from A')($LperpCA,$CircCA,$C1,$LparCA,$LperpBA,$CircBA,$B1,$LparBA,$O1,$LAO,$P)[magenta,bold];
{,text('LSQ construction from \\( A \\)')}
$HBConstrA  	 HideButton(355,  0, 'Hide')($LperpCA,$CircCA,$C1,$LparCA,$LperpBA,$CircBA,$B1,$LparBA,$O1,$LAO,$P)[magenta];

$SBAO1  	 ShowButton( 205, 25, 'Show AO1 line')($O1,$LAO,$P)[magenta,bold];
{,text('Show \\( A OSUB{1} \\) line')}
$HBAO1  	 HideButton(355, 25, 'Hide')($O1,$LAO,$P)[magenta];

</JSP>