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
|