Placer un label sans connaitre sa position a priori

J'ai le maintenant code suivant

Code:


% TeXgraph version 1.94 beta-7.1
% Fenetre Xmin Xmax Ymin Ymax Xscale Yscale
100#-4#3.5#-4.5#3#1#1##
% Marges gauche droite haut bas cadre gestion_couleur comptgraph
101#0#0#0#0#0#1#10##
% Affectation des Variables theta et phi et type de perspective
18##[theta:=0.5236, phi:=1.0472,OriginalCoord(1),IdMatrix(),IdMatrix3D(),ModelView(ortho)]##
% Déclaration des Variables Globales
15#Z1#-0.07468134861586+1.49771054790538*i##
15#W1#1.4*(0.8+i)+1.2*exp(i*8.2*pi/7)##
15#Z3#-0.61838763160062-1.36511733892585*i##
15#W3#-0.35390989189866-2.34826818869227*i##
15#Z4#1.47804041962636+0.25528042567227*i##
15#Z2#-1.26411711377056-0.80528328837904*i##
15#W2#-2.21007225098897-0.67208696563052*i##
15#W4#1.4*(0.8+i)+1.2*exp(i*9.8*pi/7)##
% Déclaration des Macros
% Déclaration des Eléments graphiques
% C0 (Cercle)
18##[Width:=5,LineStyle:=2]##
7#C0#[ 0,1.5 ]##
% C1 (Cercle)
18##[Width:=4,LineStyle:=0]##
7#C1#[ 1.4*(0.8+i),1.2 ]##
% C3 (Cercle)
7#C3#[ -1.5*(1.3+1.5*i),1.6 ]##
% objet4 (Utilisateur)
18##[Width:=2,tMin:=-5,tMax:=5]##
14#objet4#[
 I:=Get(C0) InterL Get(C1),
  Z4:=I[1], Z1:=I[2],
  LabelDot(Z1,"$z_{1}$","NO",1), LabelDot(Z4,"$z_{4}$","SE",1),
]#-1##
% objet5 (Utilisateur)
14#objet5#[
 I:=Get(C0) InterL Get(C3),
  Z2:=I[1], Z3:=I[2],
  LabelDot(Z2,"$z_{2}$","N",1), LabelDot(Z3,"$z_{3}$","SO",1),
]#-1##
% C2 (Cercle)
18##[Width:=4]##
7#C2#[ Z1,Z2,W1 ]##
% objet7 (Utilisateur)
18##[Width:=2]##
14#objet7#[
 I:=Get(C3) InterL Get(C2),
  M:=I[1], if abs(M-Z2)<0.1 then W2:=I[2] else W2:=I[1] fi,
  LabelDot(W1,"$w_{1}$","E",1), LabelDot(W2,"$w_{2}$","N",1),
]#-1##
% C4 (Cercle)
18##[Width:=4]##
7#C4#[ Z3,Z4,W4 ]##
% objet9 (Utilisateur)
18##[Width:=2]##
14#objet9#[
 I:=Get(C3) InterL Get(C4),
  M:=I[1], if abs(M-Z3)<0.1 then W3:=I[2] else W3:=I[1] fi,
  LabelDot(W3,"$w_{3}$","E",1), LabelDot(W4,"$w_{4}$","S",1),
]#-1##
% objet10 (Cercle)
18##[Width:=6,LineStyle:=2]##
7#objet10#[ W1,W2,W3 ]##


Je voudrai placer un label $C_{4}$ à droite du cercle C4 sans calculer son équation (je connais trois points par lesquels il passe). Est-ce possible ?

Tu peux ajouter un élément Utilisateur avec cette commande:

Code:


[$x:=rectangle(Get(C4)),
 Label( Re(x[2])+i*Im(x[1]), "$C_{4}$")
] 


La macro rectangle renvoie le plus petit rectangle contenant l'élément graphique C4 sous la forme d'une liste de deux affixes: [coin supérieur gauche, coin inférieur droit], donc Re(x[2])+i*Im(x[1]) désigne l'affixe du coin supérieur droit.

Merci !

Et voilà un théorème de Clifford illustré :
z1, z2, z3 et z4 sont cocycliques si et seulement si w1, w2, w3 et w4 sont cocycliques.

Code:


% TeXgraph version 1.94 beta-7.1
% Fenetre Xmin Xmax Ymin Ymax Xscale Yscale
100#-4#3.5#-4.5#3#1#1##
% Marges gauche droite haut bas cadre gestion_couleur comptgraph
101#0#0#0#0#0#1#14##
% Affectation des Variables theta et phi et type de perspective
18##[theta:=0.5236, phi:=1.0472,OriginalCoord(1),IdMatrix(),IdMatrix3D(),ModelView(ortho)]##
% Déclaration des Variables Globales
15#Z1#-0.07468134861586+1.49771054790538*i##
15#W1#1.4*(0.8+i)+1.2*exp(i*8.2*pi/7)##
15#Z3#-0.61838763160062-1.36511733892585*i##
15#W3#-0.35390989189866-2.34826818869227*i##
15#Z4#1.47804041962636+0.25528042567227*i##
15#Z2#-1.26411711377056-0.80528328837904*i##
15#W2#-2.21007225098897-0.67208696563052*i##
15#W4#1.4*(0.8+i)+1.2*exp(i*9.8*pi/7)##
% Déclaration des Macros
% Déclaration des Eléments graphiques
% C0 (Cercle)
18##[Width:=5,LineStyle:=2]##
7#C0#[ 0,1.5 ]##
% C1 (Cercle)
18##[Width:=4,LineStyle:=0]##
7#C1#[ 1.4*(0.8+i),1.2 ]##
% C3 (Cercle)
7#C3#[ -1.5*(1.3+1.5*i),1.6 ]##
% objet4 (Utilisateur)
18##[Width:=2,tMin:=-5,tMax:=5]##
14#objet4#[
 I:=Get(C0) InterL Get(C1),
  Z4:=I[1], Z1:=I[2],
  LabelDot(Z1,"$z_{1}$","NO",1), LabelDot(Z4,"$z_{4}$","SE",1),
]#-1##
% objet5 (Utilisateur)
14#objet5#[
 I:=Get(C0) InterL Get(C3),
  Z2:=I[1], Z3:=I[2],
  LabelDot(Z2,"$z_{2}$","N",1), LabelDot(Z3,"$z_{3}$","SO",1),
]#-1##
% C2 (Cercle)
18##[Width:=4]##
7#C2#[ Z1,Z2,W1 ]##
% objet7 (Utilisateur)
18##[Width:=2]##
14#objet7#[
 I:=Get(C3) InterL Get(C2),
  M:=I[1], if abs(M-Z2)<0.1 then W2:=I[2] else W2:=I[1] fi,
  LabelDot(W1,"$w_{1}$","E",1), LabelDot(W2,"$w_{2}$","N",1),
]#-1##
% C4 (Cercle)
18##[Width:=4]##
7#C4#[ Z3,Z4,W4 ]##
% objet9 (Utilisateur)
18##[Width:=2]##
14#objet9#[
 I:=Get(C3) InterL Get(C4),
  M:=I[1], if abs(M-Z3)<0.1 then W3:=I[2] else W3:=I[1] fi,
  LabelDot(W3,"$w_{3}$","E",1), LabelDot(W4,"$w_{4}$","S",1),
]#-1##
% objet10 (Cercle)
18##[Width:=6,LineStyle:=2]##
7#objet10#[ W1,W2,W3 ]##
% objet11 (Utilisateur)
18##[Width:=2,LineStyle:=0,tMin:=-4,tMax:=3.5,LabelStyle:=1]##
14#objet11#[$x:=rectangle(Get(C4)),
 Label( Re(x[2])+0.1+i*Im((x[1]+x[2])/2), "$C_{4}$")
]#-1##
% objet12 (Utilisateur)
14#objet12#[$x:=rectangle(Get(C1)),
 Label( Re(x[2])+0.1+i*Im((x[1]+x[2])/2), "$C_{1}$")
]#-1##
% objet13 (Utilisateur)
18##[LabelStyle:=2]##
14#objet13#[$x:=rectangle(Get(C2)),
 Label( Re(x[1])-0.1+i*Im((x[1]+x[2])/2), "$C_{2}$")
]#-1##
% objet14 (Utilisateur)
14#objet14#[$x:=rectangle(Get(C3)),
 Label( Re(x[1])-0.1+i*Im((x[1]+x[2])/2), "$C_{3}$")
]#-1##