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

Last change on this file since 297 was 231, checked in by pinsard, 17 years ago

improvements/corrections of some *.pro headers
  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 796 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;-
26;
27FUNCTION definedefaultextra, nomvariable
28;
29  compile_opt idl2, strictarrsubs
30;
31   case strlowcase(nomvariable) of
32;       'sn':BEGIN
33;          return, get_extra(min = 31., max = 37., inter = .2, lct = 33,/nocontout)
34;       END
35;       'tn':BEGIN
36;          return, get_extra(min = 20, max = 31, inter = .5, lct = 39)
37;       END
38;       'un':BEGIN
39;          return, get_extra(min = -1, max = 1, inter = .1, lct = 64)
40;       END
41;       'vn':BEGIN
42;          return, get_extra(min = -1, max = 1, inter = .1, lct = 64)
43;       END
44      ELSE:
45   ENDCASE
46
47   return, get_extra(min = '', max = '', inter = '', lct = 39)
48end
Note: See TracBrowser for help on using the repository browser.