-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Iles (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%%
-/CouleurNom {DarkBlue} def
-/RayonVille 0 def
-/fontfacteur 6 def
-V_allemagne_iles {
- PlacePoint gsave DeepSkyBlue fill grestore PlaceNom
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+/Helvetica-Bold findfont 8 scalefont ISOEncode setfont
+/HauteurCaractere 6 def
+/CouleurNom {DarkRed} def
+/RayonDisque 2 def
+/LabelOffset 5 def
+V_allemagne { PlacePoint gsave DarkRed fill grestore PlaceNom } forall
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Capitales %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+/Helvetica-Bold findfont 14 scalefont ISOEncode setfont
+/HauteurCaractere 7 def
+/CouleurNom {Orange} def
+/RayonDisque 3.5 def % Des points un peu plus gros pour les capitales
+/LabelOffset 3.5 def
+V_allemagne_capitales_lander {
+ PlacePoint gsave Orange fill grestore PlaceNom
+} forall
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Autres Villes %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+/Helvetica-Bold findfont 6 scalefont ISOEncode setfont
+/HauteurCaractere 5 def
+/RayonDisque 1 def
+/LabelOffset 1 def
+/CouleurNom {DarkGreen} def
+[V_autriche V_suisse V_france V_tchequie V_tchequie V_belgique V_hollande V_luxembourg V_pologne] {
+ { PlacePoint gsave DarkGreen fill grestore PlaceNom } forall
+ } forall
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Iles (Noms) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+/Helvetica-Bold findfont 6 scalefont ISOEncode setfont
+/HauteurCaractere 5 def
+/CouleurNom {DarkBlue} def
+I_allemagne {
+ PlacePoint pop PlaceNom