diff options
author | Norbert Preining <norbert@preining.info> | 2023-11-14 03:01:05 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2023-11-14 03:01:05 +0000 |
commit | e20928a0f9f4a7faa8bb21915e761e11e34f04ff (patch) | |
tree | 32b28652fc038d4e06485fe1eb5a25517d15ef87 /macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp | |
parent | 88ed039ed13674ce7440cc57dba288cf166796fe (diff) |
CTAN sync 202311140301
Diffstat (limited to 'macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp')
-rw-r--r-- | macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp | 11 |
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 %%----------------------------------------------- |