summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2023-11-14 03:01:05 +0000
committerNorbert Preining <norbert@preining.info>2023-11-14 03:01:05 +0000
commite20928a0f9f4a7faa8bb21915e761e11e34f04ff (patch)
tree32b28652fc038d4e06485fe1eb5a25517d15ef87 /macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp
parent88ed039ed13674ce7440cc57dba288cf166796fe (diff)
CTAN sync 202311140301
Diffstat (limited to 'macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp')
-rw-r--r--macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp11
1 files changed, 11 insertions, 0 deletions
diff --git a/macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp b/macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp
index 37f4809598..bada2c141a 100644
--- a/macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp
+++ b/macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp
@@ -56,6 +56,17 @@ _tn:=0;
pair _t[];
color _T[];
+%%%%%%%%%
+%Labelisation spéciale :)
+%
+vardef Labelcp(suffix a)(expr s,z) =
+ save p; picture p;
+ if picture s: p=s
+ else: p = s infont defaultfont scaled defaultscale
+ fi;
+ draw p shifted (z + 2*labeloffset*unitvector(z-a)-center p)
+enddef;
+
%%-----------------------------------------------
%% Procedures d'affichage
%%-----------------------------------------------