Présentation de flacon.jps

autocrop
-10 10 setxrange
-10 10 setyrange
uselabo
20 setxunit
8 setfontsize
/arrowscale {.8 dup} def

1 dict begin
   1 setlinewidth
   0 0 (Flacon) 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
   (bb) bb dctext
   (trou) t uctext
   (trou1) t1 cltext
   (trou2) t2 crtext

bleu
[bb trou trou1 trou2] {times} plot