diff options
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))))) |