source: trunk/SRC/ToBeReviewed/PLOTS/DIVERS/barrecouleur.pro @ 230

Last change on this file since 230 was 230, 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: 2.9 KB
Line 
1;------------------------------------------------------------
2;------------------------------------------------------------
3;------------------------------------------------------------
4;+
5;
6; @file_comments
7; Overlayer of colorbar
8;
9; @categories
10; Utilities
11;
12; @param COLNUMB
13;
14;
15; @param CLBINF
16;
17;
18; @param CLBSUP
19;
20;
21; @param CLBDIV
22;
23;
24; @keyword NOCOLORBAR
25;
26;
27; @keyword CB_TITLE
28;
29;
30; @keyword NOFILL
31;
32;
33; @keyword COLOR_c
34;
35;
36; @keyword MIN
37; Scalar used to specify the min value to be drawn.
38;
39; @keyword MAX
40; Scalar used to specify the max value to be drawn.
41;
42; @keyword DIVISIONS
43;
44;
45; @keyword CB_SUBTITLE
46;
47;
48; @keyword POST
49;
50;
51; @keyword _EXTRA
52; Used to pass your keywords
53;
54; @restrictions
55; pass all argument we want thanks to _extra
56;
57; @history
58; Sebastien Masson (smasson\@lodyc.jussieu.fr)
59;                       23/12/98
60;
61; @version
62; $Id$
63;
64; @todo
65; seb: mettre les keyword et les param
66;-
67;------------------------------------------------------------
68;------------------------------------------------------------
69;------------------------------------------------------------
70PRO barrecouleur, colnumb, clbinf, clbsup, clbdiv $
71                  , NOCOLORBAR = nocolorbar, CB_TITLE = cb_title $
72                  , NOFILL = nofill, COLOR_c = color_c $
73                  , MIN = min, MAX = max, divisions = divisions $
74                  , CB_SUBTITLE = cb_subtitle, POST = post, _extra = ex
75;------------------------------------------------------------
76;
77  compile_opt idl2, strictarrsubs
78;
79@cm_general
80  IF NOT keyword_set(key_forgetold) THEN BEGIN
81@updatekwd
82  ENDIF
83;------------------------------------------------------------
84  if keyword_set(min) then clbinf = min
85  if keyword_set(max) then clbsup = min
86  if keyword_set(divisions) THEN  clbdiv = divisions
87  nocolorbar = keyword_set(nocolorbar) + keyword_set(nofill) $
88               + keyword_set(color_c)
89;------------------------------------------------------------
90    def_myuniquetmpdir
91;
92  IF lmgr(/demo) EQ 1 THEN BEGIN
93; if we are in demo mode, we cannot save the parameters in a temporary file...
94@cm_demomode_used
95;
96     colorbarparam = {colnumb:colnumb, clbinf:clbinf $
97                      , clbsup:clbsup, clbdiv:clbdiv}
98   ENDIF ELSE BEGIN
99      save, colnumb, clbinf, clbsup, clbdiv $
100          , file = myuniquetmpdir + '4colorbar.dat'
101   ENDELSE
102;------------------------------------------------------------
103   if keyword_set(nocolorbar) then return
104;------------------------------------------------------------
105   ancienx = !x
106   ancieny = !y
107   ancienp = !p
108   reinitplt
109   !x.style = 1
110   !y.style = 1
111;------------------------------------------------------------
112     colorbar, cb_color = 0, cb_charsize = ancienp.charsize $
113       , pscolor = keyword_set(post), division = clbdiv $
114       , min = clbinf, max = clbsup $
115       , cb_title = cb_title, discret = colnumb, _extra = ex
116;------------------------------------------------------------
117   !x= ancienx
118   !y= ancieny
119   !p= ancienp
120;
121   return
122end
Note: See TracBrowser for help on using the repository browser.