+int Effect_set_vec4(lua_State *L)
+{
+ assert(lua_gettop(L) == 6);
+ Effect *effect = (Effect *)get_effect(L, 1);
+ size_t len;
+ const char* cstr = lua_tolstring(L, 2, &len);
+ std::string key(cstr, len);
+ float v[4];
+ v[0] = luaL_checknumber(L, 3);
+ v[1] = luaL_checknumber(L, 4);
+ v[2] = luaL_checknumber(L, 5);
+ v[3] = luaL_checknumber(L, 6);
+ (void)effect->set_vec4(key, v);
+ return 0;
+}
+