1 665c255d 2023-08-04 jrmu (define (make-frame dc origin edge1 edge2)
 2 665c255d 2023-08-04 jrmu   (list dc origin edge1 edge2))
 3 665c255d 2023-08-04 jrmu (define (dc-frame f)
 4 665c255d 2023-08-04 jrmu   (car f))
 5 665c255d 2023-08-04 jrmu (define (origin-frame f)
 6 665c255d 2023-08-04 jrmu   (cadr f))
 7 665c255d 2023-08-04 jrmu (define (edge1-frame f)
 8 665c255d 2023-08-04 jrmu   (caddr f))
 9 665c255d 2023-08-04 jrmu (define (edge2-frame f)
10 665c255d 2023-08-04 jrmu   (cadddr f))