/*! \brief callback function to draw a net marker in magnetic mode
* \par Function Description
* If the mouse is moved, this function is called to update the
* position of the magnetic marker.
* If the controllkey is pressed the magnetic marker follows the mouse.
*/
void o_net_start_magnetic(GSCHEM_TOPLEVEL *w_current, int w_x, int w_y)
{
o_net_invalidate_rubber (w_current);
if (w_current->CONTROLKEY) {
w_current->magnetic_wx = w_x;
w_current->magnetic_wy = w_y;
}
else {
o_net_find_magnetic(w_current, w_x, w_y);
}
o_net_invalidate_rubber (w_current);
w_current->rubber_visible = 1;
w_current->inside_action = 1;
}
/*! \brief Reset all variables used for net drawing
* \par Function Description
* This function resets all variables from GschemToplevel that are used
* for net drawing. This function should be called when escaping from
* a net drawing action or before entering it.
*/
void o_net_reset(GschemToplevel *w_current)
{
o_net_invalidate_rubber (w_current);
w_current->first_wx = w_current->first_wy = -1;
w_current->second_wx = w_current->second_wy = -1;
w_current->third_wx = w_current->third_wy = -1;
w_current->magnetic_wx = w_current->magnetic_wy = -1;
w_current->rubber_visible = 0;
i_action_stop (w_current);
}
/*! \brief callback function to draw a net marker in magnetic mode
* \par Function Description
* If the mouse is moved, this function is called to update the
* position of the magnetic marker.
* If the controllkey is pressed the magnetic marker follows the mouse.
*/
void o_net_start_magnetic(GschemToplevel *w_current, int w_x, int w_y)
{
if (!(gschem_options_get_magnetic_net_mode (w_current->options))) {
return;
}
o_net_invalidate_rubber (w_current);
if (w_current->CONTROLKEY) {
w_current->magnetic_wx = w_x;
w_current->magnetic_wy = w_y;
}
else {
o_net_find_magnetic(w_current, w_x, w_y);
}
o_net_invalidate_rubber (w_current);
w_current->rubber_visible = 1;
}
/*! \brief erase and redraw the rubber lines when drawing a net
* \par Function Description
* This function draws the rubbernet lines when drawing a net.
*/
void o_net_motion (GschemToplevel *w_current, int w_x, int w_y)
{
int ortho, horizontal, quadrant;
gboolean magnetic_net_mode;
g_return_if_fail (w_current != NULL);
g_assert( w_current->inside_action != 0 );
magnetic_net_mode = gschem_options_get_magnetic_net_mode (w_current->options);
/* Orthognal mode enabled when Control Key is NOT pressed or
if we are using magnetic mode */
ortho = !w_current->CONTROLKEY || magnetic_net_mode;
if (w_current->rubber_visible)
o_net_invalidate_rubber (w_current);
if (magnetic_net_mode) {
if (w_current->CONTROLKEY) {
/* set the magnetic marker position to current xy if the
controlkey is pressed. Thus the net will not connect to
the closest net if we finish the net drawing */
w_current->magnetic_wx = w_x;
w_current->magnetic_wy = w_y;
}
else {
o_net_find_magnetic(w_current, w_x, w_y);
}
}
w_current->second_wx = w_x;
w_current->second_wy = w_y;
/* In orthogonal mode secondary line is the same as the first */
if (!ortho) {
w_current->third_wx = w_current->second_wx;
w_current->third_wy = w_current->second_wy;
}
/* If you press the control key then you can draw non-ortho nets */
else {
if (w_current->second_wy > w_current->first_wy)
quadrant = w_current->second_wx > w_current->first_wx ? QUADRANT1: QUADRANT2;
else
quadrant = w_current->second_wx > w_current->first_wx ? QUADRANT4: QUADRANT3;
horizontal = w_current->net_direction & quadrant;
if (!w_current->SHIFTKEY)
horizontal = !horizontal;
/* calculate the co-ordinates necessary to draw the lines*/
/* Pressing the shift key will cause the vertical and horizontal lines to switch places */
if ( horizontal ) {
w_current->second_wy = w_current->first_wy;
w_current->third_wx = w_current->second_wx;
w_current->third_wy = w_y;
} else {
w_current->second_wx = w_current->first_wx;
w_current->third_wx = w_x;
w_current->third_wy = w_current->second_wy;
}
}
o_net_invalidate_rubber (w_current);
w_current->rubber_visible = 1;
}
/*! \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);
}
/*! \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);
}
