Depth4Image.st
changeset 97 dd6116883ac0
parent 89 ea2bf46eb669
child 118 25e775072a89
equal deleted inserted replaced
96:9a89e6016f48 97:dd6116883ac0
    19 
    19 
    20 Depth4Image comment:'
    20 Depth4Image comment:'
    21 COPYRIGHT (c) 1993 by Claus Gittinger
    21 COPYRIGHT (c) 1993 by Claus Gittinger
    22 	      All Rights Reserved
    22 	      All Rights Reserved
    23 
    23 
    24 $Header: /cvs/stx/stx/libview/Depth4Image.st,v 1.9 1995-02-06 00:35:57 claus Exp $
    24 $Header: /cvs/stx/stx/libview/Depth4Image.st,v 1.10 1995-02-15 10:35:47 claus Exp $
    25 '!
    25 '!
    26 
    26 
    27 !Depth4Image class methodsFor:'documentation'!
    27 !Depth4Image class methodsFor:'documentation'!
    28 
    28 
    29 copyright
    29 copyright
    40 "
    40 "
    41 !
    41 !
    42 
    42 
    43 version
    43 version
    44 "
    44 "
    45 $Header: /cvs/stx/stx/libview/Depth4Image.st,v 1.9 1995-02-06 00:35:57 claus Exp $
    45 $Header: /cvs/stx/stx/libview/Depth4Image.st,v 1.10 1995-02-15 10:35:47 claus Exp $
    46 "
    46 "
    47 !
    47 !
    48 
    48 
    49 documentation
    49 documentation
    50 "
    50 "
   314     int _mag;
   314     int _mag;
   315     REGISTER int i;
   315     REGISTER int i;
   316     REGISTER unsigned char _byte;
   316     REGISTER unsigned char _byte;
   317     int _pixels;
   317     int _pixels;
   318     REGISTER int outcnt, bits, bit;
   318     REGISTER int outcnt, bits, bit;
   319 
   319     OBJ w = _INST(width);
   320     if (_isSmallInteger(srcStart) && _isSmallInteger(dstStart)
   320 
   321      && _isSmallInteger(_INST(width)) && _isSmallInteger(mX)
   321     if (__bothSmallInteger(srcStart, dstStart)
       
   322      && __bothSmallInteger(w, mX)
   322      && __isByteArray(srcBytes) && __isByteArray(dstBytes)) {
   323      && __isByteArray(srcBytes) && __isByteArray(dstBytes)) {
   323 	_mag = _intVal(mX);
   324 	_mag = _intVal(mX);
   324 	srcP = _ByteArrayInstPtr(srcBytes)->ba_element - 1 + _intVal(srcStart);
   325 	srcP = _ByteArrayInstPtr(srcBytes)->ba_element - 1 + _intVal(srcStart);
   325 	dstP = _ByteArrayInstPtr(dstBytes)->ba_element - 1 + _intVal(dstStart);
   326 	dstP = _ByteArrayInstPtr(dstBytes)->ba_element - 1 + _intVal(dstStart);
   326 	_pixels = _intVal(_INST(width));
   327 	_pixels = _intVal(w);
   327 
   328 
   328 	switch (_mag) {
   329 	switch (_mag) {
   329 	    case 1:
   330 	    case 1:
   330 		break;
   331 		break;
   331 
   332