Scheme 用大爆炸来增长图像

试图用“大爆炸”制作一个程序来增加图像/文本“你好吗”。我想使文本大小从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。有什么想法吗？

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

看。例如，请查看。它讨论了如何制作动画。在那里勾选搜索

的用法，您应该会看到它