summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp
diff options
context:
space:
mode:
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;