Function xs_poco_drawGray

modules/commodetto/commodettoPocoCore.c:767–819

}

void xs_poco_drawGray(xsMachine *the)
{
	Poco poco = xsmcGetHostDataPoco(xsThis);
	int argc = xsmcArgc;
	PocoBitmapRecord bits;
	PocoCoordinate x, y;
	PocoDimension sx, sy, sw, sh;
	PocoColor color = 0;
	CommodettoBitmap cb;
	uint8_t blend = kPocoOpaque;

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

	color = (PocoColor)xsmcToInteger(xsArg(1));

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

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

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

		if (argc > 8)
			blend = (uint8_t)xsmcToInteger(xsArg(8));
	}

	PocoGrayBitmapDraw(poco, &bits, color, blend, x, y, sx, sy, sw, sh);
}

void xs_poco_drawMasked(xsMachine *the)
{