src/AlienImage/AlienImage.cdl

   1 -- File:        AlienImage.cdl
   2 -- Created:     Tue Jul 27 18:51:28 1993
   3 -- Author:      Jean Louis FRENKEL
   4 --              <jlf@sparc3>
   5 ---Copyright:    Matra Datavision 1993
   6
   7 package AlienImage
   8
   9         ---Purpose: This package allows importation of images
  10         --          from some other format into CAS.CADE format.
  11
  12 uses
  13     Image,
  14     TColStd,
  15     TCollection,
  16     Aspect,
  17     OSD,
  18     MMgt
  19
  20 is
  21
  22         ------------------------
  23         ---Category: The classes
  24         ------------------------
  25
  26         deferred class AlienImage;
  27         ---Purpose: Define the general methods on AlienImage
  28
  29         deferred class AlienImageData  ;
  30         ---Purpose: Internal Definition of  AlienImage.
  31
  32         deferred class AlienUserImage  ;
  33         ---Purpose: Public Definition of  AlienImage.
  34
  35 --      class PSAlienImage;
  36         ---Purpose: Definition of PostScript AlienImage.
  37
  38         class SunRFAlienData;
  39         ---Purpose: Private definition of Sun Raster File .rs AlienImage.
  40
  41         class SunRFAlienImage;
  42         ---Purpose: Public definition of Sun Raster File .rs AlienImage.
  43
  44         class EuclidAlienData;
  45         ---Purpose: Private definition of Euclid .pix AlienImage.
  46
  47         class EuclidAlienImage;
  48         ---Purpose: Public definition of Euclid .pix AlienImage.
  49
  50         class SGIRGBAlienData;
  51         ---Purpose: Private definition of SGI .rgb AlienImage.
  52
  53         class SGIRGBAlienImage;
  54         ---Purpose: Public definition of SGI .rgb AlienImage.
  55
  56         class X11XWDAlienData;
  57         ---Purpose: Private definition X11 .xwd AlienImage .
  58
  59         class XAlienImage;
  60         ---Purpose: Public definition X11 .xwd AlienImage.
  61
  62         class AidaAlienData;
  63         ---Purpose: Private definition of Aida .i AlienImage .
  64
  65         class AidaAlienImage;
  66         ---Purpose: Public definition of Aida .i AlienImage.
  67
  68         class MemoryOperations;
  69         ---Purpose: A set of function to swap byte in memory, used for
  70         --          comaptibility between LSBFirst and MSBFirst .
  71
  72
  73
  74
  75         private class BMPAlienData;
  76         ---Purpose: Private definition of windows .bmp AlienImage.
  77
  78         private class GIFAlienData;
  79         ---Purpose: Private definition of windows .gif AlienImage.
  80
  81         class BMPAlienImage;
  82         ---Purpose: Public definition of windows .bmp AlienImage.
  83
  84         class GIFAlienImage;
  85         ---Purpose: Public definition of windows .gif AlienImage.
  86
  87
  88
  89
  90         ---Category: Imported types:
  91         imported GIFLZWDict;
  92         imported BMPHeader;
  93
  94         imported X11XColor ;
  95         imported X11XWDFileHeader ;
  96         imported SGIRGBFileHeader ;
  97         imported SUNRFFileHeader ;
  98
  99         enumeration SUNRFFormat is      SUNRF_Old,
 100                                         SUNRF_Standard,
 101                                         SUNRF_ByteEncoded,
 102                                         SUNRF_RGB,
 103                                         SUNRF_Unknown
 104         end SUNRFFormat ;
 105 ---Purpose: Type of code for a SUNRF image.
 106
 107         ----------------------------
 108         ---Category: Package methods
 109         ----------------------------
 110         CreateImage (theFileName :     AsciiString from TCollection;
 111                      theImage    : out Image from Image)
 112         returns Boolean from Standard;
 113         ---Purpose:
 114
 115         CreateImage (theFileName :     CString from Standard;
 116                      theImage    : out Image from Image)
 117         returns Boolean from Standard;
 118         ---Purpose:
 119
 120         CreateImage (theFile  : in out File from OSD;
 121                      theImage :    out Image from Image)
 122         returns Boolean from Standard;
 123         ---Purpose:
 124
 125         LoadImageFile (anImageFile :     CString     from Standard;
 126                        anImage     : out Image       from Image;
 127                        aWidth      : out Integer     from Standard;
 128                        aHeight     : out Integer     from Standard
 129         ) returns Boolean from Standard;
 130         ---Purpose: Used by plotter drivers
 131
 132 end AlienImage;
 133