Présentation de erlen.jps

/syracuse/texpng/jpv/guide_jps/labo/erlen.jpg
autocrop -10 10 setxrange -10 10 setyrange uselabo 20 setxunit 8 setfontsize /arrowscale {.8 dup} def 1 setlinewidth 0 0 (Erlen) bbpict Pictdic currentdict copy bleu [col bb trou trou1 trou2] {times} plot noir .3 setlinewidth /c {col 1 0 addv} def [col c] (<-) ligne /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 (col) c crtext (trou) t uctext (trou1) t1 cltext (trou2) t2 crtext