diff options
author | Norbert Preining <norbert@preining.info> | 2021-05-15 03:01:02 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2021-05-15 03:01:02 +0000 |
commit | ff5439d00ba53d3e4b82d79f78ce65524f3684fd (patch) | |
tree | 109b3899cf0fd6e1bc480dbbe1793b7b29de416a /macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp | |
parent | 11a1186b093ff2ae9478c20979b6eec30f63f32c (diff) |
CTAN sync 202105150301
Diffstat (limited to 'macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp')
-rw-r--r-- | macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp b/macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp index 222df57419..2e3cc54dd2 100644 --- a/macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp +++ b/macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp @@ -607,11 +607,19 @@ vardef polygone(text t)= aaa[j+1]:=aaa[1]; save $; path $; - $=aaa1-- - for k=2 upto j: - aaa[k]-- - endfor - cycle; + if typetrace="mainlevee": + $=segment(aaa[1],aaa[2])-- + for k=2 upto (j-1): + segment(aaa[k],aaa[k+1])-- + endfor + segment(aaa[j],aaa[1])--cycle; + else: + $=aaa1-- + for k=2 upto j: + aaa[k]-- + endfor + cycle; + fi; $ enddef; |