Fichier sembl_006.jps — Modifié le 23 Mars 2006 à 15 h 49
autocrop
50 setxunit
/A {0 0} def
A A -100 dir addv
A 2 interdroitecercle popp /B defpoint
A 3 B 2.5 intercercle popp /C defpoint
1.5 setlinewidth
[A B C] polygone
setTimesItalic
(A) A uctext
(B) B dltext
(C) C drtext
10 setfontsize
setTimes
(2) A B milieu ultext
(3) A C milieu urtext
(2,5) B C milieu dltext
1.5 1 stranslate
40 rotate
.5 dup scale
-1 -2 stranslate
[A B C] polygone
25 setfontsize
setTimesItalic
(M) A {-40} uctext
(N) B {-40} dltext
(P) C {-40} drtext
20 setfontsize
setTimes
(1) A B milieu {-40} cltext
(1,5) A C milieu {-40} urtext
(1,25) B C milieu {-40} dctext