(make-segment (make-vect 0.582 0.657) (make-vect 0.640 0.857)) (make-segment (make-vect 0.640 0.857) (make-vect 0.575 1.000)) (make-segment (make-vect 0.419 1.000) (make-vect 0.354 0.857)) (make-segment (make-vect 0.354 0.857) (make-vect 0…

(define (below painter1 painter2) (let* ((split-point (make-vect 0.0 0.5)) (paint-bottom (transform-painter painter1 (make-vect 0.0 0.0) (make-vect 1.0 0.0) split-point)) (paint-upper (transform-painter painter2 split-point (make-vect 1.0 …

(define (flip-horiz painter) (transform-painter painter (make-vect 1.0 0.0) (make-vect 0.0 0.0) (make-vect 1.0 1.0))) (define (rotate180 painter) (transform-painter painter (make-vect 1.0 1.0) (make-vect 0.0 1.0) (make-vect 1.0 0.0))) (def…

;; a (define (outline-painter frame) (let* ((v00 (make-vect 0 0)) (v01 (make-vect 0 1)) (v10 (make-vect 1 0)) (v11 (make-vect 1 1))) ((segments->painter (list (make-segment v00 v01) (make-segment v00 v10) (make-segment v10 v01) (make-segme…

線分をvectorで定義して構成子と選択子を定義するって問題やっていた． 問題文には 平面上の有向線分はベクタの対ーー原点から線分の始点へ向かうベクタと，始点から線分の終点へ向かうベクターーで表現される． [中略] この線分の表現をmake-segmentと選択…