1

Steel Bank Common Lisp を使用した SICP の作業では、かなりの成功を収めましたが、「Picture Language」の例で問題が発生しました。以下はPPMファイルに書き込んでいないようですが、私が書いた他の回転と反転はそうです。LAMBDA が LABELS 内で呼び出されたときに、どういうわけか関数を返していないと思われますか?

私はすでに Mx check-parens を持っていますが、そこには何も孤立していたり​​、見た目がおかしいものはありません。

(defun below (painter1 painter2)
  "Divides frame along 2nd axis and invokes a painter on each region"
  (let ((split-point (make-vect 0.0 0.5)))
    (labels ((paint-up (fr)
               (transform-painter painter2
                                  (make-vect 0.0 0.0)
                                  (make-vect 1.0 0.0)
                                  split-point))
             (paint-down (fr)
               (transform-painter painter1
                                  split-point
                                  (make-vect 1.0 0.5)
                                  (make-vect 0.0 1.0))))
      #'(lambda (frame)
          (paint-up frame)
          (paint-down frame)))))

(defun krest-below ()
  "Tests BELOW on the KREST-SEGMENTS"
  (init-buffer 400 400)
  (funcall (below (segments->painter krest-segments)
                  (segments->painter krest-segments))
           (make-frame (cons 0 0)
                       (cons 399 0)
                       (cons 0 399)))
  (rgb-buffer->ppm "krest-below.ppm" *buffer*))
4

1 に答える 1

1

Svante のプロンプトから、ラベル PAINT-UP および PAINT-DOWN が呼び出されたときに、TRANSFORM-PAINTER によって返された関数が実際に FUNCALL で呼び出され、FR を渡されたことを確認する必要があるという答えが見つかりました。修正された BELOW 関数は次のようになります。

(defun below (painter1 painter2)
  "Divides frame along 2nd axis and invokes a painter on each region"
  (let ((split-point (make-vect 0.0 0.5)))
    (labels ((paint-up (fr)
         (funcall (transform-painter painter2
                         (make-vect 0.0 0.0)
                         (make-vect 1.0 0.0)
                         split-point) fr))
       (paint-down (fr)
         (funcall (transform-painter painter1
                         split-point
                         (make-vect 1.0 0.5)
                         (make-vect 0.0 1.0)) fr)))
    #'(lambda (frame)
    (paint-up frame)
    (paint-down frame)))))
于 2012-03-25T01:11:45.413 に答える