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

16
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)))]) (bang argb-i m3)
(vector-set! argb-vector argb-i m3)
(do-b 1) (do-b 1)
(do-b 2) (do-b 2)
(do-b 3))))) (do-b 3)))))