Ignore:
Timestamp:
08/09/06 12:12:54 (18 years ago)
Author:
navarro
Message:

english and nicer header (3a)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/ToBeReviewed/TRIANGULATION/completecointerre.pro

    r134 r150  
    1 ;------------------------------------------------------------ 
    2 ;------------------------------------------------------------ 
    3 ;------------------------------------------------------------ 
    4 ;+ 
    5 ; NAME: COMPLETECOINTERRE 
    6 ; 
    7 ; PURPOSE: pour colorier proprement les continents! (c''est une longue 
    8 ; histoire...) 
    9 ; 
    10 ; CATEGORY: pour plt 
    11 ; 
    12 ; CALLING SEQUENCE: completecointerre 
    13 ;  
    14 ; INPUTS: non 
    15 ; 
    16 ; KEYWORD PARAMETERS:  _EXTRA  
    17 ; 
    18 ;        CONT_COLOR: the color of the continent. defaut value is 
    19 ;        (!d.n_colors - 1) < 255 => white 
    20 ; 
    21 ; OUTPUTS: non 
    22 ; 
    23 ; COMMON BLOCKS: common.pro 
    24 ; 
    25 ; SIDE EFFECTS: 
    26 ; 
    27 ; RESTRICTIONS: 
    28 ; 
    29 ; EXAMPLE: 
    30 ; 
    31 ; MODIFICATION HISTORY:Sebastien Masson (smasson@lodyc.jussieu.fr) 
    32 ;                      01/10/1999 
    33 ;- 
    34 ;------------------------------------------------------------ 
    35 ;------------------------------------------------------------ 
    36 ;------------------------------------------------------------ 
    371PRO draw_corner_triangle, lons, lats, seuil, CONT_COLOR = cont_color, _extra = ex 
    382; 
    … …  
    5519;------------------------------------------------------------ 
    5620;------------------------------------------------------------ 
     21;------------------------------------------------------------ 
     22;+ 
     23; 
     24; @file_comments 
     25; To color cleanly continents 
     26; 
     27; @categories 
     28; graphic 
     29; 
     30; @keyword _EXTRA 
     31; Used to pass your keywords  
     32; 
     33; @keyword CONT_COLOR 
     34; The color of the continent. defaut value is 
     35; (!d.n_colors - 1) < 255 => white 
     36; 
     37; @uses 
     38; common.pro 
     39; 
     40; @history 
     41; Sebastien Masson (smasson@lodyc.jussieu.fr) 
     42;                      01/10/1999 
     43; 
     44; @version 
     45; $Id$ 
     46; 
     47;- 
     48;------------------------------------------------------------ 
     49;------------------------------------------------------------ 
     50;------------------------------------------------------------ 
    5751PRO completecointerre, COINMONTE = coinmonte, COINDESCEND = coindescend $ 
    5852                       , CONT_COLOR = cont_color, INDICEZOOM = indicezoom $ 
    … …  
    6660;   if NOT keyword_set(coindescend) then return 
    6761;   if NOT keyword_set(indicezoom) then return 
    68   tempsun = systime(1)          ; pour key_performance 
     62  tempsun = systime(1)          ; For key_performance 
    6963;------------------------------------------------------------ 
    70 ; definitions des vecteurs coinmont et coindesc 
     64; definitions of vectors coinmont and coindesc 
    7165;------------------------------------------------------------ 
    7266  if keyword_set(coinmonte) then coinmont = coinmonte $ 
    … …  
    7670  IF NOT keyword_set(cont_color) THEN cont_color = (!d.n_colors-1) <  255 
    7771;------------------------------------------------------------ 
    78 ; definition descoordonnees des points numerotes 1,2,3,4,5,6 cf. les 
    79 ; schemas en dessous! 
     72; definition of coordinates of points numbered 1,2,3,4,5,6 (see figures below) 
    8073;------------------------------------------------------------ 
    81   tempdeux = systime(1)         ; pour key_performance =2 
     74  tempdeux = systime(1)         ; For key_performance =2 
    8275  if coinmont[0] NE -1 OR coindesc[0] NE -1 then BEGIN 
    8376    if keyword_set(indicezoom) then BEGIN 
    … …  
    122115; 
    123116; 
    124 ; cas coin terre en montee: 
    125 ;      2 points terre en diagonale montante avec 2 points mer sur 
    126 ;      la diagonale descendante. 
     117; Case land corner in ascent: 
     118;      2 land points in diagonal ascending with 2 ocean points on the descendant diagonal. 
    127119; 
    128120;                     4     
    … …  
    139131; 
    140132  if coinmont[0] NE -1 then BEGIN 
    141     tempdeux = systime(1)       ; pour key_performance =2 
     133    tempdeux = systime(1)       ; For key_performance =2 
    142134    for id = 0, n_elements(coinmont)-1 do BEGIN 
    143135      i = coinmont[id] 
    … …  
    159151  ENDIF 
    160152;------------------------------------------------------------ 
    161 ; cas coin terre en descendante.: 
    162 ;      2 points terre en diagonale descendante avec 2 points mer sur 
    163 ;      la diagonale montante 
    164 ; 
     153; Case land corner in descent: 
     154;      2 land points in diagonal descending with 2 ocean points on the ascendant diagonal. 
     155;  
    165156;                     4 
    166157;     t(i+nx)=1    u(i+nx)       t(i+nx+1)=0 
    … …  
    175166; 
    176167  if coindesc[0] NE -1 then begin 
    177     tempdeux = systime(1)       ; pour key_performance =2 
     168    tempdeux = systime(1)       ; For key_performance =2 
    178169    for id = 0, n_elements(coindesc)-1 do BEGIN 
    179170      i = coindesc[id] 
Note: See TracChangeset for help on using the changeset viewer.