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

trying to trace why we're getting fractional

Browse Source
This commit is contained in:
Danny Yoo 2012-03-06 11:02:36 -05:00
parent dd6135123c
commit 54cbc623fb
3 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
image/private/js-impl.js
View File

@ -1080,5 +1080,6 @@ EXPORTS['name->color'] =
1,
function(MACHINE) {
var name = checkSymbolOrString(MACHINE, 'name->color', 0);
return colorDb.get('' + name) || false;
var result = colorDb.get('' + name) || false;
return result;
});

4
js-assembler/runtime-src/runtime.js
View File

@ -1075,7 +1075,7 @@
if (i >= 0 && i < vec.elts.length) {
return vec.elts[i];
}
} else if (isNumber(i)) {
} else if (isNatural(i)) {
i = baselib.numbers.toFixnum(i);
if (i >= 0 && i < vec.elts.length) {
return vec.elts[i];
@ -1098,7 +1098,7 @@
vec.elts[i] = val;
return VOID;
}
} else if (isNumber(i)) {
} else if (isNatural(i)) {
i = baselib.numbers.toFixnum(i);
if (i >= 0 && i < vec.elts.length) {
vec.elts[i] = val;

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

@ -35,6 +35,7 @@
(define (color-connected-points! imgvec width height start-color destination-color tolerance it)
(let ((mycol (vector-ref imgvec it)))
(printf "~a ~a\n" mycol it)
(when (and (not (color=? mycol destination-color))
(color-near? mycol start-color tolerance))
(begin