felixm/SICP
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Clean up

Browse Source
This commit is contained in:
Felix Martin
2021-04-25 08:57:17 -04:00
parent 1fdb733d0c
commit 335d011db8
62 changed files with 88 additions and 81 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
ex-2_44-52.scm
View File

@@ -192,9 +192,9 @@
(make-line 0.6 0.65 0.65 0.8)
(make-line 0.65 0.8 0.6 1.0))))
(load "misc/draw.scm")
(load "shared/lib-draw.scm")
(draw-to-py (painter-diamond simple-frame) "wave")
(draw-to-py (painter-diamond simple-frame) "draw-wave")
(display "\nex-2.50\n")
@@ -213,7 +213,7 @@
(make-vect 1.0 1.0) ; new end of edge1
(make-vect 0.0 0.0))) ; new end of edge2
(draw-to-py ((flip-vert painter-wave) simple-frame) "wave-flipped")
(draw-to-py ((flip-vert painter-wave) simple-frame) "draw-wave-flipped")
(define (shrink-to-upper-right painter)
(transform-painter painter
@@ -221,7 +221,7 @@
(make-vect 1.0 0.5)
(make-vect 0.5 1.0)))
(draw-to-py ((shrink-to-upper-right painter-wave) simple-frame) "wave-shrinked")
(draw-to-py ((shrink-to-upper-right painter-wave) simple-frame) "draw-wave-shrinked")
(define (rotate90 painter)
(transform-painter painter
@@ -229,7 +229,7 @@
(make-vect 1.0 1.0)
(make-vect 0.0 0.0)))
(draw-to-py ((rotate90 painter-wave) simple-frame) "wave-rotated")
(draw-to-py ((rotate90 painter-wave) simple-frame) "draw-wave-rotated")
(define (flip-horiz painter)
(transform-painter painter
@@ -253,22 +253,21 @@
(make-vect 0.0 0.0)
(make-vect 1.0 1.0)))
(draw-to-py ((beside painter-wave painter-diamond) simple-frame) "wave-beside-diamond")
(draw-to-py ((beside painter-wave painter-diamond) simple-frame) "draw-wave-beside-diamond")
(display "\nex-2.51\n")
; First implementation is at the beginning of this file.
(draw-to-py ((below painter-x painter-diamond) simple-frame) "x-below-diamond-1")
(draw-to-py ((below painter-x painter-diamond) simple-frame) "draw-x-below-diamond-1")
(define (below painter1 painter2)
(rotate270 (beside (rotate90 painter2) (rotate90 painter1))))
(draw-to-py ((below painter-x painter-diamond) simple-frame) "x-below-diamond-2")
(draw-to-py ((below painter-x painter-diamond) simple-frame) "draw-x-below-diamond-2")
(display "\nex-2.52\n")
; a.
(define painter-wave-smile
(segments->painter
@@ -296,7 +295,7 @@
(make-line 0.6 0.65 0.65 0.8)
(make-line 0.65 0.8 0.6 1.0))))
(draw-to-py (painter-wave-smile simple-frame) "wave-smile")
(draw-to-py (painter-wave-smile simple-frame) "draw-wave-smile")
; b.
(define (corner-split-adapted painter n)
@@ -310,7 +309,7 @@
(beside (below painter top-left)
(below bottom-right corner))))))
(draw-to-py ((corner-split-adapted painter-wave 3) simple-frame) "corner-split-3")
(draw-to-py ((corner-split-adapted painter-wave 3) simple-frame) "draw-corner-split-3")
; c. didn't do anything here
(define (square-of-four tl tr bl br)