Fichier tricol.jps — Modifié le 22 Septembre 2007 à 14 h 05
autocrop
-10 10 setxrange
-10 10 setyrange
uselabo
20 setxunit
8 setfontsize
1 setlinewidth
0 0 (Tricol) bbpict
%orange showpictpoints
bleu
[col bb trou trou1 trou2 troug trou1g trou2g troud trou1d trou2d] {times} plot
noir
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
/tg {troug -.5 .5 addv} def
[troug tg] (<-) ligne
/t1g {trou1g -.5 0 addv} def
[trou1g t1g] (<-) ligne
/t2g {trou2g 0 .5 addv} def
[trou2g t2g] (<-) ligne
/td {troud .5 .5 addv} def
[troud td] (<-) ligne
/t1d {trou1d 0 .5 addv} def
/t2d {trou2d .5 0 addv} def
[trou1d t1d] (<-) ligne
[trou2d t2d] (<-) ligne
setCourier
(bb) bb dctext
(col) col dctext
(trou) t uctext
(trou1) t1 cltext
(trou2) t2 crtext
(troug) tg () ultext
(trou1g) t1g cltext
(trou2g) t2g uctext
(troud) td () urtext
(trou2d) t2d crtext
(trou1d) t1d uctext