Function xs_poco_drawText

modules/commodetto/commodettoPocoCore.c:987–1190

}

void xs_poco_drawText(xsMachine *the)
{
	Poco poco = xsmcGetHostDataPoco(xsThis);
	int argc = xsmcArgc;
	PocoCoordinate x, y;
	CommodettoBitmap cb = NULL;
	PocoBitmapRecord bits;
	static const unsigned char *ellipsisFallback = (unsigned char *)"...";
	static const unsigned char ellipsisUTF8[4] = {0xE2, 0x80, 0xA6, 0};		// 0x2026
	const unsigned char *ellipsis = C_NULL;
	PocoDimension ellipsisWidth = 0;
	int width = 0;
	void *fontData;
	xsUnsignedValue fontDataLength;
	uint8_t isColor = 0;
	PocoBitmapRecord mask;
#if MODDEF_CFE_KERN
	uint32_t previousUnicode = 0;
#endif
	const unsigned char *text;

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

	if (argc > 5)
		width = xsmcToInteger(xsArg(5));

	PocoColor color = (xsReferenceType != xsmcTypeOf(xsArg(2))) ? (PocoColor)xsmcToInteger(xsArg(2)) : 0;

	text = (const unsigned char *)xsmcToString(xsArg(0));

	xsmcVars(2);

	xsmcGetBufferReadable(xsArg(1), &fontData, &fontDataLength);
	CFESetFontData(gCFE, fontData, fontDataLength);

	if (argc > 5) {
		CFEGlyph glyph = CFEGetGlyphFromUnicode(gCFE, 0x2026, false);
		if (glyph && !glyph->substitute) {
			ellipsisWidth = glyph->advance;
			ellipsis = ellipsisUTF8;
		}
		else {
			glyph = CFEGetGlyphFromUnicode(gCFE, '.', false);
			ellipsisWidth = glyph ? glyph->advance * 3 : 0;
			ellipsis = ellipsisFallback;
		}
	}
	else {
		ellipsisWidth = 0;
		ellipsis = C_NULL;		// appease compiler
	}

	const char *substitute = C_NULL;
	while (true) {
		PocoCoordinate cx, cy, sx, sy;
		PocoDimension sw, sh;
		CFEGlyph glyph;