Changeset 9364 for lang/perl/Imager-Filter-Bakumatsu

Timestamp:

04/13/08 00:58:46 (5 years ago)

Author:

tomi-ru

Message:

lang/perl/Imager-Filter-Bakumatsu: add test

Location:

lang/perl/Imager-Filter-Bakumatsu/trunk

Files:

• lib/Imager/Filter/Bakumatsu.pm (modified) (2 diffs)
• t/01_filter.t (added)
• t/sample-filterd.jpg (added)
• t/sample.jpg (added)

lang/perl/Imager-Filter-Bakumatsu/trunk/lib/Imager/Filter/Bakumatsu.pm

@@ -23 +23 @@
     $work = $work->convert(
         matrix => [
-            [ 1.7, 0, 0, 0 ], 
-            [ 0, 1.7, 0, 0 ], 
-            [ 0, 0, 1.7, 0 ], 
+            [ 1.7,   0,   0, 0 ], 
+            [   0, 1.7    0, 0 ], 
+            [   0,   0, 1.7, 0 ], 
         ],
     ); 
@@ -45 +45 @@
             [ 1 / 4, 1 / 2, 1 / 8, 0 ], 
             [ 1 / 4, 1 / 2, 1 / 8, 0 ], 
-            [     0,     0,     0, 1 ],
         ],
     ); 
-
+    
     $work->rubthrough(
         src => do {