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
|