Changeset 165

Timestamp:

09/04/06 15:42:18 (18 years ago)

Author:

smasson

Message:

bugfix of a bug introduced in revision 150

File:

• trunk/SRC/ToBeReviewed/POSTSCRIPT/ps.pro (modified) (7 diffs)

trunk/SRC/ToBeReviewed/POSTSCRIPT/ps.pro

@@ -28 +28 @@
 ; We have to close the journal!
 ;------------------------------------------------------------
-   if !journal EQ 0 then begin
-      print, 'Il n''y a pas de journal ouvert !!'
-      GOTO, sortie
+   if !journal EQ 0 then print, 'ERROR: The Journal is not open !!'
 journal
 ;------------------------------------------------------------
@@ -37 +35 @@
 ; We recuperate the journal as a vector of string :
 vectjournal = getfile(myuniquetmpdir+'idlsave.pro')
-FOR i = 0,n_elements(vectjournal)-1 DO  print, vectjournal[i]
+; FOR i = 0,n_elements(vectjournal)-1 DO  print, vectjournal[i]
 ;------------------------------------------------------------
 ; We cut the last line which is \@ps
@@ -49 +47 @@
  if strpos(vectjournal[i],'text_box' ) EQ -1 then $
  vectjournal[i] = strtrim(strcompress(vectjournal[i]), 2)
-FOR i = 0,n_elements(vectjournal)-1 DO print, vectjournal[i]
-;2 lines are identical ??
+; FOR i = 0,n_elements(vectjournal)-1 DO print, vectjournal[i]
+; if 2 lines are identical...
 for i = 0, n_elements(vectjournal)-2 do $
  if vectjournal[i] EQ vectjournal[i+1] then vectjournal[i] = ' '
-FOR i = 0,n_elements(vectjournal)-1 DO print, vectjournal[i]
+; FOR i = 0,n_elements(vectjournal)-1 DO print, vectjournal[i]
 ;
 for i = 0, n_elements(vectjournal)-1 do BEGIN & $
@@ -60 +58 @@
  OR strpos(vectjournal[i],'Illegal character' ) NE -1 $
  then BEGIN vectjournal[i] = ' ' & vectjournal[i-1] = ' ' & endif & endfor
-FOR i = 0,n_elements(vectjournal)-1 DO print, vectjournal[i]
+; FOR i = 0,n_elements(vectjournal)-1 DO print, vectjournal[i]
 for i = 0, n_elements(vectjournal)-1 do BEGIN & $
  if strpos(strtrim(vectjournal[i], 1),'retall' ) EQ 0 $
@@ -69 +67 @@
  OR strpos(vectjournal[i],'print' ) NE -1 $
  then  vectjournal[i] = ' ' & endfor
-FOR i = 0,n_elements(vectjournal)-1 DO print, vectjournal[i]
+; FOR i = 0,n_elements(vectjournal)-1 DO print, vectjournal[i]
 for i = 0, n_elements(vectjournal)-1 do BEGIN & $
  if strpos(strtrim(vectjournal[i], 1),'plt' ) NE -1 THEN BEGIN & $
@@ -76 +74 @@
  vectjournal[i] = vectjournal[i]+',/noerase' & $
  ENDIF & endfor
-FOR i = 0,n_elements(vectjournal)-1 DO print, vectjournal[i]
+; FOR i = 0,n_elements(vectjournal)-1 DO print, vectjournal[i]
 for i = 0, n_elements(vectjournal)-1 do BEGIN & $
  if strpos(vectjournal[i],'text_box' ) NE -1 then $
@@ -83 +81 @@
 
 ; We complete it to transform it in a procedure equivalent to plein2dessin
-   vectjournal = ['reinitplt, /z,/invert' $
    vectjournal = ['openps, infowidget= infowidget' $
                   , vectjournal $
                   ,'closeps, infowidget= infowidget' $
                   ,'printps' ]
-FOR i = 0,n_elements(vectjournal)-1 DO print, vectjournal[i]
+; FOR i = 0,n_elements(vectjournal)-1 DO print, vectjournal[i]
 ; We rewrite idlsave.pro
    putfile, myuniquetmpdir+'idlsave.pro', vectjournal