Changeset 205 for trunk/procs/colorbartv.pro
- Timestamp:
- 01/26/10 10:46:13 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/procs/colorbartv.pro
r203 r205 202 202 ENDIF ELSE ncolors = !D.N_COLORS 203 203 ENDIF 204 IF N_ELEMENTS(bottom) EQ 0 THEN bottom = 0B 205 IF N_ELEMENTS(charsize) EQ 0 THEN charsize = 1.0 206 IF N_ELEMENTS(format) EQ 0 THEN format = '(F8.2)' 207 IF N_ELEMENTS(color) EQ 0 THEN color = ncolors - 1 + bottom 208 IF N_ELEMENTS(min) EQ 0 THEN min = 0.0 209 IF N_ELEMENTS(max) EQ 0 THEN max = FLOAT(ncolors) - 1 210 IF N_ELEMENTS(divisions) EQ 0 THEN divisions = 2 211 IF N_ELEMENTS(title) EQ 0 THEN title = '' 204 IF N_ELEMENTS(bottom) EQ 0 THEN BEGIN 205 bottom = 0B 206 ENDIF 207 IF N_ELEMENTS(charsize) EQ 0 THEN BEGIN 208 charsize = 1.0 209 ENDIF 210 IF N_ELEMENTS(format) EQ 0 THEN BEGIN 211 format = '(F8.2)' 212 ENDIF 213 IF N_ELEMENTS(color) EQ 0 THEN BEGIN 214 color = ncolors - 1 + bottom 215 ENDIF 216 IF N_ELEMENTS(min) EQ 0 THEN BEGIN 217 min = 0.0 218 ENDIF 219 IF N_ELEMENTS(max) EQ 0 THEN BEGIN 220 max = FLOAT(ncolors) - 1 221 ENDIF 222 IF N_ELEMENTS(divisions) EQ 0 THEN BEGIN 223 divisions = 2 224 ENDIF 225 IF N_ELEMENTS(title) EQ 0 THEN BEGIN 226 title = '' 227 ENDIF 212 228 pscolor = KEYWORD_SET(pscolor) 213 229 214 230 IF KEYWORD_SET(vertical) THEN BEGIN 215 IF KEYWORD_SET(discret) THEN begin231 IF KEYWORD_SET(discret) THEN BEGIN 216 232 facteur=256/n_elements(discret) 217 233 discret=reform(replicate(1,facteur) # discret,facteur*n_elements(discret)) 218 234 bar = REPLICATE(1B,10) # discret 219 235 endif else bar = REPLICATE(1B,10) # BINDGEN(256) 220 IF N_ELEMENTS(position) EQ 0 THEN position = [0.88, 0.15, 0.95, 0.95] 236 IF N_ELEMENTS(position) EQ 0 THEN BEGIN 237 position = [0.88, 0.15, 0.95, 0.95] 238 ENDIF 221 239 ENDIF ELSE BEGIN 222 IF KEYWORD_SET(discret) THEN begin240 IF KEYWORD_SET(discret) THEN BEGIN 223 241 facteur=256/n_elements(discret) 224 242 discret=reform(replicate(1,facteur) # discret,facteur*n_elements(discret)) 225 243 bar = discret # REPLICATE(1B,10) 226 244 endif else bar = BINDGEN(256) # REPLICATE(1B, 10) 227 IF N_ELEMENTS(position) EQ 0 THEN position = [0.15, 0.88, 0.95, 0.95] 245 IF N_ELEMENTS(position) EQ 0 THEN BEGIN 246 position = [0.15, 0.88, 0.95, 0.95] 247 ENDIF 228 248 ENDELSE 229 249 230 250 ; Scale the color bar. 231 IF NOT KEYWORD_SET(discret) THEN $251 IF NOT KEYWORD_SET(discret) THEN BEGIN 232 252 bar = BYTSCL(bar, TOP=ncolors-1) + bottom 253 ENDIF 233 254 234 255 ; Get starting locations in DEVICE coordinates. … … 320 341 ; Restore color variable if changed for PostScript. 321 342 322 IF postScriptDevice AND (pscolor NE 1) THEN color = oldcolor 323 343 IF postScriptDevice AND (pscolor NE 1) THEN BEGIN 344 color = oldcolor 345 ENDIF 324 346 END
Note: See TracChangeset
for help on using the changeset viewer.