Changeset 142 for trunk/SRC/ToBeReviewed/PLOTS/DESSINE/scontour.pro
- Timestamp:
- 07/21/06 14:47:49 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/scontour.pro
r134 r142 3 3 ;------------------------------------------------------------ 4 4 ;+ 5 ; NAME:scontour (super contour)6 5 ; 7 ; PURPOSE: meme chose que contour mais compatible avec l''ensemble de8 ; l'environnement (common.pro est inclu)6 ; @File_comments 7 ; Same thing that contour but compatible with the whole environnement (common.pro inclued) 9 8 ; 10 ; CATEGORY:dessine9 ; @categories graphics 11 10 ; 12 ; CALLING SEQUENCE: scontour, z [, x, y]13 ;14 11 ; INPUTS:cd IDL>?contour 15 12 ; 16 ; KEYWORD PARAMETERS: 13 ; @keyword NOREINITPLT 14 ; We active it if we do not want environnement variables !p, !x, !y, !z 15 ; to be reinitilalizted by the procedure reinitplt 16 ; 17 ; @keyword _EXTRA 18 ; used to pass your keywords 17 19 ; 18 ; meme que ceux de bar_plot avec en plus: 19 ; NOREINITPLT: a actier si on ne veut pas que les variables 20 ; d''environnemet !p, !x, !y, !z soient reinitialisees par la 21 ; procedure reinitplt 20 ; @uses 21 ; common.pro 22 22 ; 23 ; OUTPUTS: 24 ; 25 ; COMMON BLOCKS:common.pro 26 ; 27 ; SIDE EFFECTS: 28 ; 29 ; RESTRICTIONS: 30 ; 31 ; EXAMPLE: 23 ; @examples 32 24 ; IDL> z = dist(100) 33 25 ; IDL> scontour, z, nlevels=10,small=[1,2,1],xstyle=1,ystyle=1 34 ; IDL> @ps26 ; IDL> \@ps 35 27 ; 36 ; MODIFICATION HISTORY:Sebastien Masson (smasson@lodyc.jussieu.fr)28 ; @history Sebastien Masson (smasson@lodyc.jussieu.fr) 37 29 ; 10/10/1999 30 ; 31 ; @version 32 ; $Id$ 33 ; 38 34 ;- 39 35 ;------------------------------------------------------------ … … 45 41 ; 46 42 @common 47 ; 1) je reinitialise l''environnememt graphique (lesvariables !x, !y et !p):43 ; 1) I reinitializate the graphic environment (variables !x, !y et !p): 48 44 if NOT keyword_set(NOREINITPLT) then reinitplt, _extra = ex 49 ; 2) je place le dessin a l'ecran comme sur le postcript45 ; 2) i put the drawing on the screen like on the postcript 50 46 ; if ex contains norease and c_orientation keywords we force ex.noerase = 0 51 47 IF chkstru(ex, 'overplot') EQ 0 THEN placedessin, 'autre', _extra = ex 52 48 ; fiddle when noerase is used with c_orentation... 53 ; call contour with /nodata to get the graphic env oronment, then force49 ; call contour with /nodata to get the graphic environment, then force 54 50 ; noerase = 0 and overplot = 1 55 51 IF size(ex, /type) EQ 8 THEN BEGIN … … 85 81 ENDCASE 86 82 ENDIF 87 ; 4) je termine le dessin83 ; 4) End of drawing 88 84 terminedessin, _extra = ex 89 85
Note: See TracChangeset
for help on using the changeset viewer.