Removed palette changing functionality from graphics.c

This commit is contained in:
rxi
2016-09-22 19:14:48 +01:00
parent 92511f0132
commit 7848c10af9

View File

@@ -1,4 +1,4 @@
/**
/**
* Copyright (c) 2014 rxi
*
* This library is free software; you can redistribute it and/or modify it
@@ -17,7 +17,6 @@
image_t *graphics_screen;
font_t *graphics_defaultFont;
int graphics_defaultPalette;
image_t *graphics_canvas;
font_t *graphics_font;
@@ -157,7 +156,7 @@ int l_graphics_setCanvas(lua_State *L) {
lua_pushlightuserdata(L, &graphics_screen);
lua_gettable(L, LUA_REGISTRYINDEX);
lua_insert(L, 1);
}
}
graphics_canvas = luaobj_checkudata(L, 1, LUAOBJ_TYPE_IMAGE);
/* Remove old canvas from registry. This is done after we know the args are
* okay so that the canvas remains unchanged if an error occurs */
@@ -187,73 +186,6 @@ int l_graphics_setFlip(lua_State *L) {
}
int l_graphics_getPalette(lua_State *L) {
if (lua_isnoneornil(L, 1)) {
lua_newtable(L);
outp(0x03c6, 0xff);
outp(0x03c7, 0);
int i;
for (i = 0; i < 768; i += 3) {
lua_pushinteger(L, inp(0x03c9) << 2); lua_rawseti(L, -2, i + 1);
lua_pushinteger(L, inp(0x03c9) << 2); lua_rawseti(L, -2, i + 2);
lua_pushinteger(L, inp(0x03c9) << 2); lua_rawseti(L, -2, i + 3);
}
return 1;
} else {
int idx = luaL_checkint(L, 1);
if (idx < 0 || idx > 0xff) return 0;
outp(0x03c6, 0xff);
outp(0x03c7, idx);
lua_pushinteger(L, inp(0x03c9) << 2);
lua_pushinteger(L, inp(0x03c9) << 2);
lua_pushinteger(L, inp(0x03c9) << 2);
return 3;
}
return 0;
}
int l_graphics_setPalette(lua_State *L) {
#define CLAMP(x, a, b) ((x) < (a) ? (a) : (x) > (b) ? (b) : (x))
if (lua_isnoneornil(L, 1)) {
/* Set the first argument to the default palette if no arguments were
* given */
lua_pushlightuserdata(L, &graphics_defaultPalette);
lua_gettable(L, LUA_REGISTRYINDEX);
lua_insert(L, 1);
}
if (lua_type(L, 1) == LUA_TTABLE) {
luaL_argcheck(L, lua_rawlen(L, 1) == 768, 1,
"expected table with length of 768");
outp(0x03c8, 0);
int i;
for (i = 0; i < 768; i += 3) {
lua_rawgeti(L, 1, i + 1); int r = lua_tointeger(L, -1); lua_pop(L, 1);
lua_rawgeti(L, 1, i + 2); int g = lua_tointeger(L, -1); lua_pop(L, 1);
lua_rawgeti(L, 1, i + 3); int b = lua_tointeger(L, -1); lua_pop(L, 1);
outp(0x03c9, CLAMP(r, 0, 0xff) >> 2);
outp(0x03c9, CLAMP(g, 0, 0xff) >> 2);
outp(0x03c9, CLAMP(b, 0, 0xff) >> 2);
}
} else {
int idx = luaL_checkint(L, 1);
int r = luaL_checkint(L, 2);
int g = luaL_checkint(L, 3);
int b = luaL_checkint(L, 4);
if (idx < 0 || idx > 0xff) return 0;
outp(0x03c8, idx);
outp(0x03c9, CLAMP(r, 0, 0xff) >> 2);
outp(0x03c9, CLAMP(g, 0, 0xff) >> 2);
outp(0x03c9, CLAMP(b, 0, 0xff) >> 2);
}
#undef CLAMP
return 0;
}
int l_graphics_reset(lua_State *L) {
int (*funcs[])(lua_State*) = {
l_graphics_setBackgroundColor,
@@ -521,8 +453,6 @@ int luaopen_graphics(lua_State *L) {
{ "setCanvas", l_graphics_setCanvas },
{ "getFlip", l_graphics_getFlip },
{ "setFlip", l_graphics_setFlip },
{ "getPalette", l_graphics_getPalette },
{ "setPalette", l_graphics_setPalette },
{ "reset", l_graphics_reset },
{ "clear", l_graphics_clear },
{ "present", l_graphics_present },
@@ -540,12 +470,6 @@ int luaopen_graphics(lua_State *L) {
};
luaL_newlib(L, reg);
/* Get the default palette and save to the registry */
lua_pushlightuserdata(L, &graphics_defaultPalette);
lua_pushcfunction(L, l_graphics_getPalette);
lua_call(L, 0, 1);
lua_settable(L, LUA_REGISTRYINDEX);
/* Init screen canvas */
lua_pushcfunction(L, l_image_newCanvas);
lua_pushinteger(L, VGA_WIDTH);