cdo/ham
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Define rotation transform

Browse Source
This commit is contained in:
Camden Dixie O'Brien 2025-05-29 01:14:30 +01:00
parent 8738229053
commit 668d369943
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
drawing.lisp
View File

@ -61,6 +61,10 @@
:y-transform (* scale-factor y) :y-transform (* scale-factor y)
:scalar-transform (* scale-factor s)) :scalar-transform (* scale-factor s))
(define-transform rotate (theta)
:x-transform (- (* x (cos theta)) (* y (sin theta)))
:y-transform (+ (* x (sin theta)) (* y (cos theta))))
(defun overlay (&rest drawings) (defun overlay (&rest drawings)
(apply #'append drawings)) (apply #'append drawings))