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
RevLine 
[2]1;------------------------------------------------------------
2;------------------------------------------------------------
3;------------------------------------------------------------
4;+
5;
[142]6; @file_comments
[226]7; Overlayer of colorbar
[2]8;
[142]9; @categories
[157]10; Utilities
[2]11;
[163]12; @param COLNUMB
13;
14;
15; @param CLBINF
16;
17;
18; @param CLBSUP
19;
20;
21; @param CLBDIV
22;
23;
24; @keyword NOCOLORBAR
25;
[226]26;
[163]27; @keyword CB_TITLE
28;
[226]29;
[163]30; @keyword NOFILL
31;
[226]32;
[163]33; @keyword COLOR_c
34;
[226]35;
[163]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;
[226]44;
[163]45; @keyword CB_SUBTITLE
46;
[226]47;
[163]48; @keyword POST
49;
[226]50;
[163]51; @keyword _EXTRA
52; Used to pass your keywords
53;
[230]54; @restrictions
55; pass all argument we want thanks to _extra
[2]56;
[142]57; @history
[157]58; Sebastien Masson (smasson\@lodyc.jussieu.fr)
[142]59;                       23/12/98
[2]60;
[142]61; @version
62; $Id$
63;
[230]64; @todo
65; seb: mettre les keyword et les param
[2]66;-
67;------------------------------------------------------------
68;------------------------------------------------------------
69;------------------------------------------------------------
[37]70PRO barrecouleur, colnumb, clbinf, clbsup, clbdiv $
71                  , NOCOLORBAR = nocolorbar, CB_TITLE = cb_title $
72                  , NOFILL = nofill, COLOR_c = color_c $
[152]73                  , MIN = min, MAX = max, divisions = divisions $
[37]74                  , CB_SUBTITLE = cb_subtitle, POST = post, _extra = ex
[2]75;------------------------------------------------------------
[114]76;
77  compile_opt idl2, strictarrsubs
78;
[37]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) $
[226]88               + keyword_set(color_c)
[37]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;------------------------------------------------------------
[226]103   if keyword_set(nocolorbar) then return
[37]104;------------------------------------------------------------
[2]105   ancienx = !x
106   ancieny = !y
107   ancienp = !p
108   reinitplt
109   !x.style = 1
110   !y.style = 1
111;------------------------------------------------------------
[37]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;------------------------------------------------------------
[2]117   !x= ancienx
118   !y= ancieny
119   !p= ancienp
[37]120;
[2]121   return
122end
Note: See TracBrowser for help on using the repository browser.