summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2024-01-07 03:01:57 +0000
committerNorbert Preining <norbert@preining.info>2024-01-07 03:01:57 +0000
commitaba7fb229e902758b312ecec84ab6f485c89ba66 (patch)
treec19cf7164b430c1d344ad913c8dc44f5ace262b7 /macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp
parent949a85bb8707bf1aaa2b23b018e24d5001d38e52 (diff)
CTAN sync 202401070301
Diffstat (limited to 'macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp')
-rw-r--r--macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp41
1 files changed, 40 insertions, 1 deletions
diff --git a/macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp b/macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp
index bada2c141a..7ec73e648c 100644
--- a/macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp
+++ b/macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp
@@ -523,6 +523,45 @@ vardef marquedemidroite(expr aa,bb)=
tr
enddef;
+vardef marque_para(expr dd,ee,pa)=
+ save im;
+ picture im;
+ pair kk,ll,mn,mo;
+ kk=point(pa*length dd) of dd;
+ ll=projection(kk,point(0.25*length ee) of ee,point(0.5*length ee) of ee);
+ mn=iso(kk,ll);
+ mo=(mn--kk) intersectionpoint cercles(mn,3mm);
+ im=image(
+ drawarrow mo--kk;
+ drawarrow symetrie(mo,mn)--ll;
+ label(btex // etex,mn);
+ );
+ im
+enddef;
+
+vardef marque_Para(text totem)(expr dd,ee,pa)=
+ save im;
+ picture im;
+ pair kk,ll,mn,mo;
+ kk=point(pa*length dd) of dd;
+ ll=projection(kk,point(0.25*length ee) of ee,point(0.5*length ee) of ee);
+ mn=iso(kk,ll);
+ mo=(mn--kk) intersectionpoint cercles(mn,3mm);
+ im=image(
+ drawarrow (mn{dir(210+angle(mn-mo))}..{dir(150+angle(mn-mo))}kk) cutbefore cercles(mn,3mm);
+ drawarrow symetrie((mn{dir(210+angle(mn-mo))}..{dir(150+angle(mn-mo))}kk) cutbefore cercles(mn,3mm),mn);
+ trace cercles(mn,3mm);
+ for p_=totem:
+ if p_="":
+ label(btex // etex ,mn);
+ else:
+ label(btex ? etex,mn);
+ fi;
+ endfor;
+ );
+ im
+enddef;
+
%------------------------------------------------
% Transformations
%------------------------------------------------
@@ -1349,7 +1388,7 @@ vardef Equerre(expr dte,drte,perpe,sens)=
pair CentreE;
CentreE=CentreCercleI(perpen,ptt,pttt);
$=image(
- fill (perpen--ptt--pttt--cycle) withcolor 0.9*white;
+ fill (perpen--ptt--pttt--cycle) withcolor gris;
draw perpen--ptt--pttt--cycle;
draw codeperp(ptt,perpen,pttt,5);
fill homothetie(polygone(perpen,ptt,pttt),CentreE,0.6) withcolor white;