diff options
| author | siddharth ravikumar <s@ricketyspace.net> | 2022-06-13 20:30:56 -0400 |
|---|---|---|
| committer | siddharth ravikumar <s@ricketyspace.net> | 2022-06-13 20:30:56 -0400 |
| commit | 4ce415d7264d8b6db516a5572815d8d5ffaa3227 (patch) | |
| tree | fe1beeecabbca768181365bcbf94f208ac5efab8 /ex/2 | |
| parent | 8ca00a84a20ac1db94a5ef2e677f44713f7df455 (diff) | |
ex: 50.rkt: implement counterclockwise-180
Diffstat (limited to 'ex/2')
| -rw-r--r-- | ex/2/50.rkt | 9 |
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))) |