gschem/src/o_pin.c

   1 /* gEDA - GPL Electronic Design Automation
   2  * gschem - gEDA Schematic Capture
   3  * Copyright (C) 1998-2007 Ales Hvezda
   4  * Copyright (C) 1998-2007 gEDA Contributors (see ChangeLog for details)
   5  *
   6  * This program is free software; you can redistribute it and/or modify
   7  * it under the terms of the GNU General Public License as published by
   8  * the Free Software Foundation; either version 2 of the License, or
   9  * (at your option) any later version.
  10  *
  11  * This program is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14  * GNU General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU General Public License
  17  * along with this program; if not, write to the Free Software
  18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111 USA
  19  */
  20 #include <config.h>
  21
  22 #include <stdio.h>
  23 #include <math.h>
  24
  25 #include "gschem.h"
  26
  27 #ifdef HAVE_LIBDMALLOC
  28 #include <dmalloc.h>
  29 #endif
  30
  31 /*! \todo Finish function documentation!!!
  32  *  \brief
  33  *  \par Function Description
  34  *
  35  */
  36 void o_pin_draw(GSCHEM_TOPLEVEL *w_current, OBJECT *o_current)
  37 {
  38   TOPLEVEL *toplevel = w_current->toplevel;
  39   PAGE *page = toplevel->page_current;
  40   int size;
  41   int x1, y1, x2, y2; /* screen coords */
  42
  43   if (o_current->line == NULL) {
  44     return;
  45   }
  46
  47   /* reuse line's routine */
  48   if ( (toplevel->DONT_REDRAW == 1) ||
  49        (!o_line_visible(toplevel, o_current, &x1, &y1, &x2, &y2)) ) {
  50     return;
  51   }
  52
  53   if (GEDA_DEBUG) {
  54     printf("drawing pin\n\n");
  55   }
  56
  57   if (toplevel->pin_style == THICK ) {
  58     size = SCREENabs(page, PIN_WIDTH);
  59     gdk_gc_set_line_attributes(w_current->gc, size, GDK_LINE_SOLID,
  60                                GDK_CAP_NOT_LAST,
  61                                GDK_JOIN_MITER);
  62   }
  63
  64   if (toplevel->override_color != -1 ) {
  65     gdk_gc_set_foreground(w_current->gc,
  66                           x_get_color(toplevel->override_color));
  67     if (toplevel->DONT_REDRAW == 0) {
  68       gdk_draw_line(w_current->backingstore, w_current->gc,
  69                     x1, y1, x2, y2);
  70     }
  71   } else {
  72     if (toplevel->DONT_REDRAW == 0) {
  73       gdk_gc_set_foreground(w_current->gc, x_get_color(o_current->color));
  74       gdk_draw_line(w_current->backingstore, w_current->gc,
  75                     x1, y1, x2, y2);
  76     }
  77   }
  78
  79   /* draw the cue directly */
  80   o_cue_draw_lowlevel(w_current, o_current, o_current->whichend);
  81
  82   /* yes zero is right for the width -> use hardware lines */
  83   if (toplevel->pin_style == THICK ) {
  84     gdk_gc_set_line_attributes(w_current->gc, 0, GDK_LINE_SOLID,
  85                                GDK_CAP_NOT_LAST,
  86                                GDK_JOIN_MITER);
  87   }
  88
  89   if (GEDA_DEBUG) {
  90     printf("drawing pin\n");
  91   }
  92 }
  93
  94
  95 /*! \todo Finish function documentation!!!
  96  *  \brief
  97  *  \par Function Description
  98  *
  99  */
 100 void o_pin_draw_xor(GSCHEM_TOPLEVEL *w_current, int dx, int dy, OBJECT *o_current)
 101 {
 102   TOPLEVEL *toplevel = w_current->toplevel;
 103   PAGE *page = toplevel->page_current;
 104   int size;
 105   int color;
 106   int w_x1, w_y1, w_x2, w_y2;
 107   int sx[2], sy[2];
 108
 109   if (o_current->line == NULL) {
 110     return;
 111   }
 112
 113   if (o_current->saved_color != -1) {
 114     color = o_current->saved_color;
 115   } else {
 116     color = o_current->color;
 117   }
 118
 119   gdk_gc_set_foreground(w_current->xor_gc, x_get_darkcolor(color));
 120
 121   if (toplevel->pin_style == THICK ) {
 122     size = SCREENabs(page, PIN_WIDTH);
 123     gdk_gc_set_line_attributes(w_current->xor_gc, size,
 124                                GDK_LINE_SOLID,
 125                                GDK_CAP_NOT_LAST,
 126                                GDK_JOIN_MITER);
 127   }
 128
 129   s_basic_get_grip(o_current, GRIP_1, &w_x1, &w_y1);
 130   s_basic_get_grip(o_current, GRIP_2, &w_x2, &w_y2);
 131
 132   WORLDtoSCREEN(page, w_x1 + dx, w_y1 + dy, &sx[0], &sy[0]);
 133   WORLDtoSCREEN(page, w_x2 + dx, w_y2 + dy, &sx[1], &sy[1]);
 134
 135   gdk_draw_line(w_current->backingstore, w_current->xor_gc,
 136                 sx[0], sy[0], sx[1], sy[1]);
 137
 138   if (toplevel->pin_style == THICK ) {
 139     gdk_gc_set_line_attributes(w_current->xor_gc, 0,
 140                                GDK_LINE_SOLID,
 141                                GDK_CAP_NOT_LAST,
 142                                GDK_JOIN_MITER);
 143   }
 144 }
 145
 146 /*! \todo Finish function documentation!!!
 147  *  \brief
 148  *  \par Function Description
 149  *
 150  */
 151 void o_pin_start(GSCHEM_TOPLEVEL *w_current, int w_x, int w_y)
 152 {
 153   w_current->first_wx = w_current->second_wx = w_x;
 154   w_current->first_wy = w_current->second_wy = w_y;
 155 }
 156
 157 /*! \todo Finish function documentation!!!
 158  *  \brief
 159  *  \par Function Description
 160  *
 161  */
 162 void o_pin_end(GSCHEM_TOPLEVEL *w_current, int x, int y)
 163 {
 164   TOPLEVEL *toplevel = w_current->toplevel;
 165   OBJECT *new_obj;
 166   int color;
 167   GList *other_objects = NULL;
 168   OBJECT *o_current, *o_current_pin;
 169
 170   g_assert( w_current->inside_action != 0 );
 171
 172   if (toplevel->override_pin_color == -1) {
 173     color = w_current->pin_color;
 174   } else {
 175     color = toplevel->override_pin_color;
 176   }
 177
 178   /* undraw rubber line */
 179   o_pin_rubberpin_xor(w_current);
 180   w_current->rubber_visible = 0;
 181
 182   /* don't allow zero length pins */
 183   if ((w_current->first_wx == w_current->second_wx) &&
 184       (w_current->first_wy == w_current->second_wy)) {
 185     return;
 186   }
 187
 188   new_obj = o_pin_new(toplevel, OBJ_PIN, color,
 189                       w_current->first_wx, w_current->first_wy,
 190                       w_current->second_wx, w_current->second_wy,
 191                       PIN_TYPE_NET, 0);
 192   s_page_append(toplevel->page_current, new_obj);
 193
 194   o_current = o_current_pin = toplevel->page_current->object_tail;
 195
 196   if (scm_hook_empty_p(add_pin_hook) == SCM_BOOL_F &&
 197       o_current != NULL) {
 198     scm_run_hook(add_pin_hook,
 199                  scm_cons(g_make_object_smob(toplevel, o_current),
 200                           SCM_EOL));
 201   }
 202
 203   /* look for connected objects */
 204   other_objects = s_conn_return_others(other_objects, o_current_pin);
 205   o_cue_undraw_list(w_current, other_objects);
 206   o_cue_draw_list(w_current, other_objects);
 207   g_list_free(other_objects);
 208   o_cue_draw_single(w_current, o_current_pin);
 209   o_pin_draw(w_current, o_current_pin);
 210
 211   toplevel->page_current->CHANGED=1;
 212   o_undo_savestate(w_current, UNDO_ALL);
 213 }
 214
 215 /*! \todo Finish function documentation!!!
 216  *  \brief
 217  *  \par Function Description
 218  *
 219  */
 220 void o_pin_rubberpin(GSCHEM_TOPLEVEL *w_current, int w_x, int w_y)
 221 {
 222   g_assert( w_current->inside_action != 0 );
 223
 224   /* erase the rubberpin if it is visible */
 225   if (w_current->rubber_visible)
 226     o_pin_rubberpin_xor(w_current);
 227
 228   w_current->second_wx = w_x;
 229   w_current->second_wy = w_y;
 230
 231   /* decide whether to draw the pin vertical or horizontal */
 232   if (abs(w_current->second_wx - w_current->first_wx)
 233       >= abs(w_current->second_wy - w_current->first_wy)) {
 234     w_current->second_wy = w_current->first_wy;
 235   } else {
 236     w_current->second_wx = w_current->first_wx;
 237   }
 238
 239   o_pin_rubberpin_xor(w_current);
 240   w_current->rubber_visible = 1;
 241 }
 242
 243 /*! \todo Finish function documentation!!!
 244  *  \brief
 245  *  \par Function Description
 246  *
 247  *  \note
 248  *  used in o_stretch.c
 249  */
 250 void o_pin_eraserubber(GSCHEM_TOPLEVEL *w_current)
 251 {
 252   o_pin_rubberpin_xor(w_current);
 253 }
 254
 255
 256 /*! \todo Finish function documentation!!!
 257  *  \brief
 258  *  \par Function Description
 259  *
 260  */
 261 void o_pin_rubberpin_xor(GSCHEM_TOPLEVEL *w_current)
 262 {
 263   TOPLEVEL *toplevel = w_current->toplevel;
 264   PAGE *page = toplevel->page_current;
 265   int x1, y1, x2, y2;
 266   int size = 0;
 267
 268   WORLDtoSCREEN(page, w_current->first_wx, w_current->first_wy, &x1, &y1);
 269   WORLDtoSCREEN(page, w_current->second_wx, w_current->second_wy, &x2, &y2);
 270
 271   if (toplevel->net_style == THICK ) {
 272     size = SCREENabs(page, PIN_WIDTH);
 273
 274     if (size < 0)
 275       size=0;
 276
 277     gdk_gc_set_line_attributes(w_current->xor_gc, size,
 278                                GDK_LINE_SOLID,
 279                                GDK_CAP_NOT_LAST,
 280                                GDK_JOIN_MITER);
 281   }
 282
 283   gdk_gc_set_foreground(w_current->xor_gc,
 284                         x_get_darkcolor(w_current->select_color));
 285   gdk_draw_line(w_current->backingstore, w_current->xor_gc, x1, y1, x2, y2);
 286   o_invalidate_rect(w_current,
 287                     min(x1, x2) - size/2, min(y1, y2) - size/2,
 288                     max(x1, x2) + size/2, max(y1, y2) + size/2);
 289
 290   if (toplevel->net_style == THICK ) {
 291     gdk_gc_set_line_attributes(w_current->xor_gc, 0,
 292                                GDK_LINE_SOLID,
 293                                GDK_CAP_NOT_LAST,
 294                                GDK_JOIN_MITER);
 295   }
 296 }