- Timestamp:
- 05/02/06 11:40:19 (18 years ago)
- Location:
- trunk
- Files:
-
- 1 deleted
- 9 copied
Legend:
- Unmodified
- Added
- Removed
-
trunk/ToBeReviewed/COULEURS/colorbar.pro
r16 r19 27 27 ; CB_COLOR: The color index of the bar outline and characters. Default 28 28 ; is ncolors - 1 + bottom. 29 ; 30 ; CB_LOG: to get logarithmic scale for the colorbar 29 31 ; 30 32 ; CB_TITLE: This is title for the color bar. The default is to have … … 117 119 DIVISIONS=divisions, DISCRET=discret,CB_LABEL = cb_label, $ 118 120 FORMAT=format, POSITION=position, MAX=max, MIN=min, NCOLORS=ncolors, $ 119 PSCOLOR=pscolor, CB_TITLE=cb_title, VERTICAL=vertical, TOP=top, RIGHT=right, _extra = ex121 PSCOLOR=pscolor, CB_TITLE=cb_title, VERTICAL=vertical, TOP=top, RIGHT=right, CB_LOG = CB_log, _extra = ex 120 122 ; Is the PostScript device selected? 121 123 … … 258 260 AXIS, YAXIS=1, YRANGE=[min, max], YTICKFORMAT=format, YTICKS=divisions, $ 259 261 YTICKLEN=0.1, YSTYLE=1, COLOR=cb_color, CHARTHICK=cb_charthick $ 260 , CHARSIZE=cb_charsize, xtickname = cb_label 262 , CHARSIZE=cb_charsize, xtickname = cb_label, ylog = cb_log 261 263 262 264 ENDIF ELSE BEGIN … … 271 273 AXIS, YAXIS=1, YRANGE=[min, max], YTICKFORMAT='(A1)', YTICKS=divisions, $ 272 274 YTICKLEN=0.1, YTITLE=cb_title, YSTYLE=1, COLOR=cb_color $ 273 , CHARSIZE=cb_charsize, CHARTHICK=cb_charthick 275 , CHARSIZE=cb_charsize, CHARTHICK=cb_charthick, ylog = cb_log 274 276 275 277 ENDELSE … … 288 290 AXIS, XTICKS=divisions, XSTYLE=1, COLOR=cb_color $ 289 291 , CHARSIZE=cb_charsize, CHARTHICK=cb_charthick, $ 290 XTICKFORMAT=format, XTICKLEN=0.1, XRANGE=[min, max], XAXIS=1, xtickname = cb_label 292 XTICKFORMAT=format, XTICKLEN=0.1, XRANGE=[min, max], XAXIS=1, xtickname = cb_label, xlog = cb_log 291 293 292 294 ENDIF ELSE BEGIN … … 297 299 , CHARTHICK=cb_charthick, /NOERASE, $ 298 300 YTICKFORMAT='(A1)', XTICKFORMAT=format, XTICKLEN=0.1, $ 299 XRANGE=[min, max], TITLE=cb_title, xtickname = cb_label 301 XRANGE=[min, max], TITLE=cb_title, xtickname = cb_label, xlog = cb_log 300 302 301 303 ENDELSE -
trunk/ToBeReviewed/COULEURS/lct.pro
r16 r19 15 15 ; KEYWORD PARAMETERS: ceux de loadct 16 16 ; 17 ; LIGHTNESS: a scalar used to change the Lightness of the color 18 ; palette to be abble to adjust according to the printer we use, 19 ; the media (paper or slide)... 20 ; lightness < 1 to get lighter colors 21 ; > 1 to get darker colors 22 ; 17 23 ; rq: si le mot cle file n''est pas specifie, on cherche un fichier 18 24 ; contenant les palette du nom de palette.tbl. … … 28 34 ;------------------------------------------------------------ 29 35 ;------------------------------------------------------------ 30 PRO lct, numero, GET_NAME = get_name, _EXTRA = ex36 PRO lct, numero, GET_NAME = get_name, LIGHTNESS = Lightness, _EXTRA = ex 31 37 @common 32 38 ; le mot cle file est passe par l''intermediere de EXTRA? … … 87 93 ENDELSE 88 94 ; 89 if oldname EQ 'PS' then BEGIN 90 tvlct, rouge, vert, bleu, /get 91 palit, coefpalit 92 endif 95 if oldname EQ 'PS' AND keyword_set(lightness) then palit, lightness 96 ; 93 97 set_plot, oldname 94 98 IF oldname EQ 'X' OR oldname EQ 'MAC' OR oldname EQ 'WIN' then BEGIN -
trunk/ToBeReviewed/COULEURS/palette.tbl
- Property svn:eol-style deleted
-
trunk/ToBeReviewed/COULEURS/palit.pro
r16 r19 1 PRO palit, coef 1 PRO palit, coef, red, green, blue 2 2 ;+ 3 3 ; Eclaircit la palette courante en jouant sur la luminosite … … 8 8 ; coef = 0.1 pour la QMS papier de l'IPSL convient tres bien 9 9 ;- 10 @common11 10 IF n_elements(coef) EQ 0 THEN coef = 0.5 12 color_convert, rouge, vert, bleu, h, l, s, /rgb_hls 11 IF n_elements(red) EQ 0 THEN tvlct, red, green, blue, /get 12 color_convert, red, green, blue, h, l, s, /rgb_hls 13 13 l = 1.-coef*(1.-l) 14 14 ;
Note: See TracChangeset
for help on using the changeset viewer.