ex: 50.rkt: implement counterclockwise-180

1 files changed, 9 insertions, 0 deletions

diff --git a/ex/2/50.rkt b/ex/2/50.rkt
index d2b91a6..6db473d 100644
--- a/ex/2/50.rkt
+++ b/ex/2/50.rkt
@@ -16,14 +16,23 @@
                   (sub-vect (m corner1) new-origin)
                   (sub-vect (m corner2) new-origin)))))))
 
+
 (define (flip-vert painter)
   (transform-painter painter
                      (make-vect 0.0 1.0)
                      (make-vect 1.0 1.0)
                      (make-vect 0.0 0.0)))
 
+
 (define (flip-horiz painter)
   (transform-painter painter
                      (make-vect 1.0 0.0)
                      (make-vect 0.0 0.0)
                      (make-vect 1.0 1.0)))
+
+
+(define (counterclockwise-180 painter)
+  (transform-painter painter
+                     (make-vect 1.0 1.0)
+                     (make-vect 0.0 1.0)
+                     (make-vect 1.0 0.0)))