Index: trunk/src/lua/lua_gfx.cc
===================================================================
--- trunk/src/lua/lua_gfx.cc	(revision 507)
+++ trunk/src/lua/lua_gfx.cc	(revision 507)
@@ -0,0 +1,182 @@
+// Copyright (C) 2016-2016 ChaosForge Ltd
+// http://chaosforge.org/
+//
+// This file is part of Nova libraries. 
+// For conditions of distribution and use, see copying.txt file in root folder.
+
+#include "nv/lua/lua_gfx.hh"
+
+#include "nv/base/capi.hh"
+#include "nv/lua/lua_raw.hh"
+#include "nv/lua/lua_templates.hh"
+
+using nv::lua::detail::is_color_mask;
+using nv::lua::detail::to_color_mask;
+using nv::lua::detail::to_pcolor_mask;
+using nv::lua::detail::push_color_mask;
+
+using nv::lua::detail::is_scissor_test;
+using nv::lua::detail::to_scissor_test;
+using nv::lua::detail::to_pscissor_test;
+using nv::lua::detail::push_scissor_test;
+
+using nv::lua::detail::is_clear_state;
+using nv::lua::detail::to_clear_state;
+using nv::lua::detail::to_pclear_state;
+using nv::lua::detail::push_clear_state;
+
+static int nlua_color_mask_tostring( lua_State * L )
+{
+	nv::color_mask* m = to_pcolor_mask( L, 1 );
+	lua_pushfstring( L, "color_mask(%s%s%s%s)",
+		m->red ? "R" : "-",
+		m->red ? "G" : "-",
+		m->red ? "B" : "-",
+		m->red ? "A" : "-"
+	);
+	return 1;
+}
+
+static int nlua_color_mask_index( lua_State * L )
+{
+	nv::color_mask* m = to_pcolor_mask( L, 1 );
+	size_t len = 0;
+	const char * key = lua_tolstring( L, 2, &len );
+	if ( len > 0 )
+	{
+		char k = key[0];
+		if ( k == 'r' && ( len == 1 || nv::nvstrcmp( key, "red" ) == 0 ) )
+		{
+			lua_pushboolean( L, m->red ); return 1;
+		}
+		if ( k == 'g' && ( len == 1 || nv::nvstrcmp( key, "green" ) == 0 ) )
+		{
+			lua_pushboolean( L, m->green ); return 1;
+		}
+		if ( k == 'b' && ( len == 1 || nv::nvstrcmp( key, "blue" ) == 0 ) )
+		{
+			lua_pushboolean( L, m->blue ); return 1;
+		}
+		if ( k == 'a' && ( len == 1 || nv::nvstrcmp( key, "alpha" ) == 0 ) )
+		{
+			lua_pushboolean( L, m->alpha ); return 1;
+		}
+	}
+
+	luaL_getmetafield( L, 1, "__functions" );
+	lua_pushvalue( L, 2 );
+	lua_rawget( L, -2 );
+	return 1;
+}
+
+static int nlua_color_mask_newindex( lua_State * L )
+{
+	nv::color_mask* m = to_pcolor_mask( L, 1 );
+	size_t len = 0;
+	const char * key = lua_tolstring( L, 2, &len );
+	if ( len > 0 )
+	{
+		char k = key[0];
+		if ( k == 'r' && ( len == 1 || nv::nvstrcmp( key, "red" ) == 0 ) )
+		{
+			m->red   = lua_toboolean( L, 3 ) != 0; return 0;
+		}
+		if ( k == 'g' && ( len == 1 || nv::nvstrcmp( key, "green" ) == 0 ) )
+		{
+			m->green = lua_toboolean( L, 3 ) != 0; return 0;
+		}
+		if ( k == 'b' && ( len == 1 || nv::nvstrcmp( key, "blue" ) == 0 ) )
+		{
+			m->blue  = lua_toboolean( L, 3 ) != 0; return 0;
+		}
+		if ( k == 'a' && ( len == 1 || nv::nvstrcmp( key, "alpha" ) == 0 ) )
+		{
+			m->alpha = lua_toboolean( L, 3 ) != 0; return 0;
+		}
+	}
+	luaL_error( L, "color_mask : unknown index - %s", lua_tostring( L, 2 ) );
+	return 0;
+}
+
+static int luaopen_color_mask( lua_State * L )
+{
+	struct constructor
+	{
+		static inline nv::color_mask construct( lua_State* L, int index )
+		{
+			int args = lua_gettop( L ) - index;
+			bool r = args >= 0 ? lua_toboolean( L, index + 0 ) != 0 : true;
+			bool g = args >= 1 ? lua_toboolean( L, index + 1 ) != 0 : true;
+			bool b = args >= 2 ? lua_toboolean( L, index + 2 ) != 0 : true;
+			bool a = args >= 3 ? lua_toboolean( L, index + 3 ) != 0 : true;
+			return nv::color_mask( r, g, b, a );
+		}
+	};
+
+	NV_LUA_STACK_ASSERT( L, 1 );
+	static const struct luaL_Reg nlua_color_mask_sf[] = {
+		{ "new",            nv::lua::detail::new_impl<nv::color_mask, constructor> },
+		{ NULL, NULL }
+	};
+
+	static const struct luaL_Reg nlua_color_mask_f[] = {
+		{ "clone",          nv::lua::detail::clone_impl<nv::color_mask> },
+		{ "tostring",       nlua_color_mask_tostring },
+		{ NULL, NULL }
+	};
+
+	static const struct luaL_Reg nlua_color_mask_sm[] = {
+		{ "__call",          nv::lua::detail::call_impl<nv::color_mask, constructor> },
+		{ NULL, NULL }
+	};
+
+	static const struct luaL_Reg nlua_color_mask_m[] = {
+		{ "__eq",       nv::lua::detail::eq_impl<nv::color_mask> },
+		{ "__index",    nlua_color_mask_index },
+		{ "__newindex", nlua_color_mask_newindex },
+		{ "__tostring", nlua_color_mask_tostring },
+		{ NULL, NULL }
+	};
+
+	luaL_newmetatable( L, nv::lua::pass_traits<nv::color_mask>::metatable() );
+	nlua_register( L, nlua_color_mask_m, -1 );
+	lua_createtable( L, 0, 0 );
+	nlua_register( L, nlua_color_mask_f, -1 );
+	lua_setfield( L, -2, "__functions" );
+	lua_pop( L, 1 );
+
+	lua_createtable( L, 0, 0 );
+	nlua_register( L, nlua_color_mask_sf, -1 );
+	lua_createtable( L, 0, 0 );
+	nlua_register( L, nlua_color_mask_sm, -1 );
+	lua_setmetatable( L, -2 );
+
+// 	nv::lua::detail::push_vec( L, T() );
+// 	lua_setfield( L, -2, "ZERO" );
+// 	nv::lua::detail::push_vec( L, nlua_vec_constructor<T, sizeof( T ) / sizeof( typename T::value_type )>::unit() );
+// 	lua_setfield( L, -2, "UNIT" );
+
+	return 1;
+}
+
+static int luaopen_scissor_test( lua_State * L )
+{
+	NV_LUA_STACK_ASSERT( L, 1 );
+	return 1;
+}
+
+static int luaopen_clear_state( lua_State * L )
+{
+	NV_LUA_STACK_ASSERT( L, 1 );
+	return 1;
+}
+
+
+void nv::lua::register_gfx( lua_State* L )
+{
+	int stack = lua_gettop( L );
+	nlua_requiref( L, "color_mask", luaopen_color_mask, 1 );
+	nlua_requiref( L, "scissor_test", luaopen_scissor_test, 1 );
+	nlua_requiref( L, "clear_state", luaopen_clear_state, 1 );
+	lua_settop( L, stack );
+}