用大爆炸来塑造形象

Question

尝试使用big-bang来制作一个增加图像/文本“How Are You”的程序。我想让文本大小从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

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

看看on-tick。例如，请查看Picturing Programs，Chapter 6。它谈到了如何做动画。在那里搜索on-tick的使用，你应该看到它。