usecolor
-8 8 setxrange
-5 6 setyrange
20 setxunit
setCourierBold
/affiche_serie {
/le_y 6 def
/le_x -8 def
/i 0 def
6 {
/fillstyle {les_couleurs i get cvx exec fill} def
le_x le_y 1 sub le_x 2 add le_y frame*
les_couleurs i get le_x 2.5 add le_y .5 sub crtext
/i i 1 add store
/le_y le_y 2 sub store
} repeat
/le_y 6 def
/le_x 0 def
6 {
/fillstyle {les_couleurs i get cvx exec fill} def
le_x le_y 1 sub le_x 2 add le_y frame*
les_couleurs i get le_x 2.5 add le_y .5 sub crtext
/i i 1 add store
/le_y le_y 2 sub store
} repeat
} def
/les_couleurs [
(teal)
(thistle)
(thistle1)
(thistle2)
(thistle3)
(thistle4)
(tomato)
(tomato1)
(tomato2)
(tomato3)
(tomato4)
(turquoise)
] def
affiche_serie
|