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

Timestamp:

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

Author:

navarro

Message:

english and nicer header (1)

File:

• trunk/SRC/ToBeReviewed/UTILITAIRE/oups.pro (modified) (2 diffs)

trunk/SRC/ToBeReviewed/UTILITAIRE/oups.pro

@@ -1 @@
-;------------------------------------------------------------
-;------------------------------------------------------------
-;------------------------------------------------------------
 ;+
-; NAME:oups
 ;
-; PURPOSE: Sorte de UNDO:
-; permet de refaire toute la serie de dessin depuis
-; l''ouverture de la derniere fenetre sans reexecuter la derniere
-; commande. cf. je fais un dessin avec 10 plt dessus au 10 eme je me
-; plante, un coup de @oups et je peux refaire mon plt rate!
+; @file_comments 
+;       Kind of UNDO:
+;         Allows to redo all the chain of drawing since the opening of the last window without 
+;         reexecute the last order Example: I do a drawing with 10 plot over it, if I make a 
+;         mistake, I execute this program and i can redo the only plot missed.
 ;
-; CATEGORY: pour faciliter les dessins
+; @categories utilities
 ;
-; CALLING SEQUENCE: @oups
+; @restrictions compatible with @ps @vzoom text_box...
 ;
-; SIDE EFFECTS: compatible avec @ps @vzoom text_box...
+; @history Sebastien Masson (smasson@lodyc.jussieu.fr)
 ;
-; RESTRICTIONS:
 ;
-; EXAMPLE:
+; @version $Id$
 ;
-; MODIFICATION HISTORY: Sebastien Masson (smasson@lodyc.jussieu.fr)
+; @todo seb
 ;
 ;-
 ;------------------------------------------------------------
-;------------------------------------------------------------
-;------------------------------------------------------------
-;------------------------------------------------------------
-; il faut fermer le journal!
+; 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 oups
+; we cut the last line which is oups
    vectjournal = vectjournal[0:n_elements(vectjournal)-2 ]
 ;------------------------------------------------------------
-; on le corrige si besoin est...
+; we correct it if there is the need...
 ;------------------------------------------------------------
 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] = ' '
@@ -62 +54 @@
 
 ;
-; on vire la derniere ligne pour tout reexecuter sauf la derniere commande
+; we erase the last line to reexecute all the programm but the last order.
 ;
  IF strpos(vectjournal[n_elements(vectjournal)-1],';,pos=[' ) NE -1 then $
  vectjournal[n_elements(vectjournal)-2] = '' $
  ELSE vectjournal[n_elements(vectjournal)-1] = '' 
-; on reecrit idlsave.pro
+; we rewrite idlsave.pro
 putfile, myuniquetmpdir+'idlsave.pro', vectjournal
-; on compile puis applique idlsave
+; we compile, then we 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 elements of vectjournal in it. 
 for i = 0, n_elements(vectjournal)-1 DO $
 journal, vectjournal[i]