【SICP练习】78 练习2.50

2015/09/08 21:49
阅读数 0


练习2.50

先来定义一个在水平方向上反转画家的函数。

(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 (rotate180 painter)

  (transform-painter painter

                    (make-vect 1.0 0.0)

                    (make-vect 0.0 1.0)

                    (make-vect 1.0 0.0)))

(define (rotate270 painter)

  (transform-painter painter

                    (make-vect 0.0 1.0)

                    (make-vect 0.0 0.0)

                    (make-vect 1.0 1.0)))

版权声明:本文为 NoMasp柯于旺 原创文章,未经许可严禁转载!欢迎访问我的博客:http://blog.csdn.net/nomasp

展开阅读全文
打赏
0
0 收藏
分享
加载中
更多评论
打赏
0 评论
0 收藏
0
分享
返回顶部
顶部