1 -- Created on: 1993-03-23
3 -- Copyright (c) 1993-1999 Matra Datavision
4 -- Copyright (c) 1999-2012 OPEN CASCADE SAS
6 -- The content of this file is subject to the Open CASCADE Technology Public
7 -- License Version 6.5 (the "License"). You may not use the content of this file
8 -- except in compliance with the License. Please obtain a copy of the License
9 -- at http://www.opencascade.org and read it completely before using this file.
11 -- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
12 -- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
14 -- The Original Code and all software distributed under the License is
15 -- distributed on an "AS IS" basis, without warranty of any kind, and the
16 -- Initial Developer hereby disclaims all such warranties, including without
17 -- limitation, any warranties of merchantability, fitness for a particular
18 -- purpose or non-infringement. Please see the License for the specific terms
19 -- and conditions governing the rights and limitations under the License.
21 -- Modified: 02-06-98 : FMN ; Suppression appel Clear (deja fait dans ALienData)
23 class EuclidAlienImage from AlienImage inherits AlienUserImage from AlienImage
27 ---Purpose: This class defines an Euclid Alien image.
34 AsciiString from TCollection,
35 ColorImage from Image,
36 PseudoColorImage from Image,
38 EuclidAlienData from AlienImage
41 Create returns mutable EuclidAlienImage from AlienImage;
43 Clear( me : in out mutable) ;
45 ---Purpose: Frees memory allocated by EuclidAlienImage
47 ToImage( me : in immutable )
48 returns mutable Image from Image ;
50 ---Purpose : Converts a EuclidAlienImage object to a Image object.
52 FromImage( me : in out mutable ; anImage : in Image from Image ) ;
54 ---Purpose : converts a Image object to a EuclidAlienImage object.
56 Read ( me : in out mutable; afile : in out File from OSD )
57 returns Boolean from Standard ;
58 ---Purpose: Reads content of a EuclidAlienImage object
60 -- Returns True if file is a Euclid file .
62 Write( me : in immutable; afile : in out File from OSD )
63 returns Boolean from Standard ;
64 ---Purpose: Writes content of a EuclidAlienImage object
68 myData : EuclidAlienData from AlienImage ;