<?xml version="1.0" encoding="utf-8"?>
<CaR>
<Macro Name="Point sur disque">
<Parameter name="c1">c1</Parameter>
<Objects>
<Point name="P1" hidden="true" x="-0.10230179028132991" y="-0.12276214833759536">Point à -0.10230179028132991, -0.12276214833759536</Point>
<Circle name="c1" midpoint="P1">???</Circle>
<PointOn name="po2" hidden="super" on="c1" alpha="2.1424452482036918">Point sur c1</PointOn>
<PointOn name="po3" hidden="super" on="c1" alpha="-2.9114631983561488">Point sur c1</PointOn>
<Circle name="c2" hidden="super" bold="true" large="true" through="po3" midpoint="po2" acute="true">Cercle de centre po2 passant par po3</Circle>
<Circle name="c3" hidden="super" bold="true" large="true" through="po2" midpoint="po3" acute="true">Cercle de centre po3 passant par po2</Circle>
<Intersection name="I1" hidden="super" bold="true" large="true" first="c2" second="c3" which="second">Intersection entre c2 et c3</Intersection>
<Intersection name="I2" hidden="super" bold="true" large="true" first="c3" second="c2" which="second">Intersection entre c3 et c2</Intersection>
<Line name="l1" hidden="super" bold="true" large="true" from="I1" to="I2">Droite passant par I1 et I2</Line>
<PointOn name="po4" hidden="super" on="c1" alpha="-0.6033280807783213">Point sur c1</PointOn>
<Circle name="c4" hidden="super" bold="true" large="true" through="po4" midpoint="po3" acute="true">Cercle de centre po3 passant par po4</Circle>
<Circle name="c5" hidden="super" bold="true" large="true" through="po3" midpoint="po4" acute="true">Cercle de centre po4 passant par po3</Circle>
<Intersection name="I3" hidden="super" bold="true" large="true" first="c4" second="c5" which="second">Intersection entre c4 et c5</Intersection>
<Intersection name="I4" hidden="super" bold="true" large="true" first="c5" second="c4" which="second">Intersection entre c5 et c4</Intersection>
<Line name="l2" hidden="super" bold="true" large="true" from="I3" to="I4">Droite passant par I3 et I4</Line>
<Intersection name="I5" hidden="super" showname="true" first="l1" second="l2">Intersection entre l1 et l2</Intersection>
<Point name="P8" x="1.6861826697892273" y="0.8805620608899298">Point à 1.6861826697892273, 0.8805620608899298</Point>
<Segment name="s1" hidden="true" target="true" from="I5" to="P8" fixed="if(d(I5,P8)&gt;c1,c1,d(I5,P8))">Segment de I5 à P8 de longueur &quot;if(d(I5,P8)&gt;c1,c1,d(I5,P8))&quot;</Segment>
</Objects>
</Macro>
</CaR>

