Changeset 69 for trunk/ToBeReviewed/PLOTS/DESSINE/sbar_plot.pro

Timestamp:

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

Author:

smasson

Message:

debug + new xxx

File:

• trunk/ToBeReviewed/PLOTS/DESSINE/sbar_plot.pro (modified) (3 diffs)

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