【SICP练习】78 练习2.50



练习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