Fichier triangle_rectangle.jps — Modifié le 26 Juin 2006 à 14 h 59
-3 4 setxrange
-4 1 setyrange
/A {-2 -3} def
/B {3 -3} def
/I {A B milieu} def
/C {3 0} def
B A C 1 (-) tripointarc
A B C angledroit
1.7 setcurvelinewidth
[A B C] polygone
%% on rajoute 2 points a la taille de fonte courante
/fontsize fontsize 2 add store
bleu
setTimesItalic
(A) A dltext
(B) B drtext
(C) C urtext
setTimes
noir
(côté adjacent) A B milieu dctext
(hypothénuse) A C milieu {A C angle} uctext
(côté opposé) C B milieu {C B angle} uctext
setSymbol
(a) A C angle 1.5 div A 1 cpoint crtext