bluecore/engine/ScriptSystem_Image.cpp
2008-01-17 16:42:24 +00:00

127 lines
2.6 KiB
C++

#include "ScriptSystem_Image.h"
#include "TextureImage.h"
namespace BlueCore
{
//------------------------------------------------------------------------------
static weak_ptr<TextureManager> gTextureManager;
static weak_ptr<RenderDevice> gRenderDevice;
//------------------------------------------------------------------------------
static SQInteger _image_releasehook(SQUserPointer p, SQInteger size)
{
TextureImage *image = (TextureImage *)p;
if (image)
image->removeReference();
return 1;
}
//------------------------------------------------------------------------------
static SQInteger _image_constructor(HSQUIRRELVM vm)
{
SQInteger argc = sq_gettop (vm );
if (argc < 6)
return 0;
TextureImage *image = 0;
const SQChar *texturename = 0;
SQFloat ax, ay, bx, by;
sq_getstring(vm, 2, &texturename );
sq_getfloat(vm, 3, &ax );
sq_getfloat(vm, 4, &ay );
sq_getfloat(vm, 5, &bx );
sq_getfloat(vm, 6, &by );
Texture *texture = gTextureManager->loadTexture(texturename, 0, 0);
image = new TextureImage( gRenderDevice, texture, ax, ay, bx, by );
image->addReference();
sq_setinstanceup(vm, 1, (void *)image );
sq_setreleasehook (vm, 1, _image_releasehook );
return 0;
}
//------------------------------------------------------------------------------
static SQInteger _image_draw(HSQUIRRELVM vm)
{
int argc = sq_gettop (vm );
if (argc < 3)
return 0;
TextureImage *image = 0;
sq_getinstanceup (vm, 1, ( void ** ) &image, 0);
if (image )
{
SQFloat x, y, r = 0.0;
SQInteger halign = 0, valign = 0;
sq_getfloat (vm, 2, &x );
sq_getfloat (vm, 3, &y );
if (argc > 3)
{
sq_getinteger(vm, 4, &halign );
}
if (argc > 4)
{
sq_getinteger(vm, 5, &valign );
}
if (argc > 5)
{
sq_getfloat(vm, 6, &r );
}
image->draw(x, y, halign, valign, r );
}
return 0;
}
//------------------------------------------------------------------------------
void setupScriptSystem_Image(ScriptSystem* scriptsystem,
TextureManager* texturemanager, RenderDevice* renderdevice)
{
if (scriptsystem == 0|| texturemanager == 0|| renderdevice == 0)
return;
gTextureManager = texturemanager;
gRenderDevice = renderdevice;
HSQUIRRELVM vm = scriptsystem->getVM();
sq_pushroottable (vm );
// push class
sq_pushstring (vm, "Image", -1);
if (SQ_SUCCEEDED (sq_newclass (vm, SQFalse ) ) )
{
// register constructor
sq_pushstring (vm, "constructor", -1);
sq_newclosure (vm, _image_constructor, 0);
sq_newslot (vm, -3, false);
sq_pushstring (vm, "draw", -1);
sq_newclosure (vm, _image_draw, 0);
sq_newslot (vm, -3, false);
// create class
sq_newslot (vm, -3, false);
}
sq_poptop (vm );
}
}