Changeset 37 for trunk/ToBeReviewed/PLOTS/DIVERS/checktypeminmax.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/checktypeminmax.pro (copied) (copied from trunk/PLOTS/DIVERS/checktypeminmax.pro) (3 diffs)

trunk/ToBeReviewed/PLOTS/DIVERS/checktypeminmax.pro

@@ -34 +34 @@
                      , XZ = xz, YZ = yz, XT = XT, YT = YT, ZT = zt $
                      , TT = tt, XX = xx, YY = yy, ZZ = zz $
-                     , XINDEX = xindex, YINDEX = yindex, BOITE = boite, ENDPOINTS = endpoints
+                     , XINDEX = xindex, YINDEX = yindex $
+                     , ENDPOINTS = endpoints, _extra = ex
 ;
 @common
@@ -87 +88 @@
 ;
    if keyword_set(type) then begin
-      if type EQ 'plt' then type = ''
-      if type EQ 'pltz' then type = ''
-      if type EQ 'pltt' then type = ''
-      if type EQ 'plt1d' then type = ''
+     if type EQ 'plt' then type = ''
+     if type EQ 'pltz' then type = ''
+     if type EQ 'pltt' then type = ''
+     if type EQ 'plt1d' then type = ''
    endif
 ;--------------------------------------------------------------
@@ -97 +98 @@
    if NOT keyword_set(type) then BEGIN
       case procedure of
-         'plt':type = 'xy'
-         'pltz':BEGIN
-            @common
-            if keyword_set(endpoints) then BEGIN 
-               lon1 = min([endpoints[0], endpoints[2]])
-               lon2 = max([endpoints[0], endpoints[2]])
-               lat1 = min([endpoints[1], endpoints[3]])
-               lat2 = max([endpoints[1], endpoints[3]])
-            ENDIF ELSE BEGIN
-               if n_elements(boite) GE 4 then BEGIN
-                  if keyword_set(xindex) then begin
-                     lon1 = glamt[boite[0], 0]
-                     lon2 = glamf[boite[1], 0]
-                  ENDIF ELSE BEGIN
-                     lon1 = boite[0]
-                     lon2 = boite[1]
-                  ENDELSE
-                  if keyword_set(yindex) then begin
-                     lat1 = gphit[0, boite[2]]
-                     lat2 = gphif[0, boite[3]]
-                  ENDIF ELSE BEGIN
-                     lat1 = boite[2]
-                     lat2 = boite[3]
-                  ENDELSE
-               ENDIF
-            ENDELSE
-            if lon2-lon1 gt lat2-lat1 then type='xz' else type='yz' 
-         END
-         'pltt':BEGIN
-            if keyword_set(endpoints) then BEGIN 
-               lon1 = min([endpoints[0], endpoints[2]])
-               lon2 = max([endpoints[0], endpoints[2]])
-               lat1 = min([endpoints[1], endpoints[3]])
-               lat2 = max([endpoints[1], endpoints[3]])
-            ENDIF ELSE BEGIN
-               if n_elements(boite) GE 4 then BEGIN
-                  if keyword_set(xindex) then begin
-                     lon1 = glamt[boite[0], 0]
-                     lon2 = glamf[boite[1], 0]
-                  ENDIF ELSE BEGIN
-                     lon1 = boite[0]
-                     lon2 = boite[1]
-                  ENDELSE
-                  if keyword_set(yindex) then begin
-                     lat1 = gphit[0, boite[2]]
-                     lat2 = gphif[0, boite[3]]
-                  ENDIF ELSE BEGIN
-                     lat1 = boite[2]
-                     lat2 = boite[3]
-                  ENDELSE
-               ENDIF
-            ENDELSE
-            if (lon2-lon1) gt (lat2-lat1) then type='xt' else type='yt'
-;             type = ''
-;             WHILE type NE 't' AND type NE 'xt' AND type NE 'yt' AND type NE 'zt' DO BEGIN
-;                type = xquestion('Quel type de hovmoeller voulez-vous faire? t,xt,yt,zt ? ' $
-;                                 , /chkwidget)
-;                type = strlowcase(type)
-;             ENDWHILE 
-         END
-         'plt1d':BEGIN
-            if keyword_set(endpoints) then BEGIN 
-               lon1 = min([endpoints[0], endpoints[2]])
-               lon2 = max([endpoints[0], endpoints[2]])
-               lat1 = min([endpoints[1], endpoints[3]])
-               lat2 = max([endpoints[1], endpoints[3]])
-               if (lon2-lon1) gt (lat2-lat1) then type='x' else type='y'
-            ENDIF ELSE BEGIN
-               type = ''
-               WHILE type NE 'x' AND type NE 'y' AND type NE 'z' DO BEGIN
-                  type = xquestion('Quel type de plot 1D voulez-vous faire? x,y,z ou t ?' $
-                                   , /chkwidget)
-                  type = strlowcase(type)
-               endwhile
-            ENDELSE
-         END
+        'plt':type = 'xy'
+        'pltz':BEGIN
+          if keyword_set(endpoints) then BEGIN 
+            lon1 = min([endpoints[0], endpoints[2]], max = lon2)
+            lat1 = min([endpoints[1], endpoints[3]], max = lat2)
+            if (lon2-lon1) gt (lat2-lat1) then type = 'xz' else type = 'yz'
+          ENDIF ELSE type = 'z'
+        END
+        'pltt':BEGIN
+          if keyword_set(endpoints) then BEGIN 
+            lon1 = min([endpoints[0], endpoints[2]], max = lon2)
+            lat1 = min([endpoints[1], endpoints[3]], max = lat2)
+            lat2 = max([endpoints[1], endpoints[3]])
+            if (lon2-lon1) gt (lat2-lat1) then type = 'xt' else type = 'yt'
+          ENDIF ELSE type = 'unkownpltt'
+        END
+        'plt1d':BEGIN
+          if keyword_set(endpoints) then BEGIN 
+            lon1 = min([endpoints[0], endpoints[2]], max = lon2)
+            lat1 = min([endpoints[1], endpoints[3]], max = lat2)
+            if (lon2-lon1) gt (lat2-lat1) then type = 'x' else type = 'y'
+          ENDIF ELSE BEGIN
+            type = ''
+            WHILE type NE 'x' AND type NE 'y' AND type NE 'z' DO BEGIN
+              type = xquestion('Quel type de plot 1D voulez-vous faire? x,y,z ou t ?' $
+                               , /chkwidget)
+              type = strlowcase(type)
+            endwhile
+          ENDELSE
+        END
       endcase
-   ENDIF 
-   WHILE type NE 'xy' AND type NE 'xz' AND type NE 'yz' $
-    AND type NE 'xt' AND type NE 'yt' AND type NE 'zt' $
-    AND type NE 't' AND type NE 'x' AND type NE 'y' AND type NE 'z' DO BEGIN
-      type = xquestion('Quel type de plot voulez-vous faire? xy,xz,yz,xt,yt,zt,t,x,y,z ? ' $
+    ENDIF 
+    WHILE type NE 'xy' AND type NE 'xz' AND type NE 'yz' $
+      AND type NE 'xt' AND type NE 'yt' AND type NE 'zt' $
+      AND type NE 't' AND type NE 'x' AND type NE 'y' $
+      AND type NE 'z' AND type NE 'unkownpltt' DO BEGIN
+      type = xquestion('What kind of plot do you want to do? xy,xz,yz,xt,yt,zt,t,x,y,z ? ' $
                        , /chkwidget)
       type = strlowcase(type)
-   ENDWHILE 
+    ENDWHILE 
 ;
 ;
-
-   return
-end
+    
+    return
+  end