/*! \brief move a complex object
* \par Function Description
* This function changes the position of a complex \a object.
*
* \param [ref] object The complex GedaObject to be moved
* \param [in] dx The x-distance to move the object
* \param [in] dy The y-distance to move the object
*/
void
geda_complex_object_translate (GedaObject *object, int dx, int dy)
{
g_return_if_fail (object != NULL &&
(object->type == OBJ_COMPLEX ||
object->type == OBJ_PLACEHOLDER));
object->complex->x = object->complex->x + dx;
object->complex->y = object->complex->y + dy;
geda_object_list_translate (object->complex->prim_objs, dx, dy);
object->w_bounds_valid_for = NULL;
}
/*! \brief End placement action
*
* \par Function Description
* This function finishes the current placement action by adding
* objects to the current page at the given new world coordinates
* and redrawing them on the canvas. It also saves the current
* state in the undo list and updates the menus.
*
* If \a continue_placing is TRUE, a copy of the placement list
* is saved to start a new place action.
*
* \param [in] w_current GschemToplevel which we're drawing for.
* \param [in] w_x The current world X coordinate.
* \param [in] w_y The current world Y coordinate.
* \param [in] hook_name The hook to run after adding the objects.
*/
void o_place_end (GschemToplevel *w_current,
int w_x, int w_y,
int continue_placing,
const char* hook_name)
{
int w_diff_x, w_diff_y;
OBJECT *o_current;
GList *temp_dest_list = NULL;
GList *connected_objects = NULL;
GList *iter;
g_return_if_fail (w_current != NULL);
g_assert (w_current->inside_action != 0);
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);
/* erase old image */
/* o_place_invalidate_rubber (w_current, FALSE); */
w_current->rubber_visible = 0;
/* Calc final object positions */
w_current->second_wx = w_x;
w_current->second_wy = w_y;
w_diff_x = w_current->second_wx - w_current->first_wx;
w_diff_y = w_current->second_wy - w_current->first_wy;
if (continue_placing) {
/* Make a copy of the place list if we want to keep it afterwards */
temp_dest_list = o_glist_copy_all (page->toplevel,
page->place_list,
temp_dest_list);
} else {
/* Otherwise just take it */
temp_dest_list = page->place_list;
page->place_list = NULL;
}
geda_object_list_translate (temp_dest_list, w_diff_x, w_diff_y);
/* Attach each item back onto the page's object list. Update object
* connectivity and add the new objects to the selection list.*/
for (iter = temp_dest_list; iter != NULL; iter = g_list_next (iter)) {
o_current = (OBJECT*) iter->data;
s_page_append (page->toplevel, page, o_current);
/* Update object connectivity */
s_conn_update_object (page, o_current);
connected_objects = s_conn_return_others (connected_objects, o_current);
}
if (hook_name != NULL) {
g_run_hook_object_list (w_current, hook_name, temp_dest_list);
}
o_invalidate_glist (w_current, connected_objects);
g_list_free (connected_objects);
connected_objects = NULL;
gschem_toplevel_page_content_changed (w_current, page);
o_invalidate_glist (w_current, temp_dest_list); /* only redraw new objects */
g_list_free (temp_dest_list);
o_undo_savestate_old (w_current, UNDO_ALL);
i_update_menus (w_current);
if (!continue_placing) {
i_set_state(w_current, SELECT);
i_action_stop (w_current);
}
}
/*! \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;
}