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

Last change on this file was 325, checked in by pinsard, 16 years ago

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