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

<tex>
\TeX
</tex>

setTimesBold
   (décalage générique) -3 5 bctext
setCourierBold
   A ultexlabel
   A uctexlabel
   A urtexlabel
   A cltexlabel
   A cctexlabel
   A crtexlabel
   A dltexlabel
   A dctexlabel
   A drtexlabel
 
setTimesBold
   (décalages ponctuels) 3 5 bctext
setCourierBold
boxit                               %% encadre la prochaine sortie de texte
   B () urtexlabel                 %% pas de decalage
   B bltexlabel                    %% decalage par defaut
   B brtexlabel                    %% decalage par defaut
   B (0 0) ultexlabel              %% on rajoute (0, 0) au decalage par defaut
   B (0 vadjust 2 div) dctexlabel  %% 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
   D [1.5 dup] {20} ultexlabel
   D [1.5 dup] {0} uctexlabel
boxit
   D [1.5 dup] {-20} urtexlabel
   D [1.5 dup] {20} cltexlabel
circleit
   D [1.5 dup] {0} cctexlabel
/dx_boxit 2 def
/dy_boxit 2 def
circleit
   D [1.5 dup] {-20} crtexlabel
boxit
   D [1.5 dup] {20} dltexlabel
circleit
boxit
   D [1.5 dup] {-20} drtexlabel

/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
   C [2.5 dup] {20} ultexlabel
   C [2.5 dup] {0} uctexlabel
   C [2.5 dup] {-20} urtexlabel
   C [1.5 dup] {20} cltexlabel
   C [1.5 dup] {0} cctexlabel
   C [1.5 dup] {-20} crtexlabel
   C [.8 dup] {20} dltexlabel
   C [.8 dup] {0} dctexlabel
   C [.8 dup] {-20} drtexlabel

/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