pile_fifo.jps [ retour — édition — 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