Function xs_poco_drawBitmap

modules/commodetto/commodettoPocoCore.c:662–706

}

void xs_poco_drawBitmap(xsMachine *the)
{
	Poco poco = xsmcGetHostDataPoco(xsThis);
	int argc = xsmcArgc;
	PocoBitmapRecord bits;
	PocoCoordinate x, y;
	PocoDimension sx, sy, sw, sh;
	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 = cb->byteLength;
#endif
	bits.pixels = pocoGetBitmapPixels(the, poco, cb, 0);

	x = (PocoCoordinate)xsmcToInteger(xsArg(1)) + poco->xOrigin;
	y = (PocoCoordinate)xsmcToInteger(xsArg(2)) + poco->yOrigin;

	if (argc <= 3) {
		sx = 0, sy = 0;
#if (90 == kPocoRotation) || (270 == kPocoRotation)
		sw = bits.height, sh = bits.width;
#else
		sw = bits.width, sh = bits.height;
#endif
	}
	else {
		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");
	}

	PocoBitmapDraw(poco, &bits, x, y, sx, sy, sw, sh);
}

void xs_poco_drawMonochrome(xsMachine *the)
{