From 27bd7934d71931ad79a9a0c6d98a102ac3ee7b79 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 18 Jun 2010 11:41:34 -0500 Subject: [PATCH] fixed flipping for curves --- collects/2htdp/private/image-more.rkt | 4 ++-- collects/2htdp/tests/test-image.rkt | 10 ++++++++++ 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/collects/2htdp/private/image-more.rkt b/collects/2htdp/private/image-more.rkt index 66eef0ccce..7fc710119b 100644 --- a/collects/2htdp/private/image-more.rkt +++ b/collects/2htdp/private/image-more.rkt @@ -684,10 +684,10 @@ (line-segment-color simple-shape))] [(curve-segment? 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) (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-color simple-shape))] [(polygon? simple-shape) diff --git a/collects/2htdp/tests/test-image.rkt b/collects/2htdp/tests/test-image.rkt index 0d509889b0..f95536a94e 100644 --- a/collects/2htdp/tests/test-image.rkt +++ b/collects/2htdp/tests/test-image.rkt @@ -1403,6 +1403,16 @@ 10 -100 (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