static void Thread_push_message (LIScrArgs* args)
{
const char* name = "";
const char* string = NULL;
LIScrData* data;
LIEngModel* emodel;
LIExtThread* self;
/* Read the name. */
self = args->self;
if (!liscr_args_geti_string (args, 0, &name))
liscr_args_gets_string (args, "name", &name);
/* Read and push the data. */
if (liscr_args_geti_string (args, 1, &string) ||
liscr_args_gets_string (args, "string", &string))
{
if (limai_program_push_message (self->program, LIMAI_MESSAGE_QUEUE_THREAD, LIMAI_MESSAGE_TYPE_STRING, name, string))
liscr_args_seti_bool (args, 1);
}
else if (liscr_args_geti_data (args, 1, LISCR_SCRIPT_MODEL, &data) ||
liscr_args_gets_data (args, "model", LISCR_SCRIPT_MODEL, &data))
{
emodel = liscr_data_get_data (data);
if (limai_program_push_message (self->program, LIMAI_MESSAGE_QUEUE_THREAD, LIMAI_MESSAGE_TYPE_MODEL, name, emodel->model))
liscr_args_seti_bool (args, 1);
}
else
{
if (limai_program_push_message (self->program, LIMAI_MESSAGE_QUEUE_THREAD, LIMAI_MESSAGE_TYPE_EMPTY, name, NULL))
liscr_args_seti_bool (args, 1);
}
}
static void Widget_canvas_image (LIScrArgs* args)
{
float color[4];
int dest_clip[4];
int dest_position[2];
int dest_size[2];
int source_position[2];
int source_tiling[6];
float* color_ptr = NULL;
int* dest_position_ptr = NULL;
int* dest_size_ptr = NULL;
int* dest_clip_ptr = NULL;
int* source_position_ptr = NULL;
int* source_tiling_ptr = NULL;
const char* source_image;
float rotation = 0.0f;
LIScrData* vector = NULL;
LIMatVector* rotation_center_ptr = NULL;
LIWdgWidget* widget;
/* Process arguments. */
widget = args->self;
if (!liscr_args_gets_string (args, "source_image", &source_image))
return;
if (liscr_args_gets_floatv (args, "color", 4, color) == 4)
{
color_ptr = color;
color[0] = LIMAT_CLAMP (color[0], 0.0f, 1.0f);
color[1] = LIMAT_CLAMP (color[1], 0.0f, 1.0f);
color[2] = LIMAT_CLAMP (color[2], 0.0f, 1.0f);
color[3] = LIMAT_CLAMP (color[3], 0.0f, 1.0f);
}
if (liscr_args_gets_intv (args, "dest_clip", 4, dest_clip) == 4)
dest_clip_ptr = dest_clip;
if (liscr_args_gets_intv (args, "dest_position", 2, dest_position) == 2)
dest_position_ptr = dest_position;
if (liscr_args_gets_intv (args, "dest_size", 2, dest_size) == 2)
dest_size_ptr = dest_size;
if (liscr_args_gets_intv (args, "source_position", 2, source_position) == 2)
source_position_ptr = source_position;
if (liscr_args_gets_intv (args, "source_tiling", 6, source_tiling) == 6)
source_tiling_ptr = source_tiling;
liscr_args_gets_float (args, "rotation", &rotation);
if (liscr_args_gets_data (args, "rotation_center", LISCR_SCRIPT_VECTOR, &vector))
rotation_center_ptr = liscr_data_get_data (vector);
/* Create the canvas element. */
liwdg_widget_canvas_insert_image (widget, source_image, color_ptr, dest_clip_ptr, dest_position_ptr,
dest_size_ptr, source_position_ptr, source_tiling_ptr, rotation, rotation_center_ptr);
}
static void Model_merge (LIScrArgs* args)
{
LIScrData* data;
LIEngModel* model1;
LIEngModel* model2;
if (liscr_args_geti_data (args, 0, LISCR_SCRIPT_MODEL, &data) ||
liscr_args_gets_data (args, "model", LISCR_SCRIPT_MODEL, &data))
{
model1 = args->self;
model2 = liscr_data_get_data (data);
if (!limdl_model_merge (model1->model, model2->model))
lisys_error_report ();
}
}
static void Widget_canvas_text (LIScrArgs* args)
{
int dest_clip[4];
int dest_position[2];
int dest_size[2];
float text_align[2];
float text_color[6];
int* dest_position_ptr = NULL;
int* dest_size_ptr = NULL;
int* dest_clip_ptr = NULL;
float* text_align_ptr = NULL;
float* text_color_ptr = NULL;
const char* text;
const char* text_font = "default";
float rotation = 0.0f;
LIScrData* vector = NULL;
LIMatVector* rotation_center_ptr = NULL;
LIWdgWidget* widget;
/* Process arguments. */
widget = args->self;
if (!liscr_args_gets_string (args, "text", &text))
return;
liscr_args_gets_string (args, "text_font", &text_font);
if (liscr_args_gets_intv (args, "dest_clip", 4, dest_clip) == 4)
dest_clip_ptr = dest_clip;
if (liscr_args_gets_intv (args, "dest_position", 2, dest_position) == 2)
dest_position_ptr = dest_position;
if (liscr_args_gets_intv (args, "dest_size", 2, dest_size) == 2)
dest_size_ptr = dest_size;
if (liscr_args_gets_floatv (args, "text_alignment", 2, text_align) == 2)
text_align_ptr = text_align;
if (liscr_args_gets_floatv (args, "text_color", 4, text_color) == 4)
{
text_color_ptr = text_color;
text_color[0] = LIMAT_CLAMP (text_color[0], 0.0f, 1.0f);
text_color[1] = LIMAT_CLAMP (text_color[1], 0.0f, 1.0f);
text_color[2] = LIMAT_CLAMP (text_color[2], 0.0f, 1.0f);
text_color[3] = LIMAT_CLAMP (text_color[3], 0.0f, 1.0f);
}
liscr_args_gets_float (args, "rotation", &rotation);
if (liscr_args_gets_data (args, "rotation_center", LISCR_SCRIPT_VECTOR, &vector))
rotation_center_ptr = liscr_data_get_data (vector);
/* Create the canvas element. */
liwdg_widget_canvas_insert_text (widget, text_font, text, dest_clip_ptr, dest_position_ptr,
dest_size_ptr, text_align_ptr, text_color_ptr, rotation, rotation_center_ptr);
}
static void Model_morph (LIScrArgs* args)
{
float value = 0.5f;
const char* shape;
LIEngModel* model;
LIEngModel* ref = NULL;
LIScrData* data;
model = args->self;
if (!liscr_args_geti_string (args, 0, &shape) &&
!liscr_args_gets_string (args, "shape", &shape))
return;
if (!liscr_args_geti_float (args, 1, &value))
liscr_args_gets_float (args, "value", &value);
if (!liscr_args_geti_data (args, 2, LISCR_SCRIPT_MODEL, &data))
liscr_args_gets_data (args, "ref", LISCR_SCRIPT_MODEL, &data);
if (data != NULL)
ref = liscr_data_get_data (data);
liscr_args_seti_bool (args, limdl_model_morph (model->model,
(ref != NULL)? ref->model : NULL, shape, value));
}
static void Sound_effect (LIScrArgs* args)
{
#ifndef LI_DISABLE_SOUND
int tmp;
int flags = 0;
float pitch;
float volume;
const char* effect;
LIEngObject* object;
LIExtModule* module;
LIMatVector velocity;
LIScrData* data;
LISndSource* source;
if (liscr_args_gets_string (args, "effect", &effect) &&
liscr_args_gets_data (args, "object", LISCR_SCRIPT_OBJECT, &data))
{
if (liscr_args_gets_bool (args, "positional", &tmp) && !tmp)
flags |= LIEXT_SOUND_FLAG_NONPOSITIONAL;
if (liscr_args_gets_bool (args, "repeating", &tmp) && tmp)
flags |= LIEXT_SOUND_FLAG_REPEAT;
object = liscr_data_get_data (data);
module = liscr_script_get_userdata (args->script, LIEXT_SCRIPT_SOUND);
source = liext_sound_set_effect (module, object->id, effect, flags);
if (source != NULL)
{
if (liscr_args_gets_float (args, "pitch", &pitch))
lisnd_source_set_pitch (source, pitch);
if (liscr_args_gets_float (args, "volume", &volume))
lisnd_source_set_volume (source, volume);
if (liscr_args_gets_vector (args, "velocity", &velocity))
lisnd_source_set_velocity (source, &velocity);
}
}
#endif
}
