src/ImageUtility/ImageUtility.cdl

   1 -- File:        ImageUtility.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 ImageUtility
   8
   9
  10 uses
  11         TCollection,
  12         Image,
  13         AlienImage,
  14         OSD,
  15         Aspect
  16
  17 is
  18
  19         class XPR ;
  20                 --- Purpose : perform a "xpr " with a XAlienImage build
  21                 --               from any Image , any AlienImage .
  22
  23         class XWUD ;
  24                 --- Purpose : perform a "xwud " with a XAlienImage build
  25                 --               from any Image , any AlienImage .
  26
  27         class XWD ;
  28                 --- Purpose : perform a "xwd " and create Image and XAlienImage.
  29
  30         class X11Dump ;
  31                 --- Purpose : Create a X11 Window and perform a XPutImage on it,
  32                 --            from any Image , any AlienImage .
  33
  34         imported X11Window ;
  35                 --- Xlib.h : Window type
  36
  37         imported X11Display ;
  38                 --- Xlib.h : Display type
  39
  40         imported X11XImage ;
  41                 --- Xlib.h : XImage type
  42
  43         imported X11GC ;
  44                 --- Xlib.h : XImage type
  45
  46         PixelDiff( aImage       : immutable Image from Image ;
  47                    anotherImage : immutable Image from Image )
  48                 returns mutable PseudoColorImage from Image
  49                 --- Purpose : Create a Black & White Image from two Image.
  50                 --            Resulting Image Pixel is set to 0 if Pixel from
  51                 --            both Image are the same else set to 1 .
  52                 raises TypeMismatch from Standard;
  53
  54         PixelColorDiff( aImage       : immutable Image from Image ;
  55                         anotherImage : immutable Image from Image )
  56                 returns mutable PseudoColorImage from Image
  57                 --- Purpose : Create a Black & White Image from two Image.
  58                 --            Resulting Image Pixel is set to 0 if PixelColor
  59                 --            from both Image are the same else set to 1 .
  60                 raises TypeMismatch from Standard;
  61
  62         PixelColorDiff( aImage       : immutable Image from Image ;
  63                         anotherImage : immutable Image from Image ;
  64                         aCRColorMap  : immutable ColorRampColorMap from Aspect )
  65                 returns mutable PseudoColorImage from Image
  66                 --- Purpose : Create a ColorRamp Image from two Image.
  67                 --            Resulting Image Pixel Index is proportional
  68                 --            to the (Red+Green_Blue)Image Differences scaling
  69                 --            to the ColorRamp range.
  70                 raises TypeMismatch from Standard;
  71
  72         PixelColorDiff( aImage       : immutable Image from Image ;
  73                         anotherImage : immutable Image from Image ;
  74                         aCRColorMap  : immutable ColorRampColorMap from Aspect ;
  75                         RedDiff      : out mutable PseudoColorImage from Image ;
  76                         GreenDiff    : out mutable PseudoColorImage from Image ;
  77                         BlueDiff     : out mutable PseudoColorImage from Image )
  78                 --- Purpose : Create a ColorRamp Images from two Image.
  79                 --            Resulting Image Pixel Index is proportional
  80                 --            to the Image Differences scaling to the
  81                 --            ColorRamp range.
  82                 raises TypeMismatch from Standard;
  83
  84
  85 end ;