Function xs_poco_end

modules/commodetto/commodettoPocoCore.c:357–494

#endif

void xs_poco_end(xsMachine *the)
{
	Poco poco = xsmcGetHostDataPoco(xsThis);
	PixelsOutDispatch pixelsOutDispatch = 
#if MODDEF_ECMA419_DISPLAY
		(!poco->displayHooks && poco->outputRefcon) ? *(PixelsOutDispatch *)poco->outputRefcon : NULL;
#else
		poco->outputRefcon ? *(PixelsOutDispatch *)poco->outputRefcon : NULL;
#endif
	int result;

	if (!(poco->flags & kPocoFlagDidBegin))
		xsUnknownError("inactive");

	if (!(poco->flags & kPocoFlagFrameBuffer)) {
		xsmcVars(5);

#if MODDEF_ECMA419_DISPLAY
		if (poco->displayHooks) {
			(((xsDisplayHostHooks)poco->displayHooks)->doBegin(poco->outputRefcon, poco->x, poco->y, poco->w, poco->h, C_NULL, C_NULL, (poco->flags & kPocoFlagContinue) ? 1 : 0));
		}
		else
#endif
		if (pixelsOutDispatch) {
			(pixelsOutDispatch->doBegin)(poco->outputRefcon, poco->x, poco->y, poco->w, poco->h);
		}
		else {
			xsmcGet(xsVar(0), xsThis, xsID_pixelsOut);
#if MODDEF_ECMA419_DISPLAY
			xsmcSetNewObject(xsVar(1));
			xsmcSetInteger(xsVar(2), poco->x);
			xsmcSet(xsVar(1), xsID_x, xsVar(2));
			xsmcSetInteger(xsVar(2), poco->y);
			xsmcSet(xsVar(1), xsID_y, xsVar(2));
			xsmcSetInteger(xsVar(2), poco->w);
			xsmcSet(xsVar(1), xsID_width, xsVar(2));
			xsmcSetInteger(xsVar(2), poco->h);
			xsmcSet(xsVar(1), xsID_height, xsVar(2));
			if (poco->flags & kPocoFlagContinue) {
				xsmcSetTrue(xsVar(2));
				xsmcSet(xsVar(1), xsID_continue, xsVar(2));
			}
			xsCall1(xsVar(0), xsID_begin, xsVar(1));
#else
			xsmcSetInteger(xsVar(1), poco->x);
			xsmcSetInteger(xsVar(2), poco->y);
			xsmcSetInteger(xsVar(3), poco->w);
			xsmcSetInteger(xsVar(4), poco->h);
			xsCall4(xsVar(0), xsID_begin, xsVar(1), xsVar(2), xsVar(3), xsVar(4));
#endif
		}
#if MODDEF_ECMA419_DISPLAY
		if (poco->displayHooks) {
			result = PocoDrawingEnd(poco, poco->pixels, poco->pixelsLength, displayPixelReceiver, poco);
		}
		else
#endif
		if (poco->outputRefcon)