Function xs_poco_drawMasked

modules/commodetto/commodettoPocoCore.c:821–875

}

void xs_poco_drawMasked(xsMachine *the)
{
	Poco poco = xsmcGetHostDataPoco(xsThis);
	int argc = xsmcArgc;
	PocoBitmapRecord bits, mask;
	PocoCoordinate x, y;
	PocoDimension sx, sy, sw, sh, mask_sx, mask_sy;
	CommodettoBitmap cb;

	cb = xsmcGetHostChunk(xsArg(0));
	bits.width = cb->w;
	bits.height = cb->h;
	bits.format = cb->format;
#if COMMODETTO_BITMAP_ID
	bits.id = cb->id;
	bits.byteLength = 0;
#endif
	bits.pixels = pocoGetBitmapPixels(the, poco, cb, 0);

	x = (PocoCoordinate)xsmcToInteger(xsArg(1)) + poco->xOrigin;
	y = (PocoCoordinate)xsmcToInteger(xsArg(2)) + poco->yOrigin;
	sx = (PocoDimension)xsmcToInteger(xsArg(3));
	sy = (PocoDimension)xsmcToInteger(xsArg(4));
	sw = (PocoDimension)xsmcToInteger(xsArg(5));
	sh = (PocoDimension)xsmcToInteger(xsArg(6));

#if (0 == kPocoRotation) || (180 == kPocoRotation)
	if ((sx >= bits.width) || (sy >= bits.height) || ((sx + sw) > bits.width) || ((sy + sh) > bits.height))
#else
	if ((sx >= bits.height) || (sy >= bits.width) || ((sx + sw) > bits.height) || ((sy + sh) > bits.width))
#endif
		xsRangeError("invalid src");

	cb = xsmcGetHostChunk(xsArg(7));
	mask.width = cb->w;
	mask.height = cb->h;
	mask.format = cb->format;
#if COMMODETTO_BITMAP_ID
	mask.id = cb->id;
	mask.byteLength = 0;
#endif
	mask.pixels = pocoGetBitmapPixels(the, poco, cb, 7);

	mask_sx = (PocoDimension)xsmcToInteger(xsArg(8));
	mask_sy = (PocoDimension)xsmcToInteger(xsArg(9));
	if ((mask_sx >= mask.width) || (mask_sy >= mask.height) || ((mask_sx + sw) > mask.width) || ((mask_sy + sh) > mask.height))
		xsRangeError("invalid mask src");

	if (argc > 10) {
		uint8_t blend = (uint8_t)xsmcToInteger(xsArg(10));
		PocoBitmapDrawMasked(poco, blend, &bits, x, y, sx, sy, sw, sh, &mask, mask_sx, mask_sy);
	}
	else
		PocoBitmapDrawMasked(poco, kPocoOpaque, &bits, x, y, sx, sy, sw, sh, &mask, mask_sx, mask_sy);
}

void xs_poco_fillPattern(xsMachine *the)
{