summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ex/2/50.rkt7
1 files changed, 7 insertions, 0 deletions
diff --git a/ex/2/50.rkt b/ex/2/50.rkt
index 6db473d..a4f2433 100644
--- a/ex/2/50.rkt
+++ b/ex/2/50.rkt
@@ -36,3 +36,10 @@
(make-vect 1.0 1.0)
(make-vect 0.0 1.0)
(make-vect 1.0 0.0)))
+
+
+(define (counterclockwise-270 painter)
+ (transform-painter painter
+ (make-vect 1.0 0.0)
+ (make-vect 1.0 1.0)
+ (make-vect 0.0 0.0)))