Changeset 69 for trunk/ToBeReviewed/PLOTS

Timestamp:

05/11/06 12:35:53 (18 years ago)

Author:

smasson

Message:

debug + new xxx

Location:

trunk/ToBeReviewed/PLOTS

Files:

• .idlwave_catalog (modified) (1 diff)
• DESSINE/.idlwave_catalog (modified) (1 diff)
• DESSINE/pltt.pro (modified) (2 diffs)
• DESSINE/sbar_plot.pro (modified) (3 diffs)
• DESSINE/tvplus.pro (modified) (1 diff)
• DIVERS/.idlwave_catalog (modified) (1 diff)
• DIVERS/checkfield.pro (modified) (1 diff)
• DIVERS/placedessin.pro (modified) (1 diff)
• LABEL/.idlwave_catalog (modified) (1 diff)
• VECTEUR/.idlwave_catalog (modified) (1 diff)

trunk/ToBeReviewed/PLOTS/.idlwave_catalog

@@ -2 +2 @@
 ;; IDLWAVE catalog for library saxo
 ;; Automatically Generated -- do not edit.
-;; Created by idlwave_catalog on Tue Jan 24 17:06:19 2006
+;; Created by idlwave_catalog on Thu May  4 08:42:55 2006
 ;;
 (setq idlwave-library-catalog-libname "saxo")

trunk/ToBeReviewed/PLOTS/DESSINE/.idlwave_catalog

@@ -2 +2 @@
 ;; IDLWAVE catalog for library saxo
 ;; Automatically Generated -- do not edit.
-;; Created by idlwave_catalog on Tue Jan 24 17:06:19 2006
+;; Created by idlwave_catalog on Thu May  4 08:42:55 2006
 ;;
 (setq idlwave-library-catalog-libname "saxo")

trunk/ToBeReviewed/PLOTS/DESSINE/pltt.pro

@@ -417 +417 @@
          if keyword_set(OV1D) then begin
             yy = z2d
-            if n_elements(datmin) NE 0 then tempsmin = juldate(datmin, _extra = ex) $
+            if n_elements(datmin) NE 0 then tempsmin = date2jul(datmin) $
             ELSE tempsmin = temps[0]
 ; on shift l''axe du temps pour des questions de precision sur les
@@ -472 +472 @@
    case N_PARAMS() OF
       5 : begin
-         tempsmin = juldate(datmin, _extra = ex)
+         tempsmin = date2jul(datmin)
          tempsmax = temps[(jpt*repeat_c)-1]
       end
       6 : begin
-         tempsmin = juldate(datmin, _extra = ex)
-         tempsmax = juldate(datmax, _extra = ex)
+         tempsmin = date2jul(datmin)
+         tempsmax = date2jul(datmax)
       end
       else : begin

trunk/ToBeReviewed/PLOTS/DESSINE/sbar_plot.pro

@@ -17 +17 @@
 ;
 ;  meme que ceux de bar_plot avec en plus:
-;      COLOR: un entier donnant la couleur de toutes les barres de
+;      COLORS: un entier donnant la couleur de toutes les barres de
 ;      couleurs. (contrairement a colors qui est en vecteur donnant le
 ;      couleur de chaque barre de couleur.
@@ -50 +50 @@
 ;------------------------------------------------------------
 
-PRO sbar_plot, Values, COLOR = color, NOREINITPLT = noreinitplt, _extra = ex 
+PRO sbar_plot, Values, COLORS = colors, NOREINITPLT = noreinitplt, _extra = ex 
 @common
 ; 1) je reinitialise l''environnememt graphique (les variables !x, !y et !p): 
@@ -57 +57 @@
    IF chkstru(ex, 'overplot')EQ 0 THEN placedessin, 'autre', _extra = ex
 ; 3) je fais mon joli dessin 
-   if n_elements(COLOR) then BEGIN
-      if n_elements(COLOR) EQ n_elements(Values) then colors = color $
-       ELSE colors = replicate(color[0], n_elements(Values))
-   ENDIF ELSE colors = congrid(indgen(!d.n_colors < 256), n_elements(Values))
+   if n_elements(COLORS) NE 0 then BEGIN
+      if n_elements(COLORS) EQ n_elements(Values) then col = colors $
+       ELSE col = replicate(colors[0], n_elements(Values))
+   ENDIF ELSE col = congrid(indgen(!d.n_colors < 256), n_elements(Values))
 ;
-   bar_plot, Values, background = !p.background, colors = colors $
+   bar_plot, Values, background = !p.background, colors = col $
              , xstyle = 1, ystyle = 1, _extra = ex
 ; 4) je termine le dessin 

trunk/ToBeReviewed/PLOTS/DESSINE/tvplus.pro

@@ -216 +216 @@
     plot, [0], [0], /nodata, /noerase, position = poscadre, color = 0 $
           , xstyle = 1, ystyle = 1, xticklen = 1, yticklen = 1 $
-          , xrange = 1.*[0, nx]/cellsize-.5+offset[0], yrange = 1.*[0, ny]/cellsize-.5+offset[1]
+          , xrange = 1.*[0, nx]/cellsize-.5+offset[0] $
+          , yrange = 1.*[0, ny]/cellsize-.5+offset[1], _extra = ex
     xenvsauve = !x & yenvsauve = !y & penvsauve = !p
 ;

trunk/ToBeReviewed/PLOTS/DIVERS/.idlwave_catalog

@@ -2 +2 @@
 ;; IDLWAVE catalog for library saxo
 ;; Automatically Generated -- do not edit.
-;; Created by idlwave_catalog on Tue Jan 24 17:06:19 2006
+;; Created by idlwave_catalog on Thu May  4 08:42:55 2006
 ;;
 (setq idlwave-library-catalog-libname "saxo")

trunk/ToBeReviewed/PLOTS/DIVERS/checkfield.pro

@@ -189 +189 @@
         'y':IF  ny NE nele THEN return, err_1d(type, nele,  'ny',  ny)
         'z':IF  nz NE nele THEN return, err_1d(type, nele,  'nz',  nx)
-        ELSE:return, report('Error: ' $
-                            , 'Impossible to make a "'+type+'" plot with a 1D array', /simple)
+        ELSE:return, report(['Error: ' $
+                            , 'Impossible to make a "'+type+'" plot with a 1D array'], /simple)
       ENDCASE
     END 

trunk/ToBeReviewed/PLOTS/DIVERS/placedessin.pro

@@ -102 +102 @@
 ; portrair ou landscape
 ;--------------------------------------------------------------
-  if n_elements(portrait) NE 0 then key_portrait = portrait $
-  else if key_portrait ne 1 then key_portrait = 0
-  if n_elements(landscape) then key_portrait = 1-landscape
+  IF NOT keyword_set(noerase) THEN BEGIN 
+    CASE 1 OF
+      n_elements(portrait) NE 0:key_portrait = portrait
+      n_elements(landscape) NE 0:key_portrait = 1-landscape
+      ELSE:
+    ENDCASE
+  ENDIF 
 ;--------------------------------------------------------------
 ; Quel type de rapport d''aspect (sera ecrase si YXASPECT existe)

trunk/ToBeReviewed/PLOTS/LABEL/.idlwave_catalog

@@ -2 +2 @@
 ;; IDLWAVE catalog for library saxo
 ;; Automatically Generated -- do not edit.
-;; Created by idlwave_catalog on Tue Jan 24 17:06:19 2006
+;; Created by idlwave_catalog on Thu May  4 08:42:55 2006
 ;;
 (setq idlwave-library-catalog-libname "saxo")

trunk/ToBeReviewed/PLOTS/VECTEUR/.idlwave_catalog

@@ -2 +2 @@
 ;; IDLWAVE catalog for library saxo
 ;; Automatically Generated -- do not edit.
-;; Created by idlwave_catalog on Tue Jan 24 17:06:19 2006
+;; Created by idlwave_catalog on Thu May  4 08:42:55 2006
 ;;
 (setq idlwave-library-catalog-libname "saxo")