Changeset 16 for trunk/ToBeReviewed/POSTSCRIPT/ps.pro

Timestamp:

05/02/06 11:17:47 (18 years ago)

Author:

pinsard

Message:

upgrade of POSTSCRIPT/Postscript according to cerbere.lodyc.jussieu.fr: /usr/home/smasson/SAXO_RD/ : files

File:

• trunk/ToBeReviewed/POSTSCRIPT/ps.pro (copied) (copied from trunk/POSTSCRIPT/ps.pro) (2 diffs)

trunk/ToBeReviewed/POSTSCRIPT/ps.pro

@@ -46 +46 @@
 ;------------------------------------------------------------
 ; on recupere le journal sous la forme d''un vecteur de string:
-vectjournal = getfile(homedir+'idlsave.pro')
+vectjournal = getfile(myuniquetmpdir+'idlsave.pro')
 ;FOR i = 0,n_elements(vectjournal)-1 DO  print, vectjournal[i]
 ;------------------------------------------------------------
 ; on coupe la derniere ligne qui est @ps
 ;------------------------------------------------------------
-vectjournal = vectjournal[0:n_elements(vectjournal)-2 ]
+IF strpos(vectjournal[n_elements(vectjournal)-1],'@ps') ne -1 then $
+  vectjournal = vectjournal[0:n_elements(vectjournal)-2 ]
 ;------------------------------------------------------------
 ; on le corrige si besoin est...
@@ -92 +93 @@
 
 ; on le complete pour le transformer en une procedure equivalente a plein2dessin
-   vectjournal = ['reinitplt, /z,/invert' $
-                  ,'openps, infowidget= infowidget' $
+;   vectjournal = ['reinitplt, /z,/invert' $
+   vectjournal = ['openps, infowidget= infowidget' $
                   , vectjournal $
                   ,'closeps, infowidget= infowidget' $
-                  ,'imprime' ]
+                  ,'printps' ]
 ;FOR i = 0,n_elements(vectjournal)-1 DO print, vectjournal[i]
 ; on reecrit idlsave.pro
-   putfile, homedir+'idlsave.pro', vectjournal
+   putfile, myuniquetmpdir+'idlsave.pro', vectjournal
 ; applique idlsave
-   cd, homedir
+   cd,  current = curdir
+   cd, myuniquetmpdir
 @idlsave   
+   cd, curdir
 ; on reouvre le journal et on y met les elements de
 ; vectjournal sauf les 2 premieres lignes et les 3 dernieres lignes
-journal
+journal, myuniquetmpdir+'idlsave.pro'
 for i = 2, n_elements(vectjournal)-3 DO $
 printf,  !journal, vectjournal[i]