/case_noire {
    newpath
    moveto
    50 0 rlineto
    0 -50 rlineto
    -50 0 rlineto
    closepath
    fill
} def

/pion_rouge {
    1 0 0 setrgbcolor
    newpath
    moveto
    6 14 rlineto
    -4 7 rlineto
    6 6 rlineto
    6 -6 rlineto
    -4 -7 rlineto
    6 -14 rlineto
    closepath
    fill
} def

/pion_vert {
    0 1 0 setrgbcolor
    newpath
    moveto
    6 14 rlineto
    -4 7 rlineto
    6 6 rlineto
    6 -6 rlineto
    -4 -7 rlineto
    6 -14 rlineto
    closepath
    fill
} def

/roi_rouge {
    1 0 0 setrgbcolor
    newpath
    moveto
    6 10 rlineto
    0 15 rlineto
    2 0 rlineto
    0 5 rlineto
    -5 0 rlineto
    0 2 rlineto
    5 0 rlineto
    0 5 rlineto
    2 0 rlineto
    0 -5 rlineto
    5 0 rlineto
    0 -2 rlineto
    -5 0 rlineto
    0 -5 rlineto
    2 0 rlineto
    0 -15 rlineto
    6 -10 rlineto
    closepath
    fill
} def

/roi_vert {
    0 1 0 setrgbcolor
    newpath
    moveto
    6 10 rlineto
    0 15 rlineto
    2 0 rlineto
    0 5 rlineto
    -5 0 rlineto
    0 2 rlineto
    5 0 rlineto
    0 5 rlineto
    2 0 rlineto
    0 -5 rlineto
    5 0 rlineto
    0 -2 rlineto
    -5 0 rlineto
    0 -5 rlineto
    2 0 rlineto
    0 -15 rlineto
    6 -10 rlineto
    closepath
    fill
} def

/fou_vert {
    0 1 0 setrgbcolor
    newpath
    moveto
    8 22 rlineto
    -4 7 rlineto
    6 8 rlineto
    6 -8 rlineto
    -4 -7 rlineto
    8 -22 rlineto
    closepath
    fill
} def

/tour_verte {
    0 1 0 setrgbcolor
    newpath
    moveto
    0 3 rlineto
    3 0 rlineto
    0 30 rlineto
    -3 0 rlineto
    0 3 rlineto
    24 0 rlineto
    0 -3 rlineto
    -3 0 rlineto
    0 -30 rlineto
    3 0 rlineto
    0 -3 rlineto
    closepath
    fill
} def

/dame_verte {
    0 1 0 setrgbcolor
    newpath
    moveto
    6 10 rlineto
    0 15 rlineto
    -3 14 rlineto
    16 0 rlineto
    -3 -14 rlineto
    0 -15 rlineto
    6 -10 rlineto
    closepath
    fill
} def

% Echiquier


gsave
150 500 translate
4 {
    0 0 case_noire stroke
    100 0 translate } repeat
grestore

gsave
100 450 translate
4 {
    0 0 case_noire stroke
    100 0 translate } repeat
grestore

gsave
150 400 translate
4 {
    0 0 case_noire stroke
    100 0 translate } repeat
grestore

gsave
100 350 translate
4 {
    0 0 case_noire stroke
    100 0 translate } repeat
grestore

gsave
150 300 translate
4 {
    0 0 case_noire stroke
    100 0 translate } repeat
grestore

gsave
100 250 translate
4 {
    0 0 case_noire stroke
    100 0 translate } repeat
grestore

gsave
150 200 translate
4 {
    0 0 case_noire stroke
    100 0 translate } repeat
grestore

gsave
100 150 translate
4 {
    0 0 case_noire stroke
    100 0 translate } repeat
grestore

newpath
100 500 moveto
400 0 rlineto
0 -400 rlineto
-400 0 rlineto
closepath
stroke

% Placement des pièces

117 405 pion_rouge
167 405 pion_rouge
217 405 pion_rouge
167 455 roi_rouge

417 255 pion_vert
365 155 fou_vert
317 105 roi_vert
363 205 tour_verte
313 205 dame_verte


/Times-Roman findfont
20 scalefont
setfont

0 0 0 setrgbcolor
newpath
100 550 moveto
(Comment mater en un coup depuis cette position ?) show

newpath
237 520 moveto
((Trait aux verts)) show