Changeset 19 for trunk/ToBeReviewed/COULEURS/colorbar.pro

Timestamp:

05/02/06 11:40:19 (18 years ago)

Author:

pinsard

Message:

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

File:

• trunk/ToBeReviewed/COULEURS/colorbar.pro (copied) (copied from trunk/COULEURS/colorbar.pro) (6 diffs)

trunk/ToBeReviewed/COULEURS/colorbar.pro

@@ -27 +27 @@
 ;       CB_COLOR:    The color index of the bar outline and characters. Default
 ;                 is ncolors - 1 + bottom.
+;
+;       CB_LOG: to get logarithmic scale for the colorbar
 ;
 ;       CB_TITLE:    This is title for the color bar. The default is to have
@@ -117 +119 @@
               DIVISIONS=divisions, DISCRET=discret,CB_LABEL = cb_label, $
               FORMAT=format, POSITION=position, MAX=max, MIN=min, NCOLORS=ncolors, $
-              PSCOLOR=pscolor, CB_TITLE=cb_title, VERTICAL=vertical, TOP=top, RIGHT=right, _extra = ex
+              PSCOLOR=pscolor, CB_TITLE=cb_title, VERTICAL=vertical, TOP=top, RIGHT=right, CB_LOG = CB_log, _extra = ex
                                 ; Is the PostScript device selected?
 
@@ -258 +260 @@
          AXIS, YAXIS=1, YRANGE=[min, max], YTICKFORMAT=format, YTICKS=divisions, $
           YTICKLEN=0.1, YSTYLE=1, COLOR=cb_color, CHARTHICK=cb_charthick $
-          , CHARSIZE=cb_charsize, xtickname = cb_label
+          , CHARSIZE=cb_charsize, xtickname = cb_label, ylog = cb_log
 
       ENDIF ELSE BEGIN
@@ -271 +273 @@
          AXIS, YAXIS=1, YRANGE=[min, max], YTICKFORMAT='(A1)', YTICKS=divisions, $
           YTICKLEN=0.1, YTITLE=cb_title, YSTYLE=1, COLOR=cb_color $
-          , CHARSIZE=cb_charsize, CHARTHICK=cb_charthick
+          , CHARSIZE=cb_charsize, CHARTHICK=cb_charthick, ylog = cb_log
 
       ENDELSE
@@ -288 +290 @@
          AXIS, XTICKS=divisions, XSTYLE=1, COLOR=cb_color $
           , CHARSIZE=cb_charsize, CHARTHICK=cb_charthick, $
-          XTICKFORMAT=format, XTICKLEN=0.1, XRANGE=[min, max], XAXIS=1, xtickname = cb_label
+          XTICKFORMAT=format, XTICKLEN=0.1, XRANGE=[min, max], XAXIS=1, xtickname = cb_label, xlog = cb_log
 
       ENDIF ELSE BEGIN
@@ -297 +299 @@
           , CHARTHICK=cb_charthick, /NOERASE, $
           YTICKFORMAT='(A1)', XTICKFORMAT=format, XTICKLEN=0.1, $
-          XRANGE=[min, max], TITLE=cb_title, xtickname = cb_label
+          XRANGE=[min, max], TITLE=cb_title, xtickname = cb_label, xlog = cb_log
 
       ENDELSE