source: tags/LIM1D_v3.20/GRAPHICS/do_levels.pro @ 6

Last change on this file since 6 was 6, checked in by vancop, 8 years ago

initial import of v3.20 /Users/ioulianikolskaia/Boulot/CODES/LIM1D/ARCHIVE/TMP/LIM1D_v3.20/
File size: 405 bytes
Line 
1PRO do_levels, zmin, zmax, cmin, cmax, nlevels, levels, colors
2;this program does levels
3
4dz = ( zmax - zmin ) / FLOAT(nlevels)
5levels = FLTARR(nlevels+1)
6
7FOR i_lev = 0, nlevels  DO BEGIN
8   levels(i_lev) =  zmin + dz * FLOAT(i_lev)
9ENDFOR
10
11dc = ( cmax - cmin ) / FLOAT(nlevels-1)
12colors = LONARR(nlevels)
13FOR i_lev = 0, nlevels - 1 DO BEGIN
14   colors(i_lev) = LONG(cmin + dc * FLOAT(i_lev))
15ENDFOR
16
17END
Note: See TracBrowser for help on using the repository browser.