%% auteur : 


%% gh
%% Pile LIFO

%% échelle et étendue de l'image
60 setxunit
0 7 setxrange
-.5 8.5 setyrange

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% définitions des couleurs
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

/coul0 {0 0 0 0.5 setcmykcolor} def %gris
/coul1 {noir} def
/coul2 {rouge} def
/coul3 {orange} def
/coul4 {bleu} def

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% tracé des cadres
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
/coul1
3 setlinewidth
[0 7 0 0 1.5 0 1.5 7] (-) ligne
[2 7 2 0 3.5 0 3.5 7] (-) ligne
[4 7 4 0 5.5 0 5.5 7] (-) ligne

6 setlinewidth
.2 2.9 1.3 2.9 (-) line
2.2 1.9 3.3 1.9 (-) line
4.2 3.9 5.3 3.9 (-) line

3 setlinewidth
.75 0 .75 2.9 .4 12 (-) ressort
2.75 0 2.75 1.9 .4 12 (-) ressort
4.75 0 4.75 3.9 .4 12 (-) ressort

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% tracé des éléments
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
.5 setlinewidth
/fillstyle {coul4 fill} def
/element1 { % pour représenter les éléments de la 1ère pile
  setxvar x
  [.75 x 2.5 add .7 .49 0] ellipse*
  } def
/element2 { % pour représenter les éléments de la 2ème pile
  setxvar x
  [2.75 x 2.5 add .7 .49 0] ellipse*
  } def
/element3 { % pour représenter les éléments de la 3ème pile
  setxvar x
  [4.75 x 2.5 add .7 .49 0] ellipse*
  } def
  
1 1 4 {element1}for
0 1 4 {element2}for
2 1 4 {element3}for
[6 8 .7 .49 0] ellipse*

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Flèches
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

(pop2) node
() 5.6 7.6 cctext
(pop1) node
() 4.8 7 cctext

3 setlinewidth
/arrowscale {2.5 dup} def
coul2
(pop1) (pop2) (->) ncarc

pointilles
2.75 8.5 2.75 7 (->) line

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% légende
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

setPalatino
coul4
(pile) .75 0 [1.7 dup] dctext
(empile) 2.75 0 [1.7 dup] dctext
(dépile) 4.75 0 [1.7 dup] dctext