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

ok, clipart is working. Better notify grem

Browse Source
This commit is contained in:
Danny Yoo 2012-03-06 11:06:07 -05:00
parent 6871bbf07c
commit fa6cad34b7
1 changed files with 0 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
tests/clipart-test/clipart.rkt
View File

@ -35,7 +35,6 @@
(define (color-connected-points! imgvec width height start-color destination-color tolerance it) (define (color-connected-points! imgvec width height start-color destination-color tolerance it)
(let ((mycol (vector-ref imgvec it))) (let ((mycol (vector-ref imgvec it)))
(printf "~a ~a\n" mycol it)
(when (and (not (color=? mycol destination-color)) (when (and (not (color=? mycol destination-color))
(color-near? mycol start-color tolerance)) (color-near? mycol start-color tolerance))
(begin (begin
@ -116,20 +115,8 @@
;(define D (overlay XDOG BG)) ;(define D (overlay XDOG BG))
;(define CDOG (overlay (clipart/url DOGURL) BG)) ;(define CDOG (overlay (clipart/url DOGURL) BG))
;D ;D
(image-width DOG)
(image-height DOG)
(define colors (image->color-list DOG))
(displayln (length colors))
(andmap color? colors)
(define vec (list->vector colors))
(vector-length vec)
(let loop ([i 0])
(when (< i (vector-length vec))
(unless (color? (vector-ref vec i))
(error 'something-went-wrong))
(loop (add1 i))))
(define (repeat num thunk) (define (repeat num thunk)