Présentation de color_00.jps

/syracuse/bbgraf/icons/color/color_00.jpg
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