[2] | 1 | ;------------------------------------------------------------ |
---|
| 2 | ;------------------------------------------------------------ |
---|
| 3 | ;------------------------------------------------------------ |
---|
| 4 | ;+ |
---|
| 5 | ; NAME:closeps |
---|
| 6 | ; |
---|
| 7 | ; PURPOSE:ferme de l'environement Postscript |
---|
| 8 | ; |
---|
| 9 | ; CALLING SEQUENCE:closeps |
---|
| 10 | ; |
---|
| 11 | ; KEYWORD PARAMETERS: |
---|
| 12 | ; INFOWIDGET: un long integer qui doit etre l''id du windget |
---|
| 13 | ; que l''on souhaite detruire (cf. openps.pro) |
---|
| 14 | ; |
---|
| 15 | ; COMMON BLOCKS: |
---|
| 16 | ; common.pro |
---|
| 17 | ; |
---|
| 18 | ; SIDE EFFECTS: qd sauveps (variable globale) ne 0 les postscript est |
---|
| 19 | ; annopte par un numero qd il s''appelle idl.ps sinon par son nom. le |
---|
| 20 | ; nom est suivit de la date. |
---|
| 21 | ; |
---|
| 22 | ; MODIFICATION HISTORY: Sebastien Masson (smasson@lodyc.jussieu.fr) |
---|
| 23 | ; 21/12/98 |
---|
| 24 | ;- |
---|
| 25 | ;------------------------------------------------------------ |
---|
| 26 | ;------------------------------------------------------------ |
---|
| 27 | ;------------------------------------------------------------ |
---|
| 28 | pro closeps, INFOWIDGET = infowidget |
---|
| 29 | @common |
---|
| 30 | ;------------------------------------------------------------ |
---|
| 31 | ; si sauve ps different de 0 on sauve le ps sur maia automatiquement |
---|
| 32 | ; ou apres une question. |
---|
| 33 | ;------------------------------------------------------------ |
---|
| 34 | if sauveps NE 0 then begin |
---|
| 35 | ;------------------------------------------------------------ |
---|
| 36 | ; on recupere le nom du fichier postscript qui vient d''etre cree |
---|
| 37 | ; si ce nom est idl.ps on numerote le postscript avec le numero |
---|
| 38 | ; contenu dans derniernumps.dat |
---|
| 39 | ;------------------------------------------------------------ |
---|
| 40 | spawn,'which "ls"' , ls |
---|
| 41 | spawn,ls[0]+' -t '+psdir+'*ps' , nomps |
---|
| 42 | nomps = nomps[0] |
---|
| 43 | nomps = strmid(nomps,rstrpos(nomps,'/')+1) |
---|
| 44 | if nomps EQ 'idl.ps' then begin |
---|
| 45 | ; on recupere le numero du dernier fichier sauvegarde |
---|
| 46 | ; rq: ce numero est incremente uniquement qd on fait une impression |
---|
| 47 | restore,'derniernumps.dat' |
---|
| 48 | nomps = strtrim(numfichps, 1) |
---|
| 49 | endif |
---|
| 50 | ;------------------------------------------------------------ |
---|
| 51 | ; on annote le postscript |
---|
| 52 | ;------------------------------------------------------------ |
---|
| 53 | date = byte(systime(0)) ; on crecupere la date |
---|
| 54 | xyouts, !d.x_px_cm,!d.y_px_cm $ |
---|
| 55 | ,nomps+') '+string(date[4:10])+string(date[20:23]), /device, charsize = .75 |
---|
| 56 | endif |
---|
| 57 | ;------------------------------------------------------------ |
---|
| 58 | if !d.name EQ 'PS' then device,/close |
---|
| 59 | thisOS = strupcase(strmid(!version.os_family, 0, 3)) |
---|
| 60 | CASE thisOS of |
---|
| 61 | 'MAC': SET_PLOT, thisOS |
---|
| 62 | 'WIN': SET_PLOT, thisOS |
---|
| 63 | ELSE: SET_PLOT, 'X' |
---|
| 64 | ENDCASE |
---|
| 65 | tvlct, rouge, vert,bleu |
---|
| 66 | !p.font = -1 |
---|
| 67 | !p.BACKGROUND=(!d.n_colors-1) < 255 |
---|
| 68 | !p.color=0 |
---|
| 69 | if !d.n_colors gt 256 then !p.background='ffffff'x |
---|
| 70 | ;------------------------------------------------------------ |
---|
| 71 | if keyword_set(infowidget) then $ |
---|
| 72 | widget_control, long(infowidget), bad_id = toto, /destroy |
---|
| 73 | ;------------------------------------------------------------ |
---|
| 74 | return |
---|
| 75 | end |
---|