0023022: This is desirable to access OpenGl extensions and core API (1.2+) in one...
[occt.git] / src / ImageUtility / ImageUtility_XPR.cdl
1 --
2 -- File:        ImageUtility_XPR.cdl
3 -- Created:     23/03/93
4 -- Author:      BBL,JLF
5 --
6 ---Copyright:   Matravision 1993
7 --
8
9 class XPR from ImageUtility
10
11         ---Version: 0.0
12
13         ---Purpose: Performs a "xpr" with a XAlienImage build
14         --               from any Image , any AlienImage .
15
16         ---Keywords:
17         ---Warning:
18         ---References:
19
20 uses
21         AlienUserImage  from AlienImage,
22         XAlienImage     from AlienImage,
23         File            from OSD,
24         Image           from Image
25
26 raises
27         TypeMismatch    from Standard
28
29 is
30         XPR ( myclass ; aImage          : in Image from Image; 
31                         aName           : CString from Standard;
32                         xprOptions      : CString from Standard 
33                                                 = "" ) ;
34         ---Level: Internal
35           ---Purpose: Write content of a Image object to aTmpFile and
36           --          execute a Spawn "xpr xprOptions aTmpFile | lpr &" .
37
38         XPR ( myclass ; aAlienUserImage : in AlienUserImage from AlienImage; 
39                         aName           : CString from Standard ;
40                         xprOptions      : CString from Standard 
41                                                 = "" ) ;
42         ---Level: Internal
43           ---Purpose: Write content of a  AlienImage object to aTmpFile and
44           --          execute a Spawn "xpr xprOptions aTmpFile| lpr  &" .
45
46         XPR ( myclass ; aXAlienImage    : in XAlienImage from AlienImage ;
47                         xprOptions      : CString from Standard 
48                                                 = "" ) ;
49         ---Level: Internal
50           ---Purpose: Write content of a  XAlienImage object to aTmpFile and
51           --          execute a Spawn "xpr xprOptions aTmpFile| lpr  &" .
52
53         XPR ( myclass ; aFile           : in File from OSD ;
54                         xprOptions      : CString from Standard 
55                                                 = "" ) ;
56         ---Level: Internal
57           ---Purpose: execute a Spawn 
58           --    "xpr xprOptions /aFile.SystemName()/ | lpr &" .
59
60         XPR ( myclass ; aFileName       : CString from Standard ;
61                         xprOptions      : CString from Standard 
62                                                 = "" ) ;
63         ---Level: Internal
64           ---Purpose: execute a Spawn "xpr xprOptions aFileName | lpr &" .
65
66
67
68 end ;