granicus.if.org Git - imagemagick/blob - PerlMagick/t/composite.t

   1 #!/usr/bin/perl
   2 #  Copyright 1999-2011 ImageMagick Studio LLC, a non-profit organization
   3 #  dedicated to making software imaging solutions freely available.
   4 #
   5 #  You may not use this file except in compliance with the License.  You may
   6 #  obtain a copy of the License at
   7 #
   8 #    http://www.imagemagick.org/script/license.php
   9 #
  10 #  Unless required by applicable law or agreed to in writing, software
  11 #  distributed under the License is distributed on an "AS IS" BASIS,
  12 #  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  13 #  See the License for the specific language governing permissions and
  14 #  limitations under the License.
  15 #
  16 BEGIN { $| = 1; $test=1; print "1..18\n"; }
  17 END {print "not ok $test\n" unless $loaded;}
  18 use Image::Magick;
  19 $loaded=1;
  20
  21 require 't/subroutines.pl';
  22
  23 chdir 't' || die 'Cd failed';
  24
  25 #
  26 # Add
  27 #
  28 testCompositeCompare('gradient:white-black',q/size=>"100x80"/,
  29   'input.miff', q//, q/, gravity=>'Center', compose=>'Add'/,
  30   'reference/composite/Add.miff', 0.1, 1.03);
  31 #
  32 # Atop
  33 #
  34 ++$test;
  35 testCompositeCompare('gradient:white-black',q/size=>"100x80"/,
  36   'input.miff', q//, q/, gravity=>'Center', compose=>'Atop'/,
  37   'reference/composite/Atop.miff', 0.1, 1.03);
  38
  39 #
  40 # Bumpmap
  41 #
  42 ++$test;
  43 testCompositeCompare('gradient:white-black',q/size=>"100x80"/,
  44   'input.miff', q//,q/, gravity=>'Center', compose=>'Bumpmap'/,
  45   'reference/composite/Bumpmap.miff', 0.1, 1.03);
  46
  47 #
  48 # Clear
  49 #
  50 ++$test;
  51 testCompositeCompare('gradient:white-black',q/size=>"100x80"/,
  52   'input.miff', q//, q/, gravity=>'Center', compose=>'Clear'/,
  53   'reference/composite/Clear.miff', 0.3, 1.03);
  54
  55 #
  56 # Copy
  57 #
  58 ++$test;
  59 testCompositeCompare('gradient:white-black',q/size=>"100x80"/,
  60   'input.miff', q//, q/, gravity=>'Center', compose=>'Copy'/,
  61   'reference/composite/Copy.miff', 0.1, 1.03);
  62
  63 #
  64 # CopyBlue
  65 #
  66 ++$test;
  67 testCompositeCompare('gradient:white-black',q/size=>"100x80"/,
  68   'input.miff', q//, q/, gravity=>'Center', compose=>'CopyBlue'/,
  69   'reference/composite/CopyBlue.miff', 0.1, 1.03);
  70
  71 #
  72 # CopyGreen
  73 #
  74 ++$test;
  75 testCompositeCompare('gradient:white-black',q/size=>"100x80"/,
  76   'input.miff', q//, q/, gravity=>'Center', compose=>'CopyGreen'/,
  77   'reference/composite/CopyGreen.miff', 0.1, 1.03);
  78
  79 #
  80 # CopyRed
  81 #
  82 ++$test;
  83 testCompositeCompare('gradient:white-black',q/size=>"100x80"/,
  84   'input.miff', q//, q/, gravity=>'Center', compose=>'CopyRed'/,
  85   'reference/composite/CopyRed.miff', 0.1, 1.03);
  86
  87 #
  88 # CopyOpacity
  89 #
  90 ++$test;
  91 testCompositeCompare('gradient:white-black',q/size=>"100x80"/,
  92   'input.miff', q//, q/, gravity=>'Center', compose=>'CopyOpacity'/,
  93   'reference/composite/CopyOpacity.miff', 0.1, 1.03);
  94
  95 #
  96 # Difference
  97 #
  98 ++$test;
  99 testCompositeCompare('gradient:white-black',q/size=>"100x80"/,
 100   'input.miff', q//, q/, gravity=>'Center', compose=>'Difference'/,
 101   'reference/composite/Difference.miff', 0.1, 1.03);
 102
 103 #
 104 # In
 105 #
 106 ++$test;
 107 testCompositeCompare('gradient:white-black',q/size=>"100x80"/,
 108   'input.miff', q//, q/, gravity=>'Center', compose=>'In'/,
 109   'reference/composite/In.miff', 0.1, 1.03);
 110
 111 #
 112 # Minus
 113 #
 114 ++$test;
 115 testCompositeCompare('gradient:white-black',q/size=>"100x80"/,
 116   'input.miff', q//, q/, gravity=>'Center', compose=>'Minus'/,
 117   'reference/composite/Minus.miff', 0.3, 1.03);
 118
 119 #
 120 # Multiply
 121 #
 122 ++$test;
 123 testCompositeCompare('gradient:white-black',q/size=>"100x80"/,
 124   'input.miff', q//, q/, gravity=>'Center', compose=>'Multiply'/,
 125   'reference/composite/Multiply.miff', 0.1, 1.03);
 126
 127 #
 128 # Out
 129 #
 130 ++$test;
 131 testCompositeCompare('gradient:white-black',q/size=>"100x80"/,
 132   'input.miff', q//, q/, gravity=>'Center', compose=>'Out'/,
 133   'reference/composite/Out.miff', 0.3, 1.03);
 134
 135 #
 136 # Over
 137 #
 138 ++$test;
 139 testCompositeCompare('gradient:white-black',q/size=>"100x80"/,
 140   'input.miff', q//, q/, gravity=>'Center', compose=>'Over'/,
 141   'reference/composite/Over.miff', 0.1, 1.03);
 142
 143 #
 144 # Plus
 145 #
 146 ++$test;
 147 testCompositeCompare('gradient:white-black',q/size=>"100x80"/,
 148   'input.miff', q//, q/, gravity=>'Center', compose=>'Plus'/,
 149   'reference/composite/Plus.miff', 0.1, 1.03);
 150
 151 #
 152 # Subtract
 153 #
 154 ++$test;
 155 testCompositeCompare('gradient:white-black',q/size=>"100x80"/,
 156   'input.miff', q//, q/, gravity=>'Center', compose=>'Subtract'/,
 157   'reference/composite/Subtract.miff', 0.1, 1.03);
 158
 159 #
 160 # Xor
 161 #
 162 ++$test;
 163 testCompositeCompare('gradient:white-black',q/size=>"100x80"/,
 164   'input.miff', q//, q/, gravity=>'Center', compose=>'Xor'/,
 165   'reference/composite/Xor.miff', 0.3, 1.03);
 166
 167 1;