From ff5439d00ba53d3e4b82d79f78ce65524f3684fd Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sat, 15 May 2021 03:01:02 +0000 Subject: CTAN sync 202105150301 --- .../latex/contrib/profcollege/metapost/PfCGeometrie.mp | 18 +++++++++++++----- 1 file changed, 13 insertions(+), 5 deletions(-) (limited to 'macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp') 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; -- cgit v1.2.3