[brlcad-commits] SF.net SVN: brlcad:[54533] brlcad/trunk/src/libtclcad/tclcad_obj.c

[n_reed]

Revision: 54533
          http://brlcad.svn.sourceforge.net/brlcad/?rev=54533&view=rev
Author:   n_reed
Date:     2013-03-05 18:32:45 +0000 (Tue, 05 Mar 2013)
Log Message:
-----------
have archer redraw after interactive zoom when doing adaptive plotting

Modified Paths:
--------------
    brlcad/trunk/src/libtclcad/tclcad_obj.c

Modified: brlcad/trunk/src/libtclcad/tclcad_obj.c
===================================================================
--- brlcad/trunk/src/libtclcad/tclcad_obj.c     2013-03-05 15:44:41 UTC (rev 
54532)
+++ brlcad/trunk/src/libtclcad/tclcad_obj.c     2013-03-05 18:32:45 UTC (rev 
54533)
@@ -5779,6 +5779,7 @@
             int UNUSED(maxargs))
 {
     struct ged_dm_view *gdvp;
+    int mode, need_refresh = 0;
 
     /* initialize result */
     bu_vls_trunc(gedp->ged_result_str, 0);
@@ -5804,8 +5805,19 @@
        return GED_ERROR;
     }
 
+    mode = gdvp->gdv_view->gv_mode;
 
-    if (gdvp->gdv_view->gv_mode != TCLCAD_POLY_CONTOUR_MODE || 
gdvp->gdv_view->gv_data_polygons.gdps_cflag == 0) {
+    if (gdvp->gdv_view->gv_adaptive_plot && mode == TCLCAD_SCALE_MODE) {
+       char *av[] = {"redraw", NULL};
+
+       ged_redraw(gedp, 1, (const char **)av);
+
+       need_refresh = 1;
+    }
+
+    if (mode != TCLCAD_POLY_CONTOUR_MODE ||
+       gdvp->gdv_view->gv_data_polygons.gdps_cflag == 0)
+    {
        struct bu_vls bindings = BU_VLS_INIT_ZERO;
 
        bu_vls_printf(&bindings, "bind %V <Motion> {}",
@@ -5815,8 +5827,9 @@
     }
 
     if (gdvp->gdv_view->gv_grid.ggs_snap &&
-       (gdvp->gdv_view->gv_mode == TCLCAD_TRANSLATE_MODE ||
-        gdvp->gdv_view->gv_mode == TCLCAD_CONSTRAINED_TRANSLATE_MODE)) {
+       (mode == TCLCAD_TRANSLATE_MODE ||
+        mode == TCLCAD_CONSTRAINED_TRANSLATE_MODE))
+    {
        char *av[3];
 
        gedp->ged_gvp = gdvp->gdv_view;
@@ -5829,9 +5842,13 @@
            Tcl_Eval(current_top->to_interp, bu_vls_addr(&gdvp->gdv_callback));
        }
 
-       to_refresh_view(gdvp);
+       need_refresh = 1;
     }
 
+    if (need_refresh) {
+       to_refresh_all_views(current_top);
+    }
+
     gdvp->gdv_view->gv_mode = TCLCAD_IDLE_MODE;
     gdvp->gdv_view->gv_sdata_polygons.gdps_cflag = 0;
 

This was sent by the SourceForge.net collaborative development platform, the 
world's largest Open Source development site.


------------------------------------------------------------------------------
Everyone hates slow websites. So do we.
Make your web apps faster with AppDynamics
Download AppDynamics Lite for free today:
http://p.sf.net/sfu/appdyn_d2d_feb
_______________________________________________
BRL-CAD Source Commits mailing list
brlcad-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/brlcad-commits