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

{ Lineaarialgebra: PNS-ratkaisu 3x2 geometrisesti}
{ IV. Kolmen yhtälön PNS-ratkaisuista }

{ JSX board name: GeomLSQR04ABC }
{ JSX element id: geomlsqr04abc }

{ 4. Step by step construction from points A, B and C }

#CODE	  = "GSP.class"
#CODEBASE = "..\jsp"
#ARCHIVE  = "jsp4.jar"
#WIDTH    = 500
#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	  = 0
*Backblue       = 255
*BackGreen	= 255
*Backred	= 255

${
$reset  FixedText(485,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(300,200)[yellow, label('A')];
{,LabelAlign(5,5), psize(2), highlight}
$B	Point(280,240)[yellow, label('B')];
{,LabelAlign(5,5), psize(2), highlight}
$C	Point(335,250)[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];
{,text('Construct \\( CSUB{1} \\) line parallel with \\( AC \\)')}
$HBCA  	 HideButton(205,  0, 'Hide')($LperpCA,$CircCA)[red];

$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];
{,text('Construct \\( BSUB{1} \\) line parallel with \\( AB \\)')}
$HBBA  	 HideButton(205, 22, 'Hide')($LperpBA,$CircBA)[blue];

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

$LAO	Line($A,$O1)[magenta,hidden];
$SBO1  	 ShowButton(  5, 44, 'Construct O1 line')($C1,$LparCA,$B1,$LparBA,$O1,$LAO)[magenta,bold];
{,text('Construct \\( A OSUB{1} \\) line')}

$HB01  	 HideButton(125, 44, 'Hide others')($LperpCA,$CircCA,$C1,$LparCA,$LperpBA,$CircBA,$B1,$LparBA)[magenta];
$HB01b 	 HideButton(  5, 66, 'Hide O1 line')($LAO)[magenta];
{,text('Hide \\( A OSUB{1} \\) line')}


{ Construction from B }
$LperpAB Perpendicular($LAB,$A)[red,hidden];
 {,dash(1)}

$CircAB	 Circle($A,$B)[green,hidden];
{,dash(1)}

$A2	 Intersect2($LperpAB,$CircAB)[red,label('A2'),hidden];
{,label('ASUB{2}')}

$LparAB	 Parallel($LAB,$A2)[red,hidden];
{,dash(1)}

$SBAB  	 ShowButton(  5, 100, 'Construct A2 line')($LperpAB,$CircAB,$A2,$LparAB)[red,bold];
{,text('Construct \\( ASUB{2} \\) line parallel with \\( BA \\)')}
$HBAB  	 HideButton(205, 100, 'Hide')($LperpAB,$CircAB)[red];

$LperpCB Perpendicular($LBC,$C)[blue,hidden];
{,dash(1)}

$CircCB	 Circle($C,$B)[cyan,hidden];
{,dash(1)}
$C2	 Intersect2($LperpCB,$CircCB)[blue,label('C2'),hidden];
{,label('CSUB{2}')}

$LparCB	 Parallel($LBC,$C2)[blue,hidden];
{,dash(1)}

$SBCB  	 ShowButton(  5, 122, 'Construct C2 line')($LperpCB,$CircCB,$C2,$LparCB)[blue,bold];
{,text('Construct \\( CSUB{2} \\) line parallel with \\( BC \\)')}
$HBCB  	 HideButton(205, 122, 'Hide')($LperpCB,$CircCB)[blue];

$O2	Intersect($LparAB,$LparCB)[magenta,label('O2'),hidden];
{,label('OSUB{2}')}

$LBO	Line($B,$O2)[magenta,hidden];

$SBO2  	 ShowButton(  5, 143, 'Construct O2 line')($A2,$LparAB,$C2,$LparCB,$O2,$LBO)[magenta,bold];
{,text('Construct \\( B OSUB{2} \\) line')}
$HB02  	 HideButton(125, 143, 'Hide others')($LperpAB,$CircAB,$A2,$LparAB,$LperpCB,$CircCB,$C2,$LparCB)[magenta];

$HB02b 	 HideButton(  5, 166, 'Hide O2 line')($LBO)[magenta];
{,text('Hide \\( B OSUB{2} \\) line')}


$xIintAOBO Intersect($LAO,$LBO)[black,label('x'),hidden];
{,label('\\widehat{\\mathbf{x}}SUB{g}')}

$SBAOBO  	 ShowButton(  5,200, 'Intersection x')($O1,$LAO,$O2,$LBO,$xIintAOBO)[black,bold];
{,text('Intersection \\(\\widehat{\\mathbf{x}}SUB{g} \\) of \\( A OSUB{1} \\) and \\( B OSUB{2} \\)')}
$HBAOBO  	 HideButton(205,200, 'Hide')($O1,$LAO,$O2,$LBO,$xIintAOBO)[black];


{ Construction from C }
$LperpAC Perpendicular($LCA,$A)[red,hidden];
 {,dash(1)}

$CircAC	 Circle($A,$C)[green,hidden];
{,dash(1)}

$A3	 Intersect2($LperpAC,$CircAC)[red,label('A3'),hidden];
{,label('ASUB{3}')}

$LparAC	 Parallel($LCA,$A3)[red,hidden];
{,dash(1)}

$SBAC  	 ShowButton(  5, 300, 'Construct A3 line')($LperpAC,$CircAC,$A3,$LparAC)[red,bold];
{,text('Construct \\( ASUB{3} \\) line parallel with \\( CA \\)')}
$HBAC  	 HideButton(205, 300, 'Hide')($LperpAC,$CircAC)[red];

$LperpBC Perpendicular($LBC,$B)[blue,hidden];
{,dash(1)}

$CircBC	 Circle($B,$C)[cyan,hidden];
{,dash(1)}
$B3	 Intersect2($LperpBC,$CircBC)[blue,label('B3'),hidden];
{,label('BSUB{3}')}

$LparBC	 Parallel($LBC,$B3)[blue,hidden];
{,dash(1)}

$SBBC  	 ShowButton(  5, 322, 'Construct B3 line')($LperpBC,$CircBC,$B3,$LparBC)[blue,bold];
{,text('Construct \\( BSUB{3} \\) line parallel with \\( CB \\)')}
$HBBC  	 HideButton(205, 322, 'Hide')($LperpBC,$CircBC)[blue];

$O3	Intersect($LparAC,$LparBC)[magenta,label('O2'),hidden];
{,label('OSUB{3}')}

$LCO	Line($C,$O3)[magenta,hidden];

$SBO3  	 ShowButton(  5, 344, 'Construct O3 line')($A3,$LparAC,$B3,$LparBC,$O3,$LCO)[magenta,bold];
{,text('Construct \\( C OSUB{3} \\) line')}
$HB03  	 HideButton(125, 344, 'Hide others')($LperpAC,$CircAC,$A3,$LparAC,$LperpBC,$CircBC,$B3,$LparBC)[magenta];

$HB03b 	 HideButton(  5, 366, 'Hide O2 line')($LCO)[magenta];
{,text('Hide \\( C OSUB{3} \\) line')}
</JSP>