diff options
Diffstat (limited to 'Master/texmf-dist/metapost/profcollege/PfCGeometrie.mp')
-rw-r--r-- | Master/texmf-dist/metapost/profcollege/PfCGeometrie.mp | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/Master/texmf-dist/metapost/profcollege/PfCGeometrie.mp b/Master/texmf-dist/metapost/profcollege/PfCGeometrie.mp index 222df574193..2e3cc54dd26 100644 --- a/Master/texmf-dist/metapost/profcollege/PfCGeometrie.mp +++ b/Master/texmf-dist/metapost/profcollege/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; |