%% auteur : %% gh %% Labyrinthe %% échelle et étendue de l'image 60 setxunit 0 6 setxrange 0 6 setyrange %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% définitions des couleurs %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% /coul0 {0 0 0 0.5 setcmykcolor} def %gris /coul1 {noir} def /coul2 {orange} def /coul3 {rouge} def /coul4 {bleu} def %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% les cases colorées %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% /fillstyle {coul1 fill} def 0 0 1 1 frame* 2 0 3 1 frame* 5 0 6 2 frame* 3 1 4 2 frame* 1 2 3 3 frame* 0 3 1 4 frame* 2 3 5 4 frame* 0 5 1 6 frame* 2 5 3 6 frame* 4 5 5 6 frame* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% les cadres de tableau %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% /axevertical { % pour représenter les axes verticaux setxvar x [x 0 x 6] (-) ligne } def /axehorizontal { % pour représenter les axes horizontaux setxvar x [0 x 6 x] (-) ligne } def % On pourrait faire ça à la main : % [0 0 0 6] (-) ligne % 1 axevertical % Mais je préfère utiliser une boucle : c'est la première fois que je % le fais... coul1 2 setlinewidth 0 1 6 { /i exch def i axevertical i axehorizontal } for %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% On indique la sortie %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% setPalatino coul4 (sortie) 3.5 6 [1.7 dup] dctext