Changeset 37 for trunk/ToBeReviewed/PLOTS/DIVERS/addaxe.pro

Timestamp:

05/02/06 16:55:58 (18 years ago)

Author:

pinsard

Message:

upgrade of PLOTS/DIVERS according to cerbere.lodyc.jussieu.fr: /usr/home/smasson/SAXO_RD/ : files

File:

• trunk/ToBeReviewed/PLOTS/DIVERS/addaxe.pro (copied) (copied from trunk/PLOTS/DIVERS/addaxe.pro) (1 diff)

trunk/ToBeReviewed/PLOTS/DIVERS/addaxe.pro

@@ -41 +41 @@
    IF strpos(type, 'x') NE -1 THEN BEGIN
       IF endpoints[1] EQ endpoints[3] THEN return
-      formeaxe0 = 'lonaxe'
-      formeaxe1 = 'lataxe'
-      titreaxe = 'latitude'
+      IF key_onearth THEN BEGIN 
+        formeaxe0 = 'lonaxe'
+        formeaxe1 = 'lataxe'
+        titreaxe = 'latitude'
+      ENDIF ELSE BEGIN 
+        formeaxe0 = ''
+        formeaxe1 = ''
+        titreaxe = 'j index'
+      ENDELSE
       range = [endpoints[1], endpoints[3]]
+      if endpoints[2] LT endpoints[0] THEN range = reverse(range)
    ENDIF ELSE BEGIN
       IF endpoints[0] EQ endpoints[2] THEN return
-      formeaxe0 = 'lataxe'
-      formeaxe1 = 'lonaxe'
-      titreaxe = 'longitude'
+      IF key_onearth THEN BEGIN 
+        formeaxe0 = 'lataxe'
+        formeaxe1 = 'lonaxe'
+        titreaxe = 'longitude'
+      ENDIF ELSE BEGIN 
+        formeaxe0 = ''
+        formeaxe1 = ''
+        titreaxe = 'i index'
+      ENDELSE
       range = [endpoints[0], endpoints[2]]
       if endpoints[3] LT endpoints[1] THEN range = reverse(range)