-%% [e n (nom) angle] PlacePoint ensuite PlaceNom récupére ce qu'il lui faut dans
-%% dictionnaire disquedict
-/disquedict 10 dict def
-disquedict /mtrx matrix put
-
-/Nom (Ville) def
-/Position -1 def
-/PlacePoint {
- aload pop
- /Position exch def
- /Nom exch def
- newpath
- disquedict begin
+%% [e n (nom) angle] PlacePoint ensuite PlaceNom récupère ce qu'il lui faut dans
+%% dictionnaire placedict
+%%
+%% Usage : [e n (nom) pos (proc)] PlacePoint .... PlaceNom
+%% Le cinquième argument est facultatif....
+
+/placedict 10 dict def
+placedict /mtrx matrix put
+
+/PlacePoint {
+ placedict begin
+ /argv exch def /argn argv length def
+ argv aload pop
+ /proc (Place_Defaut) def
+ argn 4 gt { (Place_) exch concatstrings /proc exch def } if
+ /pos exch def /nom exch def