summaryrefslogtreecommitdiffstats
path: root/ex
diff options
context:
space:
mode:
authorsiddharth ravikumar <s@ricketyspace.net>2022-06-13 20:30:56 -0400
committersiddharth ravikumar <s@ricketyspace.net>2022-06-13 20:30:56 -0400
commit4ce415d7264d8b6db516a5572815d8d5ffaa3227 (patch)
treefe1beeecabbca768181365bcbf94f208ac5efab8 /ex
parent8ca00a84a20ac1db94a5ef2e677f44713f7df455 (diff)
ex: 50.rkt: implement counterclockwise-180
Diffstat (limited to 'ex')
-rw-r--r--ex/2/50.rkt9
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)))