Changeset 390 for trunk


Ignore:
Timestamp:
01/28/09 12:16:06 (15 years ago)
Author:
smasson
Message:

bugfix when using CONTOUR and CONT_NOFILL keywords at the same time in plt

Location:
trunk/SRC/ToBeReviewed/PLOTS/DESSINE
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/plt.pro

    r378 r390  
    502502    oldcolnumb = colnumb 
    503503    plt, contour, contmin, contmax, CONTOUR = pourlegende, /NOERASE $ 
    504       , USETRI = usetri $ 
     504      , USETRI = usetri, CONT_NOFILL = cont_nofill $ 
    505505      , INTERVALLE = contintervalle, LABEL = contlabel, STYLE = style $ 
    506506      , NLEVEL = contnlevel, DUPLICATE = duplicate, STRICTFILL = strictfill $ 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltbase.pro

    r370 r390  
    170170  ENDIF ELSE cell_fill = 0      ; 
    171171;---------------------------------------------------------------------- 
    172 ; I) Filling of contours in palette colors 
     172; I) Filling contours with colors 
    173173;---------------------------------------------------------------------- 
    174174  if NOT keyword_set(more) then more = 10 
    … …  
    194194  IF chkstru(ex, 'C_COLORS') THEN ex = extractstru(ex, 'C_COLORS') 
    195195;------------------------------------------------------------ 
    196 ; II) Drawing of contours in traits 
     196; II) Drawing contours with lines 
    197197;------------------------------------------------------------ 
    198198  if n_elements(contour) EQ 4 OR n_elements(contour) EQ 0 THEN BEGIN 
    … …  
    242242    ENDIF 
    243243;---------------------------------------------------------------------- 
    244 ; III) Filling of colored continents. 
     244; III) Filling continents with color 
    245245;---------------------------------------------------------------------- 
    246246    IF chkstru(ex, 'CELL_FILL') THEN ex.CELL_FILL = cell_fill < 1 
    … …  
    266266    ENDIF 
    267267; 
    268 ; Filling of continents 
     268; Filling continents 
    269269; 
    270270    if keyword_set(realcont) then if realcont EQ 1 then mask = 1b 
    … …  
    301301      ENDIF                     ; NOT keyword_set(cont_nofill) 
    302302;------------------------------------------------------------ 
    303 ; IV) Trace coast in traits 
     303; IV) Trace coast with line 
    304304;------------------------------------------------------------ 
    305305      case 1 of 
Note: See TracChangeset for help on using the changeset viewer.