diff options
author | Norbert Preining <norbert@preining.info> | 2024-01-07 03:01:57 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2024-01-07 03:01:57 +0000 |
commit | aba7fb229e902758b312ecec84ab6f485c89ba66 (patch) | |
tree | c19cf7164b430c1d344ad913c8dc44f5ace262b7 /macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp | |
parent | 949a85bb8707bf1aaa2b23b018e24d5001d38e52 (diff) |
CTAN sync 202401070301
Diffstat (limited to 'macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp')
-rw-r--r-- | macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp | 41 |
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; |