scheme - 使用大爆炸来成长图像

Question

尝试使用 big-bang 制作一个程序来增加图像/文本“你好吗”。我想让文本大小从 1 开始并停止增长，直到达到 80 大小。

这是我到目前为止所拥有的：

(require 2htdp/image)
  (require 2htdp/universe)




    (define word "How Are You" )

    (define (draw-world world)
      (place-image (text world 1 "olive")
                   100 100
                   (empty-scene 200 200)))

    (big-bang word

         (on-draw draw-world))

我有文字，但在达到 80 大小之前它不会增长。有什么想法吗？

Answer 1

世界节目需要订阅他们将观看的刺激。你的程序根本没有记录任何刺激，所以世界上没有任何变化。

查看即时消息。例如，请查看绘图程序，第 6 章。它讨论了如何制作动画。搜索on-tick那里的使用，你应该看到它。