summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2021-05-15 03:01:02 +0000
committerNorbert Preining <norbert@preining.info>2021-05-15 03:01:02 +0000
commitff5439d00ba53d3e4b82d79f78ce65524f3684fd (patch)
tree109b3899cf0fd6e1bc480dbbe1793b7b29de416a /macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp
parent11a1186b093ff2ae9478c20979b6eec30f63f32c (diff)
CTAN sync 202105150301
Diffstat (limited to 'macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp')
-rw-r--r--macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp18
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;