source: trunk/SRC/Obsolete/imprime.pro @ 74

Last change on this file since 74 was 16, checked in by pinsard, 18 years ago

upgrade of POSTSCRIPT/Postscript according to cerbere.lodyc.jussieu.fr: /usr/home/smasson/SAXO_RD/ : files
  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 1.1 KB
Line 
1;------------------------------------------------------------
2;------------------------------------------------------------
3;------------------------------------------------------------
4;+
5; NAME:
6;       imprime
7;
8; PURPOSE:
9;       obsolete, use printps instead...
10;       
11; MODIFICATION HISTORY:
12; June 2005: Sebastien Masson, english version
13;-
14;------------------------------------------------------------
15;------------------------------------------------------------
16;------------------------------------------------------------
17PRO imprime, filename, TRANS = trans, NB = nb
18;
19; this is working only with unix/linux/osX machines
20  thisOS = strupcase(strmid(!version.os_family, 0, 3))
21  CASE thisOS OF
22    'MAC':return
23    'WIN':return
24    ELSE:
25  ENDCASE
26;------------------------------------------------------------
27; call printps
28;------------------------------------------------------------
29  CASE N_PARAMS() OF
30    0:printps
31    1:printps, filename
32    ELSE: BEGIN
33      ras = report('imprime accept only one element: psfilename')
34      return
35    END
36  ENDCASE       
37;------------------------------------------------------------
38  return
39END
40
41
Note: See TracBrowser for help on using the repository browser.