- /Helvetica-Bold findfont 14 scalefont ISOEncode setfont
- Ville stringwidth pop /WX exch def
- %% ----------------------------------------------------
- Position cos LabelOffset mul /X exch def
- Position sin LabelOffset mul /Y exch def
- X 0 gt {
- %% Nom à droite
- X Y 5 sub moveto
- } {
- X 0 lt {
- %% Nom à gauche
- X WX sub Y 5 sub moveto
- } {
- Y 0 gt {
- %% Nom au dessus
- X WX 2 div sub Y moveto
- } {
- %% Nom en dessous
- X WX 2 div sub Y 10 sub moveto
- } ifelse
- } ifelse
- } ifelse
- %% Présentation du nom --------------------------------
- 0.7 setgray Ville show
- CouleurNom WX neg 0.65 sub 0.65 rmoveto Ville show
- %% ----------------------------------------------------
- savematrix setmatrix
- end
- } if
-} def
-
-/PlaceNoma {
- Position -1 gt {
- disquedict begin
- /savematrix mtrx currentmatrix def
- X Y translate
- %% Dimension (largeur) du nom -------------------------
- /Helvetica-Bold findfont 8 scalefont ISOEncode setfont
- Ville stringwidth pop /WX exch def
- %% ----------------------------------------------------
- Position cos LabelOffset mul /X exch def
- Position sin LabelOffset mul /Y exch def
- X 0 gt {
- %% Nom à droite
- X Y 5 sub moveto
- } {
- X 0 lt {
- %% Nom à gauche
- X WX sub Y 5 sub moveto
- } {
- Y 0 gt {
- %% Nom au dessus
- X WX 2 div sub Y moveto
- } {
- %% Nom en dessous
- X WX 2 div sub Y 10 sub moveto
- } ifelse
- } ifelse
- } ifelse
- %% Présentation du nom --------------------------------
- 0.7 setgray Ville show
- CouleurNom WX neg 0.65 sub 0.65 rmoveto Ville show
- %% ----------------------------------------------------
- savematrix setmatrix
- end
- } if
-} def
-
-/PlaceNomb {
- Position -1 gt {
- disquedict begin
- /savematrix mtrx currentmatrix def
- X Y translate
- %% Dimension (largeur) du nom -------------------------
- /Helvetica-Bold findfont 6 scalefont ISOEncode setfont