diff options
author | Norbert Preining <norbert@preining.info> | 2021-11-08 03:02:49 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2021-11-08 03:02:49 +0000 |
commit | f3bd7117b5dfa4a51d51c4e416c8a656651f1ce2 (patch) | |
tree | 5053c95dab175775cc85badf7990ffa535676f23 /macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp | |
parent | 8389f0bb8e6af2c5dcbfe3cdad746a9c170d1157 (diff) |
CTAN sync 202111080302
Diffstat (limited to 'macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp')
-rw-r--r-- | macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp b/macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp index 2e3cc54dd2..604373e716 100644 --- a/macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp +++ b/macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp @@ -124,6 +124,20 @@ vardef milieu(expr AA,BB)= $ enddef; +vardef CentreCercleC(expr a, b ,c) = + save o; pair o; + o - .5[a,b] = whatever * (b-a) rotated 90; + o - .5[b,c] = whatever * (c-b) rotated 90; + o +enddef; + +vardef Orthocentre(expr a, b, c) = + save h; pair h; + h - a = whatever * (c-b) rotated 90; + h - b = whatever * (a-c) rotated 90; + h +enddef; + vardef CentreCercleI(expr aa,bb,cc)= save $,a,c; pair $; |