/*! \brief Rotates a complex object in world coordinates
* \par Function Description
* This function rotates a complex \a object around the
* (\a centerx,\a centery) point by \a angle degrees.
* The center of rotation is in world units.
*
* \param [in] toplevel The toplevel environment.
* \param [in] centerx X coordinate of rotation center (world coords).
* \param [in] centery Y coordinate of rotation center (world coords).
* \param [in] angle Rotation angle in degrees.
* \param [in,out] object Complex object to rotate.
*/
void geda_complex_object_rotate (TOPLEVEL *toplevel,
int centerx, int centery,
int angle, OBJECT *object)
{
int x, y;
int newx, newy;
g_return_if_fail (object!=NULL);
g_return_if_fail ((object->type == OBJ_COMPLEX) ||
(object->type == OBJ_PLACEHOLDER));
x = object->complex->x + (-centerx);
y = object->complex->y + (-centery);
geda_point_rotate_90 (x, y, angle, &newx, &newy);
x = newx + (centerx);
y = newy + (centery);
geda_complex_object_translate (object, -object->complex->x, -object->complex->y);
geda_object_list_rotate (object->complex->prim_objs, 0, 0, angle, toplevel);
object->complex->x = 0;
object->complex->y = 0;
geda_complex_object_translate (object, x, y);
object->complex->angle = ( object->complex->angle + angle ) % 360;
}
/*! \brief Rotate the objects being placed
*
* \par Function Description
* This function erases the objects in the place list, rotates
* them, runs %rotate-objects-hook, and redraws the objects after
* rotating.
*
* \param [in] w_current The GschemToplevel object.
*/
void o_place_rotate (GschemToplevel *w_current)
{
GschemPageView *page_view = gschem_toplevel_get_current_page_view (w_current);
g_return_if_fail (page_view != NULL);
PAGE *page = gschem_page_view_get_page (page_view);
g_return_if_fail (page != NULL);
o_place_invalidate_rubber (w_current, FALSE);
geda_object_list_rotate (page->place_list,
w_current->first_wx,
w_current->first_wy,
90,
page->toplevel);
/* Run rotate-objects-hook */
g_run_hook_object_list (w_current, "%rotate-objects-hook", page->place_list);
o_place_invalidate_rubber (w_current, TRUE);
}
/*! \brief
* \par Function Description
*
*/
OBJECT *o_complex_new(TOPLEVEL *toplevel,
char type,
int color, int x, int y, int angle,
int mirror, const CLibSymbol *clib,
const gchar *basename,
int selectable)
{
OBJECT *new_node=NULL;
GList *iter;
gchar *buffer = NULL;
new_node = s_basic_new_object(type, "complex");
if (clib != NULL) {
new_node->complex_basename = g_strdup (s_clib_symbol_get_name (clib));
} else {
new_node->complex_basename = g_strdup (basename);
}
new_node->complex_embedded = FALSE;
new_node->color = color;
new_node->selectable = selectable;
new_node->complex = (COMPLEX *) g_malloc(sizeof(COMPLEX));
new_node->complex->prim_objs = NULL;
new_node->complex->angle = angle;
new_node->complex->mirror = mirror;
new_node->complex->x = x;
new_node->complex->y = y;
/* get the symbol data */
if (clib != NULL) {
buffer = s_clib_symbol_get_data (clib);
}
if (clib == NULL || buffer == NULL)
create_placeholder(toplevel, new_node, x, y);
else {
GError * err = NULL;
/* add connections till translated */
new_node->complex->prim_objs = o_read_buffer (toplevel, NULL, buffer, -1, new_node->complex_basename, &err);
if (err) {
g_error_free(err);
/* If reading fails, replace with placeholder object */
create_placeholder(toplevel, new_node, x, y);
}
else {
if (mirror) {
geda_object_list_mirror (new_node->complex->prim_objs, 0, 0, toplevel);
}
geda_object_list_rotate (new_node->complex->prim_objs, 0, 0, angle, toplevel);
geda_object_list_translate (new_node->complex->prim_objs, x, y);
}
g_free (buffer);
}
/* set the parent field now */
for (iter = new_node->complex->prim_objs; iter != NULL; iter = g_list_next (iter)) {
OBJECT *tmp = iter->data;
tmp->parent = new_node;
}
new_node->w_bounds_valid_for = NULL;
return new_node;
}
