diff options
| -rw-r--r-- | ex/2/50.rkt | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/ex/2/50.rkt b/ex/2/50.rkt index 6db473d..a4f2433 100644 --- a/ex/2/50.rkt +++ b/ex/2/50.rkt @@ -36,3 +36,10 @@ (make-vect 1.0 1.0) (make-vect 0.0 1.0) (make-vect 1.0 0.0))) + + +(define (counterclockwise-270 painter) + (transform-painter painter + (make-vect 1.0 0.0) + (make-vect 1.0 1.0) + (make-vect 0.0 0.0))) |