diff options
author | Norbert Preining <norbert@preining.info> | 2023-05-14 03:00:45 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2023-05-14 03:00:45 +0000 |
commit | e14ce2a2aedfdc10d3e64b5b632a0b5aef10a618 (patch) | |
tree | 8a7b37dcb53fc67c655fa38ee7db5fec296c48c5 /macros/latex/contrib/profcollege/metapost | |
parent | b083364ee56b8a47b344b455440f0fdc16c9306b (diff) |
CTAN sync 202305140300
Diffstat (limited to 'macros/latex/contrib/profcollege/metapost')
-rw-r--r-- | macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp | 21 |
1 files changed, 18 insertions, 3 deletions
diff --git a/macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp b/macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp index e19152c695..52869904af 100644 --- a/macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp +++ b/macros/latex/contrib/profcollege/metapost/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; |