Function xs_poco_fillPattern

modules/commodetto/commodettoPocoCore.c:877–917

}

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

	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;
	w = (PocoDimension)xsmcToInteger(xsArg(3));
	h = (PocoDimension)xsmcToInteger(xsArg(4));
	if (argc > 5) {
		sx = (PocoCoordinate)xsmcToInteger(xsArg(5));
		sy = (PocoCoordinate)xsmcToInteger(xsArg(6));
		sw = (PocoDimension)xsmcToInteger(xsArg(7));
		sh = (PocoDimension)xsmcToInteger(xsArg(8));

#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");

		PocoBitmapPattern(poco, &bits, x, y, w, h, sx, sy, sw, sh);
	}
	else
		PocoBitmapPattern(poco, &bits, x, y, w, h, 0, 0, bits.width, bits.height);
}

void xs_poco_drawFrame(xsMachine *the)
{