您对图像的解释是正确的。图像由单位正方形中的线段组成,原点 (0, 0) 为左下角,(1, 1) 为右上角。
画家使用问题中给出的转换将图像映射到框架中。上面的einsten 图像是在默认框架(单位正方形)中绘制的,因此看起来很正常。
您可以通过三个步骤使用The SICP Picture Language 创建和显示图像:
- 定义线段列表
- 根据这些线段创建线段绘制器
- 使用新的段绘制器调用绘制
我通过博客帖子SICP 2.49: Defining Primitive Painters 中的几张简单图片来做到这一点。这是一个仅使用两条线段的简单示例:
; 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 函数given in the text(在标题为转换和组合painters的部分中)使用新的原点和边缘来转换现有的segmentpainter。
(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))查看旋转后的图像。