Changeset 150 for trunk/SRC/ToBeReviewed/TRIANGULATION/fillcornermask.pro

Timestamp:

08/09/06 12:12:54 (18 years ago)

Author:

navarro

Message:

english and nicer header (3a)

File:

• trunk/SRC/ToBeReviewed/TRIANGULATION/fillcornermask.pro (modified) (4 diffs)

trunk/SRC/ToBeReviewed/TRIANGULATION/fillcornermask.pro

@@ -3 +3 @@
 ;------------------------------------------------------------
 ;+
-; NAME: FILLCORNERMASK
 ;
-; PURPOSE: pour colorier proprement les continents! (c''est une longue
-; histoire...)
+; @file_comments
+; To color cleanly continents
 ;
-; CATEGORY: pour plt
+; @categories
+; graphic
 ;
-; CALLING SEQUENCE: completecointerre
-; 
-; INPUTS: non
+; @keyword _EXTRA
+; Used to pass your keywords 
 ;
-; KEYWORD PARAMETERS:  _EXTRA 
+; @keyword CONT_COLOR
+; The color of the continent. defaut value is
+; (!d.n_colors - 1) < 255 => white
 ;
-;        CONT_COLOR: the color of the continent. defaut value is
-;        (!d.n_colors - 1) < 255 => white
+; @uses
+; common.pro
 ;
-; OUTPUTS: non
+; @history
+; Sebastien Masson (smasson@lodyc.jussieu.fr)
+;                      8/8/2002
 ;
-; COMMON BLOCKS: common.pro
+; @version
+; $Id$
 ;
-; SIDE EFFECTS:
-;
-; RESTRICTIONS:
-;
-; EXAMPLE:
-;
-; MODIFICATION HISTORY:Sebastien Masson (smasson@lodyc.jussieu.fr)
-;                      8/8/2002
 ;-
 ;------------------------------------------------------------
@@ -45 +41 @@
   if NOT keyword_set(coinmonte) AND NOT keyword_set(coindescend) then return
 ;
-  tempsun = systime(1)          ; pour key_performance
+  tempsun = systime(1)          ; For key_performance
 ;
   IF NOT keyword_set(cont_color) THEN cont_color = (!d.n_colors-1) <  255    
 ;------------------------------------------------------------
-; definition descoordonnees des points numerotes 1,2,3,4,5,6 cf. les
-; schemas en dessous!
+; definition of coordinates of points numbered 1,2,3,4,5,6 (see figures below)
 ;------------------------------------------------------------
 ;
@@ -64 +59 @@
 ;
 ;
-; cas coin terre en montee:
-;      2 points terre en diagonale montante avec 2 points mer sur
-;      la diagonale descendante.
+; Case land corner in ascent:
+;      2 land points in diagonal ascending with 2 ocean points on the descendant diagonal.
 ;
 ;                     3    
@@ -96 +90 @@
   endif
 ;------------------------------------------------------------
-; cas coin terre en descendante.:
-;      2 points terre en diagonale descendante avec 2 points mer sur
-;      la diagonale montante
+; Case land corner in descent:
+;      2 land points in diagonal descending with 2 ocean points on the ascendant diagonal.
 ;
 ;                     4