Fichier nccurve.jps — Modifié le 11 Mars 2006 à 11 h 09

nccurve.pdf
Source
15 setxunit
-10 10 setxrange
-8 4 setyrange

/nodesep 3 def      %% espace en picas separant les points A et B de
                    %% l'extremite de la connexion              
/angleA 0 def       %% angle de depart en A
/angleB 180 def     %% angle d'arrivee en B


/A {-3 -4} def
/B {3 2} def

/dx_boxit 5 store
/dy_boxit 5 store
setTimes
/linearc .3 store   %% pour arrondir les angles
boxit               %% encadrement du prochain label

(A) node            %% declaration d'un node rectangulaire (A)
(Node A) A cctext
circleit            %% encerclement du prochain label
(B) cnode           %% declaration d'un node circulaire (B)
#tex# \TeX
B cctexlabel

/arrowangle 7.5 def %% on ajuste la rotation de la fleche
(A) (B) (->) nccurve


<tex>
\hsize 280pt
La commande {\tt nccurve} trace une courbe de Bézier entre les points
$A$ et $B$.
Les paramètres $angleA$ et $angleB$ sont utilisés.
</tex>
xmin xmax add 2 div ymin uctexlabel