Last change
on this file since 2 was
2,
checked in by opalod, 22 years ago
|
Initial revision
|
-
Property svn:eol-style set to
native
-
Property svn:executable set to
*
-
Property svn:keywords set to
Author Date Id Revision
|
File size:
586 bytes
|
Rev | Line | |
---|
[2] | 1 | FUNCTION definedefaultextra, nomvariable |
---|
| 2 | case strlowcase(nomvariable) of |
---|
| 3 | ; 'sn':BEGIN |
---|
| 4 | ; return, get_extra(min = 31., max = 37., inter = .2, lct = 33,/nocontout) |
---|
| 5 | ; END |
---|
| 6 | ; 'tn':BEGIN |
---|
| 7 | ; return, get_extra(min = 20, max = 31, inter = .5, lct = 39) |
---|
| 8 | ; END |
---|
| 9 | ; 'un':BEGIN |
---|
| 10 | ; return, get_extra(min = -1, max = 1, inter = .1, lct = 64) |
---|
| 11 | ; END |
---|
| 12 | ; 'vn':BEGIN |
---|
| 13 | ; return, get_extra(min = -1, max = 1, inter = .1, lct = 64) |
---|
| 14 | ; END |
---|
| 15 | ELSE: |
---|
| 16 | ENDCASE |
---|
| 17 | |
---|
| 18 | return, get_extra(min = '', max = '', inter = '', lct = 39) |
---|
| 19 | end |
---|
Note: See
TracBrowser
for help on using the repository browser.