Function xs_arducam

modules/drivers/arducam/modArducam.c:125–232

}

void xs_arducam(xsMachine *the)
{
	ArduCAM ac;
	int width, height;
	char *format;
	uint8_t value;

	ac = calloc(1, sizeof(ArduCAMRecord));
	if (!ac)
		xsUnknownError("no memory");
	xsmcSetHostData(xsThis, ac);

	ac->spiConfig.hz = MODDEF_ARDUCAM_HZ;
	ac->spiConfig.doChipSelect = arducamChipSelect;

	/*
		I2C set-up first
	*/

	ac->i2cConfig.sda = MODDEF_ARDUCAM_I2C_SDA;
	ac->i2cConfig.scl = MODDEF_ARDUCAM_I2C_SCL;
	ac->i2cConfig.address = 0x30;				// OV2640 (ArcuCAM sources use 0x60 and then shift down by 1)
	modI2CInit(&ac->i2cConfig);

	writeRegisterI2C_8(ac, 0xff, 0x01);

	value = 0x0A;
	modI2CWrite(&ac->i2cConfig, &value, 1, true);
	modI2CRead(&ac->i2cConfig, &value, 1, true);
	if (0x26 != value)
		xsUnknownError("bad id high");

	value = 0x0B;
	modI2CWrite(&ac->i2cConfig, &value, 1, true);
	modI2CRead(&ac->i2cConfig, &value, 1, true);
	if ((0x41 != value ) && (0x42 != value))
		xsUnknownError("bad id low");

	writeRegisterI2C_8(ac, 0x12, 0x80);
	modDelayMilliseconds(100);

	xsmcVars(1);
	xsmcGet(xsVar(0), xsArg(0), xsID_width);
	width = xsmcToInteger(xsVar(0));
	xsmcGet(xsVar(0), xsArg(0), xsID_height);
	height = xsmcToInteger(xsVar(0));
	xsmcGet(xsVar(0), xsArg(0), xsID_format);
	format = xsmcToString(xsVar(0));

	if (0 == c_strcmp(format, "rgb565be")) {
		if ((320 != width) || (240 != height))
			xsUnknownError("unsupported dimensions");

		writeRegistersI2C_8(ac, OV2640_QVGA);
	}
	else if (0 == c_strcmp(format, "rgb565le")) {
		if ((320 != width) || (240 != height))
			xsUnknownError("unsupported dimensions");