Changeset 133 for trunk/SRC/ToBeReviewed/UTILITAIRE/vzoom.pro

Timestamp:

07/07/06 11:57:27 (18 years ago)

Author:

navarro

Message:

english and nicer header (1)

File:

• trunk/SRC/ToBeReviewed/UTILITAIRE/vzoom.pro (modified) (3 diffs)

trunk/SRC/ToBeReviewed/UTILITAIRE/vzoom.pro

@@ -3 +3 @@
 ;------------------------------------------------------------
 ;+
-; NAME:vraizoom
 ;
-; PURPOSE:fait un vari zoom dans un plot, contrairement a la fonction
-; ZOOM  preecrite par IDL qui ne fait que grossir les pixels
+; @file_comments 
+; Make a real zoom in a plot, contrarly at the function 
+; ZOOM prewritten by IDL which just get pixels bigger.
 ;
-; CATEGORY:petit outil
+; @categories utilities
 ;
-; CALLING SEQUENCE:@vzoom
+; @restrictions use the journal.
+; @history Sebastien Masson (smasson@lodyc.jussieu.fr)
+;          29/4/1999
 ;
-; SIDE EFFECTS:utilise le journal. 
+; @version $Id$ 
 ;
-; RESTRICTIONS:
+; @todo seb
 ;
-; EXAMPLE:
-;
-; MODIFICATION HISTORY: Sebastien Masson (smasson@lodyc.jussieu.fr)
-;                       29/4/1999
 ;-
 ;------------------------------------------------------------
@@ -31 +29 @@
    y = y[sort(y)]
    domdef, [x, y, vert1, vert2]
-; il faut fermer le journal!
+; we must close the journal!
    journal
-; on recupere le journal sous la forme d''un vecteur de string:
+; we recuperate the journal as a vector of string:
    vectjournal = getfile(myuniquetmpdir+'idlsave.pro')
-; on coupe la derniere ligne qui est vraizoom
+; we cut the last line which is vraizoom
    vectjournal = vectjournal[0:n_elements(vectjournal)-2 ]
 ;------------------------------------------------------------
-; on le corrige si besoin est...
+; we correct it if there is the need to...
 ;------------------------------------------------------------
 for i = 0, n_elements(vectjournal)-1 do $
  if strpos(vectjournal[i],'text_box' ) EQ -1 then $
  vectjournal[i] = strtrim(strcompress(vectjournal[i]), 2)
-;2 lignes sont identiques ??
+;2 line are identical ??
 for i = 0, n_elements(vectjournal)-2 do $
  if vectjournal[i] EQ vectjournal[i+1] then vectjournal[i] = ' '
@@ -65 +63 @@
 
 ;
-; on reecrit idlsave.pro
+; we rewrite idlsave.pro
 putfile, myuniquetmpdir+'idlsave.pro', vectjournal
-; applique idlsave
+; apply idlsave
    cd,  current = curdir
    cd, myuniquetmpdir
 @idlsave   
    cd, curdir
-; le journal vient d'etre reouvert, et on y met les elements de
-; vectjournal 
+; the journal has just been reopened, and we put in elements of vectjournal. 
 for i = 0, n_elements(vectjournal)-1 DO $
 journal, vectjournal[i]