suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed flipping for curves

Browse Source
This commit is contained in:
Robby Findler 2010-06-18 11:41:34 -05:00
parent ca7bf92054
commit 27bd7934d7
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/2htdp/private/image-more.rkt
View File

@ -684,10 +684,10 @@
(line-segment-color simple-shape))] (line-segment-color simple-shape))]
[(curve-segment? simple-shape) [(curve-segment? simple-shape)
(make-curve-segment (flip-point (curve-segment-start simple-shape)) (make-curve-segment (flip-point (curve-segment-start simple-shape))
(curve-segment-s-angle simple-shape) (bring-between (- 360 (curve-segment-s-angle simple-shape)) 360)
(curve-segment-s-pull simple-shape) (curve-segment-s-pull simple-shape)
(flip-point (curve-segment-end simple-shape)) (flip-point (curve-segment-end simple-shape))
(curve-segment-e-angle simple-shape) (bring-between (- 360 (curve-segment-e-angle simple-shape)) 360)
(curve-segment-e-pull simple-shape) (curve-segment-e-pull simple-shape)
(curve-segment-color simple-shape))] (curve-segment-color simple-shape))]
[(polygon? simple-shape) [(polygon? simple-shape)

10
collects/2htdp/tests/test-image.rkt
View File

@ -1403,6 +1403,16 @@
10 -100 10 -100
(ellipse 10 100 'solid 'blue))) (ellipse 10 100 'solid 'blue)))
(test (flip-vertical (add-curve (rectangle 200 100 'solid 'black)
20 20 0 1
180 80 -90 1/3
"white"))
=>
(add-curve (rectangle 200 100 'solid 'black)
20 80 0 1
180 20 90 1/3
"white"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;;
;; pen arguments ;; pen arguments