summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2023-01-02 03:04:24 +0000
committerNorbert Preining <norbert@preining.info>2023-01-02 03:04:24 +0000
commit4841af990664e40ab2f20099d8b39dabacf5ad0f (patch)
treeb08f6e0e8898fae8216c68b7f9db5d2df8724f5b /macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp
parent57f42e641f5238555a3dea5284318dbbc679d053 (diff)
CTAN sync 202301020304
Diffstat (limited to 'macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp')
-rw-r--r--macros/latex/contrib/profcollege/metapost/PfCGeometrie.mp22
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
%%%%%%%%%