moved test suite to test/ directory, minor change to try to understand normalization bug

svn: r15771

original commit: 5b6f0381fa2bc5be7bd5a794ff58d27d5afb419a
This commit is contained in:
Robby Findler 2009-08-17 17:01:51 +00:00
parent ad54c93d8e
commit 58e9f0c78a

View File

@ -693,20 +693,21 @@ and they all have good sample contracts. (It is amazing what we can do with kids
;; see pin-line in slideshow
;; the initial strings in the second instance of add-curve are like the strings in add-line
(let* ([first (rectangle 100 10 'solid 'red)]
[second
(overlay/places 'center
'center
first
(rotate/places 'center 'center
(* pi 1/4)
first))]
[third
(overlay/places 'center
'center
(frame second)
(rotate/places 'center 'center
(* pi 1/8)
(frame second)))])
(show-picture (frame (rotate (* pi 1/8)
(rotate (* pi 1/8) first)))))
(normalize-shape
(make-rotate
(* pi 1/4)
(make-translate
100 100
(make-rotate
(* pi 1/4)
(make-translate
100 100
(picture-shape (rectangle 100 10 'solid 'red))))))
void)
(make-translate
(* (sqrt 2) 100 2)
0
(make-rotate
(* pi 1/2)
(picture-shape (rectangle 100 10 'solid 'red))))