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

fixed image.ss

Browse Source 
svn: r2084
This commit is contained in:
Matthias Felleisen 2006-02-02 14:10:01 +00:00
parent b7f6cc2e1d
commit b97062cb99
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/htdp/image.ss
View File

@ -479,7 +479,6 @@ plt/collects/tests/mzscheme/image-test.ss
(define (make-simple-cache-image-snip w h px py dc-proc mask-proc) (define (make-simple-cache-image-snip w h px py dc-proc mask-proc)
(let ([w (inexact->exact (ceiling w))] (let ([w (inexact->exact (ceiling w))]
[h (inexact->exact (ceiling h))]) [h (inexact->exact (ceiling h))])
(printf "new w ~s new -h ~s\n" w h)
(let ([argb-proc (let ([argb-proc
(lambda (argb-vector dx dy) (lambda (argb-vector dx dy)
(let ([c-bm (build-bitmap (lambda (dc) (dc-proc dc 0 0)) w h)] (let ([c-bm (build-bitmap (lambda (dc) (dc-proc dc 0 0)) w h)]