Changeset 74 for trunk/SRC/ToBeReviewed/PLOTS/DESSINE

Timestamp:

05/23/06 15:45:47 (18 years ago)

Author:

smasson

Message:

debug xxx and cie + clean data file + rm perldoc_idl

Location:

trunk/SRC/ToBeReviewed/PLOTS/DESSINE

Files:

• .idlwave_catalog (modified) (2 diffs)
• plt1d.pro (modified) (1 diff)
• pltt.pro (modified) (1 diff)

trunk/SRC/ToBeReviewed/PLOTS/DESSINE/.idlwave_catalog

@@ -2 +2 @@
 ;; IDLWAVE catalog for library saxo
 ;; Automatically Generated -- do not edit.
-;; Created by idlwave_catalog on Thu May  4 08:42:55 2006
+;; Created by idlwave_catalog on Tue May 23 15:31:07 2006
 ;;
 (setq idlwave-library-catalog-libname "saxo")
@@ -13 +13 @@
    ("pltt" pro nil (lib "pltt.pro" nil "saxo") "%s, tab, giventype, givenmin, givenmax, datmin, datmax" (nil ("_extra") ("BOXZOOM") ("COL1D") ("CONTINTERVALLE") ("CONTLABEL") ("CONTMAX") ("CONTMIN") ("CONTNLEVEL") ("CONTOUR") ("ENDPOINTS") ("EXCHANGE_XY") ("FILTER") ("INTERVALLE") ("INV") ("LABEL") ("MAXIN") ("MININ") ("NLEVEL") ("OV1D") ("OVERPLOT") ("REPEAT_C") ("STRICTFILL") ("STY1D") ("STYLE") ("TREND_TYPE") ("TT") ("TYPEIN") ("XT") ("YT") ("ZT")))
    ("pltz" pro nil (lib "pltz.pro" nil "saxo") "%s, tab, giventype, givenmin, givenmax" (nil ("_EXTRA") ("BOXZOOM") ("CONTINTERVALLE") ("CONTLABEL") ("CONTMAX") ("CONTMIN") ("CONTNLEVEL") ("CONTOUR") ("ENDPOINTS") ("FILLXDIR") ("INTERVALLE") ("INV") ("LABEL") ("MASKFILL") ("MAXIN") ("MININ") ("NLEVEL") ("NOTRI") ("OVERPLOT") ("REALSECTION") ("SIN") ("STRICTFILL") ("STYLE") ("TYPEIN") ("USETRI") ("WDEPTH") ("XZ") ("YZ") ("ZOOM") ("ZRATIO")))
-   ("sbar_plot" pro nil (lib "sbar_plot.pro" nil "saxo") "%s, Values" (nil ("_extra") ("COLOR") ("NOREINITPLT")))
+   ("sbar_plot" pro nil (lib "sbar_plot.pro" nil "saxo") "%s, Values" (nil ("_extra") ("COLORS") ("NOREINITPLT")))
    ("scontour" pro nil (lib "scontour.pro" nil "saxo") "%s, x, y, z" (nil ("_EXTRA") ("NOREINITPLT")))
    ("splot" pro nil (lib "splot.pro" nil "saxo") "%s, x, y" (nil ("_EXTRA") ("NOREINITPLT")))

trunk/SRC/ToBeReviewed/PLOTS/DESSINE/plt1d.pro

@@ -265 +265 @@
     'y': begin
       yy = z1d
-      if (size(gphi))[0] EQ 1 then xx = gphi ELSE xx = reform(gphi[0, *])
+      IF (size(gphi))[0] EQ 1 then xx = gphi ELSE BEGIN 
+        IF keyword_set(key_irregular) THEN BEGIN 
+          cln = (where(gphi EQ max(gphi)))[0]
+          xx = reform(gphi[cln MOD nx, *])
+        ENDIF ELSE xx = reform(gphi[0, *])
+      ENDELSE
       if keyword_set(sin) then xx = sin(!pi/180.*xx)
       min0 = lat1 & max0 = lat2

trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltt.pro

@@ -499 +499 @@
             end
             type eq 'yt' : begin
-               IF (size(gphi))[0] EQ 1 then yy = gphi ELSE yy = reform(gphi[0, *])
+               IF (size(gphi))[0] EQ 1 then yy = gphi ELSE BEGIN 
+                 IF keyword_set(key_irregular) THEN BEGIN 
+                   cln = (where(gphi EQ max(gphi)))[0]
+                   yy = reform(gphi[cln MOD nx, *])
+                 ENDIF ELSE yy = reform(gphi[0, *])
+               ENDELSE
                xx = temps-tempsmin
                z2d = transpose(z2d)