diff options
author | Norbert Preining <norbert@preining.info> | 2023-01-02 03:04:24 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2023-01-02 03:04:24 +0000 |
commit | 4841af990664e40ab2f20099d8b39dabacf5ad0f (patch) | |
tree | b08f6e0e8898fae8216c68b7f9db5d2df8724f5b /macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp | |
parent | 57f42e641f5238555a3dea5284318dbbc679d053 (diff) |
CTAN sync 202301020304
Diffstat (limited to 'macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp')
-rw-r--r-- | macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp b/macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp index 02a3f66ce2..3c5ed4be0d 100644 --- a/macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp +++ b/macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp @@ -811,6 +811,28 @@ vardef cotationmil(expr aa,bb,ecart,decalage,cote)= %Christophe cot enddef; +vardef cotationarc(expr aaa,bbb,decal,ecart,sens,texte)=%pour le texte sens=1 ou -1 + save ty; + picture ty; + pair mnp,ctr; + mnp=iso(aaa,bbb)+decal*unitvector(rotation(bbb,iso(aaa,bbb),90)-iso(aaa,bbb)); + ctr=CentreCercleC(aaa,bbb,mnp); + path cts[]; + cts0=arccercle(bbb,aaa,ctr); + cts1=arccercle(bbb,cts0 intersectionpoint perpendiculaire(aaa,bbb,iso(aaa,bbb)),ctr); + cts2=arccercle(cts0 intersectionpoint perpendiculaire(aaa,bbb,iso(aaa,bbb)),aaa,ctr); + ty=image( + trace subpath(0,arctime(arclength cts1*(1-(ecart/10))) of cts1) of cts1 dashed evenly; + trace subpath(0,arctime(arclength cts2*(1-(ecart/10))) of reverse(cts2)) of reverse(cts2) dashed evenly; + if sens=1: + label(texte rotated (angle(bbb-aaa)),mnp); + else: + label(texte rotated (angle(bbb-aaa)+180),mnp); + fi; + ); + ty + enddef; + %%%%%%%%%% %francisation %%%%%%%%% |