Changeset 231 for trunk/SRC/ToBeReviewed/PLOTS/style.pro
- Timestamp:
- 03/19/07 18:15:51 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ToBeReviewed/PLOTS/style.pro
r163 r231 1 ;------------------------------------------------------------2 ;------------------------------------------------------------3 ;------------------------------------------------------------4 1 ;+ 5 2 ; 6 ; @file_comments 3 ; @file_comments 7 4 ; Choose the way to trace isolines. 8 5 ; … … 26 23 ; 4 Dash Dot Dot Dot 27 24 ; 5 Long Dashes 28 ; 25 ; 29 26 ; @param THICK {out} 30 27 ; Vector defining the thick of the isoline. … … 37 34 ; 38 35 ;- 39 ;------------------------------------------------------------ 40 ;------------------------------------------------------------ 41 ;------------------------------------------------------------ 42 pro style,labstyle,level_z2d,linestyle,thick 36 ; 37 PRO style,labstyle,level_z2d,linestyle,thick 43 38 ; 44 39 compile_opt idl2, strictarrsubs … … 57 52 a=replicate(0,fix(n_elements(level_z2d)/2)) 58 53 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)) 60 55 if impair then begin 61 56 thick=[b,2,b] … … 74 69 rien=where(level_z2d lt seuil,n) 75 70 a=replicate(0,n_elements(level_z2d)-n) 76 c=replicate(2,n) 71 c=replicate(2,n) 77 72 if seuil eq level_z2d[n] then begin 78 73 thick=[replicate(1,n),2,replicate(1,n_elements(level_z2d)-1-n)]
Note: See TracChangeset
for help on using the changeset viewer.