Ignore:
Timestamp:
03/16/07 10:22:26 (17 years ago)
Author:
pinsard
Message:

corrections of some misspellings in some *.pro

Location:
trunk/SRC/ToBeReviewed/PLOTS/DESSINE
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltbase.pro

    r171 r226  
    55; 
    66; @file_comments 
    7 ; Overlayer contour to trace a field which can be mask.  
     7; Overlayer contour to trace a field which can be mask. 
    88; Elementary brick of plt, pltz et pltt. 
    99; 
    10 ; @categories  
     10; @categories 
    1111; Graphics 
    1212; 
    … …  
    2121; 
    2222; @param MASK {in}{required}{type=array} 
    23 ; It is the array who mask z2d (with 0s on points we want to mask and 1s on others).  
     23; It is the array who mask z2d (with 0s on points we want to mask and 1s on others). 
    2424; If z2d is not masked, put this argument equal to 1. 
    2525; 
    2626; @param XM {in}{required} 
    27 ; Axis of the mask. Vector or array of the same size that mask.  
     27; Axis of the mask. Vector or array of the same size that mask. 
    2828; This is the coordinate of mask on x. 
    2929; 
    3030; @param YM {in}{required} 
    31 ; Axis of the mask. Vector or array of the same size that mask.  
     31; Axis of the mask. Vector or array of the same size that mask. 
    3232; This is the coordinate of mask on y. 
    3333; 
    3434; @param LEVELS {in}{optional}{type=vector} 
    35 ; Vectors which contain levels needed at the contour.  
     35; Vectors which contain levels needed at the contour. 
    3636; If it is not given, we take 20 levels between the min and the max. 
    37 ;   
     37; 
    3838; @param COLORS {in}{optional}{type=vector} 
    39 ; Vectors which contain colors needed at the contour.  
     39; Vectors which contain colors needed at the contour. 
    4040; If it is not given, we take 20 levels between the min and the max. 
    4141; 
    42 ; @keyword COLORTRICHAMP  
     42; @keyword COLORTRICHAMP 
    4343; The color we want to use to draw the triangulation which is used to make contours of the field. 
    4444; 
    45 ; @keyword COLORTRIMASK  
     45; @keyword COLORTRIMASK 
    4646; The color we want to use to draw the triangulation which is used to make contours of the mask. 
    4747; 
    48 ; @keyword COLOR_C  
     48; @keyword COLOR_C 
    4949; To draw the contour in color instead of in black 
    50 ; with filling in color  
    51 ; 
    52 ; @keyword CONT_NOFILL  
    53 ; Activate it not to fill the point mask to let them transparent!  
     50; with filling in color 
     51; 
     52; @keyword CONT_NOFILL 
     53; Activate it not to fill the point mask to let them transparent! 
    5454; Comment: Nevertheless, we trace mask's contour. 
    5555; 
    … …  
    5757; The color of the continent. 
    5858; 
    59 ; @keyword DESSTRICHAMP  
    60 ; To draw the triangulation which is used to make field's contours.  
    61 ; 
    62 ; @keyword DESSTRIMASK  
     59; @keyword DESSTRICHAMP 
     60; To draw the triangulation which is used to make field's contours. 
     61; 
     62; @keyword DESSTRIMASK 
    6363; To draw the triangulation which is used to make mask's contours. 
    64 ;  
    65 ; @keyword FORPLT  
     64; 
     65; @keyword FORPLT 
    6666; To activate if we want that the drawing of coast be realized by tracecote rather than tracemask. 
    6767; 
    6868; @keyword I_COLORS {type=vector} 
    69 ; It is a vector specifying the colors to use to trace contours.  
     69; It is a vector specifying the colors to use to trace contours. 
    7070; It is the same thing that c_colors which act on contours. 
    7171; 
    … …  
    7474;  % Out of range subscript encountered: <LONG      Array[38911]>. 
    7575;  % Execution halted at:  PLTBASE           151 
    76 ;             If the bug still exist, increase the value of more!  
     76;             If the bug still exist, increase the value of more! 
    7777; (The explanation and the justification of this method do not have scientific bases yet...). 
    7878; 
    … …  
    8989; I specify we only label one contour on two. 
    9090; 
    91 ; @keyword CONTOUR  
     91; @keyword CONTOUR 
    9292; To be used since plt, pltz or pltt. (Have a look on these routines). 
    9393; 
    94 ; @keyword _EXTRA  
     94; @keyword _EXTRA 
    9595; Used to pass your keywords 
    9696; 
    … …  
    106106; 8/2/2000 check if the tri array is not equal to 
    107107; -1. allow contour with out using a triangulation. 
    108 ;  
     108; 
    109109; @version 
    110110; $Id$ 
    … …  
    146146;--------------------------------------------------------- 
    147147; 
    148 ; Explanation concerning contour. This keyword is activated when we trace a  
     148; Explanation concerning contour. This keyword is activated when we trace a 
    149149; colored contour different from the one with black trait. 
    150150; If it is activated (case n_elements(contour) NE 0), we pass 2 time in pltbase: 
    151151;   1) We trace colors then we leave, it is the case: 
    152152;         n_elements(contour) NE 0 AND n_elements(contour) NE 4) 
    153 ;   2) We trace contours in traits then continents, it is the case:  
     153;   2) We trace contours in traits then continents, it is the case: 
    154154;         n_elements(contour) NE 0 AND n_elements(contour) EQ 4) 
    155155; 
    … …  
    162162; If levels and colors aren't given 
    163163;---------------------------------------------------------------------- 
    164   if n_params() EQ 4 then $  
     164  if n_params() EQ 4 then $ 
    165165    label, 0, min(z2d*mask), max(z2d*mask), ncontour, levels, colors 
    166166; attention bidouille inexplicable pour que tout se passe bien avec les 
    … …  
    171171; Is cell_fill is a part of _extra, we desactive it if it is nt equal to 2 
    172172;---------------------------------------------------------------------- 
    173   IF chkstru(ex, 'CELL_FILL') THEN BEGIN  
     173  IF chkstru(ex, 'CELL_FILL') THEN BEGIN 
    174174    cell_fill = ex.CELL_FILL 
    175175    if ex.CELL_FILL NE 2 then ex.CELL_FILL = 0 
    176176  ENDIF ELSE cell_fill = 0      ; 
    177177;---------------------------------------------------------------------- 
    178 ; I) Filling of contours in palette colors  
     178; I) Filling of contours in palette colors 
    179179;---------------------------------------------------------------------- 
    180180  if NOT keyword_set(more) then more = 10 
    181181  if NOT keyword_set(nofill) AND NOT keyword_set(color_c) then begin 
    182     if n_elements(contour) NE 4 THEN BEGIN  
     182    if n_elements(contour) NE 4 THEN BEGIN 
    183183      if usetri EQ 2 then BEGIN 
    184184        IF size(x, /n_dimensions) EQ 1 THEN x = x#replicate(1, (size(z2d))[2]) 
    … …  
    191191        IF size(y, /n_dimensions) EQ 2 THEN y = reform(y[0, *]) 
    192192        contour, z2d, x, y, levels = levels, c_color = colors, /noerase $ 
    193           , /fill, _extra = ex  
     193          , /fill, _extra = ex 
    194194      ENDELSE 
    195195    ENDIF 
    196196  ENDIF 
    197   if n_elements(contour) NE 0 AND n_elements(contour) NE 4 THEN GOTO, fini  
     197  if n_elements(contour) NE 0 AND n_elements(contour) NE 4 THEN GOTO, fini 
    198198  IF chkstru(ex, 'C_ORIENTATION') THEN ex = extractstru(ex, 'C_ORIENTATION') 
    199199  IF chkstru(ex, 'C_SPACING') THEN ex = extractstru(ex, 'C_SPACING') 
    … …  
    207207; 
    208208    IF (n_elements(mask) GT 1 OR n_elements(masknan) GT 1) $ 
    209       AND NOT keyword_set(cont_nofill) THEN BEGIN  
    210       IF keyword_set(maskorg) THEN tonan = maskorg*masknan ELSE tonan = mask*masknan  
     209      AND NOT keyword_set(cont_nofill) THEN BEGIN 
     210      IF keyword_set(maskorg) THEN tonan = maskorg*masknan ELSE tonan = mask*masknan 
    211211      tonan = where(remplit(tonan, nite = 1, mask = tonan $ 
    212212                            , /basique, fillval = 0 $ 
    213213                            , fillxdir = keyword_set(realsection)) EQ 0, count) 
    214214      IF count NE 0 THEN z2d[temporary(tonan)] = !values.f_nan 
    215     ENDIF    
     215    ENDIF 
    216216; 
    217217; We do not pass if we have to make differents contours... 
    … …  
    232232      ENDCASE 
    233233; 
    234       IF usetri EQ 2 THEN BEGIN  
     234      IF usetri EQ 2 THEN BEGIN 
    235235        IF size(x, /n_dimensions) EQ 1 THEN x = x#replicate(1, (size(z2d))[2]) 
    236236        IF size(y, /n_dimensions) EQ 1 THEN y = replicate(1, (size(z2d))[1])#y 
    … …  
    253253    IF chkstru(ex, 'LEVELS') THEN ex = extractstru(ex, 'LEVELS') 
    254254    IF chkstru(ex, 'NODATA') THEN ex = extractstru(ex, 'NODATA') 
    255     IF NOT keyword_set(cont_color) THEN cont_color = (!d.n_colors-1) <  255     
    256 ; 
    257 ; If there is points at NaN  
    258 ; We trace points in white at NaN bafore drawing coasts with a trait. 
     255    IF NOT keyword_set(cont_color) THEN cont_color = (!d.n_colors-1) <  255 
     256; 
     257; If there is points at NaN 
     258; We trace points in white at NaN before drawing coasts with a trait. 
    259259; 
    260260    if keyword_set(trinan) THEN BEGIN 
    … …  
    298298              , COINDESCEND = coindescendmask, CONT_COLOR = cont_color, _extra = ex 
    299299          END 
    300           ELSE:BEGIN  
     300          ELSE:BEGIN 
    301301            IF size(xm, /n_dimensions) EQ 2 THEN xm = xm[*, 0] 
    302302            IF size(ym, /n_dimensions) EQ 2 THEN ym = reform(ym[0, *]) 
    … …  
    310310;------------------------------------------------------------ 
    311311      case 1 of 
    312         keyword_set(realsection) AND NOT keyword_set(cont_nofill):       
     312        keyword_set(realsection) AND NOT keyword_set(cont_nofill): 
    313313        keyword_set(realsection) AND keyword_set(cont_nofill): $ 
    314314          drawsectionbottom, mask, xm, ym $ 
    … …  
    334334; 
    335335fini: 
    336   IF keyword_set(key_performance) THEN print, 'temps pltbase', systime(1)-tempsun  
     336  IF keyword_set(key_performance) THEN print, 'temps pltbase', systime(1)-tempsun 
    337337 
    338338  return 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltz.pro

    r172 r226  
    44;+ 
    55; 
    6 ; @file_comments  
     6; @file_comments 
    77; Trace vertical graphs. 
    88; 
    9 ; @categories  
     9; @categories 
    1010; Graphics 
    1111; 
    12 ; @param TAB  
     12; @param TAB 
    1313; The field whose we want to make a vertical cut can be 2 kind of thing: 
    14 ;         1) An 2d or 3d array.  
    15 ;         If the field is 2d, indicate, with the keyword BOXZOOM, geographic delineations of the boxzoom.  
     14;         1) An 2d or 3d array. 
     15;         If the field is 2d, indicate, with the keyword BOXZOOM, geographic delineations of the boxzoom. 
    1616;         If the field is 3d, we extract the section on we average possibly before to do the plot. 
    17 ;         2)  a structure respecting all criterions specified by litchamp.pro.  
     17;         2)  a structure respecting all criterions specified by litchamp.pro. 
    1818;          See IDL> xhelp,'litchamp'. The array contained in the structure must be 2 or 3d (See case 1) 
    1919; 
    2020; ces arguments ne sont pas obligatoires: 
    21 ;   
     21; 
    2222;       MAX: valeur maximum que l'on veut prendre en compte dans le trace 
    2323; des contours. Par defaut on prend le max de tab1 (sur les pts mer) 
    … …  
    2626; des contours. Par defaut on prend le min de tab1 (sur les pts mer) 
    2727; 
    28 ; @keyword BOXZOOM  
    29 ; Vector indicating the geographic zone on which we want to cut the map.  
     28; @keyword BOXZOOM 
     29; Vector indicating the geographic zone on which we want to cut the map. 
    3030;  If BOXZOOM has : 
    3131; 1 element : The extraction is made on [lon1, lon2, lat1, lat2, 0.,boxzoom[0]] 
    … …  
    3737; Where lon1, lon2,lat1,lat2 are global variables defined at the last domdef! 
    3838; 
    39 ; @keyword CONTINTERVALLE  
    40 ; When CONTOUR is activated, it is the value between 2 isolines  
    41 ; traced by a trait. So it can be different from the one specified by INTERVALLE which,  
    42 ; in this case, does not control colored isolines in color anymore. If there is noone  
    43 ; specified min, we choose a contour min which goes well with the specified interval!  
    44 ; If this keyword is not specified, we trace 20 isolines from the min to the max.  
     39; @keyword CONTINTERVALLE 
     40; When CONTOUR is activated, it is the value between 2 isolines 
     41; traced by a trait. So it can be different from the one specified by INTERVALLE which, 
     42; in this case, does not control colored isolines in color anymore. If there is noone 
     43; specified min, we choose a contour min which goes well with the specified interval! 
     44; If this keyword is not specified, we trace 20 isolines from the min to the max. 
    4545; 
    4646; @keyword CONTLABEL {type=integer} 
    4747; When CONTOUR is activated, if n 
    48 ; is different of 0, choose the label type corresponding to n cases for  
    49 ; the traced by a traitisolines. To specify the type of label of the  
     48; is different of 0, choose the label type corresponding to n cases for 
     49; the traced by a traitisolines. To specify the type of label of the 
    5050; colored contour, use LABEL 
    5151; 
    5252; @keyword CONTMAX {default=max of the keyword CONTOUR (on ocean points)} 
    53 ; When CONTOUR is activated, max value we want to consider in the isoline  
     53; When CONTOUR is activated, max value we want to consider in the isoline 
    5454; traced by a trait's line. 
    5555; 
    5656; @keyword CONTMIN {default=min of the keyword CONTOUR (on ocean points)} 
    57 ; When CONTOUR is activated, min value we want to consider in the isoline  
    58 ; traced by a trait's line.  
     57; When CONTOUR is activated, min value we want to consider in the isoline 
     58; traced by a trait's line. 
    5959; 
    6060; @keyword CONTNLEVEL {default=20} 
    … …  
    6363; CONTLABEL=0). 
    6464; 
    65 ; @keyword CONTOUR  
    66 ; If we want to trace contours of a different field than the one  
    67 ; whose we have the colored drawing (by example E-P in color and QSR in contours).  
     65; @keyword CONTOUR 
     66; If we want to trace contours of a different field than the one 
     67; whose we have the colored drawing (by example E-P in color and QSR in contours). 
    6868; It must be a field respecting same characteristics than the argument number one of plt. 
    6969; 
    70 ; @keyword ENDPOINTS  
    71 ; keyword specifying that we want to make a vertical cut in diagonal. Then coordinated of extremities  
    72 ; of these one are defined by the 4 elements of the vector ENDPOINTS: [x1,y1,x2,y2] which are  
    73 ; coordinates.  
    74 ; 
    75 ; @keyword INTERVALLE  
    76 ; Value of an internal between to isoline. If there is none specified min,  
    77 ; we choose a min contour which goes well with the specified interval!. If this keyword is not  
    78 ; specified, we trace 20 isoline from the min to the max. Comment: When CONTOUR is activated,  
    79 ; INTERVALLE only specify the interval between 2 colored isoline. To specify the interval  
     70; @keyword ENDPOINTS 
     71; keyword specifying that we want to make a vertical cut in diagonal. Then coordinated of extremities 
     72; of these one are defined by the 4 elements of the vector ENDPOINTS: [x1,y1,x2,y2] which are 
     73; coordinates. 
     74; 
     75; @keyword INTERVALLE 
     76; Value of an internal between to isoline. If there is none specified min, 
     77; we choose a min contour which goes well with the specified interval!. If this keyword is not 
     78; specified, we trace 20 isoline from the min to the max. Comment: When CONTOUR is activated, 
     79; INTERVALLE only specify the interval between 2 colored isoline. To specify the interval 
    8080; between 2 isolines traced by a trait, use CONTINTERVALLE. 
    8181; 
    82 ; @keyword INV  
    83 ; Invert the color vector used to color the graph  
     82; @keyword INV 
     83; Invert the color vector used to color the graph 
    8484;               (without use the black, the white and the used palette) 
    8585; 
    8686; @keyword ZRATIO {default=2./3} 
    87 ; When the drawing has a zoomed part, it is the size rapport between the zoomed part,  
     87; When the drawing has a zoomed part, it is the size rapport between the zoomed part, 
    8888; hz (zoom height), and the whole drawing, ht (total height). 
    8989; 
    9090; @keyword LABEL {default=0}{type=integer} 
    9191; It choose the label's type corresponding to cases in label.pro. 
    92 ; Comment: When CONTOUR is activated, it only specify the label's type for colored isolines.  
    93 ; For these one traced by a trait, use CONTLABEL.  
    94 ; 
    95 ; @keyword MAXIN  
     92; Comment: When CONTOUR is activated, it only specify the label's type for colored isolines. 
     93; For these one traced by a trait, use CONTLABEL. 
     94; 
     95; @keyword MAXIN 
    9696; to specify the max value we want to plot with a keyword instead of with the 
    9797; input parameter max. If max is defined by both, parameter and keyword, the 
    9898; keyword is retained. 
    9999; 
    100 ; @keyword MININ  
     100; @keyword MININ 
    101101; to specify the min value we want to plot with a keyword instead of with the 
    102102; input parameter min. If min is defined by both, parameter and keyword, the 
    … …  
    106106; Number of contour to draw by default =20. active if 
    107107; LABEL=0 or is not specified. 
    108 ;  
    109 ; @keyword NOTRI  
    110 ; To force not to use the triangulation. Beware, in this case, the  
    111 ; drawing only works if the grid is undeformed (It means that each point of a longitude  
    112 ; give one latitude and each point of a latitude give one longitude) except if we use  
    113 ; the keyword CELL_FILL=2.  
     108; 
     109; @keyword NOTRI 
     110; To force not to use the triangulation. Beware, in this case, the 
     111; drawing only works if the grid is undeformed (It means that each point of a longitude 
     112; give one latitude and each point of a latitude give one longitude) except if we use 
     113; the keyword CELL_FILL=2. 
    114114; Comment: if the field contain points !values.f_nan, then we even do a triangulation. 
    115115; 
    116 ; @keyword OVERPLOT  
    117 ; To make a plot over an other one.  
    118 ; Comment: Contrarily to the use of CONTOUR or VECTEUR, the use of this keyword  
     116; @keyword OVERPLOT 
     117; To make a plot over an other one. 
     118; Comment: Contrarily to the use of CONTOUR or VECTEUR, the use of this keyword 
    119119; does not the caption and/or the color bar. 
    120120; 
    121 ; @keyword SIN  
    122 ; Activate this keyword if we want the x axis to be traced in sinus of the  
     121; @keyword SIN 
     122; Activate this keyword if we want the x axis to be traced in sinus of the 
    123123; latitude when we make a drawing f(y) 
    124124; 
    125 ; @keyword STRICTFILL  
    126 ; Activate this keyword to that the filling of contours be  
    127 ; precisely done between the min and the max specified letting values inferior at the  
     125; @keyword STRICTFILL 
     126; Activate this keyword to that the filling of contours be 
     127; precisely done between the min and the max specified letting values inferior at the 
    128128; specified min and values superior at the specified max in white. 
    129129; 
    … …  
    131131; Contour's style to adopt to draw isolines 
    132132; 
    133 ; @keyword WDEPTH  
    134 ; To specify that the field is at W depth instead of T  
     133; @keyword WDEPTH 
     134; To specify that the field is at W depth instead of T 
    135135; depth (automatically activated if vargrid eq 'W') 
    136136; 
    … …  
    209209  IF usetri EQ 1 AND keyword_set(realsection) THEN usetri = 0 
    210210; did we specify the type ? 
    211   if keyword_set(typein) then BEGIN  
     211  if keyword_set(typein) then BEGIN 
    212212    if size(type, /type) NE 7 AND size(type, /type) NE 0 then begin 
    213213      if n_elements(min) NE 0 then max = min 
    … …  
    216216    type = typein 
    217217  ENDIF 
    218 ;  
     218; 
    219219  checktypeminmax, 'pltz', TYPE = type, MIN = min, MAX = max $ 
    220220    , XZ = xz, YZ = yz, ENDPOINTS = endpoints, _extra = ex 
    221221; 
    222222  if keyword_set(endpoints) then begin 
    223     section, tab, z2d, glam, gphi, ENDPOINTS = endpoints, TYPE = type $  
     223    section, tab, z2d, glam, gphi, ENDPOINTS = endpoints, TYPE = type $ 
    224224    , BOXZOOM = boxzoom, DIREC = direc, WDEPTH = wdepth, _extra = ex 
    225     if z2d[0] EQ -1 AND n_elements(contour) ne 4 then BEGIN  
     225    if z2d[0] EQ -1 AND n_elements(contour) ne 4 then BEGIN 
    226226      restoreboxparam, 'boxparam4pltz.dat' 
    227227      return 
    228228    ENDIF 
    229     nx = n_elements(glam)  
     229    nx = n_elements(glam) 
    230230    ny = nx 
    231231    if strupcase(vargrid) EQ 'W' then begin 
    … …  
    240240    z2d = checkfield(tab, 'pltz', TYPE = type, BOXZOOM = boxzoom $ 
    241241                     , DIREC = direc, WDEPTH = wdepth, _extra = ex) 
    242     if z2d[0] EQ -1 AND n_elements(contour) ne 4 then BEGIN  
     242    if z2d[0] EQ -1 AND n_elements(contour) ne 4 then BEGIN 
    243243      restoreboxparam, 'boxparam4pltz.dat' 
    244244      return 
    … …  
    260260  z2d = reverse(z2d, 2) 
    261261;----------------------------------------------------------------------------- 
    262 ; Determination of the mi:min and of the ma:max of z2d in the same way  
     262; Determination of the mi:min and of the ma:max of z2d in the same way 
    263263; as max: max and min: min for the drawing. 
    264264;----------------------------------------------------------------------------- 
    … …  
    316316      z2d = remplit(z2d, nite = 1-(n_elements(maskfill) NE 0) $ 
    317317                    , mask = z2d LT valmask/10, /basique, _extra = ex) 
    318   ENDIF ELSE BEGIN  
     318  ENDIF ELSE BEGIN 
    319319; filling the mask values with 8 neighbourg 
    320320    z2d = remplit(z2d, nite = (1+(vargrid NE 'T')+keyword_set(nan)) $ 
    321321                  *(1-(n_elements(maskfill) NE 0)), mask = mask*masknan $ 
    322322                  , /basique, _extra = ex) 
    323   ENDELSE  
     323  ENDELSE 
    324324  if keyword_set(strictfill) EQ 0 AND n_elements(maskfill) EQ 0 $ 
    325325    then z2d = min > z2d <  max 
    … …  
    329329  ENDIF 
    330330;---------------------------------------------------------- 
    331 ; check the mask and the triangulation according to the grid type and  
     331; check the mask and the triangulation according to the grid type and 
    332332; nan values. find the coordinates of the mask 
    333 ;----------------------------------------------------------  
     333;---------------------------------------------------------- 
    334334;   if (where(mask EQ 0))[0] EQ -1 AND NOT keyword_set(nan) then notri = 1 
    335335;   if keyword_set(notri) then trifield = -1 $ 
    … …  
    347347    xmask = xxaxis 
    348348    zmask = zzaxis 
    349   ENDELSE  
    350 ; 
    351   if (usetri GE 1 AND (vargrid NE 'T' AND vargrid NE 'W')) THEN BEGIN  
     349  ENDELSE 
     350; 
     351  if (usetri GE 1 AND (vargrid NE 'T' AND vargrid NE 'W')) THEN BEGIN 
    352352    IF keyword_set(realsection) THEN trimsk = triangule(mask, /basic) $ 
    353353    ELSE trimsk = triangule(mask, /basic, coinmonte = coinmontemask $ 
    354354                            , coindescend = coindescendmask) 
    355   ENDIF      
     355  ENDIF 
    356356;------------------------------------------------------------ 
    357357; dessin en lui meme 
    … …  
    387387    return 
    388388  endif 
    389   if keyword_set(contour) THEN BEGIN  
     389  if keyword_set(contour) THEN BEGIN 
    390390    pourlegende = [1, 1, 1, 1] 
    391391    oldattributs = saveatt() 
    … …  
    403403; 3rd part: drawing of the frame, caption, colorbar... 
    404404;------------------------------------------------------------ 
    405   if keyword_set(overplot) then BEGIN  
     405  if keyword_set(overplot) then BEGIN 
    406406    !y.range =  [zoom, profmin] ; We get back on physic coordinates 
    407407    plot, [0], [0], /nodata, /noerase, title = '', subtitle = '', xstyle = 5, ystyle = 5 
    … …  
    409409  endif 
    410410;------------------------------------------------------------ 
    411 ; Caption + dysplay of them 
     411; Caption + display of them 
    412412;------------------------------------------------------------ 
    413413  legende, mi, ma, type, CONTOUR = pourlegende, INTERVALLE = intervalle, DIREC = direc, endpoints = endpoints, _EXTRA = ex 
    … …  
    423423; Y axis in 1 or 2 part 
    424424;------------------------------------------------------------ 
    425   if n_elements(ex) NE 0 then BEGIN  
     425  if n_elements(ex) NE 0 then BEGIN 
    426426; To do not put title anymore 
    427427    if (where(tag_names(ex) EQ 'TITLE'))[0] NE -1 then ex.TITLE = ' ' 
    … …  
    429429    if (where(tag_names(ex) EQ 'SUBTITLE'))[0] NE -1 then ex.SUBTITLE = ' ' 
    430430; To have just one ytitle 
    431     if (where(tag_names(ex) EQ 'YTITLE'))[0] NE -1 then BEGIN  
     431    if (where(tag_names(ex) EQ 'YTITLE'))[0] NE -1 then BEGIN 
    432432      ytitle = ex.YTITLE 
    433433      ex.YTITLE = ' ' 
    … …  
    480480  restoreboxparam, 'boxparam4pltz.dat' 
    481481; 
    482   if keyword_set(key_performance) NE 0 THEN print, 'temps pltz', systime(1)-tempsun  
     482  if keyword_set(key_performance) NE 0 THEN print, 'temps pltz', systime(1)-tempsun 
    483483  return 
    484484end 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/scontour.pro

    r223 r226  
    4343; 1) I reinitializate the graphic environment (variables !x, !y et !p): 
    4444  if NOT keyword_set(NOREINITPLT) then reinitplt, _extra = ex 
    45 ; 2) i put the drawing on the screen like on the postcript 
     45; 2) i put the drawing on the screen like on the postscript 
    4646; if ex contains norease and c_orientation keywords we force ex.noerase = 0 
    4747  IF chkstru(ex, 'overplot') EQ 0 THEN placedessin, 'autre', _extra = ex 
    48 ; fiddle when noerase is used with c_orentation... 
     48; fiddle when noerase is used with c_orientation... 
    4949; call contour with /nodata to get the graphic environment, then force 
    5050; noerase = 0 and overplot = 1 
    5151  IF size(ex, /type) EQ 8 THEN BEGIN 
    52 ; check if noerase is used with c_orentation 
     52; check if noerase is used with c_orientation 
    5353    alltags = strlowcase(tag_names(ex)) 
    5454    dummy = where(alltags EQ 'noerase', count1) 
    … …  
    7171    3:contour, x, y, z, xstyle = 1, ystyle = 1, _EXTRA = ex 
    7272  ENDCASE 
    73 ; fiddle when noerase is used with c_orentation... draw the contour axis 
     73; fiddle when noerase is used with c_orientation... draw the contour axis 
    7474  IF keyword_set(noerase_orientation)  THEN BEGIN 
    7575    ex.noerase = 1 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/splot.pro

    r223 r226  
    4747; 1) I reinitializate the graphic environment (les variables !x, !y et !p): 
    4848   if NOT keyword_set(NOREINITPLT) then reinitplt, _extra = ex 
    49 ; 2) i put the drawing on the screen like on the postcript 
     49; 2) i put the drawing on the screen like on the postscript 
    5050   placedessin, 'autre', _extra = ex 
    5151; 3) Drawing 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/tvplus.pro

    r163 r226  
    77; Enhanced version of tvscl 
    88; 
    9 ; @categories quick exploration of 2D arrays  
    10 ; 
    11 ; INPUTS:  
     9; @categories quick exploration of 2D arrays 
    1210; 
    1311; @param Z2D {in}{required} 
    … …  
    2119; of cellsize that forces tvplus to create a window larger than 
    2220; the screen, a "scrolling window" will be displayed instead of a 
    23 ; regular window. Unfortunately the nice functionnalities of tvplus 
     21; regular window. Unfortunately the nice functionalities of tvplus 
    2422; are not coded for "scrolling window" case... 
    2523; 
    … …  
    3331; The color number that should be used for the mask values. 
    3432; 
    35 ; @keyword OFFSET  
     33; @keyword OFFSET 
    3634; 2 elements vector used by tvplus itself when showing zoom. 
    3735; It is used to shift the ranges of xaxis and yaxis. 
    38 ; For example: tvplus,sst[x1:x2,y1:y2],offest=[x1,y1] 
    39 ; 
    40 ; @keyword MASK  
     36; For example: tvplus,sst[x1:x2,y1:y2],offset=[x1,y1] 
     37; 
     38; @keyword MASK 
    4139; The mask value. Note that if abs(mask) < 1.e6, then the 
    4240; exact value of the mask is used to find the maskwd point. 
    … …  
    6765; @keyword _EXTRA 
    6866; used to pass keywords to TV, PLOT, COLORBAR 
    69 ;  
    70 ; @restrictions  
     67; 
     68; @restrictions 
    7169; use your mouse to scan the array values... 
    7270;     left button  : mouse position and associated array value 
    … …  
    7472;     right button : quit 
    7573; 
    76 ; the nice functionnalities of tvplus are not coded 
     74; the nice functionalities of tvplus are not coded 
    7775; for "scrolling window" case... 
    7876; 
    … …  
    102100  arr = reform(float(z2d)) 
    103101;------------------------------------------------------------ 
    104 ; check the size of the input array  
     102; check the size of the input array 
    105103;------------------------------------------------------------ 
    106104  if (size(arr))[0] NE 2 then begin 
    … …  
    130128;------------------------------------------------------------ 
    131129; Compute the size (in pixel) of the square representing 1 
    132 ; point of the input array  
     130; point of the input array 
    133131;------------------------------------------------------------ 
    134132  dimensions = GET_SCREEN_SIZE() 
    135   if n_elements(cellsize) EQ 0 then BEGIN  
     133  if n_elements(cellsize) EQ 0 then BEGIN 
    136134    cellsize = min(floor(dimensions/(size(z2d))[1: 2]*.75)) 
    137   ENDIF ELSE $  
     135  ENDIF ELSE $ 
    138136; we need to use a scrolling bar window 
    139137  if cellsize GE min(floor(dimensions/(size(z2d))[1: 2]*.75)) then scrolling = 1 
    … …  
    145143; Change the value of the masked value for the min of the non-masked values 
    146144;------------------------------------------------------------ 
    147   if n_elements(mask) then BEGIN  
    148     if abs(mask) LT 1e6 then BEGIN  
     145  if n_elements(mask) then BEGIN 
     146    if abs(mask) LT 1e6 then BEGIN 
    149147      masked = where(arr EQ mask) 
    150148      if masked[0] NE -1 then arr[masked] = min(arr[where(arr NE mask)]) 
    151     ENDIF ELSE BEGIN  
     149    ENDIF ELSE BEGIN 
    152150      masked = where(abs(arr) GE abs(mask)/10.) 
    153151      if masked[0] NE -1 then arr[masked] = min(arr[where(abs(arr) LT abs(mask)/10.)]) 
    … …  
    157155; apply min/max keywords 
    158156;------------------------------------------------------------ 
    159   if n_elements(min) NE 0 then BEGIN  
     157  if n_elements(min) NE 0 then BEGIN 
    160158    arr = min > arr 
    161159    truemin = min 
    162160  ENDIF ELSE truemin = min(arr) 
    163   if n_elements(max) NE 0 then BEGIN  
     161  if n_elements(max) NE 0 then BEGIN 
    164162    arr = arr < max 
    165163    truemax = max 
    … …  
    171169  ENDIF 
    172170;------------------------------------------------------------ 
    173 ; apply other keywords (nointerp, c_nan, c_mask)  
     171; apply other keywords (nointerp, c_nan, c_mask) 
    174172;------------------------------------------------------------ 
    175173  if NOT keyword_set(nointerp) then BEGIN 
    … …  
    177175    m = 1.*(ncolors-1)/(truemax-truemin) 
    178176    p = bottom-1.*truemin*m 
    179     arr = round(m*temporary(arr)+p)  
    180   endif 
    181 ; set c_nan for NaN values  
     177    arr = round(m*temporary(arr)+p) 
     178  endif 
     179; set c_nan for NaN values 
    182180  if keyword_set(nan) then begin 
    183181    if n_elements(c_nan) NE 0 THEN arr[nanindex] = c_nan <  (ncolmax -1) $ 
    … …  
    190188  arr = byte(temporary(arr)) 
    191189; increase the size of the array in order to be displayed 
    192 ; with the suitable size  
     190; with the suitable size 
    193191  szarr = size(arr, /dimensions) 
    194192  arr = congrid(temporary(arr), szarr[0]*cellsize, szarr[1]*cellsize) 
    … …  
    205203    if NOT keyword_set(window) then window = 0 
    206204    window, window, xsize = nx+marginpix[0]+marginpix[1] $ 
    207             , ysize = ny+marginpix[2]+marginpix[3]  
     205            , ysize = ny+marginpix[2]+marginpix[3] 
    208206; for 24 bits colors, make sure thate the background color is the good one... 
    209207    if !d.n_colors gt 256 then BEGIN 
    … …  
    215213    tv, arr, marginpix[0], marginpix[2], _EXTRA = ex 
    216214; 
    217 ; axis and plot frame  
     215; axis and plot frame 
    218216; 
    219217; get the normalized position of the tv (we just done above) 
    … …  
    233231    xenvsauve = !x & yenvsauve = !y & penvsauve = !p 
    234232; 
    235 ; draw the colorbar  
     233; draw the colorbar 
    236234; 
    237235    IF truemin ne truemax THEN BEGIN 
    … …  
    244242    ENDIF 
    245243;      !p.position = poscadre 
    246   ENDIF ELSE BEGIN  
     244  ENDIF ELSE BEGIN 
    247245;------------------------------------------------------------ 
    248246; scrolling bar window case... 
    … …  
    261259                 , yvisible = round(.7*dimensions[1]) < (size(arr))[2], /register, congrid = 0, show_full = 0 
    262260    return 
    263   ENDELSE  
     261  ENDELSE 
    264262;------------------------------------------------------------ 
    265263; Use the mouse to get nice functionalities 
Note: See TracChangeset for help on using the changeset viewer.