Function PiuColorDictionary

modules/piu/All/piuColor.c:99–156

}

void PiuColorDictionary(xsMachine *the, xsSlot* slot, PiuColor color)
{
	xsType type = xsTypeOf(*slot);
	if ((type == xsIntegerType) || (type == xsNumberType)) {
		uint32_t value = xsToUnsigned(*slot);
		color->r = (value >> 24) & 0xFF;
		color->g = (value >> 16) & 0xFF;
		color->b = (value >> 8) & 0xFF;
		color->a = value & 0xFF;
	}
	else {
		xsStringValue s = xsToString(*slot);
		if ('#' == c_read8(s)) {
			xsIntegerValue length = c_strlen(s);
			if (length == 4) {
				color->r = (uint8_t)PiuStringHexToNum(&s[1], 1) * 17;
				color->g = (uint8_t)PiuStringHexToNum(&s[2], 1) * 17;
				color->b = (uint8_t)PiuStringHexToNum(&s[3], 1) * 17;
				color->a = 255;
				return;
			}
			if (length == 5) {
				color->r = (uint8_t)PiuStringHexToNum(&s[1], 1) * 17;
				color->g = (uint8_t)PiuStringHexToNum(&s[2], 1) * 17;
				color->b = (uint8_t)PiuStringHexToNum(&s[3], 1) * 17;
				color->a = (uint8_t)PiuStringHexToNum(&s[1], 1) * 17;
				return;
			}
			if (length == 7) {
				color->r = (uint8_t)PiuStringHexToNum(&s[1], 2);
				color->g = (uint8_t)PiuStringHexToNum(&s[3], 2);
				color->b = (uint8_t)PiuStringHexToNum(&s[5], 2);
				color->a = 255;
				return;
			}
			if (length == 9) {
				color->r = (uint8_t)PiuStringHexToNum(&s[1], 2);
				color->g = (uint8_t)PiuStringHexToNum(&s[3], 2);
				color->b = (uint8_t)PiuStringHexToNum(&s[5], 2);
				color->a = (uint8_t)PiuStringHexToNum(&s[7], 2);
				return;
			}
		}
		else {
			xsIntegerValue i;
			for (i = 0; i < PiuColorCount; i++) {
				if (!c_strcmp(s, PiuColorNames[i])) {
					color->r = c_read8(&PiuColorValues[i].r);
					color->g = c_read8(&PiuColorValues[i].g);
					color->b = c_read8(&PiuColorValues[i].b);
					color->a = c_read8(&PiuColorValues[i].a);
					return;
				}
			}
		}
		xsErrorPrintf("invalid color");
	}
}