Changeset 16 for trunk/Postscript/closeps.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/Postscript/closeps.pro (copied) (copied from trunk/POSTSCRIPT/closeps.pro) (1 diff)

trunk/Postscript/closeps.pro

@@ -3 +3 @@
 ;------------------------------------------------------------
 ;+
-; NAME:closeps
+; NAME: closeps
 ;
-; PURPOSE:ferme de l'environement Postscript
+; PURPOSE: Close the Postscript mode
 ;
-; CALLING SEQUENCE:closeps
+; CALLING SEQUENCE: closeps
 ;
 ; KEYWORD PARAMETERS:
-;         INFOWIDGET: un long integer qui doit etre l''id du windget
-;         que l''on souhaite detruire (cf. openps.pro)
 ;
-; COMMON BLOCKS:
-;       common.pro
+;      INFOWIDGET: A long integer giving the id of the information
+;           widget (created by openps) that we have de destroy at 
+;           the end of closeps (when the postscript is done)
 ;
-; SIDE EFFECTS: qd sauveps (variable globale) ne 0 les postscript est
-; annopte par un numero qd il s''appelle idl.ps sinon par son nom. le
-; nom est suivit de la date.
+; COMMON BLOCKS: cm_4ps
+;
+; SIDE EFFECTS: when archive_ps ne 0, we add the name and the date
+;    at the bottom left corner of the postcript page. If the
+;    postscript is called idl.ps we change its name to number.ps
+;    (number automatically found to be 1 larger that any of the
+;     existing ps file)
 ;
 ; MODIFICATION HISTORY: Sebastien Masson (smasson@lodyc.jussieu.fr)
 ;                       21/12/98
+; June 2005: Sebastien Masson, english version with new commons 
 ;-
 ;------------------------------------------------------------
 ;------------------------------------------------------------
 ;------------------------------------------------------------
-pro closeps, INFOWIDGET = infowidget
-@common
+PRO closeps, INFOWIDGET = infowidget
+;
+   IF lmgr(/demo) EQ 1 THEN return
 ;------------------------------------------------------------
-; si sauve ps different de 0 on sauve le ps sur maia automatiquement
-; ou apres une question.
+; include commons
+@cm_4ps
+  IF NOT keyword_set(key_forgetold) THEN BEGIN
+@updatenew
+  ENDIF
+;
+  IF !d.name NE 'PS' THEN GOTO, last_part
 ;------------------------------------------------------------
-   if sauveps NE 0 then begin
+; if archive_ps /= 0 we will add its name and the date at the bottom
+; left corner of the page (in case if the postscript will be archived 
+; in printps 
 ;------------------------------------------------------------
-; on recupere le nom du fichier postscript qui vient d''etre cree
-; si ce nom est idl.ps on numerote le postscript avec le numero
-; contenu dans derniernumps.dat
+   IF keyword_set(archive_ps) THEN BEGIN
 ;------------------------------------------------------------
-      spawn,'which "ls"' , ls
-      spawn,ls[0]+' -t '+psdir+'*ps' , nomps
-      nomps = nomps[0]
-      nomps = strmid(nomps,rstrpos(nomps,'/')+1)
-      if nomps EQ 'idl.ps' then begin
-; on recupere le numero du dernier fichier sauvegarde
-; rq: ce numero est incremente uniquement qd on fait une impression
-         restore,'derniernumps.dat'
-         nomps = strtrim(numfichps, 1)
-      endif
+; we get the name of the latest created postscript. 
 ;------------------------------------------------------------
-; on annote le postscript
+     psdir = isadirectory(psdir, title = 'Select psdir')
+     nameps = file_search(psdir+'*.ps' $
+                          , /test_regular, /test_write, /nosort)
+     dates = (file_info(nameps)).mtime
+     lastdate = (reverse(sort(temporary(dates))))[0]
+     nameps = nameps[lastdate]
+     nameps = file_basename(nameps, '.ps')
+; If this name is idl.ps then we change it to the number.ps
+     IF nameps EQ 'idl' then BEGIN
+; get the name of all the *.ps or *.ps.gz files available in psdir
+       allps = file_search(psdir+'*[.ps|.ps.gz|.pdf]', /test_regular, /nosort)
+       allps = file_basename(file_basename(allps,'.gz'),'.ps')
+       allps = file_basename(allps,'.pdf')
+; find which of these names corresponds to numbers...
+; get ascii codes of the names
+       testnumb = byte(allps)
+; longest name
+       maxstrlen = (size(testnumb, /dimensions))[0]
+; ascii codes can be 0 or between byte('0') and byte('9')
+       testnumb = testnumb EQ 0 OR $
+                  (testnumb GE (byte('0'))[0] AND testnumb LE (byte('9'))[0])
+       testnumb = where(total(testnumb, 1) EQ maxstrlen, count)
+       IF count NE 0 THEN BEGIN
+; get the largest number
+         psnumber = fix(allps[testnumb])
+         psnumber = (psnumber[reverse(sort(psnumber))])[0] + 1
+       ENDIF ELSE psnumber = 0
+       nameps = strtrim(psnumber, 2)
+     ENDIF
 ;------------------------------------------------------------
-      date = byte(systime(0))   ; on crecupere la date
-      xyouts, !d.x_px_cm,!d.y_px_cm $
-       ,nomps+') '+string(date[4:10])+string(date[20:23]), /device, charsize = .75
-   endif
+; we annote the postscript
 ;------------------------------------------------------------
-   if !d.name EQ 'PS' then device,/close
+     date = byte(systime(0))    ; we get the date
+     xyouts, !d.x_px_cm, !d.y_px_cm $
+             , nameps+') '+string(date[4:10])+string(date[20:23]) $
+             , /device, charsize = .75
+   ENDIF
+;------------------------------------------------------------
+; close the postcript mode
+   device, /close
+;
+last_part:
+;
    thisOS = strupcase(strmid(!version.os_family, 0, 3))
    CASE thisOS of
-      'MAC': SET_PLOT, thisOS
-      'WIN': SET_PLOT, thisOS
-      ELSE: SET_PLOT, 'X'
-   ENDCASE
-   tvlct, rouge, vert,bleu
+     'MAC': SET_PLOT, thisOS
+     'WIN': SET_PLOT, thisOS
+     ELSE: SET_PLOT, 'X'
+   ENDCASE    
+   def_myuniquetmpdir
+   colorfile = myuniquetmpdir + 'original_colors.dat'
+   IF file_test(colorfile, /regular) THEN BEGIN
+     restore, colorfile
+     file_delete, colorfile, /quiet
+; reload the original colors
+     tvlct, red, green, blue
+   ENDIF
    !p.font = -1
+; force background color to the last color (white)
    !p.BACKGROUND=(!d.n_colors-1) < 255
    !p.color=0