summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2023-05-14 03:00:45 +0000
committerNorbert Preining <norbert@preining.info>2023-05-14 03:00:45 +0000
commite14ce2a2aedfdc10d3e64b5b632a0b5aef10a618 (patch)
tree8a7b37dcb53fc67c655fa38ee7db5fec296c48c5 /macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp
parentb083364ee56b8a47b344b455440f0fdc16c9306b (diff)
CTAN sync 202305140300
Diffstat (limited to 'macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp')
-rw-r--r--macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp21
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;