Fichier pile_fifo.jps — Modifié le 3 Mai 2006 à 14 h 40

pile_fifo.pdf
Source
%% gh
%% File FIFO

%% échelle et étendue de l'image
60 setxunit
-1 9 setxrange
-.5 4 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
[1 1.1 1 1 7 1 7 1.1] (-) ligne
[1 2.4 1 2.5 7 2.5 7 2.4] (-) ligne

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% tracé des éléments
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
.5 setlinewidth
/fillstyle {coul4 fill} def
/element { % pour représenter les éléments 
  setxvar x
  [x 2 add 1.75 .49 .7 0] ellipse*
  } def
  
1 1 4 {element}for

[0 3 .49 .7 0] ellipse*
[8 .5 .49 .7 0] ellipse*

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

(node1) node
() .4 2.5 cctext
(node2) node
() 2.5 1.75 cctext
(node3) node
() 6.5 1.75 cctext
(node4) node
() 7.6 1.1 cctext

3 setlinewidth
/arrowscale {2.5 dup} def
coul2
(node2) (node1) (<-) ncarc
(node3) (node4) (->) ncarc

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

setPalatino
coul4
(file) 4 2.7 [1.7 dup] uctext
(enfile) 0.5 2 [1.7 dup] drtext
(défile) 7 1.75 [1.7 dup] crtext