Changeset 7 for trunk/PLOTS/DESSINE/plt.pro

Timestamp:

04/24/06 10:40:41 (18 years ago)

Author:

pinsard

Message:

1st commit according to cerbere.lodyc.jussieu.fr:/usr/home/smasson/IDL_RD/

File:

• trunk/PLOTS/DESSINE/plt.pro (modified) (2 diffs)

trunk/PLOTS/DESSINE/plt.pro

@@ -489 +489 @@
       map_lon = map[1]
       map_rot = map[2]
-      if n_elements(ex) NE 0 then BEGIN 
-         if (where(tag_names(ex) EQ 'TITLE'))[0] NE -1 then BEGIN 
-            titre = ex.title 
-            ex.title = ''
-         endif
-      ENDIF
+      if chkstru(ex, 'TITLE') then begin
+         maptitre = ex.title 
+         ex.title = ''
+      endif
       map_set, map_lat, map_lon, map_rot, _extra = ex, position = posfenetre, /iso $
        ,limit = [lat1, lon1, lat2, lon2], /noborder
+      if n_elements(maptitre) ne 0 then ex.title = maptitre
       if n_elements(tri) GE 2 then tri = ciseauxtri(tri, glam, gphi, _EXTRA = ex)
       if n_elements(trimsk) GE 2 then trimsk = ciseauxtri(trimsk,glammsk,gphimsk,_EXTRA=ex)
@@ -617 +616 @@
             ex.noerase = 1
          endif
+         if chkstru(ex, 'SUBTITLE') then !p.subtitle = ex.SUBTITLE
+         if n_elements(maptitre) ne 0 then ex.title = maptitre
          map_set, map_lat, map_lon, map_rot, _extra = ex, /iso, limit = [lat1, lon1, lat2, lon2]$
           , /NOERASE, /noborder, title = !p.title, color = 0