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