1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279 |
- /**
- * Copyright (c) 2006-2011 LOVE Development Team
- *
- * This software is provided 'as-is', without any express or implied
- * warranty. In no event will the authors be held liable for any damages
- * arising from the use of this software.
- *
- * Permission is granted to anyone to use this software for any purpose,
- * including commercial applications, and to alter it and redistribute it
- * freely, subject to the following restrictions:
- *
- * 1. The origin of this software must not be misrepresented; you must not
- * claim that you wrote the original software. If you use this software
- * in a product, an acknowledgment in the product documentation would be
- * appreciated but is not required.
- * 2. Altered source versions must be plainly marked as such, and must not be
- * misrepresented as being the original software.
- * 3. This notice may not be removed or altered from any source distribution.
- **/
- #include "wrap_Graphics.h"
- #include <image/ImageData.h>
- #include <font/Rasterizer.h>
- #include <scripts/graphics.lua.h>
- #include <cassert>
- namespace love
- {
- namespace graphics
- {
- namespace opengl
- {
- static Graphics * instance = 0;
- int w_checkMode(lua_State * L)
- {
- int w = luaL_checkint(L, 1);
- int h = luaL_checkint(L, 2);
- bool fs = luax_toboolean(L, 3);
- luax_pushboolean(L, instance->checkMode(w, h, fs));
- return 1;
- }
- int w_setMode(lua_State * L)
- {
- int w = luaL_checkint(L, 1);
- int h = luaL_checkint(L, 2);
- bool fs = luax_optboolean(L, 3, false);
- bool vsync = luax_optboolean(L, 4, true);
- int fsaa = luaL_optint(L, 5, 0);
- luax_pushboolean(L, instance->setMode(w, h, fs, vsync, fsaa));
- return 1;
- }
- int w_getMode(lua_State * L)
- {
- int w, h, fsaa;
- bool fs, vsync;
- instance->getMode(&w, &h, &fs, &vsync, &fsaa);
- lua_pushnumber(L, w);
- lua_pushnumber(L, h);
- lua_pushboolean(L, fs);
- lua_pushboolean(L, vsync);
- lua_pushnumber(L, fsaa);
- return 5;
- }
- int w_toggleFullscreen(lua_State * L)
- {
- luax_pushboolean(L, instance->toggleFullscreen());
- return 1;
- }
- int w_reset(lua_State *)
- {
- instance->reset();
- return 0;
- }
- int w_clear(lua_State *)
- {
- instance->clear();
- return 0;
- }
- int w_present(lua_State *)
- {
- instance->present();
- return 0;
- }
- int w_setIcon(lua_State * L)
- {
- Image * image = luax_checktype<Image>(L, 1, "Image", GRAPHICS_IMAGE_T);
- instance->setIcon(image);
- return 0;
- }
- int w_setCaption(lua_State * L)
- {
- const char * str = luaL_checkstring(L, 1);
- instance->setCaption(str);
- return 0;
- }
- int w_getCaption(lua_State * L)
- {
- return instance->getCaption(L);
- }
- int w_getWidth(lua_State * L)
- {
- lua_pushnumber(L, instance->getWidth());
- return 1;
- }
- int w_getHeight(lua_State * L)
- {
- lua_pushnumber(L, instance->getHeight());
- return 1;
- }
- int w_isCreated(lua_State * L)
- {
- luax_pushboolean(L, instance->isCreated());
- return 1;
- }
- int w_getModes(lua_State * L)
- {
- return instance->getModes(L);
- }
- int w_setScissor(lua_State * L)
- {
- if(lua_gettop(L) == 0)
- {
- instance->setScissor();
- return 0;
- }
- int x = luaL_checkint(L, 1);
- int y = luaL_checkint(L, 2);
- int w = luaL_checkint(L, 3);
- int h = luaL_checkint(L, 4);
- if (w < 0 || h < 0)
- return luaL_error(L, "Can't set scissor with negative width and/or height.");
- instance->setScissor(x, y, w, h);
- return 0;
- }
- int w_getScissor(lua_State * L)
- {
- return instance->getScissor(L);
- }
- int w_newStencil(lua_State * L)
- {
- // just return the function
- if (!lua_isfunction(L, 1))
- return luaL_typerror(L, 1, "function");
- lua_settop(L, 1);
- return 1;
- }
- static int setStencil(lua_State * L, bool invert)
- {
- // stencils require the default fb to work properly
- Canvas::TemporaryUnbinder unbinder;
- // no argument -> clear mask
- if (lua_isnoneornil(L, 1)) {
- instance->discardStencil();
- return 0;
- }
- if (!lua_isfunction(L, 1))
- return luaL_typerror(L, 1, "mask");
- instance->defineStencil();
- lua_call(L, lua_gettop(L) - 1, 0); // call mask(...)
- instance->useStencil(invert);
- return 0;
- }
- int w_setStencil(lua_State * L)
- {
- return setStencil(L, false);
- }
- int w_setInvertedStencil(lua_State * L)
- {
- return setStencil(L, true);
- }
- int w_newImage(lua_State * L)
- {
- // Convert to File, if necessary.
- if(lua_isstring(L, 1))
- luax_convobj(L, 1, "filesystem", "newFile");
- // Convert to ImageData, if necessary.
- if(luax_istype(L, 1, FILESYSTEM_FILE_T))
- luax_convobj(L, 1, "image", "newImageData");
- love::image::ImageData * data = luax_checktype<love::image::ImageData>(L, 1, "ImageData", IMAGE_IMAGE_DATA_T);
- // Create the image.
- Image * image = 0;
- try {
- image = instance->newImage(data);
- } catch (love::Exception & e) {
- luaL_error(L, e.what());
- }
- if(image == 0)
- return luaL_error(L, "Could not load image.");
- // Push the type.
- luax_newtype(L, "Image", GRAPHICS_IMAGE_T, (void*)image);
- return 1;
- }
- int w_newQuad(lua_State * L)
- {
- float x = (float) luaL_checknumber(L, 1);
- float y = (float) luaL_checknumber(L, 2);
- float w = (float) luaL_checknumber(L, 3);
- float h = (float) luaL_checknumber(L, 4);
- float sw = (float) luaL_checknumber(L, 5);
- float sh = (float) luaL_checknumber(L, 6);
- Quad * frame = instance->newQuad(x, y, w, h, sw, sh);
- if (frame == 0)
- return luaL_error(L, "Could not create frame.");
- luax_newtype(L, "Quad", GRAPHICS_QUAD_T, (void*)frame);
- return 1;
- }
- int w_newFont1(lua_State * L)
- {
- // Convert to File, if necessary.
- if(lua_isstring(L, 1))
- luax_convobj(L, 1, "filesystem", "newFile");
- // Convert to Data, if necessary.
- if(luax_istype(L, 1, FILESYSTEM_FILE_T)) {
- love::filesystem::File * f = luax_checktype<love::filesystem::File>(L, 1, "File", FILESYSTEM_FILE_T);
- Data * d;
- try {
- d = f->read();
- }
- catch (love::Exception & e) {
- return luaL_error(L, e.what());
- }
- lua_remove(L, 1); // get rid of the file
- luax_newtype(L, "Data", DATA_T, (void*)d);
- lua_insert(L, 1); // put it at the bottom of the stack
- }
- // Convert to Rasterizer, if necessary.
- if(luax_istype(L, 1, DATA_T)) {
- int idxs[] = {1, 2};
- luax_convobj(L, idxs, 2, "font", "newRasterizer");
- }
- love::font::Rasterizer * rasterizer = luax_checktype<love::font::Rasterizer>(L, 1, "Rasterizer", FONT_RASTERIZER_T);
- // Create the font.
- Font * font = instance->newFont(rasterizer);
- if(font == 0)
- return luaL_error(L, "Could not load font.");
- // Push the type.
- luax_newtype(L, "Font", GRAPHICS_FONT_T, (void*)font);
- return 1;
- }
- int w_newImageFont(lua_State * L)
- {
- // filter for glyphs, defaults to linear/linear
- Image::Filter img_filter;
- // Convert to ImageData if necessary.
- if(lua_isstring(L, 1) || luax_istype(L, 1, FILESYSTEM_FILE_T) || (luax_istype(L, 1, DATA_T) && !luax_istype(L, 1, IMAGE_IMAGE_DATA_T)))
- luax_convobj(L, 1, "image", "newImageData");
- else if(luax_istype(L, 1, GRAPHICS_IMAGE_T)) {
- Image * i = luax_checktype<Image>(L, 1, "Image", GRAPHICS_IMAGE_T);
- img_filter = i->getFilter();
- love::image::ImageData * id = i->getData();
- luax_newtype(L, "ImageData", IMAGE_IMAGE_DATA_T, (void*)id, false);
- lua_replace(L, 1);
- }
- // Convert to Rasterizer if necessary.
- if(luax_istype(L, 1, IMAGE_IMAGE_DATA_T)) {
- int idxs[] = {1, 2};
- luax_convobj(L, idxs, 2, "font", "newRasterizer");
- }
- love::font::Rasterizer * rasterizer = luax_checktype<love::font::Rasterizer>(L, 1, "Rasterizer", FONT_RASTERIZER_T);
- // Create the font.
- Font * font = instance->newFont(rasterizer, img_filter);
- if(font == 0)
- return luaL_error(L, "Could not load font.");
- // Push the type.
- luax_newtype(L, "Font", GRAPHICS_FONT_T, (void*)font);
- return 1;
- }
- int w_newSpriteBatch(lua_State * L)
- {
- Image * image = luax_checktype<Image>(L, 1, "Image", GRAPHICS_IMAGE_T);
- int size = luaL_optint(L, 2, 1000);
- SpriteBatch::UsageHint usage = SpriteBatch::USAGE_DYNAMIC;
- if (lua_gettop(L) > 2)
- {
- if (!SpriteBatch::getConstant(luaL_checkstring(L, 3), usage))
- usage = SpriteBatch::USAGE_DYNAMIC;
- }
- SpriteBatch * t = NULL;
- try {
- t = instance->newSpriteBatch(image, size, usage);
- } catch(love::Exception& e) {
- return luaL_error(L, e.what());
- }
- luax_newtype(L, "SpriteBatch", GRAPHICS_SPRITE_BATCH_T, (void*)t);
- return 1;
- }
- int w_newParticleSystem(lua_State * L)
- {
- Image * image = luax_checktype<Image>(L, 1, "Image", GRAPHICS_IMAGE_T);
- int size = luaL_checkint(L, 2);
- ParticleSystem * t = instance->newParticleSystem(image, size);
- luax_newtype(L, "ParticleSystem", GRAPHICS_PARTICLE_SYSTEM_T, (void*)t);
- return 1;
- }
- int w_newCanvas(lua_State * L)
- {
- // check if width and height are given. else default to screen dimensions.
- int width = luaL_optint(L, 1, instance->getWidth());
- int height = luaL_optint(L, 2, instance->getHeight());
- glGetError(); // clear opengl error flag
- Canvas * canvas = NULL;
- try {
- canvas = instance->newCanvas(width, height);
- } catch (Exception& e) {
- return luaL_error(L, e.what());
- }
- if (NULL == canvas)
- return luaL_error(L, "Canvas not created, but no error thrown. I don't even...");
- luax_newtype(L, "Canvas", GRAPHICS_CANVAS_T, (void*)canvas);
- return 1;
- }
- int w_newPixelEffect(lua_State * L)
- {
- if (!PixelEffect::isSupported())
- return luaL_error(L, "Sorry, your graphics card does not support pixel effects.");
- try {
- luaL_checkstring(L, 1);
- luax_getfunction(L, "graphics", "_effectCodeToGLSL");
- lua_pushvalue(L, 1);
- lua_pcall(L, 1, 1, 0);
- const char* code = lua_tostring(L, -1);
- PixelEffect * effect = instance->newPixelEffect(code);
- luax_newtype(L, "PixelEffect", GRAPHICS_PIXELEFFECT_T, (void*)effect);
- } catch (love::Exception& e) {
- // memory is freed in Graphics::newPixelEffect
- luax_getfunction(L, "graphics", "_transformGLSLErrorMessages");
- lua_pushstring(L, e.what());
- lua_pcall(L, 1,1, 0);
- const char* err = lua_tostring(L, -1);
- return luaL_error(L, err);
- }
- return 1;
- }
- int w_setColor(lua_State * L)
- {
- Color c;
- if (lua_istable(L, 1)) {
- lua_pushinteger(L, 1);
- lua_gettable(L, -2);
- c.r = (unsigned char)luaL_checkint(L, -1);
- lua_pop(L, 1);
- lua_pushinteger(L, 2);
- lua_gettable(L, -2);
- c.g = (unsigned char)luaL_checkint(L, -1);
- lua_pop(L, 1);
- lua_pushinteger(L, 3);
- lua_gettable(L, -2);
- c.b = (unsigned char)luaL_checkint(L, -1);
- lua_pop(L, 1);
- lua_pushinteger(L, 4);
- lua_gettable(L, -2);
- c.a = (unsigned char)luaL_optint(L, -1, 255);
- lua_pop(L, 1);
- }
- else
- {
- c.r = (unsigned char)luaL_checkint(L, 1);
- c.g = (unsigned char)luaL_checkint(L, 2);
- c.b = (unsigned char)luaL_checkint(L, 3);
- c.a = (unsigned char)luaL_optint(L, 4, 255);
- }
- instance->setColor(c);
- return 0;
- }
- int w_getColor(lua_State * L)
- {
- Color c = instance->getColor();
- lua_pushinteger(L, c.r);
- lua_pushinteger(L, c.g);
- lua_pushinteger(L, c.b);
- lua_pushinteger(L, c.a);
- return 4;
- }
- int w_setBackgroundColor(lua_State * L)
- {
- Color c;
- if (lua_istable(L, 1)) {
- lua_pushinteger(L, 1);
- lua_gettable(L, -2);
- c.r = (unsigned char)luaL_checkint(L, -1);
- lua_pop(L, 1);
- lua_pushinteger(L, 2);
- lua_gettable(L, -2);
- c.g = (unsigned char)luaL_checkint(L, -1);
- lua_pop(L, 1);
- lua_pushinteger(L, 3);
- lua_gettable(L, -2);
- c.b = (unsigned char)luaL_checkint(L, -1);
- lua_pop(L, 1);
- lua_pushinteger(L, 4);
- lua_gettable(L, -2);
- c.a = (unsigned char)luaL_optint(L, -1, 255);
- lua_pop(L, 1);
- }
- else
- {
- c.r = (unsigned char)luaL_checkint(L, 1);
- c.g = (unsigned char)luaL_checkint(L, 2);
- c.b = (unsigned char)luaL_checkint(L, 3);
- c.a = (unsigned char)luaL_optint(L, 4, 255);
- }
- instance->setBackgroundColor(c);
- return 0;
- }
- int w_getBackgroundColor(lua_State * L)
- {
- Color c = instance->getBackgroundColor();
- lua_pushinteger(L, c.r);
- lua_pushinteger(L, c.g);
- lua_pushinteger(L, c.b);
- lua_pushinteger(L, c.a);
- return 4;
- }
- int w_setFont1(lua_State * L)
- {
- // The second parameter is an optional int.
- int size = luaL_optint(L, 2, 12);
- Font * font;
- bool created = false;
- // If the first parameter isn't a Font, create a new one
- if (!luax_istype(L, 1, GRAPHICS_FONT_T)) {
- created = true;
- lua_pushinteger(L, size); // push the size
- lua_insert(L, 2); // move it to its proper place
- // Convert to File, if necessary.
- if(lua_isstring(L, 1))
- luax_convobj(L, 1, "filesystem", "newFile");
- // Convert to Data, if necessary.
- if(luax_istype(L, 1, FILESYSTEM_FILE_T)) {
- love::filesystem::File * f = luax_checktype<love::filesystem::File>(L, 1, "File", FILESYSTEM_FILE_T);
- Data * d;
- try {
- d = f->read();
- } catch (love::Exception & e) {
- return luaL_error(L, e.what());
- }
- lua_remove(L, 1); // get rid of the file
- luax_newtype(L, "Data", DATA_T, (void*)d);
- lua_insert(L, 1); // put it at the bottom of the stack
- }
- // Convert to Rasterizer, if necessary.
- if(luax_istype(L, 1, DATA_T)) {
- int idxs[] = {1, 2};
- luax_convobj(L, idxs, 2, "font", "newRasterizer");
- }
- love::font::Rasterizer * rasterizer = luax_checktype<love::font::Rasterizer>(L, 1, "Rasterizer", FONT_RASTERIZER_T);
- // Create the font.
- font = instance->newFont(rasterizer);
- if(font == 0)
- return luaL_error(L, "Could not load font.");
- }
- else font = luax_checktype<Font>(L, 1, "Font", GRAPHICS_FONT_T);
- instance->setFont(font);
- if (created)
- font->release();
- return 0;
- }
- int w_getFont(lua_State * L)
- {
- Font * f = instance->getFont();
- if(f == 0)
- return 0;
- f->retain();
- luax_newtype(L, "Font", GRAPHICS_FONT_T, (void*)f);
- return 1;
- }
- int w_setBlendMode(lua_State * L)
- {
- Graphics::BlendMode mode;
- const char * str = luaL_checkstring(L, 1);
- if(!Graphics::getConstant(str, mode))
- return luaL_error(L, "Invalid blend mode: %s", str);
- instance->setBlendMode(mode);
- return 0;
- }
- int w_setColorMode(lua_State * L)
- {
- Graphics::ColorMode mode;
- const char * str = luaL_checkstring(L, 1);
- if(!Graphics::getConstant(str, mode))
- return luaL_error(L, "Invalid color mode: %s", str);
- instance->setColorMode(mode);
- return 0;
- }
- int w_getBlendMode(lua_State * L)
- {
- Graphics::BlendMode mode = instance->getBlendMode();
- const char * str;
- if(!Graphics::getConstant(mode, str))
- return luaL_error(L, "Invalid blend mode: %s", str);
- lua_pushstring(L, str);
- return 1;
- }
- int w_getColorMode(lua_State * L)
- {
- Graphics::ColorMode mode = instance->getColorMode();
- const char * str;
- if(!Graphics::getConstant(mode, str))
- return luaL_error(L, "Invalid color mode: %s", str);
- lua_pushstring(L, str);
- return 1;
- }
- int w_setLineWidth(lua_State * L)
- {
- float width = (float)luaL_checknumber(L, 1);
- instance->setLineWidth(width);
- return 0;
- }
- int w_setLineStyle(lua_State * L)
- {
- Graphics::LineStyle style;
- const char * str = luaL_checkstring(L, 1);
- if(!Graphics::getConstant(str, style))
- return luaL_error(L, "Invalid line style: %s", str);
- instance->setLineStyle(style);
- return 0;
- }
- int w_setLine(lua_State * L)
- {
- float width = (float)luaL_checknumber(L, 1);
- Graphics::LineStyle style = Graphics::LINE_SMOOTH;
- if(lua_gettop(L) >= 2)
- {
- const char * str = luaL_checkstring(L, 2);
- if(!Graphics::getConstant(str, style))
- return luaL_error(L, "Invalid line style: %s", str);
- }
- instance->setLine(width, style);
- return 0;
- }
- int w_getLineWidth(lua_State * L)
- {
- lua_pushnumber(L, instance->getLineWidth());
- return 1;
- }
- int w_getLineStyle(lua_State * L)
- {
- Graphics::LineStyle style = instance->getLineStyle();
- const char *str;
- Graphics::getConstant(style, str);
- lua_pushstring(L, str);
- return 1;
- }
- int w_setPointSize(lua_State * L)
- {
- float size = (float)luaL_checknumber(L, 1);
- instance->setPointSize(size);
- return 0;
- }
- int w_setPointStyle(lua_State * L)
- {
- Graphics::PointStyle style = Graphics::POINT_SMOOTH;
- if(lua_gettop(L) >= 2)
- {
- const char * str = luaL_checkstring(L, 1);
- if(!Graphics::getConstant(str, style))
- return luaL_error(L, "Invalid point style: %s", str);
- }
- instance->setPointStyle(style);
- return 0;
- }
- int w_setPoint(lua_State * L)
- {
- float size = (float)luaL_checknumber(L, 1);
- Graphics::PointStyle style;
- const char * str = luaL_checkstring(L, 2);
- if(!Graphics::getConstant(str, style))
- return luaL_error(L, "Invalid point style: %s", str);
- instance->setPoint(size, style);
- return 0;
- }
- int w_getPointSize(lua_State * L)
- {
- lua_pushnumber(L, instance->getPointSize());
- return 1;
- }
- int w_getPointStyle(lua_State * L)
- {
- lua_pushinteger(L, instance->getPointStyle());
- return 1;
- }
- int w_getMaxPointSize(lua_State * L)
- {
- lua_pushnumber(L, instance->getMaxPointSize());
- return 1;
- }
- int w_newScreenshot(lua_State * L)
- {
- love::image::Image * image = luax_getmodule<love::image::Image>(L, "image", MODULE_IMAGE_T);
- love::image::ImageData * i = instance->newScreenshot(image);
- luax_newtype(L, "ImageData", IMAGE_IMAGE_DATA_T, (void *)i);
- return 1;
- }
- int w_setRenderTarget(lua_State * L)
- {
- // called with nil or none -> reset to default buffer
- if (lua_isnoneornil(L,1)) {
- Canvas::bindDefaultCanvas();
- return 0;
- }
- Canvas * canvas = luax_checkcanvas(L, 1);
- // this unbinds the previous fbo
- canvas->startGrab();
- return 0;
- }
- int w_getRenderTarget(lua_State * L)
- {
- Canvas *canvas = Canvas::current;
- if (canvas) {
- canvas->retain();
- luax_newtype(L, "Canvas", GRAPHICS_CANVAS_T, (void*) canvas);
- }
- else
- lua_pushnil(L);
- return 1;
- }
- int w_setPixelEffect(lua_State * L)
- {
- if (lua_isnoneornil(L,1)) {
- PixelEffect::detach();
- return 0;
- }
- PixelEffect * effect = luax_checkpixeleffect(L, 1);
- effect->attach();
- return 0;
- }
- int w_isSupported(lua_State * L)
- {
- bool supported = true;
- size_t len = lua_gettop(L);
- Graphics::Support support;
- for (unsigned int i = 1; i <= len; i++)
- {
- const char * str = luaL_checkstring(L, i);
- if(!Graphics::getConstant(str, support))
- supported = false;
- switch(support)
- {
- case Graphics::SUPPORT_CANVAS:
- if (!Canvas::isSupported())
- supported = false;
- break;
- case Graphics::SUPPORT_PIXELEFFECT:
- if (!PixelEffect::isSupported())
- supported = false;
- break;
- default:
- supported = false;
- }
- if (!supported)
- break;
- }
- lua_pushboolean(L, supported);
- return 1;
- }
- /**
- * Draws an Image at the specified coordinates, with rotation and
- * scaling along both axes.
- * @param x The x-coordinate.
- * @param y The y-coordinate.
- * @param angle The amount of rotation.
- * @param sx The scale factor along the x-axis. (1 = normal).
- * @param sy The scale factor along the y-axis. (1 = normal).
- * @param ox The offset along the x-axis.
- * @param oy The offset along the y-axis.
- * @param kx Shear along the x-axis.
- * @param ky Shear along the y-axis.
- **/
- int w_draw(lua_State * L)
- {
- Drawable * drawable = luax_checktype<Drawable>(L, 1, "Drawable", GRAPHICS_DRAWABLE_T);
- float x = (float)luaL_optnumber(L, 2, 0.0f);
- float y = (float)luaL_optnumber(L, 3, 0.0f);
- float angle = (float)luaL_optnumber(L, 4, 0.0f);
- float sx = (float)luaL_optnumber(L, 5, 1.0f);
- float sy = (float)luaL_optnumber(L, 6, sx);
- float ox = (float)luaL_optnumber(L, 7, 0);
- float oy = (float)luaL_optnumber(L, 8, 0);
- float kx = (float)luaL_optnumber(L, 9, 0);
- float ky = (float)luaL_optnumber(L, 10, 0);
- drawable->draw(x, y, angle, sx, sy, ox, oy, kx, ky);
- return 0;
- }
- /**
- * Draws an Quad of an Image at the specified coordinates,
- * with rotation and scaling along both axes.
- *
- * @param q The Quad to draw.
- * @param x The x-coordinate.
- * @param y The y-coordinate.
- * @param angle The amount of rotation.
- * @param sx The scale factor along the x-axis. (1 = normal).
- * @param sy The scale factor along the y-axis. (1 = normal).
- * @param ox The offset along the x-axis.
- * @param oy The offset along the y-axis.
- * @param kx Shear along the x-axis.
- * @param ky Shear along the y-axis.
- **/
- int w_drawq(lua_State * L)
- {
- Image * image = luax_checktype<Image>(L, 1, "Image", GRAPHICS_IMAGE_T);
- Quad * q = luax_checkframe(L, 2);
- float x = (float)luaL_checknumber(L, 3);
- float y = (float)luaL_checknumber(L, 4);
- float angle = (float)luaL_optnumber(L, 5, 0);
- float sx = (float)luaL_optnumber(L, 6, 1);
- float sy = (float)luaL_optnumber(L, 7, sx);
- float ox = (float)luaL_optnumber(L, 8, 0);
- float oy = (float)luaL_optnumber(L, 9, 0);
- float kx = (float)luaL_optnumber(L, 10, 0);
- float ky = (float)luaL_optnumber(L, 11, 0);
- image->drawq(q, x, y, angle, sx, sy, ox, oy, kx, ky);
- return 0;
- }
- int w_drawTest(lua_State * L)
- {
- Image * image = luax_checktype<Image>(L, 1, "Image", GRAPHICS_IMAGE_T);
- float x = (float)luaL_optnumber(L, 2, 0.0f);
- float y = (float)luaL_optnumber(L, 3, 0.0f);
- float angle = (float)luaL_optnumber(L, 4, 0.0f);
- float sx = (float)luaL_optnumber(L, 5, 1.0f);
- float sy = (float)luaL_optnumber(L, 6, sx);
- float ox = (float)luaL_optnumber(L, 7, 0);
- float oy = (float)luaL_optnumber(L, 8, 0);
- instance->drawTest(image, x, y, angle, sx, sy, ox, oy);
- return 0;
- }
- int w_print1(lua_State * L)
- {
- const char * str = luaL_checkstring(L, 1);
- float x = (float)luaL_checknumber(L, 2);
- float y = (float)luaL_checknumber(L, 3);
- float angle = (float)luaL_optnumber(L, 4, 0.0f);
- float sx = (float)luaL_optnumber(L, 5, 1.0f);
- float sy = (float)luaL_optnumber(L, 6, sx);
- float ox = (float)luaL_optnumber(L, 7, 0.0f);
- float oy = (float)luaL_optnumber(L, 8, 0.0f);
- float kx = (float)luaL_optnumber(L, 9, 0.0f);
- float ky = (float)luaL_optnumber(L, 10, 0.0f);
- try
- {
- instance->print(str, x, y, angle, sx, sy, ox, oy, kx,ky);
- }
- catch (love::Exception e)
- {
- return luaL_error(L, "Decoding error: %s", e.what());
- }
- return 0;
- }
- int w_printf1(lua_State * L)
- {
- const char * str = luaL_checkstring(L, 1);
- float x = (float)luaL_checknumber(L, 2);
- float y = (float)luaL_checknumber(L, 3);
- float wrap = (float)luaL_checknumber(L, 4);
- Graphics::AlignMode align = Graphics::ALIGN_LEFT;
- if(lua_gettop(L) >= 5)
- {
- const char * str = luaL_checkstring(L, 5);
- if(!Graphics::getConstant(str, align))
- return luaL_error(L, "Incorrect alignment: %s", str);
- }
- try
- {
- instance->printf(str, x, y, wrap, align);
- }
- catch (love::Exception e)
- {
- return luaL_error(L, "Decoding error: %s", e.what());
- }
- return 0;
- }
- int w_point(lua_State * L)
- {
- float x = (float)luaL_checknumber(L, 1);
- float y = (float)luaL_checknumber(L, 2);
- instance->point(x, y);
- return 0;
- }
- int w_line(lua_State * L)
- {
- int args = lua_gettop(L);
- bool is_table = false;
- if (args == 1 && lua_istable(L, 1)) {
- args = lua_objlen(L, 1);
- is_table = true;
- }
- if (args % 2 != 0)
- return luaL_error(L, "Number of vertices must be a multiple of two");
- else if (args < 4)
- return luaL_error(L, "Need at least two vertices to draw a line");
- float* coords = new float[args];
- if (is_table) {
- for (int i = 0; i < args; ++i) {
- lua_pushnumber(L, i + 1);
- lua_rawget(L, 1);
- coords[i] = luax_tofloat(L, -1);
- lua_pop(L, 1);
- }
- } else {
- for (int i = 0; i < args; ++i)
- coords[i] = luax_tofloat(L, i + 1);
- }
- instance->polyline(coords, args);
- delete[] coords;
- return 0;
- }
- int w_triangle(lua_State * L)
- {
- Graphics::DrawMode mode;
- const char * str = luaL_checkstring(L, 1);
- if(!Graphics::getConstant(str, mode))
- return luaL_error(L, "Incorrect draw mode %s", str);
- float x1 = (float)luaL_checknumber(L, 2);
- float y1 = (float)luaL_checknumber(L, 3);
- float x2 = (float)luaL_checknumber(L, 4);
- float y2 = (float)luaL_checknumber(L, 5);
- float x3 = (float)luaL_checknumber(L, 6);
- float y3 = (float)luaL_checknumber(L, 7);
- instance->triangle(mode, x1, y1, x2, y2, x3, y3);
- return 0;
- }
- int w_rectangle(lua_State * L)
- {
- Graphics::DrawMode mode;
- const char * str = luaL_checkstring(L, 1);
- if(!Graphics::getConstant(str, mode))
- return luaL_error(L, "Incorrect draw mode %s", str);
- float x = (float)luaL_checknumber(L, 2);
- float y = (float)luaL_checknumber(L, 3);
- float w = (float)luaL_checknumber(L, 4);
- float h = (float)luaL_checknumber(L, 5);
- instance->rectangle(mode, x, y, w, h);
- return 0;
- }
- int w_quad(lua_State * L)
- {
- Graphics::DrawMode mode;
- const char * str = luaL_checkstring(L, 1);
- if(!Graphics::getConstant(str, mode))
- return luaL_error(L, "Incorrect draw mode %s", str);
- float x1 = (float)luaL_checknumber(L, 2);
- float y1 = (float)luaL_checknumber(L, 3);
- float x2 = (float)luaL_checknumber(L, 4);
- float y2 = (float)luaL_checknumber(L, 5);
- float x3 = (float)luaL_checknumber(L, 6);
- float y3 = (float)luaL_checknumber(L, 7);
- float x4 = (float)luaL_checknumber(L, 8);
- float y4 = (float)luaL_checknumber(L, 9);
- instance->quad(mode, x1, y1, x2, y2, x3, y3, x4, y4);
- return 0;
- }
- int w_circle(lua_State * L)
- {
- Graphics::DrawMode mode;
- const char * str = luaL_checkstring(L, 1);
- if(!Graphics::getConstant(str, mode))
- return luaL_error(L, "Incorrect draw mode %s", str);
- float x = (float)luaL_checknumber(L, 2);
- float y = (float)luaL_checknumber(L, 3);
- float radius = (float)luaL_checknumber(L, 4);
- int points;
- if (lua_gettop(L) > 4)
- points = lua_tointeger(L, 5);
- else
- points = radius > 10 ? radius : 10;
- instance->circle(mode, x, y, radius, points);
- return 0;
- }
-
- int w_arc(lua_State * L)
- {
- Graphics::DrawMode mode;
- const char * str = luaL_checkstring(L, 1);
- if(!Graphics::getConstant(str, mode))
- return luaL_error(L, "Incorrect draw mode %s", str);
-
- float x = (float)luaL_checknumber(L, 2);
- float y = (float)luaL_checknumber(L, 3);
- float radius = (float)luaL_checknumber(L, 4);
- float angle1 = (float)luaL_checknumber(L, 5);
- float angle2 = (float)luaL_checknumber(L, 6);
- int points = luaL_optint(L, 7, 10);
- instance->arc(mode, x, y, radius, angle1, angle2, points);
- return 0;
- }
- int w_polygon(lua_State * L)
- {
- int args = lua_gettop(L) - 1;
- Graphics::DrawMode mode;
- const char * str = luaL_checkstring(L, 1);
- if(!Graphics::getConstant(str, mode))
- return luaL_error(L, "Invalid draw mode: %s", str);
- bool is_table = false;
- float* coords;
- if (args == 1 && lua_istable(L, 2)) {
- args = lua_objlen(L, 2);
- is_table = true;
- }
- if (args % 2 != 0)
- return luaL_error(L, "Number of vertices must be a multiple of two");
- else if (args < 6)
- return luaL_error(L, "Need at least three vertices to draw a polygon");
- // fetch coords
- coords = new float[args + 2];
- if (is_table) {
- for (int i = 0; i < args; ++i) {
- lua_pushnumber(L, i + 1);
- lua_rawget(L, 2);
- coords[i] = luax_tofloat(L, -1);
- lua_pop(L, 1);
- }
- } else {
- for (int i = 0; i < args; ++i)
- coords[i] = luax_tofloat(L, i + 2);
- }
- // make a closed loop
- coords[args] = coords[0];
- coords[args+1] = coords[1];
- instance->polygon(mode, coords, args+2);
- delete[] coords;
-
- return 0;
- }
- int w_push(lua_State *L)
- {
- try
- {
- instance->push();
- }
- catch (love::Exception e)
- {
- return luaL_error(L, e.what());
- }
- return 0;
- }
- int w_pop(lua_State *L)
- {
- try
- {
- instance->pop();
- }
- catch (love::Exception e)
- {
- return luaL_error(L, e.what());
- }
- return 0;
- }
- int w_rotate(lua_State * L)
- {
- float deg = (float)luaL_checknumber(L, 1);
- instance->rotate(deg);
- return 0;
- }
- int w_scale(lua_State * L)
- {
- float sx = (float)luaL_optnumber(L, 1, 1.0f);
- float sy = (float)luaL_optnumber(L, 2, sx);
- instance->scale(sx, sy);
- return 0;
- }
- int w_translate(lua_State * L)
- {
- float x = (float)luaL_checknumber(L, 1);
- float y = (float)luaL_checknumber(L, 2);
- instance->translate(x, y);
- return 0;
- }
- int w_shear(lua_State * L)
- {
- float kx = (float)luaL_checknumber(L, 1);
- float ky = (float)luaL_checknumber(L, 2);
- instance->shear(kx, ky);
- return 0;
- }
- int w_hasFocus(lua_State * L)
- {
- luax_pushboolean(L, instance->hasFocus());
- return 1;
- }
- // List of functions to wrap.
- static const luaL_Reg functions[] = {
- { "checkMode", w_checkMode },
- { "setMode", w_setMode },
- { "getMode", w_getMode },
- { "toggleFullscreen", w_toggleFullscreen },
- { "reset", w_reset },
- { "clear", w_clear },
- { "present", w_present },
- { "newImage", w_newImage },
- { "newQuad", w_newQuad },
- { "newFont1", w_newFont1 },
- { "newImageFont", w_newImageFont },
- { "newSpriteBatch", w_newSpriteBatch },
- { "newParticleSystem", w_newParticleSystem },
- { "newCanvas", w_newCanvas },
- { "newPixelEffect", w_newPixelEffect },
- { "setColor", w_setColor },
- { "getColor", w_getColor },
- { "setBackgroundColor", w_setBackgroundColor },
- { "getBackgroundColor", w_getBackgroundColor },
- { "setFont1", w_setFont1 },
- { "getFont", w_getFont },
- { "setBlendMode", w_setBlendMode },
- { "setColorMode", w_setColorMode },
- { "getBlendMode", w_getBlendMode },
- { "getColorMode", w_getColorMode },
- { "setLineWidth", w_setLineWidth },
- { "setLineStyle", w_setLineStyle },
- { "setLine", w_setLine },
- { "getLineWidth", w_getLineWidth },
- { "getLineStyle", w_getLineStyle },
- { "setPointSize", w_setPointSize },
- { "setPointStyle", w_setPointStyle },
- { "setPoint", w_setPoint },
- { "getPointSize", w_getPointSize },
- { "getPointStyle", w_getPointStyle },
- { "getMaxPointSize", w_getMaxPointSize },
- { "newScreenshot", w_newScreenshot },
- { "setRenderTarget", w_setRenderTarget },
- { "getRenderTarget", w_getRenderTarget },
- { "setPixelEffect", w_setPixelEffect },
- { "isSupported", w_isSupported },
- { "draw", w_draw },
- { "drawq", w_drawq },
- { "drawTest", w_drawTest },
- { "print1", w_print1 },
- { "printf1", w_printf1 },
- { "setCaption", w_setCaption },
- { "getCaption", w_getCaption },
- { "setIcon", w_setIcon },
- { "getWidth", w_getWidth },
- { "getHeight", w_getHeight },
- { "isCreated", w_isCreated },
- { "getModes", w_getModes },
- { "setScissor", w_setScissor },
- { "getScissor", w_getScissor },
- { "newStencil", w_newStencil },
- { "setStencil", w_setStencil },
- { "setInvertedStencil", w_setInvertedStencil },
- { "point", w_point },
- { "line", w_line },
- { "triangle", w_triangle },
- { "rectangle", w_rectangle },
- { "quad", w_quad },
- { "circle", w_circle },
- { "arc", w_arc },
- { "polygon", w_polygon },
- { "push", w_push },
- { "pop", w_pop },
- { "rotate", w_rotate },
- { "scale", w_scale },
- { "translate", w_translate },
- { "shear", w_shear },
- { "hasFocus", w_hasFocus },
- { 0, 0 }
- };
- // Types for this module.
- static const lua_CFunction types[] = {
- luaopen_font,
- luaopen_image,
- luaopen_frame,
- luaopen_spritebatch,
- luaopen_particlesystem,
- luaopen_canvas,
- luaopen_pixeleffect,
- 0
- };
- int luaopen_love_graphics(lua_State * L)
- {
- if(instance == 0)
- {
- try
- {
- instance = new Graphics();
- }
- catch(Exception & e)
- {
- return luaL_error(L, e.what());
- }
- }
- else
- instance->retain();
- WrappedModule w;
- w.module = instance;
- w.name = "graphics";
- w.flags = MODULE_T;
- w.functions = functions;
- w.types = types;
- luax_register_module(L, w);
- if (luaL_loadbuffer(L, (const char *)graphics_lua, sizeof(graphics_lua), "graphics.lua") == 0)
- lua_call(L, 0, 0);
- return 0;
- }
- } // opengl
- } // graphics
- } // love
|