gschem/src/a_pan.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
  32 /*! \todo Finish function documentation!!!
  33  *  \brief
  34  *  \par Function Description
  35  *
  36  */
  37 void a_pan_general(GSCHEM_TOPLEVEL *w_current, double world_cx, double world_cy,
  38                    double relativ_zoom_factor,int flags)
  39 {
  40   TOPLEVEL *toplevel = w_current->toplevel;
  41   PAGE *page = toplevel->page_current;
  42   /* see libgeda/include/defines.h for flags */
  43   /*if the borders should be ignored always, remove, outcomment or changes
  44     the flags in the function-calls*/
  45   /*    flags |= A_PAN_IGNORE_BORDERS;
  46    */
  47   /* think it's better that the zoomfactor is defined as pix/mills
  48      this will be the same as page->to_screen_x/y_constant */
  49   int zoom_max = 5;
  50   int diff;
  51   double zx, zy, zoom_old, zoom_new, zoom_min;
  52
  53 #if DEBUG
  54   printf("a_pan_general(): world_cx=%f, world_cy=%f\n",world_cx, world_cy);
  55 #endif
  56
  57   /* calc minimum zoomfactors and choose the smaller one. They are equal
  58      if the aspectratio of the world is the same as the screen ratio */
  59   zx = (double) page->width / (toplevel->init_right - toplevel->init_left);
  60   zy = (double) page->height / (toplevel->init_bottom - toplevel->init_top);
  61   zoom_min = zx < zy ? zx : zy;
  62
  63 #if DEBUG
  64   printf("  zx_min=%f, zy_min=%f , flags=%d\n ",zx, zy, flags);
  65 #endif
  66
  67   /* to_screen_x_constant and to_screen_y_constant are almost the same.
  68      lets use to_screen_y_constant */
  69   zoom_old = page->to_screen_y_constant;
  70
  71   /* calc new zooming factor */
  72   /* check if there's a zoom_full (relativ_zoom_factor == -1) */
  73   if (relativ_zoom_factor <0)  {
  74     zoom_new = zoom_min;
  75   }
  76   else {
  77     zoom_new = zoom_old * relativ_zoom_factor;
  78     zoom_new = zoom_new > zoom_max ? zoom_max : zoom_new;
  79     if (!(flags & A_PAN_IGNORE_BORDERS)) {
  80       zoom_new = zoom_new < zoom_min ? zoom_min : zoom_new;
  81     }
  82   }
  83
  84   /* calculate the new visible area; adding 0.5 to round */
  85   page->left = world_cx - (double) page->width / 2 / zoom_new + 0.5;
  86   page->right = world_cx + (double) page->width / 2 / zoom_new + 0.5;
  87   page->top = world_cy - (double) page->height / 2 / zoom_new + 0.5;
  88   page->bottom = world_cy + (double) page->height / 2 / zoom_new + 0.5;
  89
  90   /* and put it back to the borders */
  91   if (!(flags & A_PAN_IGNORE_BORDERS)) {
  92     /* check right border */
  93     if (page->right > toplevel->init_right) {
  94       page->left += toplevel->init_right - page->right;
  95       page->right = toplevel->init_right;
  96     }
  97     /* check left border */
  98     if (page->left < toplevel->init_left) {
  99       page->right += toplevel->init_left - page->left;
 100       page->left = toplevel->init_left;
 101     }
 102
 103     /* If there is any slack, center the view */
 104     diff = (page->right - page->left) -
 105            (toplevel->init_right - toplevel->init_left);
 106     if (diff > 0) {
 107       page->left -= diff / 2;
 108       page->right -= diff / 2;
 109     }
 110
 111     /* check bottom border */
 112     if (page->bottom > toplevel->init_bottom) {
 113       page->top += toplevel->init_bottom - page->bottom;
 114       page->bottom = toplevel->init_bottom;
 115     }
 116     /* check top border */
 117     if (page->top < toplevel->init_top) {
 118       page->bottom += toplevel->init_top - page->top;
 119       page->top = toplevel->init_top;
 120     }
 121
 122     /* If there is any slack, center the view */
 123     diff = (page->bottom - page->top) -
 124            (toplevel->init_bottom - toplevel->init_top);
 125     if (diff > 0) {
 126       page->top -= diff / 2;
 127       page->bottom -= diff / 2;
 128     }
 129   }
 130
 131 #if DEBUG
 132   printf("zoom_old: %f, zoom_new: %f \n ",zoom_old, zoom_new);
 133   printf("left: %d, right: %d, top: %d, bottom: %d\n",
 134          page->left, page->right, page->top, page->bottom);
 135   printf("aspect: %f\n",
 136          (float) fabs(page->right - page->left) /
 137          (float) fabs(page->bottom - page->top));
 138 #endif
 139
 140   /* set_window */
 141   set_window(toplevel, page,
 142              page->left,
 143              page->right,
 144              page->top,
 145              page->bottom);
 146
 147   /* redraw */
 148   if (!(flags & A_PAN_DONT_REDRAW)) {
 149     x_scrollbars_update(w_current);
 150     o_redraw_all(w_current);
 151   }
 152 }
 153
 154 /*! \todo Finish function documentation!!!
 155  *  \brief
 156  *  \par Function Description
 157  */
 158 void a_pan(GSCHEM_TOPLEVEL *w_current, int w_x, int w_y)
 159 {
 160   /* make mouse to the new world-center;
 161      attention: there are information looses because of type cast in mil_x */
 162
 163   a_pan_general(w_current, w_x, w_y, 1, 0);
 164
 165   /*! \bug FIXME? This call will trigger a motion event (x_event_motion()),
 166    * even if the user doesn't move the mouse
 167    * Not ready for prime time, maybe there is another way to trigger the
 168    * motion event without changing the cursor position (Werner)
 169    */
 170   /* x_basic_warp_cursor(w_current->drawing_area, x, y); */
 171 }
 172
 173 /*! \todo Finish function documentation!!!
 174  *  \brief
 175  *  \par Function Description
 176  *
 177  */
 178 void a_pan_mouse(GSCHEM_TOPLEVEL *w_current, int diff_x, int diff_y)
 179 {
 180   TOPLEVEL *toplevel = w_current->toplevel;
 181   PAGE *page = toplevel->page_current;
 182   double world_cx, world_cy;
 183   double page_cx, page_cy;
 184
 185 #if DEBUG
 186   printf("a_pan_mouse(): diff_x=%d, diff_y=%d\n", diff_x, diff_y);
 187 #endif
 188
 189   page_cx = (page->left + page->right) / 2.0;
 190   page_cy = (page->top + page->bottom) / 2.0;
 191
 192   world_cx = page_cx - WORLDabs(page, diff_x);
 193   world_cy = page_cy + WORLDabs(page, diff_y);
 194
 195 #if DEBUG
 196   printf("  world_cx=%f, world_cy=%f, world_dx=%d, world_dy=%d\n",
 197          world_cx, world_cy, world_dx, world_dy);
 198 #endif
 199
 200   a_pan_general(w_current, world_cx, world_cy, 1, 0);
 201 }