Changeset 226 for trunk/SRC/ToBeReviewed/PLOTS/DIVERS
- Timestamp:
- 03/16/07 10:22:26 (17 years ago)
- Location:
- trunk/SRC/ToBeReviewed/PLOTS/DIVERS
- Files:
-
- 4 edited
-
barrecouleur.pro (modified) (5 diffs)
-
determineminmax.pro (modified) (6 diffs)
-
placedessin.pro (modified) (10 diffs)
-
restoreatt.pro (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ToBeReviewed/PLOTS/DIVERS/barrecouleur.pro
r163 r226 5 5 ; 6 6 ; @file_comments 7 ; Overlaye ur of colorbar7 ; Overlayer of colorbar 8 8 ; 9 9 ; @categories … … 23 23 ; 24 24 ; @keyword NOCOLORBAR 25 ; 25 ; 26 26 ; 27 27 ; @keyword CB_TITLE 28 ; 28 ; 29 29 ; 30 30 ; @keyword NOFILL 31 ; 31 ; 32 32 ; 33 33 ; @keyword COLOR_c 34 ; 34 ; 35 35 ; 36 36 ; @keyword MIN … … 41 41 ; 42 42 ; @keyword DIVISIONS 43 ; 43 ; 44 44 ; 45 45 ; @keyword CB_SUBTITLE 46 ; 46 ; 47 47 ; 48 48 ; @keyword POST 49 ; 49 ; 50 50 ; 51 51 ; @keyword _EXTRA … … 84 84 if keyword_set(divisions) THEN clbdiv = divisions 85 85 nocolorbar = keyword_set(nocolorbar) + keyword_set(nofill) $ 86 + keyword_set(color_c) 86 + keyword_set(color_c) 87 87 ;------------------------------------------------------------ 88 88 def_myuniquetmpdir … … 99 99 ENDELSE 100 100 ;------------------------------------------------------------ 101 if keyword_set(nocolorbar) then return 101 if keyword_set(nocolorbar) then return 102 102 ;------------------------------------------------------------ 103 103 ancienx = !x -
trunk/SRC/ToBeReviewed/PLOTS/DIVERS/determineminmax.pro
r163 r226 7 7 ; Determine the min and the max of a mask array 8 8 ; 9 ; @categories 9 ; @categories 10 10 ; Plotting 11 11 ; … … 14 14 ; 15 15 ; @param MASK {in}{required} 16 ; The mask array 16 ; The mask array 17 17 ; 18 18 ; @keyword MININ {type=scalar} … … 22 22 ; If it is not defined, it takes the value of VRAIMAX 23 23 ; 24 ; @keyword ZEROMIDDLE 24 ; @keyword ZEROMIDDLE 25 25 ; Force the middle of the colorbar to be equal 26 26 ; to 0 (force max=max(abs([min,max])) and min=-max) 27 ; 27 ; 28 28 ; @keyword _EXTRA 29 29 ; used to pass your keywords … … 31 31 ; @keyword USETRI 32 32 ; To force using triangulation. 33 ; 33 ; 34 34 ; @param VRAIMIN {out} 35 35 ; The min of the array … … 64 64 ;----------------------------------------------------------------------------- 65 65 ;----------------------------------------------------------------------------- 66 ; Type o fthe vertical grid:66 ; Type of the vertical grid: 67 67 if vargrid EQ 'W' then nz = nzw ELSE nz = nzt 68 68 ; liste des points mer 69 69 if (size(mask))[0] EQ 3 then mer = mask[*, *, 0] $ 70 70 ELSE mer = mask 71 ; If key_irregular eq 1, we mask also points which are not in the geographic 71 ; If key_irregular eq 1, we mask also points which are not in the geographic 72 72 ; domain defined by lon1,lon2,lat1,lat2 73 73 if keyword_set(key_irregular) AND n_elements(glam) NE 0 AND n_elements(gphi) NE 0 then begin … … 89 89 ; ma and mi : max and min on ocean points 90 90 vraimax = max(tab[mer], min = vraimin, _extra = ex) 91 sameminmax = testvar(var = minin) EQ testvar(var = maxin) 91 sameminmax = testvar(var = minin) EQ testvar(var = maxin) 92 92 if n_elements(maxin) EQ 0 OR sameminmax then maxin = vraimax 93 if n_elements(minin) EQ 0 OR sameminmax then BEGIN 93 if n_elements(minin) EQ 0 OR sameminmax then BEGIN 94 94 if keyword_set(intervalle) then minin = floor(vraimin/intervalle)*intervalle $ 95 95 ELSE minin = vraimin -
trunk/SRC/ToBeReviewed/PLOTS/DIVERS/placedessin.pro
r163 r226 4 4 ;+ 5 5 ; 6 ; @file_comments 6 ; @file_comments 7 7 ; Putting into place of the drawing/ opening of the window or of the PS 8 8 ; 9 ; @categories 9 ; @categories 10 10 ; Utilities 11 11 ; … … 13 13 ; It specify what procedure is called by PLACEDESSIN: 'plt', 'pltz' or 'pltt' 14 14 ; 15 ; @keyword LANDSCAPE 15 ; @keyword LANDSCAPE 16 16 ; Force the page or the window on the screen to be in lengthened position. 17 17 ; 18 18 ; @keyword LCT {type=integer} 19 ; It designate the number of the palette of color we want to use for the plot. 19 ; It designate the number of the palette of color we want to use for the plot. 20 20 ; 21 ; @keyword MAP 21 ; @keyword MAP 22 22 ; We use it when we want to do a projection. 23 23 ; This keyword can be of two types: 24 24 ; MAP=[P0lat,P0lon,Rot]. For the description of these 3 values (see the online help of MAP_SET). 25 ; /MAP: In this case, map is automatically calculated have the value: 25 ; /MAP: In this case, map is automatically calculated have the value: 26 26 ; map = [0, (lon1+lon2)/2., 0] 27 27 ; Comment: A good way to choose the type of the projection we want to do is to have a look at IDL demo: 28 28 ; IDL> demo 29 29 ; Then choose earth sciences and mapping. 30 ; Comment2: By default it is a cylindrical projection which is effectuated (with or without the keyword map). 30 ; Comment2: By default it is a cylindrical projection which is effectuated (with or without the keyword map). 31 31 ; If we want an other projection, MAP must be activated and we have to add the keyword: /nom_projection. 32 32 ; For example, for a polar projection centered on the south pole: … … 34 34 ; IDL> plt, tab, /stereo,map=[-90,0,0] 35 35 ; 36 ; @keyword NOCOLORBAR 36 ; @keyword NOCOLORBAR 37 37 ; We active it if we do not want the colorbar. 38 38 39 ;; @keyword NOFILL 39 ;; @keyword NOFILL 40 40 ; We active it if we only want contours in black and white with a white background. 41 41 ; 42 ; @keyword NOERASE 42 ; @keyword NOERASE 43 43 ; We active it to make a drawing without creating a new frame. 44 44 ; 45 ; @keyword SMALL 46 ; Vector composed of 3 or 4 elements, applied to make a drawing on a 45 ; @keyword SMALL 46 ; Vector composed of 3 or 4 elements, applied to make a drawing on a 47 47 ; small portion of a page or screen. It delimit the zone where the drawing will be done. 48 48 ; If there is 4 elements: 49 ; then is constituted of coordinates (expressed in cm located from the up and 50 ; left corner of the page or the window (in portrait like in landscape)) of the bottom 49 ; then is constituted of coordinates (expressed in cm located from the up and 50 ; left corner of the page or the window (in portrait like in landscape)) of the bottom 51 51 ; and left corner and of the up and right corner of the drawing zone. 52 52 ; If there is 3 elements: 53 ; in this case, we divide the page or the screen in small[0] columns and in small[1] lines 54 ; the drawing made in the box numbered small[2]. The numerotation starting up and left by 53 ; in this case, we divide the page or the screen in small[0] columns and in small[1] lines 54 ; the drawing made in the box numbered small[2]. The numerotation starting up and left by 55 55 ; the number 1 and then, following the writing direction. 56 ; By default, we make the largest drawing we can do, conserving the aspect rapport 56 ; By default, we make the largest drawing we can do, conserving the aspect rapport 57 57 ; (except when REMPLI is activated). 58 ; 59 ; @keyword PORTRAIT 58 ; 59 ; @keyword PORTRAIT 60 60 ; Force the page or the window to be in standing position. 61 61 ; 62 ; @keyword POST 62 ; @keyword POST 63 63 ; Make a postscript. Only works if we made one drawing on the page. 64 64 ; If we make several drawing, use \@ps. 65 65 ; 66 ; @keyword REMPLI 66 ; @keyword REMPLI 67 67 ; Force the drawing to occupy the whole space defined by small. 68 68 ; 69 ; @keyword WINDOW 70 ; Number of the window on which we want to do the graph (Allow to open several windows). 69 ; @keyword WINDOW 70 ; Number of the window on which we want to do the graph (Allow to open several windows). 71 71 ; By default, we open 'IDL0' 72 72 ; 73 ; @keyword CB_TITLE 73 ; @keyword CB_TITLE 74 74 ; The colorbar's title 75 75 ; 76 ; @keyword CONTOUR 77 ; If we want to trace contours of a different field than the one 78 ; whose we have the colored drawing (by example E-P in color and QSR in contours). 76 ; @keyword CONTOUR 77 ; If we want to trace contours of a different field than the one 78 ; whose we have the colored drawing (by example E-P in color and QSR in contours). 79 79 ; It must be a field respecting same characteristics than the argument number one of plt. 80 80 ; 81 ; @keyword ENDPOINTS 82 ; keyword specifying that we want to make a vertical cut in diagonal. Then coordinated of extremities 83 ; of these one are defined by the 4 elements of the vector ENDPOINTS: [x1,y1,x2,y2] which are 84 ; coordinates. 81 ; @keyword ENDPOINTS 82 ; keyword specifying that we want to make a vertical cut in diagonal. Then coordinated of extremities 83 ; of these one are defined by the 4 elements of the vector ENDPOINTS: [x1,y1,x2,y2] which are 84 ; coordinates. 85 85 ; 86 86 ; @keyword VECTEUR {type=vector} … … 94 94 ; @keyword DIREC 95 95 ; 't' 'x' 'y' 'z' 'xys' 'xz' 'yz' 'xyz' 'xt' 'yt' 'zt' 'xyt' 96 ; 'xzt' 'yzt' 'xyzt' Direction on which do averages 96 ; 'xzt' 'yzt' 'xyzt' Direction on which do averages 97 97 ; 98 98 ; @keyword _EXTRA 99 99 ; Used to pass your keywords. 100 100 ; 101 ; @keyword COLOR_C 101 ; @keyword COLOR_C 102 102 ; To draw the contour in color instead of in black 103 ; with filling in color 103 ; with filling in color 104 104 ; 105 105 ; @param POSFENETRE {out}{type=vector} 106 ; It is a vector composed by 4 elements containing the position of the frame 107 ; containing captions and the graph in normalized coordinates. 108 ; Comment: To position the drawing; we have to do !p.position=posfenetre 106 ; It is a vector composed by 4 elements containing the position of the frame 107 ; containing captions and the graph in normalized coordinates. 108 ; Comment: To position the drawing; we have to do !p.position=posfenetre 109 109 ; after the call of the caliber 110 110 ; 111 111 ; @param POSBAR {out}{type=vector} 112 ; Like POSFENETRE but for the color bar. 112 ; Like POSFENETRE but for the color bar. 113 113 ; Same comment to position the color bar, !p.position=posbar 114 114 ; … … 148 148 ; 1) Determination of the size of margins (unity=number of lines or columns) 149 149 ; to the left, to the right, up and down. 150 ; BEWARE in margebar, the last element is the right up corner 150 ; BEWARE in margebar, the last element is the right up corner 151 151 ; instead of the up margin 152 152 ;------------------------------------------------------------- … … 157 157 margebar = 1.*[marge[0]+1, marge[1]+1, marge[2]-8, marge[2]-6] 158 158 if keyword_set(barmarges) then margebar = margebar+barmarges 159 ENDIF ELSE BEGIN 160 nocolorbar = keyword_set(nocolorbar) + keyword_set(nofill) + keyword_set(color_c) 159 ENDIF ELSE BEGIN 160 nocolorbar = keyword_set(nocolorbar) + keyword_set(nofill) + keyword_set(color_c) 161 161 case typedessin of 162 162 'plt':marge = 1.*[6, 2, 4, 3] … … 186 186 ; Portrait or landscape 187 187 ;-------------------------------------------------------------- 188 IF NOT keyword_set(noerase) THEN BEGIN 188 IF NOT keyword_set(noerase) THEN BEGIN 189 189 CASE 1 OF 190 190 n_elements(portrait) NE 0:key_portrait = portrait … … 192 192 ELSE: 193 193 ENDCASE 194 ENDIF 194 ENDIF 195 195 ;-------------------------------------------------------------- 196 196 ; What type of aspect rapport (it will be crushed if YXASPECT exist) … … 218 218 ;------------------------------------------------------------ 219 219 case 1 of 220 ; case of the first drawing on a post cript220 ; case of the first drawing on a postscript 221 221 keyword_set(post) AND !d.name ne 'PS':openps, _extra = ex 222 222 ; case of the first drawing on a screen … … 236 236 windsize = givewindowsize() 237 237 window, window, xsize = windsize[0], ysize = windsize[1], retain = 2, _extra = ex 238 ; When we used colors which are coded on 24bit, we can not stipulate the background color 238 ; When we used colors which are coded on 24bit, we can not stipulate the background color 239 239 ; of a window thanks to !p.background, so we have to to this: 240 240 ; if !d.n_colors gt 256 then begin -
trunk/SRC/ToBeReviewed/PLOTS/DIVERS/restoreatt.pro
r163 r226 5 5 ; 6 6 ; @file_comments 7 ; Allows to reattribu ate global variables associated with a field7 ; Allows to reattribute global variables associated with a field 8 8 ; when we give a structure created by saveatt.pro by example. 9 9 ; 10 ; @categories 10 ; @categories 11 11 ; Utilities 12 12 ; 13 13 ; @param STRUCT {in}{required} 14 ; a structure like the one who read litchamp. 14 ; a structure like the one who read litchamp. 15 15 ; See IDL> xhelp,'litchamp' 16 16 ; … … 19 19 ; 20 20 ; @restrictions 21 ; Change the value if global variables attribute of a field: vargrid, 21 ; Change the value if global variables attribute of a field: vargrid, 22 22 ; varname, varunit, vardate, varexp , valmask and time. 23 23 ; … … 47 47 'e':varexp = struct.(i) 48 48 'm':valmask = struct.(i) 49 'd':BEGIN 50 if size(struct.(i),/type) EQ 7 THEN BEGIN 49 'd':BEGIN 50 if size(struct.(i),/type) EQ 7 THEN BEGIN 51 51 vardate = struct.(i) 52 52 ENDIF ELSE BEGIN … … 55 55 ENDELSE 56 56 end 57 ELSE:BEGIN 57 ELSE:BEGIN 58 58 ras = report('Le nom '+nomelements[i]+' ne correspont a aucun element reconnu de la structure. !C cf. IDL> xhelp, ''litchamp''') 59 59 end
Note: See TracChangeset
for help on using the changeset viewer.
