Changeset 238 for trunk/SRC/ToBeReviewed/IMAGE/animgif.pro

Timestamp:

03/27/07 15:43:18 (17 years ago)

Author:

pinsard

Message:

improvements/corrections of some *.pro headers

File:

• trunk/SRC/ToBeReviewed/IMAGE/animgif.pro (modified) (8 diffs)

trunk/SRC/ToBeReviewed/IMAGE/animgif.pro

@@ -1 @@
-;------------------------------------------------------------
-;------------------------------------------------------------
-;------------------------------------------------------------
 ;+
 ;
-; @file_comments 
+; @file_comments
 ; Build a gif animation
 ;
-; @categories 
+; @categories
 ; Animated drawings.
 ;
-; @param NOMFIC {in}{required} 
+; @param NOMFIC {in}{required}
 ; It is the name of the gif file containing the animation.
 ;          Comment: this file is placed in the directory defined by iodir.
 ;
-; @uses 
+; @uses
 ; common.pro
 ;
-; @restrictions 
+; @restrictions
 ; We use the Z buffer to go faster!.
 ;              So, if it failed in animgif, you have to do:
@@ -24 +21 @@
 ;              IDL> retall
 ;
-; @restrictions 
+; @restrictions
 ; If we want to delete the \@common,
-;               we have to define manually the picture's size 
+;               we have to define manually the picture's size
 ;               (variables xsize and ysize) just as iodir.
 ;
-; @history 
+; @history
 ; Guillaume Roullet (grlod\@ipsl.jussieu.fr)
 ;          Sebastien Masson (smasson\@lodyc.jussieu.fr)
 ;          30/4/1999
 ;
-; @version 
+; @version
 ; $Id$
 ;
 ;-
-;------------------------------------------------------------
-;------------------------------------------------------------
-;------------------------------------------------------------
+;
 PRO animgif, nomfic
 ;
@@ -53 +48 @@
 ;  It completes the current palette on 256 colors.
 ;
-   red = [rouge, replicate(255, 256-n_elements(rouge))] 
-   green = [vert, replicate(255, 256-n_elements(rouge))] 
-   blue = [bleu, replicate(255, 256-n_elements(rouge))] 
+   red = [rouge, replicate(255, 256-n_elements(rouge))]
+   green = [vert, replicate(255, 256-n_elements(rouge))]
+   blue = [bleu, replicate(255, 256-n_elements(rouge))]
 ;
 ; It rocks on the z device, allowing to create the picture without display it.
@@ -67 +62 @@
    device, set_resolution = [xsize, ysize]
 ;
-; Beginning of the gif file. Writing of an empty picture. 
+; Beginning of the gif file. Writing of an empty picture.
 ;
    reinitplt
@@ -80 +75 @@
 ; Loop of picture's creation.
 ;
-   calen = TIMEGEN(366, START=JULDAY(1,1,2000)) 
+   calen = TIMEGEN(366, START=JULDAY(1,1,2000))
    debut = where(calen EQ 19810105)
    debut = where(calen EQ 19790105)
@@ -103 +98 @@
 ;      plt, nlec('sss', date, 'ATF'), label = 2, /noerase
 ;      plt, nlec('htoth', date, 'RE3')-nlec('hpycn', date, 'RE3'), 10, 60, int = 5, /inv, /noerase
-;      domdef, 290,340,-5,15 
+;      domdef, 290,340,-5,15
 ;      plt, norme(nlec('unsurf', date, 'RE3'), nlec('vnsurf', date, 'RE3')), 0, 1.2, int = .1, /noerase
 ;
@@ -109 +104 @@
 ;
       write_gif,iodir+nomfic,tvrd(),red, green, blue, /multiple
-   ENDFOR 
+   ENDFOR
 ;----------------------------------------------------------------
 ; End of the part we want to change.
@@ -115 +110 @@
 ;
 ; Closing of the file.
-   write_gif,iodir+nomfic,/close 
+   write_gif,iodir+nomfic,/close
 ; Rerock on terminal X mode.
 ;   device, /close