/*! \brief Get the action position.
* \par Function Description
* Retrieves the current action position and stores it in \a x and \a
* y, optionally snapping it to the grid if \a snap is true. This
* should be interpreted as the position that the user was pointing
* with the mouse pointer when the current action was invoked. If
* there is no valid world position for the current action, returns
* FALSE without modifying the output variables.
*
* This should be used by actions implemented in C to figure out where
* on the schematic the user wants them to apply the action.
*
* See also the (gschem action) Scheme module.
*
* \param w_current Current gschem toplevel structure.
* \param x Location to store x coordinate.
* \param y Location to store y coordinate.
*
* \return TRUE if current action position is set, FALSE otherwise.
*/
gboolean
g_action_get_position (gboolean snap, int *x, int *y)
{
SCM s_action_position_proc;
SCM s_point;
GschemToplevel *w_current = g_current_window ();
g_assert (w_current);
/* Get the action-position procedure */
s_action_position_proc =
scm_variable_ref (scm_c_module_lookup (scm_c_resolve_module ("gschem action"),
"action-position"));
/* Retrieve the action position */
s_point = scm_call_0 (s_action_position_proc);
if (scm_is_false (s_point)) return FALSE;
if (x) {
*x = scm_to_int (scm_car (s_point));
if (snap) {
*x = snap_grid (w_current, *x);
}
}
if (y) {
*y = scm_to_int (scm_cdr (s_point));
if (snap) {
*y = snap_grid (w_current, *y);
}
}
return TRUE;
}
/*! \brief Draw an arc using one angle modification.
* \par Function Description
* This function draws an arc according to its internal representation
* and allows the modification of one of its angle. The start or end
* angle of the arc is updated according to <B>whichone</B> with the angle
* that the current pointer and the arc center are making with the horizontal.
*
* The previous temporary arc is erased, the angle is then computed
* and updated and finally a new temporary arc with the new angle is drawn.
*
* The arc is internally described by :
* <DL>
* <DT>*</DT><DD>(<B>w_current->first_wx</B>,<B>w_current->first_wy</B>) as
* its center.
* <DT>*</DT><DD><B>w_current->distance</B> as its radius.
* <DT>*</DT><DD><B>w_current->second_wx</B> and <B>w_current->second_wx</B> as its
* start and end angle respectively.
* </DL>
*
* \param [in] w_current The GschemToplevel object.
* \param [in] w_x Current x coordinate of pointer in world units.
* \param [in] w_y Current y coordinate of pointer in world units.
* \param [in] whichone Which angle to change.
*
* <B>whichone</B> can have one of the following values:
* <DL>
* <DT>ARC_RADIUS</DT>
* <DD>at the center of the arc. This grip is used to modify
* the radius of the arc.
* <DT>ARC_START_ANGLE</DT>
* <DD>at one end of the arc. It corresponds to the starting
* angle of the arc.
* <DT>ARC_SWEEP_ANGLE</DT>
* <DD>at the other end of the arc. It corresponds to the
* ending angle of the arc.
* </DL>
*/
void o_arc_motion (GschemToplevel *w_current, int w_x, int w_y, int whichone)
{
int diff_x, diff_y, angle_deg;
g_assert (w_current->inside_action != 0);
/* erase the previous temporary arc */
if (w_current->rubber_visible)
o_arc_invalidate_rubber (w_current);
if(whichone == ARC_RADIUS) {
/*
* The radius is taken as the biggest distance on the x and y
* axis between the center of the arc and the mouse position.
*/
diff_x = abs(w_current->first_wx - snap_grid (w_current, w_x));
diff_y = abs(w_current->first_wy - snap_grid (w_current, w_y));
w_current->distance = MAX(diff_x, diff_y);
}
else if((whichone == ARC_START_ANGLE) || (whichone == ARC_SWEEP_ANGLE)) {
/* compute the angle */
diff_x = w_x - w_current->first_wx;
diff_y = w_y - w_current->first_wy;
angle_deg = atan2 (diff_y, diff_x) * 180 / M_PI;
/* set the start or end angle with this angle */
switch(whichone) {
case ARC_START_ANGLE:
w_current->second_wx = (angle_deg + 360) % 360;
break;
case ARC_SWEEP_ANGLE:
w_current->second_wy = (((angle_deg + 360) % 360) -
w_current->second_wx + 360) % 360;
if (w_current->which_object->arc->sweep_angle < 0)
w_current->second_wy = w_current->second_wy - 360;
if (w_current->second_wy == 0)
w_current->second_wy = 360;
break;
/*
* No default required - one of above two branches
* *must* be taken - Coverity ID 201571
*/
}
}
/* draw the new temporary arc */
o_arc_invalidate_rubber (w_current);
w_current->rubber_visible = 1;
}
/*! \brief set the start point of a new net
* \par Function Description
* This function sets the start point of a new net at the position of the
* cursor. If we have a visible magnetic marker, we use that instead of
* the cursor position
*/
void o_net_start(GSCHEM_TOPLEVEL *w_current, int w_x, int w_y)
{
if (w_current->magnetic_wx != -1 && w_current->magnetic_wy != -1) {
w_current->first_wx = w_current->magnetic_wx;
w_current->first_wy = w_current->magnetic_wy;
}
else {
w_current->first_wx = w_x;
w_current->first_wy = w_y;
}
w_current->second_wx = w_current->third_wx = w_current->first_wx;
w_current->second_wy = w_current->third_wy = w_current->first_wy;
if (w_current->first_wx != snap_grid (w_current, w_current->first_wx)
|| w_current->first_wy != snap_grid (w_current, w_current->first_wy))
s_log_message(_("Warning: Starting net at off grid coordinate\n"));
if (w_current->net_direction_mode)
o_net_guess_direction(w_current, w_current->first_wx, w_current->first_wy);
}
/*! \brief get the pointer position of a given GschemToplevel
* \par Function Description
* This function gets the pointer position of the drawing area of the
* current workspace <b>GschemToplevel</b>. The flag <b>snapped</b> specifies
* whether the pointer position should be snapped to the current grid.
*
* \param [in] w_current The GschemToplevel object.
* \param [in] snapped An option flag to specify the wished coords
* \param [out] wx snapped/unsnapped world x coordinate
* \param [out] wy snapped/unsnapped world y coordinate
*
* \return Returns TRUE if the pointer position is inside the drawing area.
*
*/
gboolean
x_event_get_pointer_position (GschemToplevel *w_current, gboolean snapped, gint *wx, gint *wy)
{
int width;
int height;
int sx;
int sy;
int x;
int y;
GschemPageView *page_view = gschem_toplevel_get_current_page_view (w_current);
g_return_val_if_fail (page_view != NULL, FALSE);
g_return_val_if_fail (GTK_WIDGET (page_view)->window != NULL, FALSE);
/* \todo The following line is depricated in GDK 2.24 */
gdk_drawable_get_size (GTK_WIDGET (page_view)->window, &width, &height);
gtk_widget_get_pointer(GTK_WIDGET (page_view), &sx, &sy);
/* check if we are inside the drawing area */
if ((sx < 0) || (sx >= width) || (sy < 0) || (sy >= height)) {
return FALSE;
}
gschem_page_view_SCREENtoWORLD (page_view, sx, sy, &x, &y);
if (snapped) {
x = snap_grid (w_current, x);
y = snap_grid (w_current, y);
}
*wx = x;
*wy = y;
return TRUE;
}
/*! \todo Finish function documentation!!!
* \brief
* \par Function Description
*
*/
gint
x_event_button_pressed(GschemPageView *page_view, GdkEventButton *event, GschemToplevel *w_current)
{
PAGE *page = gschem_page_view_get_page (page_view);
int w_x, w_y;
int unsnapped_wx, unsnapped_wy;
g_return_val_if_fail ((w_current != NULL), 0);
if (page == NULL) {
return TRUE; /* terminate event */
}
if (!gtk_widget_has_focus (GTK_WIDGET (page_view))) {
gtk_widget_grab_focus (GTK_WIDGET (page_view));
}
scm_dynwind_begin ((scm_t_dynwind_flags) 0);
g_dynwind_window (w_current);
#if DEBUG
printf("pressed button %d! \n", event->button);
printf("event state: %d \n", event->state);
printf("w_current state: %d \n", w_current->event_state);
printf("Selection is:\n");
o_selection_print_all(&(page->selection_list));
printf("\n");
#endif
gschem_page_view_SCREENtoWORLD (page_view, (int) event->x, (int) event->y,
&unsnapped_wx, &unsnapped_wy);
w_x = snap_grid (w_current, unsnapped_wx);
w_y = snap_grid (w_current, unsnapped_wy);
if (event->type == GDK_2BUTTON_PRESS &&
w_current->event_state == SELECT) {
/* Don't re-select an object (lp-912978) */
/* o_find_object(w_current, w_x, w_y, TRUE); */
/* GDK_BUTTON_EVENT is emitted before GDK_2BUTTON_EVENT, which
* leads to setting of the inside_action flag. If o_edit()
* brings up a modal window (e.g., the edit attribute dialog),
* it intercepts the release button event and thus doesn't
* allow resetting of the inside_action flag so we do it
* manually here before processing the double-click event. */
i_action_stop (w_current);
o_edit(w_current, geda_list_get_glist( page->selection_list ));
scm_dynwind_end ();
return(0);
}
w_current->SHIFTKEY = (event->state & GDK_SHIFT_MASK ) ? 1 : 0;
w_current->CONTROLKEY = (event->state & GDK_CONTROL_MASK) ? 1 : 0;
w_current->ALTKEY = (event->state & GDK_MOD1_MASK) ? 1 : 0;
/* Huge switch statement to evaluate state transitions. Jump to
* end_button_pressed label to escape the state evaluation rather than
* returning from the function directly. */
if (event->button == 1) {
if (w_current->inside_action) {
/* End action */
if (page->place_list != NULL) {
switch(w_current->event_state) {
case (COMPMODE) : o_place_end(w_current, w_x, w_y, w_current->continue_component_place,
"%add-objects-hook"); break;
case (TEXTMODE) : o_place_end(w_current, w_x, w_y, FALSE,
"%add-objects-hook"); break;
case (PASTEMODE) : o_place_end(w_current, w_x, w_y, FALSE,
"%paste-objects-hook"); break;
default: break;
}
} else {
switch(w_current->event_state) {
case (ARCMODE) : o_arc_end1(w_current, w_x, w_y); break;
case (BOXMODE) : o_box_end(w_current, w_x, w_y); break;
case (BUSMODE) : o_bus_end(w_current, w_x, w_y); break;
case (CIRCLEMODE) : o_circle_end(w_current, w_x, w_y); break;
case (LINEMODE) : o_line_end(w_current, w_x, w_y); break;
case (NETMODE) : o_net_end(w_current, w_x, w_y); break;
case (PATHMODE) : o_path_continue (w_current, w_x, w_y); break;
case (PICTUREMODE): o_picture_end(w_current, w_x, w_y); break;
case (PINMODE) : o_pin_end (w_current, w_x, w_y); break;
default: break;
}
}
} else {
/* Start action */
switch(w_current->event_state) {
case (ARCMODE) : o_arc_start(w_current, w_x, w_y); break;
case (BOXMODE) : o_box_start(w_current, w_x, w_y); break;
case (BUSMODE) : o_bus_start(w_current, w_x, w_y); break;
case (CIRCLEMODE) : o_circle_start(w_current, w_x, w_y); break;
case (LINEMODE) : o_line_start(w_current, w_x, w_y); break;
case (NETMODE) : o_net_start(w_current, w_x, w_y); break;
case (PATHMODE) : o_path_start (w_current, w_x, w_y); break;
case (PICTUREMODE): o_picture_start(w_current, w_x, w_y); break;
case (PINMODE) : o_pin_start (w_current, w_x, w_y); break;
case (ZOOMBOX) : a_zoom_box_start(w_current, unsnapped_wx, unsnapped_wy); break;
case (SELECT) : o_select_start(w_current, w_x, w_y); break;
case (COPYMODE) :
case (MCOPYMODE) : o_copy_start(w_current, w_x, w_y); break;
case (MOVEMODE) : o_move_start(w_current, w_x, w_y); break;
default: break;
}
}
switch(w_current->event_state) {
case(ROTATEMODE): o_rotate_world_update(w_current, w_x, w_y, 90,
geda_list_get_glist(page->selection_list)); break;
case(MIRRORMODE): o_mirror_world_update(w_current, w_x, w_y,
geda_list_get_glist(page->selection_list)); break;
case(PAN):
gschem_page_view_pan (page_view, w_x, w_y);
i_set_state(w_current, SELECT);
break;
}
} else if (event->button == 2) {
/* try this out and see how it behaves */
if (w_current->inside_action) {
if (!(w_current->event_state == COMPMODE||
w_current->event_state == TEXTMODE||
w_current->event_state == MOVEMODE||
w_current->event_state == COPYMODE ||
w_current->event_state == MCOPYMODE ||
w_current->event_state == PASTEMODE )) {
i_callback_cancel(w_current, 0, NULL);
}
goto end_button_pressed;
}
switch(w_current->middle_button) {
case(ACTION):
/* don't want to search if shift */
/* key is pressed */
if (!w_current->SHIFTKEY) {
o_find_object(w_current, unsnapped_wx, unsnapped_wy, TRUE);
}
/* make sure the list is not empty */
if (!o_select_selected(w_current)) {
/* this means the above find did not
* find anything */
i_action_stop (w_current);
i_set_state(w_current, SELECT);
goto end_button_pressed;
}
/* determine here if copy or move */
if (w_current->ALTKEY) {
i_set_state(w_current, COPYMODE);
o_copy_start(w_current, w_x, w_y);
} else {
o_move_start(w_current, w_x, w_y);
}
break;
case(REPEAT):
if (w_current->last_callback != NULL) {
(*w_current->last_callback)(w_current, 0, NULL);
}
break;
#ifdef HAVE_LIBSTROKE
case(STROKE):
DOING_STROKE=TRUE;
break;
#endif /* HAVE_LIBSTROKE */
case(MID_MOUSEPAN_ENABLED):
gschem_page_view_pan_start (page_view, (int) event->x, (int) event->y);
break;
}
} else if (event->button == 3) {
if (!w_current->inside_action) {
if (w_current->third_button == POPUP_ENABLED) {
/* (third-button "popup") */
i_update_menus(w_current); /* update menus before popup */
do_popup(w_current, event);
} else {
/* (third-button "mousepan") */
gschem_page_view_pan_start (page_view, (int) event->x, (int) event->y);
}
} else {
if ((w_current->third_button == MOUSEPAN_ENABLED) &&
(!w_current->third_button_cancel)) {
gschem_page_view_pan_start (page_view, (int) event->x, (int) event->y);
} else { /* this is the default cancel */
/* reset all draw and place actions */
switch (w_current->event_state) {
case (ARCMODE) : o_arc_invalidate_rubber (w_current); break;
case (BOXMODE) : o_box_invalidate_rubber (w_current); break;
case (BUSMODE) : o_bus_invalidate_rubber (w_current); break;
case (CIRCLEMODE) : o_circle_invalidate_rubber (w_current); break;
case (LINEMODE) : o_line_invalidate_rubber (w_current); break;
case (NETMODE) : o_net_reset (w_current); break;
case (PATHMODE) : o_path_invalidate_rubber (w_current); break;
case (PICTUREMODE): o_picture_invalidate_rubber (w_current); break;
case (PINMODE) : o_pin_invalidate_rubber (w_current); break;
default:
i_callback_cancel(w_current, 0, NULL);
break;
}
}
}
}
end_button_pressed:
scm_dynwind_end ();
return(0);
}
/*! \todo Finish function documentation!!!
* \brief
* \par Function Description
*
*/
gint
x_event_motion (GschemPageView *page_view, GdkEventMotion *event, GschemToplevel *w_current)
{
PAGE *page = gschem_page_view_get_page (page_view);
int w_x, w_y;
int unsnapped_wx, unsnapped_wy;
int skip_event=0;
GdkEvent *test_event;
g_return_val_if_fail ((w_current != NULL), 0);
if (page == NULL) {
return TRUE; /* terminate event */
}
w_current->SHIFTKEY = (event->state & GDK_SHIFT_MASK ) ? 1 : 0;
w_current->CONTROLKEY = (event->state & GDK_CONTROL_MASK) ? 1 : 0;
w_current->ALTKEY = (event->state & GDK_MOD1_MASK) ? 1 : 0;
#if DEBUG
/* printf("MOTION!\n");*/
#endif
#ifdef HAVE_LIBSTROKE
if (DOING_STROKE == TRUE) {
x_stroke_record (w_current, event->x, event->y);
return(0);
}
#endif /* HAVE_LIBSTROKE */
/* skip the moving event if there are other moving events in the
gdk event queue (Werner)
Only skip the event if is the same event and no buttons or modifier
keys changed*/
if ((test_event = gdk_event_get()) != NULL) {
if (test_event->type == GDK_MOTION_NOTIFY
&& ((GdkEventMotion *) test_event)->state == event->state) {
skip_event= 1;
}
gdk_event_put(test_event); /* put it back in front of the queue */
gdk_event_free(test_event);
if (skip_event == 1)
return 0;
}
gschem_page_view_SCREENtoWORLD (page_view, (int) event->x, (int) event->y,
&unsnapped_wx, &unsnapped_wy);
w_x = snap_grid (w_current, unsnapped_wx);
w_y = snap_grid (w_current, unsnapped_wy);
if (w_current->cowindow) {
coord_display_update(w_current, (int) event->x, (int) event->y);
}
gschem_page_view_pan_motion (page_view, w_current->mousepan_gain, (int) event->x, (int) event->y);
/* Huge switch statement to evaluate state transitions. Jump to
* end_motion label to escape the state evaluation rather
* than returning from the function directly. */
scm_dynwind_begin ((scm_t_dynwind_flags) 0);
g_dynwind_window (w_current);
if (w_current->inside_action) {
if (page->place_list != NULL) {
switch(w_current->event_state) {
case (COPYMODE) :
case (MCOPYMODE) :
case (COMPMODE) :
case (PASTEMODE) :
case (TEXTMODE) : o_place_motion (w_current, w_x, w_y); break;
case (MOVEMODE) : o_move_motion (w_current, w_x, w_y); break;
default: break;
}
} else {
switch(w_current->event_state) {
case (ARCMODE) : o_arc_motion (w_current, w_x, w_y, ARC_RADIUS); break;
case (BOXMODE) : o_box_motion (w_current, w_x, w_y); break;
case (BUSMODE) : o_bus_motion (w_current, w_x, w_y); break;
case (CIRCLEMODE) : o_circle_motion (w_current, w_x, w_y); break;
case (LINEMODE) : o_line_motion (w_current, w_x, w_y); break;
case (NETMODE) : o_net_motion (w_current, w_x, w_y); break;
case (PATHMODE) : o_path_motion (w_current, w_x, w_y); break;
case (PICTUREMODE): o_picture_motion (w_current, w_x, w_y); break;
case (PINMODE) : o_pin_motion (w_current, w_x, w_y); break;
case (GRIPS) : o_grips_motion(w_current, w_x, w_y); break;
case (SBOX) : o_select_box_motion (w_current, unsnapped_wx, unsnapped_wy); break;
case (ZOOMBOX) : a_zoom_box_motion (w_current, unsnapped_wx, unsnapped_wy); break;
case (SELECT) : o_select_motion (w_current, w_x, w_y); break;
default: break;
}
}
} else {
switch(w_current->event_state) {
case(NETMODE) : o_net_start_magnetic(w_current, w_x, w_y); break;
default: break;
}
}
scm_dynwind_end ();
return(0);
}
/*! \todo Finish function documentation!!!
* \brief
* \par Function Description
*
*/
gint
x_event_button_released (GschemPageView *page_view, GdkEventButton *event, GschemToplevel *w_current)
{
PAGE *page = gschem_page_view_get_page (page_view);
int unsnapped_wx, unsnapped_wy;
int w_x, w_y;
g_return_val_if_fail ((page_view != NULL), 0);
g_return_val_if_fail ((w_current != NULL), 0);
if (page == NULL) {
return TRUE; /* terminate event */
}
#if DEBUG
printf("released! %d \n", w_current->event_state);
#endif
w_current->SHIFTKEY = (event->state & GDK_SHIFT_MASK ) ? 1 : 0;
w_current->CONTROLKEY = (event->state & GDK_CONTROL_MASK) ? 1 : 0;
w_current->ALTKEY = (event->state & GDK_MOD1_MASK) ? 1 : 0;
gschem_page_view_SCREENtoWORLD (page_view, (int) event->x, (int) event->y,
&unsnapped_wx, &unsnapped_wy);
w_x = snap_grid (w_current, unsnapped_wx);
w_y = snap_grid (w_current, unsnapped_wy);
/* Huge switch statement to evaluate state transitions. Jump to
* end_button_released label to escape the state evaluation rather
* than returning from the function directly. */
scm_dynwind_begin ((scm_t_dynwind_flags) 0);
g_dynwind_window (w_current);
if (event->button == 1) {
if (w_current->inside_action) {
if (page->place_list != NULL) {
switch(w_current->event_state) {
case (COPYMODE) :
case (MCOPYMODE) : o_copy_end(w_current); break;
case (MOVEMODE) : o_move_end(w_current); break;
default: break;
}
} else {
switch(w_current->event_state) {
case (GRIPS) : o_grips_end(w_current); break;
case (PATHMODE) : o_path_end (w_current, w_x, w_y); break;
case (SBOX) : o_select_box_end(w_current, unsnapped_wx, unsnapped_wy); break;
case (SELECT) : o_select_end(w_current, unsnapped_wx, unsnapped_wy); break;
case (ZOOMBOX) : a_zoom_box_end(w_current, unsnapped_wx, unsnapped_wy); break;
default: break;
}
}
}
} else if (event->button == 2) {
if (w_current->inside_action) {
if (w_current->event_state == COMPMODE||
w_current->event_state == TEXTMODE||
w_current->event_state == MOVEMODE||
w_current->event_state == COPYMODE ||
w_current->event_state == MCOPYMODE ||
w_current->event_state == PASTEMODE ) {
if (w_current->event_state == MOVEMODE) {
o_move_invalidate_rubber (w_current, FALSE);
} else {
o_place_invalidate_rubber (w_current, FALSE);
}
w_current->rubber_visible = 0;
o_place_rotate(w_current);
if (w_current->event_state == COMPMODE) {
o_complex_place_changed_run_hook (w_current);
}
if (w_current->event_state == MOVEMODE) {
o_move_invalidate_rubber (w_current, TRUE);
} else {
o_place_invalidate_rubber (w_current, TRUE);
}
w_current->rubber_visible = 1;
goto end_button_released;
}
}
switch(w_current->middle_button) {
case(ACTION):
if (w_current->inside_action && (page->place_list != NULL)) {
switch(w_current->event_state) {
case (COPYMODE): o_copy_end(w_current); break;
case (MOVEMODE): o_move_end(w_current); break;
}
}
break;
#ifdef HAVE_LIBSTROKE
case(STROKE):
DOING_STROKE = FALSE;
x_stroke_translate_and_execute (w_current);
break;
#endif /* HAVE_LIBSTROKE */
case(MID_MOUSEPAN_ENABLED):
if (gschem_page_view_pan_end (page_view) && w_current->undo_panzoom) {
o_undo_savestate_old(w_current, UNDO_VIEWPORT_ONLY);
}
break;
}
} else if (event->button == 3) {
/* just for ending a mouse pan */
if (gschem_page_view_pan_end (page_view) && w_current->undo_panzoom) {
o_undo_savestate_old(w_current, UNDO_VIEWPORT_ONLY);
}
}
end_button_released:
scm_dynwind_end ();
return(0);
}
/*! \brief finish a net drawing action
* \par Function Description
* This function finishes the drawing of a net. If we have a visible
* magnetic marker, we use that instead of the current cursor
* position.
*
* The rubber nets are removed, the nets and cues are drawn and the
* net is added to the TOPLEVEL structure.
*
* The function returns TRUE if it has drawn a net, FALSE otherwise.
*/
void o_net_end(GschemToplevel *w_current, int w_x, int w_y)
{
int primary_zero_length, secondary_zero_length;
int found_primary_connection = FALSE;
int save_wx, save_wy;
GList *prev_conn_objects;
OBJECT *new_net = NULL;
/* Save a list of added objects to run the %add-objects-hook later */
GList *added_objects = 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);
o_net_invalidate_rubber (w_current);
if (w_current->magnetic_wx != -1 && w_current->magnetic_wy != -1)
o_net_finishmagnetic(w_current);
w_current->rubber_visible = 0;
/* See if either of the nets are zero length. We'll only add */
/* the non-zero ones */
primary_zero_length = (w_current->first_wx == w_current->second_wx) &&
(w_current->first_wy == w_current->second_wy);
secondary_zero_length = (w_current->second_wx == w_current->third_wx) &&
(w_current->second_wy == w_current->third_wy);
/* If both nets are zero length... */
/* this ends the net drawing behavior */
if ( primary_zero_length && secondary_zero_length ) {
o_net_reset(w_current);
return;
}
save_wx = w_current->third_wx;
save_wy = w_current->third_wy;
if (w_current->third_wx != snap_grid (w_current, w_current->third_wx)
|| w_current->third_wy != snap_grid (w_current, w_current->third_wy))
s_log_message(_("Warning: Ending net at off grid coordinate\n"));
if (!primary_zero_length ) {
/* create primary net */
new_net = o_net_new(page->toplevel, OBJ_NET, NET_COLOR,
w_current->first_wx, w_current->first_wy,
w_current->second_wx, w_current->second_wy);
s_page_append (page->toplevel, page, new_net);
added_objects = g_list_prepend (added_objects, new_net);
/* conn stuff */
/* LEAK CHECK 1 */
prev_conn_objects = s_conn_return_others (NULL, new_net);
o_net_add_busrippers (w_current, new_net, prev_conn_objects);
g_list_free (prev_conn_objects);
#if DEBUG
printf("primary:\n");
s_conn_print(new_net->conn_list);
#endif
/* Go off and search for valid connection on this newly created net */
found_primary_connection = s_conn_net_search(new_net, 1,
new_net->conn_list);
if (found_primary_connection)
{
/* if a net connection is found, reset start point of next net */
save_wx = w_current->second_wx;
save_wy = w_current->second_wy;
}
}
/* If the second net is not zero length, add it as well */
/* Also, a valid net connection from the primary net was not found */
if (!secondary_zero_length && !found_primary_connection) {
/* Add secondary net */
new_net = o_net_new(page->toplevel, OBJ_NET, NET_COLOR,
w_current->second_wx, w_current->second_wy,
w_current->third_wx, w_current->third_wy);
s_page_append (page->toplevel, page, new_net);
added_objects = g_list_prepend (added_objects, new_net);
/* conn stuff */
/* LEAK CHECK 2 */
prev_conn_objects = s_conn_return_others (NULL, new_net);
o_net_add_busrippers (w_current, new_net, prev_conn_objects);
g_list_free (prev_conn_objects);
#if DEBUG
s_conn_print(new_net->conn_list);
#endif
}
/* Call add-objects-hook */
if (added_objects != NULL) {
g_run_hook_object_list (w_current, "%add-objects-hook", added_objects);
g_list_free (added_objects);
}
w_current->first_wx = save_wx;
w_current->first_wy = save_wy;
gschem_toplevel_page_content_changed (w_current, page);
o_undo_savestate_old(w_current, UNDO_ALL);
/* Continue net drawing */
o_net_start(w_current, w_current->first_wx, w_current->first_wy);
}
/*! \brief finish a net drawing action
* \par Function Description
* This function finishes the drawing of a net. If we have a visible
* magnetic marker, we use that instead of the current cursor
* position.
*
* The rubber nets are removed, the nets and cues are drawn and the
* net is added to the TOPLEVEL structure.
*
* The function returns TRUE if it has drawn a net, FALSE otherwise.
*/
int o_net_end(GSCHEM_TOPLEVEL *w_current, int w_x, int w_y)
{
TOPLEVEL *toplevel = w_current->toplevel;
int color;
int primary_zero_length, secondary_zero_length;
int found_primary_connection = FALSE;
int save_wx, save_wy;
GList *prev_conn_objects = NULL;
OBJECT *new_net = NULL;
g_assert( w_current->inside_action != 0 );
o_net_invalidate_rubber (w_current);
if (w_current->magnetic_wx != -1 && w_current->magnetic_wy != -1)
o_net_finishmagnetic(w_current);
w_current->rubber_visible = 0;
/* See if either of the nets are zero length. We'll only add */
/* the non-zero ones */
primary_zero_length = (w_current->first_wx == w_current->second_wx) &&
(w_current->first_wy == w_current->second_wy);
secondary_zero_length = (w_current->second_wx == w_current->third_wx) &&
(w_current->second_wy == w_current->third_wy);
/* If both nets are zero length... */
/* this ends the net drawing behavior */
if ( primary_zero_length && secondary_zero_length ) {
return FALSE;
}
save_wx = w_current->third_wx;
save_wy = w_current->third_wy;
if (toplevel->override_net_color == -1) {
color = NET_COLOR;
} else {
color = toplevel->override_net_color;
}
if (w_current->third_wx != snap_grid (w_current, w_current->third_wx)
|| w_current->third_wy != snap_grid (w_current, w_current->third_wy))
s_log_message(_("Warning: Ending net at off grid coordinate\n"));
if (!primary_zero_length ) {
/* create primary net */
new_net = o_net_new(toplevel, OBJ_NET, color,
w_current->first_wx, w_current->first_wy,
w_current->second_wx, w_current->second_wy);
s_page_append (toplevel->page_current, new_net);
/* conn stuff */
/* LEAK CHECK 1 */
prev_conn_objects = s_conn_return_others (prev_conn_objects, new_net);
if (o_net_add_busrippers (w_current, new_net, prev_conn_objects)) {
g_list_free (prev_conn_objects);
prev_conn_objects = NULL;
prev_conn_objects = s_conn_return_others (prev_conn_objects, new_net);
}
#if DEBUG
printf("primary:\n");
s_conn_print(new_net->conn_list);
#endif
o_invalidate (w_current, new_net);
o_invalidate_glist (w_current, prev_conn_objects);
g_list_free (prev_conn_objects);
prev_conn_objects = NULL;
/* Go off and search for valid connection on this newly created net */
found_primary_connection = s_conn_net_search(new_net, 1,
new_net->conn_list);
if (found_primary_connection)
{
/* if a net connection is found, reset start point of next net */
save_wx = w_current->second_wx;
save_wy = w_current->second_wy;
}
/* you don't want to consolidate nets which are drawn non-ortho */
if (toplevel->net_consolidate == TRUE && !w_current->CONTROLKEY) {
/* CAUTION: Object list will change when nets are consolidated, don't
* keep pointers to other objects than new_net after this. */
o_net_consolidate_segments(toplevel, new_net);
}
}
/* If the second net is not zero length, add it as well */
/* Also, a valid net connection from the primary net was not found */
if (!secondary_zero_length && !found_primary_connection) {
/* Add secondary net */
new_net = o_net_new(toplevel, OBJ_NET, color,
w_current->second_wx, w_current->second_wy,
w_current->third_wx, w_current->third_wy);
s_page_append (toplevel->page_current, new_net);
/* conn stuff */
/* LEAK CHECK 2 */
prev_conn_objects = s_conn_return_others (prev_conn_objects, new_net);
if (o_net_add_busrippers (w_current, new_net, prev_conn_objects)) {
g_list_free (prev_conn_objects);
prev_conn_objects = NULL;
prev_conn_objects = s_conn_return_others (prev_conn_objects, new_net);
}
#if DEBUG
s_conn_print(new_net->conn_list);
#endif
o_invalidate (w_current, new_net);
o_invalidate_glist (w_current, prev_conn_objects);
g_list_free (prev_conn_objects);
prev_conn_objects = NULL;
/* you don't want to consolidate nets which are drawn non-ortho */
if (toplevel->net_consolidate == TRUE && !w_current->CONTROLKEY) {
/* CAUTION: Object list will change when nets are consolidated, don't
* keep pointers to other objects than new_net after this. */
o_net_consolidate_segments(toplevel, new_net);
}
}
toplevel->page_current->CHANGED = 1;
w_current->first_wx = save_wx;
w_current->first_wy = save_wy;
o_undo_savestate(w_current, UNDO_ALL);
return (TRUE);
}
/*! \todo Finish function documentation!!!
* \brief
* \par Function Description
*
*/
void o_move_motion (GschemToplevel *w_current, int w_x, int w_y)
{
GList *selection, *s_current;
OBJECT *object;
gint object_x, object_y;
gboolean resnap = FALSE;
SNAP_STATE snap_mode;
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);
g_return_if_fail (page->place_list != NULL);
snap_mode = gschem_options_get_snap_mode (w_current->options);
selection = geda_list_get_glist (page->selection_list);
/* realign the object if we are in resnap mode */
if ((selection != NULL) && (snap_mode == SNAP_RESNAP)) {
if (g_list_length(selection) > 1) {
/* find an object that is not attached to any other object */
for (s_current = selection;
s_current != NULL;
s_current = g_list_next(s_current)) {
if (((OBJECT *) s_current->data)->attached_to == NULL) {
object = (OBJECT *) s_current->data;
resnap = TRUE;
break;
}
}
/* Only resnap single elements. This is also the case if
the selection contains one object and all other object
elements are attributes of the object element.*/
for (s_current = selection;
s_current != NULL && resnap == TRUE;
s_current = g_list_next(s_current)) {
if (!(object == (OBJECT *) s_current->data)
&& !o_attrib_is_attached(page->toplevel,
(OBJECT *) s_current->data, object)) {
resnap = FALSE;
}
}
} else { /* single object */
resnap = TRUE;
object = (OBJECT *) selection->data;
}
/* manipulate w_x and w_y in a way that will lead to a position
of the object that is aligned with the grid */
if (resnap) {
if (o_get_position(page->toplevel, &object_x, &object_y, object)) {
w_x += snap_grid (w_current, object_x) - object_x;
w_y += snap_grid (w_current, object_y) - object_y;
}
}
}
o_move_invalidate_rubber (w_current, FALSE);
w_current->second_wx = w_x;
w_current->second_wy = w_y;
o_move_invalidate_rubber (w_current, TRUE);
}
/*! \brief Handle motion during a move operation, resnapping if necessary
* \par Function Description
* Handle movement during a move operation, by updating the global
* candidate transformation parameters. The \a w_x and \b w_y
* parameters are the incremental translation to be handled.
*
* This function mostly exists to implement the "resnapping" logic,
* which destructively puts objects back onto the grid during a move
* operation, as long as specific criteria are met.
*
* \param w_current Global gschem state structure.
* \param w_x X-axis translation
* \param w_y Y-axis translation
*/
void o_move_motion (GschemToplevel *w_current, int w_x, int w_y)
{
GList *selection, *s_current;
OBJECT *object = NULL;
gint object_x, object_y;
SNAP_STATE snap_mode;
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);
g_return_if_fail (page->place_list != NULL);
snap_mode = gschem_options_get_snap_mode (w_current->options);
selection = geda_list_get_glist (page->selection_list);
/* There are three posssibilities:
*
* 1. There is exactly one object selected, in which case it is
* snapped.
*
* 2. There are multiple objects selected, but there is some object
* O[i] such that all other selected objects O[j!=i] are attached
* as attributes of O[i]. In that case, the O[i] is snapped.
*
* 3. Other cases, in which case no snapping occurs.
*/
if (NULL == selection || SNAP_RESNAP != snap_mode) {
object = NULL;
} else if (1 == g_list_length (selection)) {
object = (OBJECT *) selection->data;
} else {
/* The object that things are supposed to be attached to */
OBJECT *attached = NULL;
/* Scan the selection, searching for an object that's not attached
* to any other object. As we go, also check whether everything
* in the list that *is* attached as an attribute is attached to
* the same object. */
for (s_current = selection;
NULL != s_current;
s_current = g_list_next (s_current)) {
OBJECT *candidate = (OBJECT *) s_current->data;
if (NULL == candidate->attached_to) {
/* If the object is *not* attached as an attribute, then check
* whether we previously found an independent object. If we
* did, we can't do snapping, so give up. */
if (NULL == object) {
object = candidate;
} else if (candidate != object) {
break; /* Give up */
}
} else {
/* If the object is attached as an attribute, then check if
* it's attached as an attribute of the same object as
* everything else is. If not, we can't do snapping, so give
* up. */
if (NULL == attached) {
attached = candidate->attached_to;
} else if (attached != candidate->attached_to) {
break; /* Give up */
}
}
}
if (NULL == object ||
(NULL != attached && object != attached)) {
object = NULL;
} else {
g_assert (NULL != object);
}
}
/* manipulate w_x and w_y in a way that will lead to a position
of the object that is aligned with the grid */
if (NULL != object) {
if (geda_object_get_position (object, &object_x, &object_y)) {
w_x += snap_grid (w_current, object_x) - object_x;
w_y += snap_grid (w_current, object_y) - object_y;
}
}
o_move_invalidate_rubber (w_current, FALSE);
w_current->second_wx = w_x;
w_current->second_wy = w_y;
o_move_invalidate_rubber (w_current, TRUE);
}
/*! \brief finish a net drawing action
* \par Function Description
* This function finishes the drawing of a net. If we have a visible
* magnetic marker, we use that instead of the current cursor
* position.
*
* The rubber nets are removed, the nets and cues are drawn and the
* net is added to the TOPLEVEL structure.
*
* The function returns TRUE if it has drawn a net, FALSE otherwise.
*/
int o_net_end(GSCHEM_TOPLEVEL *w_current, int w_x, int w_y)
{
TOPLEVEL *toplevel = w_current->toplevel;
int color;
int primary_zero_length, secondary_zero_length;
int found_primary_connection = FALSE;
int save_wx, save_wy;
GList *prev_conn_objects;
OBJECT *new_net = NULL;
/* Save a list of added objects to run the %add-objects-hook later */
GList *added_objects = NULL;
g_assert( w_current->inside_action != 0 );
o_net_invalidate_rubber (w_current);
if (w_current->magnetic_wx != -1 && w_current->magnetic_wy != -1)
o_net_finishmagnetic(w_current);
w_current->rubber_visible = 0;
/* See if either of the nets are zero length. We'll only add */
/* the non-zero ones */
primary_zero_length = (w_current->first_wx == w_current->second_wx) &&
(w_current->first_wy == w_current->second_wy);
secondary_zero_length = (w_current->second_wx == w_current->third_wx) &&
(w_current->second_wy == w_current->third_wy);
/* If both nets are zero length... */
/* this ends the net drawing behavior */
if ( primary_zero_length && secondary_zero_length ) {
return FALSE;
}
save_wx = w_current->third_wx;
save_wy = w_current->third_wy;
if (toplevel->override_net_color == -1) {
color = NET_COLOR;
} else {
color = toplevel->override_net_color;
}
if (w_current->third_wx != snap_grid (w_current, w_current->third_wx)
|| w_current->third_wy != snap_grid (w_current, w_current->third_wy))
s_log_message(_("Warning: Ending net at off grid coordinate\n"));
if (!primary_zero_length ) {
/* create primary net */
new_net = o_net_new(toplevel, OBJ_NET, color,
w_current->first_wx, w_current->first_wy,
w_current->second_wx, w_current->second_wy);
s_page_append (toplevel, toplevel->page_current, new_net);
added_objects = g_list_prepend (added_objects, new_net);
/* conn stuff */
/* LEAK CHECK 1 */
prev_conn_objects = s_conn_return_others (NULL, new_net);
o_net_add_busrippers (w_current, new_net, prev_conn_objects);
g_list_free (prev_conn_objects);
#if DEBUG
printf("primary:\n");
s_conn_print(new_net->conn_list);
#endif
/* Go off and search for valid connection on this newly created net */
found_primary_connection = s_conn_net_search(new_net, 1,
new_net->conn_list);
if (found_primary_connection)
{
/* if a net connection is found, reset start point of next net */
save_wx = w_current->second_wx;
save_wy = w_current->second_wy;
}
}
/* If the second net is not zero length, add it as well */
/* Also, a valid net connection from the primary net was not found */
if (!secondary_zero_length && !found_primary_connection) {
/* Add secondary net */
new_net = o_net_new(toplevel, OBJ_NET, color,
w_current->second_wx, w_current->second_wy,
w_current->third_wx, w_current->third_wy);
s_page_append (toplevel, toplevel->page_current, new_net);
added_objects = g_list_prepend (added_objects, new_net);
/* conn stuff */
/* LEAK CHECK 2 */
prev_conn_objects = s_conn_return_others (NULL, new_net);
o_net_add_busrippers (w_current, new_net, prev_conn_objects);
g_list_free (prev_conn_objects);
#if DEBUG
s_conn_print(new_net->conn_list);
#endif
}
/* Call add-objects-hook */
if (added_objects != NULL) {
g_run_hook_object_list ("%add-objects-hook", added_objects);
g_list_free (added_objects);
}
toplevel->page_current->CHANGED = 1;
w_current->first_wx = save_wx;
w_current->first_wy = save_wy;
o_undo_savestate(w_current, UNDO_ALL);
return (TRUE);
}