summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/metapost
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2021-05-15 20:46:18 +0000
committerKarl Berry <karl@freefriends.org>2021-05-15 20:46:18 +0000
commit37d6b907148407d2248056757853ae27fd3a67e1 (patch)
tree3a7432b941b6e3696f3bf20669bc297d33ecff82 /Master/texmf-dist/metapost
parent465cbbe9ab4a4ff2fec97e036473f33b7b7e656b (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.mp18
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;