source:
trunk/SRC/Obsolete/imprime.pro
@
327
Last change on this file since 327 was 327, checked in by pinsard, 17 years ago | |
---|---|
|
|
File size: 894 bytes |
Rev | Line | |
---|---|---|
[2] | 1 | ;+ |
[232] | 2 | ; |
[127] | 3 | ; @file_comments |
4 | ; use printps instead... | |
5 | ; | |
[97] | 6 | ; @obsolete |
[2] | 7 | ; |
[118] | 8 | ; @param filename {in}{required} |
9 | ; | |
10 | ; @keyword TRANS | |
11 | ; | |
12 | ; @keyword NB | |
13 | ; | |
[231] | 14 | ; @uses |
15 | ; printps | |
[118] | 16 | ; |
[97] | 17 | ; @history |
[16] | 18 | ; June 2005: Sebastien Masson, english version |
[118] | 19 | ; |
[231] | 20 | ; @version |
21 | ; $Id$ | |
[118] | 22 | ; |
[2] | 23 | ;- |
[327] | 24 | PRO imprime, filename, TRANS=trans, NB=nb |
[2] | 25 | ; |
[16] | 26 | ; this is working only with unix/linux/osX machines |
[114] | 27 | ; |
28 | compile_opt idl2, strictarrsubs, obsolete | |
29 | ; | |
[16] | 30 | thisOS = strupcase(strmid(!version.os_family, 0, 3)) |
[118] | 31 | CASE thisOS OF |
[16] | 32 | 'MAC':return |
33 | 'WIN':return | |
34 | ELSE: | |
35 | ENDCASE | |
[2] | 36 | ;------------------------------------------------------------ |
[16] | 37 | ; call printps |
[2] | 38 | ;------------------------------------------------------------ |
[16] | 39 | CASE N_PARAMS() OF |
40 | 0:printps | |
41 | 1:printps, filename | |
[118] | 42 | ELSE: BEGIN |
[16] | 43 | ras = report('imprime accept only one element: psfilename') |
44 | return | |
[118] | 45 | END |
46 | ENDCASE | |
[2] | 47 | ;------------------------------------------------------------ |
[16] | 48 | return |
49 | END | |
[2] | 50 | |
51 |
Note: See TracBrowser
for help on using the repository browser.