您对图像的解释是正确的。图像由单位正方形中的线段组成,其中原点 (0, 0) 是左下角, (1, 1) 是右上角。
画家使用问题中给出的转换将图像映射到框架中。上面的einsten
图像是在默认框架(单位正方形)中绘制的,因此看起来很正常。
您可以通过三个步骤使用SICP 图片语言创建和显示图像:
- 定义线段列表
- 从这些线段创建一个线段画家
- 用新的段画师调用画图
我在博客文章SICP 2.49:定义原始画家中使用了几张简单的图像来做到这一点。这是一个仅使用两条线段的简单示例:
; The painter that draws an 'X' by connecting opposite corners of the frame.
(define x-segments
(list
(make-segment
(make-vect 0.0 0.0)
(make-vect 0.99 0.99))
(make-segment
(make-vect 0.0 0.99)
(make-vect 0.99 0.0))))
(define x-painter (segments->painter x-segments))
(paint x-painter)
这是我在 DrRacket 中运行最后一个命令时的结果:
您可以通过创建要绘制的新框架来翻转和旋转图像。
一帧由三个向量定义:
您可以使用文本中给出transform-painter
的函数(在标题为变换和组合画家的部分中)使用新的原点和边缘变换现有的分段画家。
(define (transform-painter painter origin corner1 corner2)
(lambda (frame)
(let ((m (frame-coord-map frame)))
(let ((new-origin (m origin)))
(painter
(make-frame new-origin
(sub-vect (m corner1) new-origin)
(sub-vect (m corner2) new-origin)))))))
例如,如果我想绘制向左旋转 45 度的原始爱因斯坦图像,我只需将einstein
分段绘制器连同新的原点、底部边缘和左侧边缘一起传递给transform-painter
它,它将返回一个新的分段绘制器。换句话说,我需要告诉transform-painter
在哪里绘制图像的左下角、右下角和左上角,它将完成在原始线段绘制器中转换所有线段的工作。
; rotate an image 45 degrees to the left
(define (rotate-45 painter)
((transform-painter (make-vect 0.5 0.0)
(make-vect 1.0 0.5)
(make-vect 0.0 0.5))
painter))
您可以执行命令(paint (rotate-45 einstein))
以查看旋转后的图像。