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 [
   (none)
   (white)
   (red)
   (green)
   (gray)
   (gray0)
   (gray1)
   (blue)
   (cyan)
   (magenta)
   (yellow)
   (black)
   (AliceBlue)
   (AntiqueWhite)
   (AntiqueWhite1)
   (AntiqueWhite2)
   (AntiqueWhite3)
   (AntiqueWhite4)
   (aqua)
   (aquamarine)
   (aquamarine1)
   (aquamarine2)
   (aquamarine3)
   (aquamarine4)
] def

affiche_serie