graphics - 方案图形有多个奇数

Question

也许是基于我更好的判断，我决定尝试使图形在方案中运行。
(麻省理工/ GNU)

为了开始，我写了

(define graphics-types (enumerate-graphics-types))
(define graphics (make-graphics-device (car graphics-types)))

弹出一个白色的窗口。呼唤

(graphics-draw-point graphics .5 0)

给出了预期的结果，这是一个小的黑色像素出现在窗口右侧3/4处(垂直居中)。但是，打电话

(graphics-erase-point graphics .5 0)

什么也没做。此外，最小化和还原窗口消除了这一点，但是实验表明，最小化总是清除了整个窗口。

有人知道发生了什么吗？

Answer 1

MIT方案中的graphics-erase-point过程通过将绘图模式更改为0，调用graphics-draw-point，然后将绘图模式更改回以前的方式来工作。可以在MIT's drawing mode documentation上找到有关MIT计划绘制模式的机制的更多信息。

该错误似乎在graphics-bind-drawing-mode过程中，该过程在graphics-erase-point中用于更改绘图模式。最简单的解决方案是重新定义graphics-erase-point以改为使用graphics-set-drawing-mode。产生的代码如下所示:

(define (graphics-erase-point device x y)
  (graphics-set-drawing-mode device 0)
  (graphics-draw-point device x y)
  (graphics-set-drawing-mode device 15))

15是默认的绘图模式，为简单起见，我使用了它，但是当然可以智能地还原绘图模式(我将练习留给您)。