Ignore:
Timestamp:
03/19/07 18:15:51 (17 years ago)
Author:
pinsard
Message:

improvements/corrections of some *.pro headers

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/SRC/ToBeReviewed/PLOTS/style.pro

    r163 r231  
    1 ;------------------------------------------------------------ 
    2 ;------------------------------------------------------------ 
    3 ;------------------------------------------------------------ 
    41;+ 
    52; 
    6 ; @file_comments  
     3; @file_comments 
    74; Choose the way to trace isolines. 
    85; 
     
    2623;               4       Dash Dot Dot Dot         
    2724;               5       Long Dashes      
    28 ;  
     25; 
    2926; @param THICK {out} 
    3027; Vector defining the thick of the isoline. 
     
    3734; 
    3835;- 
    39 ;------------------------------------------------------------ 
    40 ;------------------------------------------------------------ 
    41 ;------------------------------------------------------------ 
    42 pro style,labstyle,level_z2d,linestyle,thick 
     36; 
     37PRO style,labstyle,level_z2d,linestyle,thick 
    4338; 
    4439  compile_opt idl2, strictarrsubs 
     
    5752         a=replicate(0,fix(n_elements(level_z2d)/2)) 
    5853         b=replicate(1,fix(n_elements(level_z2d)/2)) 
    59          c=replicate(2,fix(n_elements(level_z2d)/2))          
     54         c=replicate(2,fix(n_elements(level_z2d)/2)) 
    6055         if impair then begin 
    6156            thick=[b,2,b] 
     
    7469         rien=where(level_z2d lt seuil,n) 
    7570         a=replicate(0,n_elements(level_z2d)-n) 
    76          c=replicate(2,n)          
     71         c=replicate(2,n) 
    7772         if seuil eq level_z2d[n] then begin 
    7873            thick=[replicate(1,n),2,replicate(1,n_elements(level_z2d)-1-n)] 
Note: See TracChangeset for help on using the changeset viewer.