changeset 5482 | d81219e58155 |
parent 4773 | 65c6b8654054 |
child 6066 | 62426e8110ae |
5481:93de6ee2ed5a | 5482:d81219e58155 |
---|---|
81 |
81 |
82 OBJ b = _INST(bytes); |
82 OBJ b = _INST(bytes); |
83 OBJ w = _INST(width); |
83 OBJ w = _INST(width); |
84 |
84 |
85 if (__bothSmallInteger(x, y) && __isSmallInteger(w)) { |
85 if (__bothSmallInteger(x, y) && __isSmallInteger(w)) { |
86 if (__isByteArray(b)) { |
86 if (__isByteArrayLike(b)) { |
87 int _w = __intVal(w); |
87 int _w = __intVal(w); |
88 int _y = __intVal(y); |
88 int _y = __intVal(y); |
89 int _x = __intVal(x); |
89 int _x = __intVal(x); |
90 unsigned _byte; |
90 unsigned _byte; |
91 int _idx; |
91 int _idx; |
474 static unsigned char mag1[16] = {0x00, 0x03, 0x0c, 0x0f, 0x30, 0x33, 0x3c, 0x3f, |
474 static unsigned char mag1[16] = {0x00, 0x03, 0x0c, 0x0f, 0x30, 0x33, 0x3c, 0x3f, |
475 0xc0, 0xc3, 0xcc, 0xcf, 0xf0, 0xf3, 0xfc, 0xff}; |
475 0xc0, 0xc3, 0xcc, 0xcf, 0xf0, 0xf3, 0xfc, 0xff}; |
476 |
476 |
477 if (__bothSmallInteger(srcStart, dstStart) |
477 if (__bothSmallInteger(srcStart, dstStart) |
478 && __bothSmallInteger(w, mX) |
478 && __bothSmallInteger(w, mX) |
479 && __isByteArray(srcBytes) && __isByteArray(dstBytes)) { |
479 && __isByteArrayLike(srcBytes) && __isByteArray(dstBytes)) { |
480 _mag = __intVal(mX); |
480 _mag = __intVal(mX); |
481 srcP = __ByteArrayInstPtr(srcBytes)->ba_element - 1 + __intVal(srcStart); |
481 srcP = __ByteArrayInstPtr(srcBytes)->ba_element - 1 + __intVal(srcStart); |
482 dstP = __ByteArrayInstPtr(dstBytes)->ba_element - 1 + __intVal(dstStart); |
482 dstP = __ByteArrayInstPtr(dstBytes)->ba_element - 1 + __intVal(dstStart); |
483 _pixels = __intVal(w); |
483 _pixels = __intVal(w); |
484 |
484 |
770 ! ! |
770 ! ! |
771 |
771 |
772 !Depth1Image class methodsFor:'documentation'! |
772 !Depth1Image class methodsFor:'documentation'! |
773 |
773 |
774 version |
774 version |
775 ^ '$Header: /cvs/stx/stx/libview/Depth1Image.st,v 1.56 2007-05-30 11:43:02 stefan Exp $' |
775 ^ '$Header: /cvs/stx/stx/libview/Depth1Image.st,v 1.57 2009-11-05 14:37:53 stefan Exp $' |
776 ! ! |
776 ! |
777 |
|
778 version_CVS |
|
779 ^ '$Header: /cvs/stx/stx/libview/Depth1Image.st,v 1.57 2009-11-05 14:37:53 stefan Exp $' |
|
780 ! ! |