Fichier tubeU.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 (TubeU) bbpict
end
Pictdic currentdict copy
setCourier
(ConnectIn) ConnectIn cltext
(ConnectOut) ConnectOut cltext
(uc) uc dctext
(In) In dctext
(Out) Out dctext
bleu
[In Out ConnectIn ConnectOut uc] {times} plot