source: trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/definedefaultextra.pro @ 192

Last change on this file since 192 was 150, checked in by navarro, 18 years ago

english and nicer header (3a)
  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 822 bytes
Line 
1;+
2; @file_comments
3;
4;
5; @categories
6;
7;
8; @param NOMVARIABLE
9;
10;
11; @returns
12;
13;
14; @uses
15;
16;
17; @restrictions
18;
19;
20; @examples
21;
22;
23; @history
24;
25;
26; @version
27; $Id$
28;
29; @todo
30; seb
31;
32;-
33FUNCTION definedefaultextra, nomvariable
34;
35  compile_opt idl2, strictarrsubs
36;
37   case strlowcase(nomvariable) of
38;       'sn':BEGIN
39;          return, get_extra(min = 31., max = 37., inter = .2, lct = 33,/nocontout)
40;       END
41;       'tn':BEGIN
42;          return, get_extra(min = 20, max = 31, inter = .5, lct = 39)
43;       END
44;       'un':BEGIN
45;          return, get_extra(min = -1, max = 1, inter = .1, lct = 64)
46;       END
47;       'vn':BEGIN
48;          return, get_extra(min = -1, max = 1, inter = .1, lct = 64)
49;       END
50      ELSE:
51   ENDCASE
52
53   return, get_extra(min = '', max = '', inter = '', lct = 39)
54end
Note: See TracBrowser for help on using the repository browser.