diff options
author | Karl Berry <karl@freefriends.org> | 2021-05-15 20:46:18 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2021-05-15 20:46:18 +0000 |
commit | 37d6b907148407d2248056757853ae27fd3a67e1 (patch) | |
tree | 3a7432b941b6e3696f3bf20669bc297d33ecff82 /Master/texmf-dist/metapost | |
parent | 465cbbe9ab4a4ff2fec97e036473f33b7b7e656b (diff) |
profcollege (15may21)
git-svn-id: svn://tug.org/texlive/trunk@59217 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/metapost')
-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; |