search

slyrus / opticl

An image processing library for Common Lisp
Other
182 stars 35 forks source link

image after rotate 90° has black border #8

Open muyinliu opened 10 years ago

muyinliu commented 10 years ago 
(let ((theta (/ PI 2)))
  (opticl:write-image-file 
   (format nil "rotate/rotateResult_~A.png" theta)
   (transform-image *image* 
            (reduce #'matrix-multiply 
                (list 
                 (make-affine-transformation :theta theta)))
            :transform-bounds t)))