The R Project SVN R

Rev

Rev 49591 | Rev 69259 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 49591 Rev 50283
Line 1335... Line 1335...
1335 
		z3=(ximage->data[(j+1)*byte_width_in+(i+1)/8] &
 1335 
		z3=(ximage->data[(j+1)*byte_width_in+(i+1)/8] &
1336 
		    128>>((i+1)%8))>0;
 1336 
		    128>>((i+1)%8))>0;
1337 
		z4=(ximage->data[(j+1)*byte_width_in+i/8] & 128>>(i%8))>0;
 1337 
		z4=(ximage->data[(j+1)*byte_width_in+i/8] & 128>>(i%8))>0;
1338 
	    }
 1338 
	    }
1339 
 
 1339 
 
1340 
	    /* if interpolated value is greater than 0.5, set bit */
 1340 
            /* if interpolated value is greater than 0.5, set bit */
1341 
	    if(((1-t)*(1-u)*z1 + t*(1-u)*z2 + t*u*z3 + (1-t)*u*z4)>0.5)
 1341 
            if(((1-t)*(1-u)*z1 + t*(1-u)*z2 + t*u*z3 + (1-t)*u*z4)>0.5)
1342 
		I_out->data[j2*byte_width_out+i2/8]|=128>>i2%8;
 1342 
                I_out->data[j2*byte_width_out+i2/8]|=128>>i2%8;
1343 
 
 1343
1344 
	    x+=mag_inv;
 1344 
	    x+=mag_inv;
1345 
	}
 1345 
	}
1346 
	y+=mag_inv;
 1346 
	y+=mag_inv;
1347 
    }
 1347 
    }
1348 
 
 1348