summaryrefslogtreecommitdiffstats
path: root/ex
diff options
context:
space:
mode:
Diffstat (limited to 'ex')
-rw-r--r--ex/2/50.rkt5
-rw-r--r--ex/2/51.rkt9
2 files changed, 13 insertions, 1 deletions
diff --git a/ex/2/50.rkt b/ex/2/50.rkt
index 3a67578..70c23db 100644
--- a/ex/2/50.rkt
+++ b/ex/2/50.rkt
@@ -2,7 +2,10 @@
#lang racket
-(provide transform-painter)
+(provide
+ transform-painter
+ counterclockwise-180
+ counterclockwise-270)
(require "46.rkt")
(require "47.rkt")
diff --git a/ex/2/51.rkt b/ex/2/51.rkt
index 975c064..8f28d76 100644
--- a/ex/2/51.rkt
+++ b/ex/2/51.rkt
@@ -43,3 +43,12 @@
(lambda (frame)
(paint-above frame)
(paint-below frame)))))
+
+
+;;; below in terms of rotate operations
+(define (below-rot painter1 painter2)
+ (let ((painter1-270 (counterclockwise-270 painter1))
+ (painter2-270 (counterclockwise-270 painter2)))
+ (counterclockwise-270
+ (counterclockwise-180
+ (beside painter1-270 painter2-270)))))