+ } if
+ end
+} def
+
+/Place_Defaut_Position {
+ pos cos LabelOffset mul /X exch def
+ pos sin LabelOffset mul /Y exch def
+ X 0 gt {
+ %% Nom à droite
+ X Y HauteurCaractere 2 div sub moveto
+ } {
+ X 0 lt {
+ %% Nom à gauche
+ X wx sub Y HauteurCaractere 2 div sub moveto
+ } {
+ Y 0 gt {
+ %% Nom au dessus
+ X wx 2 div sub Y moveto
+ } {
+ %% Nom en dessous
+ X wx 2 div sub Y HauteurCaractere sub moveto
+ } ifelse
+ } ifelse
+ } ifelse
+} def
+
+/Place_Defaut {
+ Place_Defaut_Position
+ %% Présentation du nom --------------------------------
+ 0.7 setgray nom show
+ CouleurNom wx neg 0.65 sub 0.65 rmoveto nom show
+} def
+
+/Place_Centering {
+ wx 2 div neg wx 2 div neg rmoveto
+ %% Présentation du nom --------------------------------
+ 0.7 setgray nom show
+ CouleurNom wx neg 0.65 sub 0.65 rmoveto nom show
+} def
+
+/Place_Rotate {
+ pos cos 0 ge {
+ pos rotate
+ LabelOffset HauteurCaractere 2 div neg moveto
+ } {
+ pos 180 sub rotate
+ LabelOffset wx add neg HauteurCaractere 2 div neg moveto
+ } ifelse
+ %% Présentation du nom --------------------------------
+ 0.7 setgray nom show
+ CouleurNom wx neg 0.65 sub 0.65 rmoveto nom show