300 setwidth
300 setheight

12 setfontsize
quadrillage

/A {-3 3} def
/B {3 3} def
/C {-3 -3} def
/D {3 -3} def

B point

/hadjust 20 def
/vadjust 20 def

setTimesBold
   (décalage générique) -3 5 bctext
setCourierBold
   (ul) A ultext
   (uc) A uctext
   (ur) A urtext
   (cl) A cltext
   (cc) A cctext
   (cr) A crtext
   (dl) A dltext
   (dc) A dctext
   (dr) A drtext
 
setTimesBold
   (décalages ponctuels) 3 5 bctext
setCourierBold
boxit                               %% encadre la prochaine sortie de texte
   (ur) B () urtext                 %% pas de decalage
   (bl) B bltext                    %% decalage par defaut
   (br) B brtext                    %% decalage par defaut
   (ul) B (0 0) ultext              %% on rajoute (0, 0) au decalage par defaut
   (dc) B (0 vadjust 2 div) dctext  %% on divise par 2 le decalage par defaut


setTimesBold
   (mises en boîtes) 3 -1.2  bctext
   (ou en cercles) 3 -5.5 bctext
setCourierBold
   (ul) D [1.5 dup] {20} ultext
   (uc) D [1.5 dup] {0} uctext
boxit
   (ur) D [1.5 dup] {-20} urtext
   (cl) D [1.5 dup] {20} cltext
circleit
   (cc) D [1.5 dup] {0} cctext
/dx_boxit 2 def
/dy_boxit 2 def
circleit
   (cr) D [1.5 dup] {-20} crtext
boxit
   (dl) D [1.5 dup] {20} dltext
circleit
boxit
   (dr) D [1.5 dup] {-20} drtext

/hadjust 15 def
/vadjust 15 def

setTimesBold
   (agrandissements) -3 -1.2 bctext
   (et rotations) -3 -5.5 bctext

/fillstyle {jaune fill} def
boxit_all
/dx_boxit 0 def
/dy_boxit 0 def
.2 setlinewidth
setCourierBold
   (ul) C [2.5 dup] {20} ultext
   (uc) C [2.5 dup] {0} uctext
   (ur) C [2.5 dup] {-20} urtext
   (cl) C [1.5 dup] {20} cltext
   (cc) C [1.5 dup] {0} cctext
   (cr) C [1.5 dup] {-20} crtext
   (dl) C [.8 dup] {20} dltext
   (dc) C [.8 dup] {0} dctext
   (dr) C [.8 dup] {-20} drtext

/textdir {
   vadjust mul exch
   hadjust mul exch
   ptojpoint addv
} def

%% dessin des pts de reference dans le quadrant inferieur gauche
/ur_ {C 1 1 textdir C -20 rotatepoint} def
/ul_ {C -1 1 textdir C 20 rotatepoint} def
/uc_ {C 0 1 textdir} def
/cc_ {C} def
/cl_ {C -1 0 textdir C 20 rotatepoint} def
/cr_ {C 1 0 textdir C -20 rotatepoint} def
/dl_ {C -1 -1 textdir C 20 rotatepoint} def
/dc_ {C 0 -1 textdir} def
/dr_ {C 1 -1 textdir C -20 rotatepoint} def

/dotscale {.7 dup} def
[ul_ ur_ uc_ cc_ cl_ cr_ dl_ dc_ dr_] points

/hadjust 2 def
/vadjust 2 def

/dx_boxit 1 def
/dy_boxit 1 def

/fillstyle {jaune fill} def
xmarks
boxit_none
circleit_all
/fillstyle {cyan fill} def
ymarks
circleit_none