Changeset 205 for trunk/procs/colorbartv.pro

Timestamp:

01/26/10 10:46:13 (14 years ago)

Author:

pinsard

Message:

homegenize THEN BEGIN ... ENDIF

File:

• trunk/procs/colorbartv.pro (modified) (2 diffs)

trunk/procs/colorbartv.pro

@@ -202 +202 @@
     ENDIF ELSE ncolors = !D.N_COLORS
 ENDIF
-IF N_ELEMENTS(bottom) EQ 0 THEN bottom = 0B
-IF N_ELEMENTS(charsize) EQ 0 THEN charsize = 1.0
-IF N_ELEMENTS(format) EQ 0 THEN format = '(F8.2)'
-IF N_ELEMENTS(color) EQ 0 THEN color = ncolors - 1 + bottom
-IF N_ELEMENTS(min) EQ 0 THEN min = 0.0
-IF N_ELEMENTS(max) EQ 0 THEN max = FLOAT(ncolors) - 1
-IF N_ELEMENTS(divisions) EQ 0 THEN divisions = 2
-IF N_ELEMENTS(title) EQ 0 THEN title = ''
+IF N_ELEMENTS(bottom) EQ 0 THEN BEGIN
+ bottom = 0B
+ENDIF
+IF N_ELEMENTS(charsize) EQ 0 THEN BEGIN
+ charsize = 1.0
+ENDIF
+IF N_ELEMENTS(format) EQ 0 THEN BEGIN
+ format = '(F8.2)'
+ENDIF
+IF N_ELEMENTS(color) EQ 0 THEN BEGIN
+ color = ncolors - 1 + bottom
+ENDIF
+IF N_ELEMENTS(min) EQ 0 THEN BEGIN
+ min = 0.0
+ENDIF
+IF N_ELEMENTS(max) EQ 0 THEN BEGIN
+ max = FLOAT(ncolors) - 1
+ENDIF
+IF N_ELEMENTS(divisions) EQ 0 THEN BEGIN
+ divisions = 2
+ENDIF
+IF N_ELEMENTS(title) EQ 0 THEN BEGIN
+ title = ''
+ENDIF
 pscolor = KEYWORD_SET(pscolor)
 
 IF KEYWORD_SET(vertical) THEN BEGIN
-   IF KEYWORD_SET(discret) THEN begin
+   IF KEYWORD_SET(discret) THEN BEGIN
        facteur=256/n_elements(discret)
     discret=reform(replicate(1,facteur) # discret,facteur*n_elements(discret))
        bar = REPLICATE(1B,10) # discret
    endif else  bar = REPLICATE(1B,10) # BINDGEN(256)
-   IF N_ELEMENTS(position) EQ 0 THEN position = [0.88, 0.15, 0.95, 0.95]
+   IF N_ELEMENTS(position) EQ 0 THEN BEGIN
+    position = [0.88, 0.15, 0.95, 0.95]
+   ENDIF
 ENDIF ELSE BEGIN
-   IF KEYWORD_SET(discret) THEN begin
+   IF KEYWORD_SET(discret) THEN BEGIN
        facteur=256/n_elements(discret)
     discret=reform(replicate(1,facteur) # discret,facteur*n_elements(discret))
        bar = discret # REPLICATE(1B,10)
    endif else bar = BINDGEN(256) # REPLICATE(1B, 10)
-   IF N_ELEMENTS(position) EQ 0 THEN position = [0.15, 0.88, 0.95, 0.95]
+   IF N_ELEMENTS(position) EQ 0 THEN BEGIN
+    position = [0.15, 0.88, 0.95, 0.95]
+   ENDIF
 ENDELSE
 
    ; Scale the color bar.
-IF NOT KEYWORD_SET(discret) THEN $
+IF NOT KEYWORD_SET(discret) THEN BEGIN
  bar = BYTSCL(bar, TOP=ncolors-1) + bottom
+ENDIF
 
    ; Get starting locations in DEVICE coordinates.
@@ -320 +341 @@
    ; Restore color variable if changed for PostScript.
 
-IF postScriptDevice AND (pscolor NE 1) THEN color = oldcolor
-
+IF postScriptDevice AND (pscolor NE 1) THEN BEGIN
+ color = oldcolor
+ENDIF
 END