scheme - MITスキームのドローライン

Question

MIT スキームを使用してドローラインを機能させることに成功した人はいますか?

https://mitpress.mit.edu/sites/default/files/sicp/full-text/book/book-ZH-15.html#%_sec_2.2.4

Answer 1

scmutilsGerald Sussman 提供のものを使用しました。これは、古典力学のクラスで使用される数値および代数パッケージであり、グラフのプロットに対する低レベルのサポートがあります。

あなたが定義したと仮定するmake-vectとmake-seg

(define line (make-seg (make-vect 2 3) (make-vect 4 1)))

(define win1 (frame -5 5 -5 5))

(define (draw-line frame a b)
  (plot-line frame (xcor a) (ycor a) (xcor b) (ycor b))
)

これは、画像言語を実装した後に得られたものです

Answer 2

クラスの 1 つのこの画家の割り当てを完了しました。2.47 の場合、描画ラインについて特に心配する必要はありません。必要なのは、コンストラクターとセレクターを作成することだけです。

(define (make-frame origin edge1 edge2)
(list origin edge1 edge2))

(define (origin-frame frame)
(car frame))

(define (edge1-frame frame)
(cadr frame))

(define (edge2-frame frame)
(caddr frame))