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

Fixed an off-by-one bug in "myflip", an example for build-image. Now it passes its tests :-)

Browse Source
This commit is contained in:
Stephen Bloch 2011-07-24 18:39:40 -04:00
parent ab01d563ca
commit 9a24e66df0
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/picturing-programs/tests/map-image-isl-tests.rkt
View File

@ -15,10 +15,13 @@
; myflip : image -> image ; myflip : image -> image
; vertical reflection defined by bitmap operations ; vertical reflection defined by bitmap operations
(define (myflip pic) (define (myflip pic)
(local [(define (other-pixel x y) (get-pixel-color x (- (image-height pic) y) pic))] (local [(define (other-pixel x y) (get-pixel-color x (- (image-height pic) y 1) pic))]
(build-image (image-width pic) (image-height pic) (build-image (image-width pic) (image-height pic)
other-pixel))) other-pixel)))
(check-expect (myflip pic:bloch) (flip-vertical pic:bloch))
(define RADIUS 1) (define RADIUS 1)
(define (clip-to n low high) (define (clip-to n low high)