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

fixed PR 7623 I think

Browse Source 
svn: r1402
This commit is contained in:
Robby Findler 2005-11-25 04:03:14 +00:00
parent f9c24918f6
commit a1d7467a28
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mrlib/cache-image-snip.ss
View File

@ -303,16 +303,16 @@
(let* ([m1 (vector-ref argb-vector argb-i)] (let* ([m1 (vector-ref argb-vector argb-i)]
[m2 (bytes-ref mask-bytes (+ str-i 1))] ;; get red coordinate [m2 (bytes-ref mask-bytes (+ str-i 1))] ;; get red coordinate
[m3 (build-m3 m1 m2)] [m3 (build-m3 m1 m2)]
[bang (lambda (i v) (vector-set! argb-vector i (floor v)))]
[do-b [do-b
(lambda (off) (lambda (off)
(vector-set! argb-vector (bang (+ argb-i off)
(+ argb-i off)
(build-b3 m1 (build-b3 m1
(vector-ref argb-vector (+ argb-i off)) (vector-ref argb-vector (+ argb-i off))
m2 m2
(bytes-ref color-bytes (+ str-i off)) (bytes-ref color-bytes (+ str-i off))
m3)))]) m3)))])
(vector-set! argb-vector argb-i m3) (bang argb-i m3)
(do-b 1) (do-b 1)
(do-b 2) (do-b 2)
(do-b 3))))) (do-b 3)))))