diff --git a/drawing.lisp b/drawing.lisp
index 42349fd..9c2b975 100644
--- a/drawing.lisp
+++ b/drawing.lisp
@@ -61,6 +61,10 @@
                   :y-transform (* scale-factor y)
                   :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)
   (apply #'append drawings))