Fichier ampoulecoulee.jps — Modifié le 22 Septembre 2007 à 14 h 05
autocrop
-10 10 setxrange
-10 10 setyrange
uselabo
20 setxunit
8 setfontsize
/arrowscale {.8 dup} def
1 dict begin
1 setlinewidth
0 0 (AmpouleCoulee) bbpict
end
Pictdic currentdict copy
/t {trou 0 .5 addv} def
[trou t] (<-) ligne
/t1 {trou1 -.5 .5 addv} def
[trou1 t1] (<-) ligne
/t2 {trou2 .5 .5 addv} def
[trou2 t2] (<-) ligne
setCourier
(In) In dctext
(ConnectIn) ConnectIn crtext
(trou) t uctext
(trou1) t1 cltext
(trou2) t2 crtext
bleu
[In ConnectIn trou trou1 trou2] {times} plot