;------------------------------------------------------------
;------------------------------------------------------------
;------------------------------------------------------------
;+
; @file_comments  use printps instead...
; @obsolete
;
; @history
; June 2005: Sebastien Masson, english version
;-
;------------------------------------------------------------
;------------------------------------------------------------
;------------------------------------------------------------
PRO imprime, filename, TRANS = trans, NB = nb
;
; this is working only with unix/linux/osX machines
  thisOS = strupcase(strmid(!version.os_family, 0, 3))
  CASE thisOS OF 
    'MAC':return
    'WIN':return
    ELSE:
  ENDCASE
;------------------------------------------------------------
; call printps
;------------------------------------------------------------
  CASE N_PARAMS() OF
    0:printps
    1:printps, filename
    ELSE: BEGIN 
      ras = report('imprime accept only one element: psfilename')
      return
    END 
  ENDCASE       
;------------------------------------------------------------
  return
END