From 42f89feb911090f5918356b12de0514281deaf37 Mon Sep 17 00:00:00 2001
From: siddharth ravikumar <s@ricketyspace.net>
Date: Tue, 12 Jul 2022 23:55:56 -0400
Subject: ex: 51.rkt: implement `below-rot`

---
 ex/2/51.rkt | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'ex/2/51.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)))))
-- 
cgit v1.2.3