diff options
author | siddharth ravikumar <s@ricketyspace.net> | 2022-07-12 23:55:56 -0400 |
---|---|---|
committer | siddharth ravikumar <s@ricketyspace.net> | 2022-07-12 23:55:56 -0400 |
commit | 42f89feb911090f5918356b12de0514281deaf37 (patch) | |
tree | 91fbc8f29ece230e97900cfd132219fcb7b9a24d /ex/2/51.rkt | |
parent | e994669de932a464fa01bcfcf30a09b6b742436d (diff) |
ex: 51.rkt: implement `below-rot`
Diffstat (limited to 'ex/2/51.rkt')
-rw-r--r-- | ex/2/51.rkt | 9 |
1 files changed, 9 insertions, 0 deletions
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))))) |