scheme - ビッグバンを利用して画像を成長させる

Question

ビッグバンを使って、画像/テキスト「お元気ですか」を成長させるプログラムを作ろうとしています。テキストサイズを 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の第 6 章を参照してください。アニメの作り方について書かれています。on-tickそこの使用法を検索すると、それが表示されるはずです。