+
+/PlaceNomb {
+ Position -1 gt {
+ disquedict begin
+ /savematrix mtrx currentmatrix def
+ X Y translate
+ %% Dimension (largeur) du nom -------------------------
+ /Helvetica-Bold findfont 6 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