source: trunk/WIDGET/AUTOUR_de_XXX/definedefaultextra.pro @ 2

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
Line 
1FUNCTION 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)
19end
Note: See TracBrowser for help on using the repository browser.