diff options
Diffstat (limited to 'Master/texmf-dist/metapost/profcollege/PfCGeometrie.mp')
-rw-r--r-- | Master/texmf-dist/metapost/profcollege/PfCGeometrie.mp | 21 |
1 files changed, 18 insertions, 3 deletions
diff --git a/Master/texmf-dist/metapost/profcollege/PfCGeometrie.mp b/Master/texmf-dist/metapost/profcollege/PfCGeometrie.mp index e19152c695d..52869904afa 100644 --- a/Master/texmf-dist/metapost/profcollege/PfCGeometrie.mp +++ b/Master/texmf-dist/metapost/profcollege/PfCGeometrie.mp @@ -180,7 +180,22 @@ vardef cercles(text t)= _T[n]:=p_; fi; endfor; - if typetrace="3D":%centre aa passant par bb dans le plan (ccddee) généralement aa=cc + if typetrace="mainlevee": + path Cer; + path dep; + pair ct; + if n=1 : dep=fullcircle scaled (2*rayon) shifted _t[1]; + ct=_t[1]; + elseif n=2 : dep=fullcircle scaled (2*abs(_t[1]-_t[2])) shifted _t[1]; + ct=_t[1]; + elseif n=3 : + dep=fullcircle scaled (2*abs(CentreCercleC(_t[1],_t[2],_t[3])-_t[1])) shifted CentreCercleC(_t[1],_t[2],_t[3]); + ct=CentreCercleC(_t[1],_t[2],_t[3]); + fi + path ess; + ess=pointarc(dep,0){dir(80+uniformdeviate(5))}..pointarc(dep,90){dir(170+uniformdeviate(20))}..pointarc(dep,90){dir(185+uniformdeviate(5))}..pointarc(dep,180){dir(-80-uniformdeviate(20))}..pointarc(dep,180){dir(-100+uniformdeviate(20))}..pointarc(dep,270){dir(-10+uniformdeviate(20))}..pointarc(dep,270){dir(uniformdeviate(10))}..pointarc(dep,360){dir(80+uniformdeviate(20))}; + Cer=ess; + elseif typetrace="3D":%centre aa passant par bb dans le plan (ccddee) généralement aa=cc path Cer; color ptcer[]; for k=0 step 5 until 360 : @@ -1559,7 +1574,7 @@ vardef axes= axx=image( drawarrow (x.so*cm,y.origine)--(x.ne*cm,y.origine); drawarrow (x.origine,y.so*cm)--(x.origine,y.ne*cm); - label.llft(LATEX($O$),z.origine); +% label.llft(TEX("$O$"),z.origine); ); axx enddef; @@ -1607,7 +1622,7 @@ def replace= xscaled (1/x.u) yscaled (1/y.u) shifted (-z.origine) enddef; -def retrouvecoord(expr p)=%trasnforme les coordonées du point d'affixe p dans le repère absolu de metapost en les coordonnées du point dans le repère défini par l'utilisateur +def retrouvecoord(expr p)=%transforme les coordonées du point d'affixe p dans le repère absolu de metapost en les coordonnées du point dans le repère défini par l'utilisateur p replace enddef; |