Open muyinliu opened 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)))