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