Fichier tubeU.jps — Modifié le 22 Septembre 2007 à 14 h 05

tubeU.pdf
Source
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