Function xs_poco_build

modules/commodetto/commodettoPocoCore.c:104–210

};

void xs_poco_build(xsMachine *the)
{
	Poco poco;
	int pixelsCount = xsmcToInteger(xsArg(2));
	int pixelFormat = xsmcToInteger(xsArg(3));
	int pixelsLength = ((pixelsCount * (int)CommodettoBitmapGetDepth(pixelFormat)) + 7) >> 3;
	int displayListLength = xsmcToInteger(xsArg(4));
	int rotation = xsmcToInteger(xsArg(5));
	if (sizeof(void *) > 4)
		displayListLength += displayListLength >> 1;		// compensate for bigger pointers on 64-bit systems
	int byteLength = pixelsLength + displayListLength;

	if ((kPocoPixelFormat != pixelFormat) || (0 == pixelsLength))
		xsErrorPrintf("unsupported pixel format");

	if (rotation != kPocoRotation)
		xsErrorPrintf("not configured for requested rotation");

#if MODDEF_POCO_DMA
	#if ESP32
		poco = heap_caps_aligned_alloc(4, sizeof(PocoRecord) + byteLength + 8, MALLOC_CAP_DMA);
	#else
		#error DMA allocator
	#endif
#else
	poco = c_malloc(sizeof(PocoRecord) + byteLength + 8);		// overhang when dividing
#endif
	if (!poco)
		xsErrorPrintf("no memory");
	xsmcSetHostBuffer(xsThis, poco->pixels, pixelsLength);

	xsSetHostHooks(xsThis, (xsHostHooks *)&xsPocoHooks);
	poco->reservedPocoJS = NULL;

#if pebble
	poco->pebbleState = NULL;
#endif

	poco->width = (PocoDimension)xsmcToInteger(xsArg(0));
	poco->height = (PocoDimension)xsmcToInteger(xsArg(1));
	rotateDimensions(poco->width, poco->height);

	poco->flags = 0;
	if (xsmcTest(xsArg(6)))
		poco->flags |= kPocoFlagDoubleBuffer;
	if (xsmcTest(xsArg(7)))
		poco->flags |= kPocoFlagAdaptInvalid;

#if MODDEF_ECMA419_DISPLAY
	poco->displayHooks = C_NULL;
	poco->the = the;

	if (xsmcHas(xsArg(11), xsID_configure))
		poco->flags |= kPocoFlag419PixelOut;

	xsDisplayHostHooks displayHooks = (xsDisplayHostHooks)xsGetHostHooksIf(xsArg(11));
	if (displayHooks && (0 == c_strcmp(displayHooks->hooks.signature, "display"))) {
		poco->displayHooks = displayHooks;