[bknr-cvs] hans changed trunk/projects/quickhoney/src/imageproc.lisp

[BKNR Commits]

Revision: 3848
Author: hans
URL: http://bknr.net/trac/changeset/3848

Change cutout button area for non-pixel pictures.

U   trunk/projects/quickhoney/src/imageproc.lisp

Modified: trunk/projects/quickhoney/src/imageproc.lisp
===================================================================
--- trunk/projects/quickhoney/src/imageproc.lisp	2008-09-08 16:30:08 UTC (rev 3847)
+++ trunk/projects/quickhoney/src/imageproc.lisp	2008-09-08 16:43:45 UTC (rev 3848)
@@ -74,9 +74,9 @@
          (radius (parse-integer radius)))
     (copy-image input-image button-image
                 (floor (- (image-width input-image) cutout-width) 2)
-                (if (eq :vector category)
-                    0
-                    (floor (- (image-height input-image) cutout-height) 2))
+                (if (eq :pixel category)
+                    (floor (- (image-height input-image) cutout-height) 2)
+                    0)
                 0 0
                 cutout-width cutout-height
                 :resize t :resample t