Changeset 142 for trunk/SRC/ToBeReviewed/PLOTS/DESSINE/sbar_plot.pro
- Timestamp:
- 07/21/06 14:47:49 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/sbar_plot.pro
r134 r142 3 3 ;------------------------------------------------------------ 4 4 ;+ 5 ; NAME:sbar_plot (super bar_plot)6 5 ; 7 ; PURPOSE: meme chose que bar_plot mais compatible avec l''ensemble de8 ; l'environnement (common.pro est inclu)6 ; @file_comments 7 ; Same thing that bar_plot but compatible with the whole environnement (common.pro inclued) 9 8 ; 10 ; CATEGORY:dessine9 ; @categories graphics 11 10 ; 12 ; CALLING SEQUENCE: sbar_plot,y13 ;14 11 ; INPUTS: cd IDL>?bar_plot 15 12 ; 16 ; KEYWORD PARAMETERS: 13 ; @keyword COLORS 14 ; A vector, the same size as VALUES, containing the color index 15 ; to be used for each bar. If not specified, the colors are 16 ; selected based on spacing the color indices as widely as 17 ; possible within the available colors (specified by D.N_COLORS). 17 18 ; 18 ; meme que ceux de bar_plot avec en plus: 19 ; COLORS: un entier donnant la couleur de toutes les barres de 20 ; couleurs. (contrairement a colors qui est en vecteur donnant le 21 ; couleur de chaque barre de couleur. 19 ; @keyword COLORS 20 ; Is an integer giving color of all colorbars. (contrarily to colors 21 ; which is a vector giving the color of each colorbar). 22 22 ; 23 ; NOREINITPLT: a actier si on ne veut pas que les variables24 ; d''environnemet !p, !x, !y, !z soient reinitialisees par la25 ; 23 ; @keyword NOREINITPLT 24 ; We active it if we do not want environnement variables !p, !x, !y, !z 25 ; to be reinitilalizted by the procedure reinitplt 26 26 ; 27 ; OUTPUTS: 27 ; @keyword _EXTRA 28 ; used to pass your keyword 28 29 ; 29 ; COMMON BLOCKS:common.pro 30 ; @uses 31 ; common.pro 30 32 ; 31 ; SIDE EFFECTS: 33 ; @restrictions 34 ; If NOREINITPLT is not activated, all environnement 35 ; variables !p, !x, !y, !z are reinitializtedby the procedure reinitplt 32 36 ; 33 ; Si NOREINITPLT n''est pas ective toutes les variables 34 ; d''environnemet !p, !x, !y, !z sont reinitialisees par la 35 ; procedure reinitplt 36 ; 37 ; RESTRICTIONS: 38 ; 39 ; EXAMPLE: 40 ; 37 ; @examples 41 38 ; IDL> sbar_plot, indgen(10),small = [2,2,2],/rempli 42 39 ; IDL> sbar_plot, indgen(10),small = [2,2,3],/noerase 43 ; IDL> @ps40 ; IDL> \@ps 44 41 ; 45 ; MODIFICATION HISTORY:Sebastien Masson (smasson@lodyc.jussieu.fr) 42 ; @history 43 ; Sebastien Masson (smasson@lodyc.jussieu.fr) 46 44 ; 10/10/1999 45 ; 46 ; @version 47 ; $Id$ 48 ; 47 49 ;- 48 50 ;------------------------------------------------------------ … … 55 57 ; 56 58 @common 57 ; 1) je reinitialise l''environnememt graphique (lesvariables !x, !y et !p):59 ; 1) I reinitialize the graphic environment (variables !x, !y et !p): 58 60 if NOT keyword_set(NOREINITPLT) then reinitplt, _extra = ex 59 ; 2) je place le dessin a l'ecran comme sur le postcript61 ; 2) I place the drawing on the screen like on the postscript 60 62 IF chkstru(ex, 'overplot')EQ 0 THEN placedessin, 'autre', _extra = ex 61 ; 3) je fais mon joli dessin63 ; 3) Drawing 62 64 if n_elements(COLORS) NE 0 then BEGIN 63 65 if n_elements(COLORS) EQ n_elements(Values) then col = colors $ … … 67 69 bar_plot, Values, background = !p.background, colors = col $ 68 70 , xstyle = 1, ystyle = 1, _extra = ex 69 ; 4) je termine le dessin71 ; 4) End of drawing 70 72 terminedessin, _extra=ex 71 73
Note: See TracChangeset
for help on using the changeset viewer.