麻省理工学院的计划画线

Question

有没有人使用麻省理工学院的方案成功地使拉线工作？

https ://mitpress.mit.edu/sites/default/files/sicp/full-text/book/book-ZH-15.html#%_sec_2.2.4

Answer 1

关键词是：

例如，假设我们有一个绘制线过程，它在屏幕上的两个指定点之间绘制一条线。

换句话说，不存在画线——这纯粹是假设。

Answer 2

我使用了 scmutils由杰拉尔德·苏斯曼提供。这是他的经典力学课程中使用的数值和代数包，并且对 绘制图表。

假设你已经定义了 make-vect 和 make-seg

(define line (make-seg (make-vect 2 3) (make-vect 4 1)))

(define win1 (frame -5 5 -5 5))

(define (draw-line frame a b)
  (plot-line frame (xcor a) (ycor a) (xcor b) (ycor b))
)

这是我实现图片语言后得到的

Answer 3

有一个实际的 MIT 计划包由本书作者针对本书该部分的图片语言 (SICP 第 2.2.4 节）。然而，该软件包是在 1993 年编写的，我没有运气让它在我的 Mac OS High Sierra 上运行。

然而，其他人专门为这本书的这一部分制作了一个更新的软件包，包括所有功能，包括画线，您实际上可以制作图片并使用它们。下载racket，并运行以下命令：

(require (planet "sicp.ss" ("soegaard" "sicp.plt" 2 1)))  

有关更多信息，请参阅这个非常棒的软件包的用户手册。

Answer 4

在阅读本书的这一部分时，我决定使用 draw-line 生成可在 HTML 画布上绘制的 JavaScript 代码。

(define (draw-line v1 v2)
  (newline)
  (display "ctx.beginPath();")
  (display (string-append "ctx.moveTo(" (number->string (xcor-vect v1)) "," (number->string (ycor-vect v1)) ");"))
  (display (string-append "ctx.lineTo(" (number->string (xcor-vect v2)) "," (number->string (ycor-vect v2)) ");"))
  (display "ctx.stroke();"))

毕竟，draw-line 的具体实现方式对于使用它的程序来说并不重要，我们只需要一种可视化结果的方法。唯一的缺点是 HTML 画布坐标从左上角开始，而不是从左下角开始，但这也可以通过稍微调整生成的代码来解决。

这是完整的方案代码 https:// github.com/antivanov/scip-exercises/blob/master/scheme/ch2/2.48.49.scm https://github.com/antivanov/scip-exercises/blob/master/scheme/ch2/2.52.scm

按照相同的方法，我能够形象化本章中的其他示例/练习。

Answer 5

我完成了我的一门课的画家作业。对于 2.47，您实际上不需要担心绘制线。您需要做的就是创建构造函数和选择器：

(define (make-frame origin edge1 edge2)
(list origin edge1 edge2))

(define (origin-frame frame)
(car frame))

(define (edge1-frame frame)
(cadr frame))

(define (edge2-frame frame)
(caddr frame))