Revision: 77450
          http://sourceforge.net/p/brlcad/code/77450
Author:   starseeker
Date:     2020-10-15 12:58:52 +0000 (Thu, 15 Oct 2020)
Log Message:
-----------
Adjust to C++

Modified Paths:
--------------
    brlcad/trunk/src/libtclcad/commands.cpp

Modified: brlcad/trunk/src/libtclcad/commands.cpp
===================================================================
--- brlcad/trunk/src/libtclcad/commands.cpp     2020-10-15 12:56:28 UTC (rev 
77449)
+++ brlcad/trunk/src/libtclcad/commands.cpp     2020-10-15 12:58:52 UTC (rev 
77450)
@@ -1,4 +1,4 @@
-/*                       T C L C A D _ O B J . C
+/*                     C O M M A N D S . C P P
  * BRL-CAD
  *
  * Copyright (c) 2000-2020 United States Government as represented by
@@ -19,7 +19,7 @@
  */
 /** @addtogroup libtclcad */
 /** @{ */
-/** @file libtclcad/tclcad_obj.c
+/** @file libtclcad/commands.cpp
  *
  * A quasi-object-oriented database interface.
  *
@@ -31,6 +31,7 @@
 
 #include "common.h"
 
+extern "C" {
 #include <stdlib.h>
 #include <ctype.h>
 #include <string.h>
@@ -76,458 +77,459 @@
 #  include <GL/gl.h>
 #endif
 
-/* For the moment call internal libged functions - a cleaner
- * solution will be needed eventually */
+    /* For the moment call internal libged functions - a cleaner
+     * solution will be needed eventually */
 #include "../libged/ged_private.h"
 
-/* Private headers */
+    /* Private headers */
 #include "brlcad_version.h"
 #include "./tclcad_private.h"
 #include "./view/view.h"
+}
 
 HIDDEN int to_base2local(struct ged *gedp,
-                        int argc,
-                        const char *argv[],
-                        ged_func_ptr func,
-                        const char *usage,
-                        int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_bg(struct ged *gedp,
-                int argc,
-                const char *argv[],
-                ged_func_ptr func,
-                const char *usage,
-                int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_bounds(struct ged *gedp,
-                    int argc,
-                    const char *argv[],
-                    ged_func_ptr func,
-                    const char *usage,
-                    int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_configure(struct ged *gedp,
-                       int argc,
-                       const char *argv[],
-                       ged_func_ptr func,
-                       const char *usage,
-                       int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_constrain_rmode(struct ged *gedp,
-                             int argc,
-                             const char *argv[],
-                             ged_func_ptr func,
-                             const char *usage,
-                             int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_constrain_tmode(struct ged *gedp,
-                             int argc,
-                             const char *argv[],
-                             ged_func_ptr func,
-                             const char *usage,
-                             int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_copy(struct ged *gedp,
-                  int argc,
-                  const char *argv[],
-                  ged_func_ptr func,
-                  const char *usage,
-                  int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_data_move(struct ged *gedp,
-                       int argc,
-                       const char *argv[],
-                       ged_func_ptr func,
-                       const char *usage,
-                       int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_data_move_func(struct ged *gedp,
-                            struct bview *gdvp,
-                            int argc,
-                            const char *argv[],
-                            const char *usage);
+       struct bview *gdvp,
+       int argc,
+       const char *argv[],
+       const char *usage);
 HIDDEN int to_data_move_object_mode(struct ged *gedp,
-                                   int argc,
-                                   const char *argv[],
-                                   ged_func_ptr func,
-                                   const char *usage,
-                                   int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_data_move_object_mode_func(struct ged *gedp,
-                                        struct bview *gdvp,
-                                        int argc,
-                                        const char *argv[],
-                                        const char *usage);
+       struct bview *gdvp,
+       int argc,
+       const char *argv[],
+       const char *usage);
 HIDDEN int to_data_move_point_mode(struct ged *gedp,
-                                  int argc,
-                                  const char *argv[],
-                                  ged_func_ptr func,
-                                  const char *usage,
-                                  int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_data_move_point_mode_func(struct ged *gedp,
-                                       struct bview *gdvp,
-                                       int argc,
-                                       const char *argv[],
-                                       const char *usage);
+       struct bview *gdvp,
+       int argc,
+       const char *argv[],
+       const char *usage);
 HIDDEN int to_data_pick(struct ged *gedp,
-                       int argc,
-                       const char *argv[],
-                       ged_func_ptr func,
-                       const char *usage,
-                       int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int
 to_data_pick_func(struct ged *gedp,
-                 struct bview *gdvp,
-                 int argc,
-                 const char *argv[],
-                 const char *usage);
+       struct bview *gdvp,
+       int argc,
+       const char *argv[],
+       const char *usage);
 HIDDEN int to_data_vZ(struct ged *gedp,
-                     int argc,
-                     const char *argv[],
-                     ged_func_ptr func,
-                     const char *usage,
-                     int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_dplot(struct ged *gedp,
-                      int argc,
-                      const char *argv[],
-                      ged_func_ptr func,
-                      const char *usage,
-                      int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_dlist_on(struct ged *gedp,
-                      int argc,
-                      const char *argv[],
-                      ged_func_ptr func,
-                      const char *usage,
-                      int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_bot_edge_split(struct ged *gedp,
-                            int argc,
-                            const char *argv[],
-                            ged_func_ptr func,
-                            const char *usage,
-                            int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_bot_face_split(struct ged *gedp,
-                            int argc,
-                            const char *argv[],
-                            ged_func_ptr func,
-                            const char *usage,
-                            int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_fontsize(struct ged *gedp,
-                      int argc,
-                      const char *argv[],
-                      ged_func_ptr func,
-                      const char *usage,
-                      int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_fit_png_image(struct ged *gedp,
-                           int argc,
-                           const char *argv[],
-                           ged_func_ptr func,
-                           const char *usage,
-                           int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_init_view_bindings(struct ged *gedp,
-                                int argc,
-                                const char *argv[],
-                                ged_func_ptr func,
-                                const char *usage,
-                                int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_delete_view(struct ged *gedp,
-                         int argc,
-                         const char *argv[],
-                         ged_func_ptr func,
-                         const char *usage,
-                         int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_handle_expose(struct ged *gedp,
-                           int argc,
-                           const char *argv[],
-                           ged_func_ptr func,
-                           const char *usage,
-                           int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_hide_view(struct ged *gedp,
-                       int argc,
-                       const char *argv[],
-                       ged_func_ptr func,
-                       const char *usage,
-                       int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_idle_mode(struct ged *gedp,
-                       int argc,
-                       const char *argv[],
-                       ged_func_ptr func,
-                       const char *usage,
-                       int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_light(struct ged *gedp,
-                   int argc,
-                   const char *argv[],
-                   ged_func_ptr func,
-                   const char *usage,
-                   int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_list_views(struct ged *gedp,
-                        int argc,
-                        const char *argv[],
-                        ged_func_ptr func,
-                        const char *usage,
-                        int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_local2base(struct ged *gedp,
-                        int argc,
-                        const char *argv[],
-                        ged_func_ptr func,
-                        const char *usage,
-                        int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_lod(struct ged *gedp,
-                 int argc,
-                 const char *argv[],
-                 ged_func_ptr func,
-                 const char *usage,
-                 int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_make(struct ged *gedp,
-                  int argc,
-                  const char *argv[],
-                  ged_func_ptr func,
-                  const char *usage,
-                  int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_mirror(struct ged *gedp,
-                    int argc,
-                    const char *argv[],
-                    ged_func_ptr func,
-                    const char *usage,
-                    int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_edit_motion_delta_callback(struct ged *gedp,
-                                        int argc,
-                                        const char *argv[],
-                                        ged_func_ptr func,
-                                        const char *usage,
-                                        int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_more_args_callback(struct ged *gedp,
-                                int argc,
-                                const char *argv[],
-                                ged_func_ptr func,
-                                const char *usage,
-                                int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_move_arb_edge_mode(struct ged *gedp,
-                                int argc,
-                                const char *argv[],
-                                ged_func_ptr func,
-                                const char *usage,
-                                int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_move_arb_face_mode(struct ged *gedp,
-                                int argc,
-                                const char *argv[],
-                                ged_func_ptr func,
-                                const char *usage,
-                                int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_bot_move_pnt(struct ged *gedp,
-                          int argc,
-                          const char *argv[],
-                          ged_func_ptr func,
-                          const char *usage,
-                          int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_bot_move_pnts(struct ged *gedp,
-                           int argc,
-                           const char *argv[],
-                           ged_func_ptr func,
-                           const char *usage,
-                           int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_bot_move_pnt_mode(struct ged *gedp,
-                               int argc,
-                               const char *argv[],
-                               ged_func_ptr func,
-                               const char *usage,
-                               int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_bot_move_pnts_mode(struct ged *gedp,
-                                int argc,
-                                const char *argv[],
-                                ged_func_ptr func,
-                                const char *usage,
-                                int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_metaball_move_pnt_mode(struct ged *gedp,
-                                    int argc,
-                                    const char *argv[],
-                                    ged_func_ptr func,
-                                    const char *usage,
-                                    int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_pipe_move_pnt_mode(struct ged *gedp,
-                                int argc,
-                                const char *argv[],
-                                ged_func_ptr func,
-                                const char *usage,
-                                int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_move_pnt_common(struct ged *gedp,
-                             int argc,
-                             const char *argv[],
-                             ged_func_ptr func,
-                             const char *usage,
-                             int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_new_view(struct ged *gedp,
-                      int argc,
-                      const char *argv[],
-                      ged_func_ptr func,
-                      const char *usage,
-                      int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_orotate_mode(struct ged *gedp,
-                          int argc,
-                          const char *argv[],
-                          ged_func_ptr func,
-                          const char *usage,
-                          int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_oscale_mode(struct ged *gedp,
-                         int argc,
-                         const char *argv[],
-                         ged_func_ptr func,
-                         const char *usage,
-                         int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_otranslate_mode(struct ged *gedp,
-                             int argc,
-                             const char *argv[],
-                             ged_func_ptr func,
-                             const char *usage,
-                             int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_paint_rect_area(struct ged *gedp,
-                             int argc,
-                             const char *argv[],
-                             ged_func_ptr func,
-                             const char *usage,
-                             int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 #ifdef HAVE_GL_GL_H
 HIDDEN int to_pix(struct ged *gedp,
-                 int argc,
-                 const char *argv[],
-                 ged_func_ptr func,
-                 const char *usage,
-                 int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_png(struct ged *gedp,
-                 int argc,
-                 const char *argv[],
-                 ged_func_ptr func,
-                 const char *usage,
-                 int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 #endif
 HIDDEN int to_rect_mode(struct ged *gedp,
-                       int argc,
-                       const char *argv[],
-                       ged_func_ptr func,
-                       const char *usage,
-                       int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_rotate_arb_face_mode(struct ged *gedp,
-                                  int argc,
-                                  const char *argv[],
-                                  ged_func_ptr func,
-                                  const char *usage,
-                                  int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_rotate_mode(struct ged *gedp,
-                         int argc,
-                         const char *argv[],
-                         ged_func_ptr func,
-                         const char *usage,
-                         int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_rt_end_callback(struct ged *gedp,
-                             int argc,
-                             const char *argv[],
-                             ged_func_ptr func,
-                             const char *usage,
-                             int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_rt_gettrees(struct ged *gedp,
-                         int argc,
-                         const char *argv[],
-                         ged_func_ptr func,
-                         const char *usage,
-                         int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_protate_mode(struct ged *gedp,
-                          int argc,
-                          const char *argv[],
-                          ged_func_ptr func,
-                          const char *usage,
-                          int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_pscale_mode(struct ged *gedp,
-                         int argc,
-                         const char *argv[],
-                         ged_func_ptr func,
-                         const char *usage,
-                         int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_ptranslate_mode(struct ged *gedp,
-                             int argc,
-                             const char *argv[],
-                             ged_func_ptr func,
-                             const char *usage,
-                             int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_data_scale_mode(struct ged *gedp,
-                             int argc,
-                             const char *argv[],
-                             ged_func_ptr func,
-                             const char *usage,
-                             int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_scale_mode(struct ged *gedp,
-                        int argc,
-                        const char *argv[],
-                        ged_func_ptr func,
-                        const char *usage,
-                        int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_screen2model(struct ged *gedp,
-                          int argc,
-                          const char *argv[],
-                          ged_func_ptr func,
-                          const char *usage,
-                          int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_screen2view(struct ged *gedp,
-                         int argc,
-                         const char *argv[],
-                         ged_func_ptr func,
-                         const char *usage,
-                         int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_set_coord(struct ged *gedp,
-                       int argc,
-                       const char *argv[],
-                       ged_func_ptr func,
-                       const char *usage,
-                       int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_snap_view(struct ged *gedp,
-                       int argc,
-                       const char *argv[],
-                       ged_func_ptr func,
-                       const char *usage,
-                       int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_translate_mode(struct ged *gedp,
-                            int argc,
-                            const char *argv[],
-                            ged_func_ptr func,
-                            const char *usage,
-                            int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_transparency(struct ged *gedp,
-                          int argc,
-                          const char *argv[],
-                          ged_func_ptr func,
-                          const char *usage,
-                          int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_view_callback(struct ged *gedp,
-                           int argc,
-                           const char *argv[],
-                           ged_func_ptr func,
-                           const char *usage,
-                           int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_view_win_size(struct ged *gedp,
-                           int argc,
-                           const char *argv[],
-                           ged_func_ptr func,
-                           const char *usage,
-                           int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_view2screen(struct ged *gedp,
-                         int argc,
-                         const char *argv[],
-                         ged_func_ptr func,
-                         const char *usage,
-                         int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_vmake(struct ged *gedp,
-                   int argc,
-                   const char *argv[],
-                   ged_func_ptr func,
-                   const char *usage,
-                   int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_vslew(struct ged *gedp,
-                   int argc,
-                   const char *argv[],
-                   ged_func_ptr func,
-                   const char *usage,
-                   int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_zbuffer(struct ged *gedp,
-                     int argc,
-                     const char *argv[],
-                     ged_func_ptr func,
-                     const char *usage,
-                     int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 HIDDEN int to_zclip(struct ged *gedp,
-                   int argc,
-                   const char *argv[],
-                   ged_func_ptr func,
-                   const char *usage,
-                   int maxargs);
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *usage,
+       int maxargs);
 
 /* Utility Functions */
 
@@ -977,10 +979,10 @@
 
     BU_LIST_INIT(&HeadTclcadObj.l);
     (void)Tcl_CreateCommand(interp, (const char *)"go_open", to_open_tcl,
-                           (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);
+           (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);
 
     (void)Tcl_CreateCommand(interp, (const char *)"dm_list", dm_list_tcl,
-                           (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);
+           (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);
 
     (void)library_initialized(1);
 
@@ -999,9 +1001,9 @@
  */
 HIDDEN int
 to_cmd(ClientData clientData,
-       Tcl_Interp *interp,
-       int argc,
-       char **argv)
+       Tcl_Interp *interp,
+       int argc,
+       char **argv)
 {
     register struct to_cmdtab *ctp;
     struct tclcad_obj *top = (struct tclcad_obj *)clientData;
@@ -1164,8 +1166,8 @@
  */
 int
 to_create_cmd(Tcl_Interp *interp,
-             struct tclcad_obj *top,   /* pointer to object */
-             const char *oname)        /* object name */
+       struct tclcad_obj *top, /* pointer to object */
+       const char *oname)      /* object name */
 {
     if (top == TCLCAD_OBJ_NULL) {
        Tcl_AppendResult(interp, "to_create_cmd ", oname, " failed", NULL);
@@ -1175,7 +1177,7 @@
     /* Instantiate the newprocname, with clientData of top */
     /* Beware, returns a "token", not TCL_OK. */
     (void)Tcl_CreateCommand(interp, oname, (Tcl_CmdProc *)to_cmd,
-                           (ClientData)top, to_deleteProc);
+           (ClientData)top, to_deleteProc);
 
     /* Return new function name as result */
     Tcl_AppendResult(interp, oname, (char *)NULL);
@@ -1190,7 +1192,7 @@
 tclcad_create_io_handler(struct ged_subprocess *p, bu_process_io_t d, 
ged_io_func_t callback, void *data)
 {
     if (!p || !p->p || !p->gedp || !p->gedp->ged_io_data)
-               return;
+       return;
     int *fdp = (int *)bu_process_fd(p->p, d);
     if (fdp) {
        struct tclcad_io_data *t_iod = (struct tclcad_io_data 
*)p->gedp->ged_io_data;
@@ -1222,22 +1224,22 @@
     if (fdp) {
        switch (d) {
            case BU_PROCESS_STDIN:
-                       if (!t_iod->chan_stdin) {
-                               t_iod->chan_stdin = Tcl_MakeFileChannel(*fdp, 
t_iod->io_mode);
-                               Tcl_CreateChannelHandler(t_iod->chan_stdin, 
t_iod->io_mode, callback, (ClientData)data);
-                       }
+               if (!t_iod->chan_stdin) {
+                   t_iod->chan_stdin = Tcl_MakeFileChannel(*fdp, 
t_iod->io_mode);
+                   Tcl_CreateChannelHandler(t_iod->chan_stdin, t_iod->io_mode, 
callback, (ClientData)data);
+               }
                break;
            case BU_PROCESS_STDOUT:
-                       if (!t_iod->chan_stdout) {
-                               t_iod->chan_stdout = Tcl_MakeFileChannel(*fdp, 
t_iod->io_mode);
-                               Tcl_CreateChannelHandler(t_iod->chan_stdout, 
t_iod->io_mode, callback, (ClientData)data);
-                       }
+               if (!t_iod->chan_stdout) {
+                   t_iod->chan_stdout = Tcl_MakeFileChannel(*fdp, 
t_iod->io_mode);
+                   Tcl_CreateChannelHandler(t_iod->chan_stdout, 
t_iod->io_mode, callback, (ClientData)data);
+               }
                break;
            case BU_PROCESS_STDERR:
-                       if (!t_iod->chan_stderr) {
-                               t_iod->chan_stderr = Tcl_MakeFileChannel(*fdp, 
t_iod->io_mode);
-                               Tcl_CreateChannelHandler(t_iod->chan_stderr, 
t_iod->io_mode, callback, (ClientData)data);
-                       }
+               if (!t_iod->chan_stderr) {
+                   t_iod->chan_stderr = Tcl_MakeFileChannel(*fdp, 
t_iod->io_mode);
+                   Tcl_CreateChannelHandler(t_iod->chan_stderr, 
t_iod->io_mode, callback, (ClientData)data);
+               }
                break;
        }
     }
@@ -1248,31 +1250,31 @@
 tclcad_delete_io_handler(struct ged_subprocess *p, bu_process_io_t d)
 {
     if (!p || !p->p || !p->gedp || !p->gedp->ged_io_data)
-               return;
+       return;
     struct tclcad_io_data *t_iod = (struct tclcad_io_data 
*)p->gedp->ged_io_data;
-       switch (d) {
-           case BU_PROCESS_STDIN:
-               if (t_iod->chan_stdin) {
-                   Tcl_DeleteChannelHandler(t_iod->chan_stdin, NULL, 
(ClientData)NULL);
-                   Tcl_Close(t_iod->interp, t_iod->chan_stdin);
-                       t_iod->chan_stdin = NULL;
-               }
-               break;
-           case BU_PROCESS_STDOUT:
-               if (t_iod->chan_stdout) {
-                   Tcl_DeleteChannelHandler(t_iod->chan_stdout, NULL, 
(ClientData)NULL);
-                   Tcl_Close(t_iod->interp, t_iod->chan_stdout);
-                       t_iod->chan_stdout = NULL;
-               }
-               break;
-           case BU_PROCESS_STDERR:
-               if (t_iod->chan_stderr) {
-                   Tcl_DeleteChannelHandler(t_iod->chan_stderr, NULL, 
(ClientData)NULL);
-                   Tcl_Close(t_iod->interp, t_iod->chan_stderr);
-                       t_iod->chan_stderr = NULL;
-               }
-               break;
-       }
+    switch (d) {
+       case BU_PROCESS_STDIN:
+           if (t_iod->chan_stdin) {
+               Tcl_DeleteChannelHandler(t_iod->chan_stdin, NULL, 
(ClientData)NULL);
+               Tcl_Close(t_iod->interp, t_iod->chan_stdin);
+               t_iod->chan_stdin = NULL;
+           }
+           break;
+       case BU_PROCESS_STDOUT:
+           if (t_iod->chan_stdout) {
+               Tcl_DeleteChannelHandler(t_iod->chan_stdout, NULL, 
(ClientData)NULL);
+               Tcl_Close(t_iod->interp, t_iod->chan_stdout);
+               t_iod->chan_stdout = NULL;
+           }
+           break;
+       case BU_PROCESS_STDERR:
+           if (t_iod->chan_stderr) {
+               Tcl_DeleteChannelHandler(t_iod->chan_stderr, NULL, 
(ClientData)NULL);
+               Tcl_Close(t_iod->interp, t_iod->chan_stderr);
+               t_iod->chan_stderr = NULL;
+           }
+           break;
+    }
 }
 #endif
 
@@ -1300,9 +1302,9 @@
  */
 int
 to_open_tcl(ClientData UNUSED(clientData),
-           Tcl_Interp *interp,
-           int argc,
-           const char **argv)
+       Tcl_Interp *interp,
+       int argc,
+       const char **argv)
 {
     struct tclcad_obj *top = NULL;
     struct ged *gedp = NULL;
@@ -1318,15 +1320,15 @@
 
     if (argc < 3 || 4 < argc) {
        Tcl_AppendResult(interp, "\
-Usage: go_open\n\
-       go_open newprocname file filename\n\
-       go_open newprocname disk $dbip\n\
-       go_open newprocname disk_append $dbip\n\
-       go_open newprocname inmem $dbip\n\
-       go_open newprocname inmem_append $dbip\n\
-       go_open newprocname db filename\n\
-       go_open newprocname filename\n",
-                        NULL);
+               Usage: go_open\n\
+               go_open newprocname file filename\n\
+               go_open newprocname disk $dbip\n\
+               go_open newprocname disk_append $dbip\n\
+               go_open newprocname inmem $dbip\n\
+               go_open newprocname inmem_append $dbip\n\
+               go_open newprocname db filename\n\
+               go_open newprocname filename\n",
+               NULL);
        return TCL_ERROR;
     }
 
@@ -1402,11 +1404,11 @@
 
 HIDDEN int
 to_base2local(struct ged *gedp,
-             int UNUSED(argc),
-             const char *UNUSED(argv[]),
-             ged_func_ptr UNUSED(func),
-             const char *UNUSED(usage),
-             int UNUSED(maxargs))
+       int UNUSED(argc),
+       const char *UNUSED(argv[]),
+       ged_func_ptr UNUSED(func),
+       const char *UNUSED(usage),
+       int UNUSED(maxargs))
 {
     /* initialize result */
     bu_vls_trunc(gedp->ged_result_str, 0);
@@ -1419,11 +1421,11 @@
 
 HIDDEN int
 to_bg(struct ged *gedp,
-      int argc,
-      const char *argv[],
-      ged_func_ptr UNUSED(func),
-      const char *usage,
-      int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     int r, g, b;
 
@@ -1452,9 +1454,9 @@
        unsigned char *dm_bg = dm_get_bg((struct dm *)gdvp->dmp);
        if (dm_bg) {
            bu_vls_printf(gedp->ged_result_str, "%d %d %d",
-                         dm_bg[0],
-                         dm_bg[1],
-                         dm_bg[2]);
+                   dm_bg[0],
+                   dm_bg[1],
+                   dm_bg[2]);
        }
        return GED_OK;
     }
@@ -1461,14 +1463,14 @@
 
     /* set background color */
     if (bu_sscanf(argv[2], "%d", &r) != 1 ||
-       bu_sscanf(argv[3], "%d", &g) != 1 ||
-       bu_sscanf(argv[4], "%d", &b) != 1)
+           bu_sscanf(argv[3], "%d", &g) != 1 ||
+           bu_sscanf(argv[4], "%d", &b) != 1)
        goto bad_color;
 
     /* validate color */
     if (r < 0 || 255 < r ||
-       g < 0 || 255 < g ||
-       b < 0 || 255 < b)
+           g < 0 || 255 < g ||
+           b < 0 || 255 < b)
        goto bad_color;
 
     (void)dm_make_current((struct dm *)gdvp->dmp);
@@ -1486,11 +1488,11 @@
 
 HIDDEN int
 to_bounds(struct ged *gedp,
-         int argc,
-         const char *argv[],
-         ged_func_ptr UNUSED(func),
-         const char *usage,
-         int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     fastf_t bounds[6];
 
@@ -1523,7 +1525,7 @@
        vect_t *cmax = dm_get_clipmax((struct dm *)gdvp->dmp);
        if (cmin && cmax) {
            bu_vls_printf(gedp->ged_result_str, "%g %g %g %g %g %g",
-                         (*cmin)[X], (*cmax)[X], (*cmin)[Y], (*cmax)[Y], 
(*cmin)[Z], (*cmax)[Z]);
+                   (*cmin)[X], (*cmax)[X], (*cmin)[Y], (*cmax)[Y], (*cmin)[Z], 
(*cmax)[Z]);
        }
        return GED_OK;
     }
@@ -1530,9 +1532,9 @@
 
     /* set window bounds */
     if (bu_sscanf(argv[2], "%lf %lf %lf %lf %lf %lf",
-                 &scan[0], &scan[1],
-                 &scan[2], &scan[3],
-                 &scan[4], &scan[5]) != 6) {
+               &scan[0], &scan[1],
+               &scan[2], &scan[3],
+               &scan[4], &scan[5]) != 6) {
        bu_vls_printf(gedp->ged_result_str, "%s: invalid bounds - %s", argv[0], 
argv[2]);
        return GED_ERROR;
     }
@@ -1559,11 +1561,11 @@
 
 HIDDEN int
 to_configure(struct ged *gedp,
-            int argc,
-            const char *argv[],
-            ged_func_ptr UNUSED(func),
-            const char *usage,
-            int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     int status;
 
@@ -1618,11 +1620,11 @@
 
 HIDDEN int
 to_constrain_rmode(struct ged *gedp,
-                  int argc,
-                  const char *argv[],
-                  ged_func_ptr UNUSED(func),
-                  const char *usage,
-                  int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     struct bu_vls bindings = BU_VLS_INIT_ZERO;
 
@@ -1650,14 +1652,14 @@
     }
 
     if ((argv[2][0] != 'x' &&
-        argv[2][0] != 'y' &&
-        argv[2][0] != 'z') || argv[2][1] != '\0') {
+               argv[2][0] != 'y' &&
+               argv[2][0] != 'z') || argv[2][1] != '\0') {
        bu_vls_printf(gedp->ged_result_str, "Usage: %s %s", argv[0], usage);
        return GED_OK;
     }
 
     if (bu_sscanf(argv[3], "%lf", &x) != 1 ||
-       bu_sscanf(argv[4], "%lf", &y) != 1) {
+           bu_sscanf(argv[4], "%lf", &y) != 1) {
        bu_vls_printf(gedp->ged_result_str, "Usage: %s %s", argv[0], usage);
        return GED_ERROR;
     }
@@ -1669,10 +1671,10 @@
     struct bu_vls *pathname = dm_get_pathname((struct dm *)gdvp->dmp);
     if (pathname && bu_vls_strlen(pathname)) {
        bu_vls_printf(&bindings, "bind %s <Motion> {%s mouse_constrain_rot %s 
%s %%x %%y}; break",
-                     bu_vls_cstr(pathname),
-                     bu_vls_cstr(&current_top->to_gedp->go_name),
-                     bu_vls_cstr(&gdvp->gv_name),
-                     argv[2]);
+               bu_vls_cstr(pathname),
+               bu_vls_cstr(&current_top->to_gedp->go_name),
+               bu_vls_cstr(&gdvp->gv_name),
+               argv[2]);
        Tcl_Eval(current_top->to_interp, bu_vls_cstr(&bindings));
     }
     bu_vls_free(&bindings);
@@ -1683,11 +1685,11 @@
 
 HIDDEN int
 to_constrain_tmode(struct ged *gedp,
-                  int argc,
-                  const char *argv[],
-                  ged_func_ptr UNUSED(func),
-                  const char *usage,
-                  int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     struct bu_vls bindings = BU_VLS_INIT_ZERO;
 
@@ -1715,14 +1717,14 @@
     }
 
     if ((argv[2][0] != 'x' &&
-        argv[2][0] != 'y' &&
-        argv[2][0] != 'z') || argv[2][1] != '\0') {
+               argv[2][0] != 'y' &&
+               argv[2][0] != 'z') || argv[2][1] != '\0') {
        bu_vls_printf(gedp->ged_result_str, "Usage: %s %s", argv[0], usage);
        return GED_OK;
     }
 
     if (bu_sscanf(argv[3], "%lf", &x) != 1 ||
-       bu_sscanf(argv[4], "%lf", &y) != 1) {
+           bu_sscanf(argv[4], "%lf", &y) != 1) {
        bu_vls_printf(gedp->ged_result_str, "Usage: %s %s", argv[0], usage);
        return GED_ERROR;
     }
@@ -1733,10 +1735,10 @@
 
     if (dm_get_pathname((struct dm *)gdvp->dmp)) {
        bu_vls_printf(&bindings, "bind %s <Motion> {%s mouse_constrain_trans %s 
%s %%x %%y}; break",
-                     bu_vls_addr(dm_get_pathname((struct dm *)gdvp->dmp)),
-                     bu_vls_addr(&current_top->to_gedp->go_name),
-                     bu_vls_addr(&gdvp->gv_name),
-                     argv[2]);
+               bu_vls_addr(dm_get_pathname((struct dm *)gdvp->dmp)),
+               bu_vls_addr(&current_top->to_gedp->go_name),
+               bu_vls_addr(&gdvp->gv_name),
+               argv[2]);
        Tcl_Eval(current_top->to_interp, bu_vls_addr(&bindings));
     }
     bu_vls_free(&bindings);
@@ -1843,17 +1845,17 @@
 
     if (from_gedp == to_gedp) {
        ret = ged_dbcopy(from_gedp, to_gedp,
-                        bu_vls_addr(&from_vls),
-                        bu_vls_addr(&to_vls),
-                        fflag);
+               bu_vls_addr(&from_vls),
+               bu_vls_addr(&to_vls),
+               fflag);
 
        if (ret != GED_OK && from_gedp != gedp)
            bu_vls_strcpy(gedp->ged_result_str, 
bu_vls_addr(from_gedp->ged_result_str));
     } else {
        ret = ged_dbcopy(from_gedp, to_gedp,
-                        bu_vls_addr(&from_vls),
-                        bu_vls_addr(&to_vls),
-                        fflag);
+               bu_vls_addr(&from_vls),
+               bu_vls_addr(&to_vls),
+               fflag);
 
        if (ret != GED_OK) {
            if (bu_vls_strlen(from_gedp->ged_result_str)) {
@@ -1873,11 +1875,11 @@
 
 int
 go_data_move(Tcl_Interp *UNUSED(interp),
-            struct ged *gedp,
-            struct bview *gdvp,
-            int argc,
-            const char *argv[],
-            const char *usage)
+       struct ged *gedp,
+       struct bview *gdvp,
+       int argc,
+       const char *argv[],
+       const char *usage)
 {
     /* initialize result */
     bu_vls_trunc(gedp->ged_result_str, 0);
@@ -1908,11 +1910,11 @@
  */
 HIDDEN int
 to_data_move(struct ged *gedp,
-            int argc,
-            const char *argv[],
-            ged_func_ptr UNUSED(func),
-            const char *usage,
-            int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     /* initialize result */
     bu_vls_trunc(gedp->ged_result_str, 0);
@@ -1942,10 +1944,10 @@
 
 HIDDEN int
 to_data_move_func(struct ged *gedp,
-                 struct bview *gdvp,
-                 int argc,
-                 const char *argv[],
-                 const char *usage)
+       struct bview *gdvp,
+       int argc,
+       const char *argv[],
+       const char *usage)
 {
     int mx, my;
     int width, height;
@@ -1986,8 +1988,8 @@
 
        /* Silently ignore */
        if (i >= gdpsp->gdps_polygons.num_polygons ||
-           j >= gdpsp->gdps_polygons.polygon[i].num_contours ||
-           k >= gdpsp->gdps_polygons.polygon[i].contour[j].num_points)
+               j >= gdpsp->gdps_polygons.polygon[i].num_contours ||
+               k >= gdpsp->gdps_polygons.polygon[i].contour[j].num_points)
            return GED_OK;
 
        /* This section is for moving more than a single point on a contour */
@@ -2010,8 +2012,8 @@
                    for (c = 0; c < 
gdpsp->gdps_polygons.polygon[p].num_contours; ++c) {
                        for (k = 0; k < 
gdpsp->gdps_polygons.polygon[p].contour[c].num_points; ++k) {
                            
VADD2(gdpsp->gdps_polygons.polygon[p].contour[c].point[k],
-                                 
gdpsp->gdps_polygons.polygon[p].contour[c].point[k],
-                                 diff);
+                                   
gdpsp->gdps_polygons.polygon[p].contour[c].point[k],
+                                   diff);
                        }
                    }
                }
@@ -2019,8 +2021,8 @@
                /* Move only the contour. */
                for (k = 0; k < 
gdpsp->gdps_polygons.polygon[i].contour[j].num_points; ++k) {
                    VADD2(gdpsp->gdps_polygons.polygon[i].contour[j].point[k],
-                         gdpsp->gdps_polygons.polygon[i].contour[j].point[k],
-                         diff);
+                           gdpsp->gdps_polygons.polygon[i].contour[j].point[k],
+                           diff);
                }
            }
        } else {
@@ -2276,11 +2278,11 @@
 
 int
 go_data_move_object_mode(Tcl_Interp *UNUSED(interp),
-                        struct ged *gedp,
-                        struct bview *gdvp,
-                        int argc,
-                        const char *argv[],
-                        const char *usage)
+       struct ged *gedp,
+       struct bview *gdvp,
+       int argc,
+       const char *argv[],
+       const char *usage)
 {
     /* initialize result */
     bu_vls_trunc(gedp->ged_result_str, 0);
@@ -2308,11 +2310,11 @@
 
 HIDDEN int
 to_data_move_object_mode(struct ged *gedp,
-                        int argc,
-                        const char *argv[],
-                        ged_func_ptr UNUSED(func),
-                        const char *usage,
-                        int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     /* initialize result */
     bu_vls_trunc(gedp->ged_result_str, 0);
@@ -2342,10 +2344,10 @@
 
 HIDDEN int
 to_data_move_object_mode_func(struct ged *gedp,
-                             struct bview *gdvp,
-                             int UNUSED(argc),
-                             const char *argv[],
-                             const char *usage)
+       struct bview *gdvp,
+       int UNUSED(argc),
+       const char *argv[],
+       const char *usage)
 {
     int x, y;
 
@@ -2352,7 +2354,7 @@
     gedp->ged_gvp = gdvp;
 
     if (bu_sscanf(argv[1], "%d", &x) != 1 ||
-       bu_sscanf(argv[2], "%d", &y) != 1) {
+           bu_sscanf(argv[2], "%d", &y) != 1) {
        bu_vls_printf(gedp->ged_result_str, "Usage: %s %s", argv[0], usage);
        return GED_ERROR;
     }
@@ -2368,11 +2370,11 @@
 
 int
 go_data_move_point_mode(Tcl_Interp *UNUSED(interp),
-                       struct ged *gedp,
-                       struct bview *gdvp,
-                       int argc,
-                       const char *argv[],
-                       const char *usage)
+       struct ged *gedp,
+       struct bview *gdvp,
+       int argc,
+       const char *argv[],
+       const char *usage)
 {
     /* initialize result */
     bu_vls_trunc(gedp->ged_result_str, 0);
@@ -2400,11 +2402,11 @@
 
 HIDDEN int
 to_data_move_point_mode(struct ged *gedp,
-                       int argc,
-                       const char *argv[],
-                       ged_func_ptr UNUSED(func),
-                       const char *usage,
-                       int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     /* initialize result */
     bu_vls_trunc(gedp->ged_result_str, 0);
@@ -2434,10 +2436,10 @@
 
 HIDDEN int
 to_data_move_point_mode_func(struct ged *gedp,
-                            struct bview *gdvp,
-                            int UNUSED(argc),
-                            const char *argv[],
-                            const char *usage)
+       struct bview *gdvp,
+       int UNUSED(argc),
+       const char *argv[],
+       const char *usage)
 {
     int x, y;
 
@@ -2444,7 +2446,7 @@
     gedp->ged_gvp = gdvp;
 
     if (bu_sscanf(argv[1], "%d", &x) != 1 ||
-       bu_sscanf(argv[2], "%d", &y) != 1) {
+           bu_sscanf(argv[2], "%d", &y) != 1) {
        bu_vls_printf(gedp->ged_result_str, "Usage: %s %s", argv[0], usage);
        return GED_ERROR;
     }
@@ -2460,10 +2462,10 @@
 
 int
 go_data_pick(struct ged *gedp,
-            struct bview *gdvp,
-            int argc,
-            const char *argv[],
-            const char *usage)
+       struct bview *gdvp,
+       int argc,
+       const char *argv[],
+       const char *usage)
 {
     /* initialize result */
     bu_vls_trunc(gedp->ged_result_str, 0);
@@ -2491,11 +2493,11 @@
 
 HIDDEN int
 to_data_pick(struct ged *gedp,
-            int argc,
-            const char *argv[],
-            ged_func_ptr UNUSED(func),
-            const char *usage,
-            int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     /* initialize result */
     bu_vls_trunc(gedp->ged_result_str, 0);
@@ -2525,10 +2527,10 @@
 
 HIDDEN int
 to_data_pick_func(struct ged *gedp,
-                 struct bview *gdvp,
-                 int argc,
-                 const char *argv[],
-                 const char *usage)
+       struct bview *gdvp,
+       int argc,
+       const char *argv[],
+       const char *usage)
 {
     int mx, my, width, height;
     fastf_t cx, cy;
@@ -2576,7 +2578,7 @@
 
     /* check for polygon points */
     if (gdvp->gv_data_polygons.gdps_draw &&
-       gdvp->gv_data_polygons.gdps_polygons.num_polygons) {
+           gdvp->gv_data_polygons.gdps_polygons.num_polygons) {
        register size_t si, sj, sk;
 
        bview_data_polygon_state *gdpsp = &gdvp->gv_data_polygons;
@@ -2594,7 +2596,7 @@
                    maxY = vpoint[Y] + tol;
 
                    if (minX < vx && vx < maxX &&
-                       minY < vy && vy < maxY) {
+                           minY < vy && vy < maxY) {
                        if (!found_top || top_z < vpoint[Z]) {
                            top_z = vpoint[Z];
                            top_data_str = data_polygons_str;
@@ -2610,13 +2612,13 @@
 
     if (found_top) {
        bu_vls_printf(gedp->ged_result_str, "%s {%zu %zu %zu} {%lf %lf %lf}",
-                     top_data_str, top_i, top_j, top_k, V3ARGS(top_point));
+               top_data_str, top_i, top_j, top_k, V3ARGS(top_point));
        return GED_OK;
     }
 
     /* check for label points */
     if (gdvp->gv_data_labels.gdls_draw &&
-       gdvp->gv_data_labels.gdls_num_labels) {
+           gdvp->gv_data_labels.gdls_num_labels) {
        struct bview_data_label_state *gdlsp = &gdvp->gv_data_labels;
 
        for (i = 0; i < gdlsp->gdls_num_labels; ++i) {
@@ -2632,7 +2634,7 @@
            maxY = vpoint[Y] + (2 * tol);
 
            if (minX < vx && vx < maxX &&
-               minY < vy && vy < maxY) {
+                   minY < vy && vy < maxY) {
                if (!found_top || top_z < vpoint[Z]) {
                    top_z = vpoint[Z];
                    top_data_str = data_labels_str;
@@ -2647,7 +2649,7 @@
 
     /* check for selected label points */
     if (gdvp->gv_sdata_labels.gdls_draw &&
-       gdvp->gv_sdata_labels.gdls_num_labels) {
+           gdvp->gv_sdata_labels.gdls_num_labels) {
        struct bview_data_label_state *gdlsp = &gdvp->gv_sdata_labels;
 
        for (i = 0; i < gdlsp->gdls_num_labels; ++i) {
@@ -2663,7 +2665,7 @@
            maxY = vpoint[Y] + (2 * tol);
 
            if (minX < vx && vx < maxX &&
-               minY < vy && vy < maxY) {
+                   minY < vy && vy < maxY) {
                if (!found_top || top_z < vpoint[Z]) {
                    top_z = vpoint[Z];
                    top_data_str = sdata_labels_str;
@@ -2678,13 +2680,13 @@
 
     if (found_top) {
        bu_vls_printf(gedp->ged_result_str, "%s %zu {{%s} {%lf %lf %lf}}",
-                     top_data_str, top_i, top_data_label, V3ARGS(top_point));
+               top_data_str, top_i, top_data_label, V3ARGS(top_point));
        return GED_OK;
     }
 
     /* check for line points */
     if (gdvp->gv_data_lines.gdls_draw &&
-       gdvp->gv_data_lines.gdls_num_points) {
+           gdvp->gv_data_lines.gdls_num_points) {
        struct bview_data_line_state *gdlsp = &gdvp->gv_data_lines;
 
        for (i = 0; i < gdlsp->gdls_num_points; ++i) {
@@ -2699,7 +2701,7 @@
            minY = vpoint[Y] - tol;
            maxY = vpoint[Y] + tol;
            if (minX < vx && vx < maxX &&
-               minY < vy && vy < maxY) {
+                   minY < vy && vy < maxY) {
                if (top_z < vpoint[Z]) {
                    top_z = vpoint[Z];
                    top_data_str = data_lines_str;
@@ -2715,7 +2717,7 @@
 
     /* check for selected line points */
     if (gdvp->gv_sdata_lines.gdls_draw &&
-       gdvp->gv_sdata_lines.gdls_num_points) {
+           gdvp->gv_sdata_lines.gdls_num_points) {
        struct bview_data_line_state *gdlsp = &gdvp->gv_sdata_lines;
 
        for (i = 0; i < gdlsp->gdls_num_points; ++i) {
@@ -2730,7 +2732,7 @@
            minY = vpoint[Y] - tol;
            maxY = vpoint[Y] + tol;
            if (minX < vx && vx < maxX &&
-               minY < vy && vy < maxY) {
+                   minY < vy && vy < maxY) {
                if (!found_top || top_z < vpoint[Z]) {
                    top_z = vpoint[Z];
                    top_data_str = sdata_lines_str;
@@ -2744,13 +2746,13 @@
 
     if (found_top) {
        bu_vls_printf(gedp->ged_result_str, "%s %zu {%lf %lf %lf}",
-                     top_data_str, top_i, V3ARGS(top_point));
+               top_data_str, top_i, V3ARGS(top_point));
        return GED_OK;
     }
 
     /* check for arrow points */
     if (gdvp->gv_data_arrows.gdas_draw &&
-       gdvp->gv_data_arrows.gdas_num_points) {
+           gdvp->gv_data_arrows.gdas_num_points) {
        struct bview_data_arrow_state *gdasp = &gdvp->gv_data_arrows;
 
        for (i = 0; i < gdasp->gdas_num_points; ++i) {
@@ -2765,7 +2767,7 @@
            minY = vpoint[Y] - tol;
            maxY = vpoint[Y] + tol;
            if (minX < vx && vx < maxX &&
-               minY < vy && vy < maxY) {
+                   minY < vy && vy < maxY) {
                if (!found_top || top_z < vpoint[Z]) {
                    top_z = vpoint[Z];
                    top_data_str = data_arrows_str;
@@ -2779,7 +2781,7 @@
 
     /* check for selected arrow points */
     if (gdvp->gv_sdata_arrows.gdas_draw &&
-       gdvp->gv_sdata_arrows.gdas_num_points) {
+           gdvp->gv_sdata_arrows.gdas_num_points) {
        struct bview_data_arrow_state *gdasp = &gdvp->gv_sdata_arrows;
 
        for (i = 0; i < gdasp->gdas_num_points; ++i) {
@@ -2794,7 +2796,7 @@
            minY = vpoint[Y] - tol;
            maxY = vpoint[Y] + tol;
            if (minX < vx && vx < maxX &&
-               minY < vy && vy < maxY) {
+                   minY < vy && vy < maxY) {
                if (!found_top || top_z < vpoint[Z]) {
                    top_z = vpoint[Z];
                    top_data_str = sdata_arrows_str;
@@ -2808,13 +2810,13 @@
 
     if (found_top) {
        bu_vls_printf(gedp->ged_result_str, "%s %zu {%lf %lf %lf}",
-                     top_data_str, top_i, V3ARGS(top_point));
+               top_data_str, top_i, V3ARGS(top_point));
        return GED_OK;
     }
 
     /* check for axes points */
     if (gdvp->gv_data_axes.draw &&
-       gdvp->gv_data_axes.num_points) {
+           gdvp->gv_data_axes.num_points) {
        struct bview_data_axes_state *gdasp = &gdvp->gv_data_axes;
 
        for (i = 0; i < gdasp->num_points; ++i) {
@@ -2829,7 +2831,7 @@
            minY = vpoint[Y] - tol;
            maxY = vpoint[Y] + tol;
            if (minX < vx && vx < maxX &&
-               minY < vy && vy < maxY) {
+                   minY < vy && vy < maxY) {
                if (!found_top || top_z < vpoint[Z]) {
                    top_z = vpoint[Z];
                    top_i = i;
@@ -2843,7 +2845,7 @@
 
     /* check for selected axes points */
     if (gdvp->gv_sdata_axes.draw &&
-       gdvp->gv_sdata_axes.num_points) {
+           gdvp->gv_sdata_axes.num_points) {
        struct bview_data_axes_state *gdasp = &gdvp->gv_sdata_axes;
 
        for (i = 0; i < gdasp->num_points; ++i) {
@@ -2858,7 +2860,7 @@
            minY = vpoint[Y] - tol;
            maxY = vpoint[Y] + tol;
            if (minX < vx && vx < maxX &&
-               minY < vy && vy < maxY) {
+                   minY < vy && vy < maxY) {
                if (!found_top || top_z < vpoint[Z]) {
                    top_z = vpoint[Z];
                    top_i = i;
@@ -2872,7 +2874,7 @@
 
     if (found_top)
        bu_vls_printf(gedp->ged_result_str, "%s %zu {%lf %lf %lf}",
-                     top_data_str, top_i, V3ARGS(top_point));
+               top_data_str, top_i, V3ARGS(top_point));
 
     return GED_OK;
 
@@ -2884,11 +2886,11 @@
 
 HIDDEN int
 to_data_vZ(struct ged *gedp,
-          int argc,
-          const char *argv[],
-          ged_func_ptr UNUSED(func),
-          const char *usage,
-          int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     /* must be double for scanf */
     double vZ;
@@ -2940,253 +2942,253 @@
        struct bu_vls *pathvls = dm_get_pathname((struct dm *)gdvp->dmp);
        if (pathvls) {
            bu_vls_printf(&bindings, "bind %s <Configure> {%s configure %s; 
break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s <Enter> {focus %s; break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(pathvls));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(pathvls));
            bu_vls_printf(&bindings, "bind %s <Expose> {%s handle_expose %s 
%%c; break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "catch {wm protocol %s WM_DELETE_WINDOW 
{%s delete_view %s; break}}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
 
            /* Mouse Bindings */
            bu_vls_printf(&bindings, "bind %s <2> {%s vslew %s %%x %%y; focus 
%s; break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name),
-                         bu_vls_addr(pathvls));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name),
+                   bu_vls_addr(pathvls));
            bu_vls_printf(&bindings, "bind %s <1> {%s zoom %s 0.5; focus %s; 
break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name),
-                         bu_vls_addr(pathvls));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name),
+                   bu_vls_addr(pathvls));
            bu_vls_printf(&bindings, "bind %s <3> {%s zoom %s 2.0; focus %s;  
break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name),
-                         bu_vls_addr(pathvls));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name),
+                   bu_vls_addr(pathvls));
            bu_vls_printf(&bindings, "bind %s <4> {%s zoom %s 1.1; break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s <5> {%s zoom %s 0.9; break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s <MouseWheel> {if {%%D < 0} {%s 
zoom %s 0.9} else {%s zoom %s 1.1}; break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
 
            /* Idle Mode */
            bu_vls_printf(&bindings, "bind %s <ButtonRelease> {%s idle_mode 
%s}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s <KeyRelease-Control_L> {%s 
idle_mode %s}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s <KeyRelease-Control_R> {%s 
idle_mode %s}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s <KeyRelease-Shift_L> {%s 
idle_mode %s}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s <KeyRelease-Shift_R> {%s 
idle_mode %s}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s <KeyRelease-Alt_L> {%s idle_mode 
%s; break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s <KeyRelease-Alt_R> {%s idle_mode 
%s; break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
 
            /* Rotate Mode */
            bu_vls_printf(&bindings, "bind %s <Control-ButtonRelease-1> {%s 
idle_mode %s}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s <Control-ButtonPress-1> {%s 
rotate_mode %s %%x %%y}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s <Control-ButtonPress-2> {%s 
rotate_mode %s %%x %%y}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s <Control-ButtonPress-3> {%s 
rotate_mode %s %%x %%y}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
 
            /* Translate Mode */
            bu_vls_printf(&bindings, "bind %s <Shift-ButtonRelease-1> {%s 
idle_mode %s}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s <Shift-ButtonPress-1> {%s 
translate_mode %s %%x %%y}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s <Shift-ButtonPress-2> {%s 
translate_mode %s %%x %%y}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s <Shift-ButtonPress-3> {%s 
translate_mode %s %%x %%y}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
 
            /* Scale Mode */
            bu_vls_printf(&bindings, "bind %s <Control-Shift-ButtonRelease-1> 
{%s idle_mode %s}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s <Control-Shift-ButtonPress-1> {%s 
scale_mode %s %%x %%y}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s <Control-Shift-ButtonPress-2> {%s 
scale_mode %s %%x %%y}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s <Control-Shift-ButtonPress-3> {%s 
scale_mode %s %%x %%y}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
 
            /* Constrained Rotate Mode */
            bu_vls_printf(&bindings, "bind %s <Control-Lock-ButtonRelease-1> 
{%s idle_mode %s}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s <Control-Lock-ButtonPress-1> {%s 
constrain_rmode %s x %%x %%y; break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s <Control-Lock-ButtonPress-2> {%s 
constrain_rmode %s y %%x %%y; break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s <Control-Lock-ButtonPress-3> {%s 
constrain_rmode %s z %%x %%y; break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
 
            /* Constrained Translate Mode */
            bu_vls_printf(&bindings, "bind %s <Shift-Lock-ButtonRelease-1> {%s 
idle_mode %s; break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s <Shift-Lock-ButtonPress-1> {%s 
constrain_tmode %s x %%x %%y; break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s <Shift-Lock-ButtonPress-2> {%s 
constrain_tmode %s y %%x %%y; break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s <Shift-Lock-ButtonPress-3> {%s 
constrain_tmode %s z %%x %%y; break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
 
            /* Key Bindings */
            bu_vls_printf(&bindings, "bind %s 3 {%s aet %s 35 25; break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s 4 {%s aet %s 45 45; break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s f {%s aet %s 0 0; break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s F {%s aet %s 0 0; break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s R {%s aet %s 180 0; break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s r {%s aet %s 270 0; break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s l {%s aet %s 90 0; break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s L {%s aet %s 90 0; break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s t {%s aet %s 270 90; break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s T {%s aet %s 270 90; break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s b {%s aet %s 270 -90; break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s B {%s aet %s 270 -90; break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s + {%s zoom %s 2.0; break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s = {%s zoom %s 2.0; break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s _ {%s zoom %s 0.5; break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s - {%s zoom %s 0.5; break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s <Key-Left> {%s rot %s -v 0 1 0; 
break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s <Key-Right> {%s rot %s -v 0 -1 0; 
break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s <Key-Up> {%s rot %s -v 1 0 0; 
break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
            bu_vls_printf(&bindings, "bind %s <Key-Down> {%s rot %s -v -1 0 0; 
break}; ",
-                         bu_vls_addr(pathvls),
-                         bu_vls_addr(&current_top->to_gedp->go_name),
-                         bu_vls_addr(&gdvp->gv_name));
+                   bu_vls_addr(pathvls),
+                   bu_vls_addr(&current_top->to_gedp->go_name),
+                   bu_vls_addr(&gdvp->gv_name));
 
            Tcl_Eval(current_top->to_interp, bu_vls_addr(&bindings));
        }
@@ -3197,11 +3199,11 @@
 
 HIDDEN int
 to_dlist_on(struct ged *gedp,
-           int argc,
-           const char *argv[],
-           ged_func_ptr UNUSED(func),
-           const char *UNUSED(usage),
-           int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *UNUSED(usage),
+       int UNUSED(maxargs))
 {
     struct tclcad_ged_data *tgd = (struct tclcad_ged_data 
*)current_top->to_gedp->u_data;
     int on;
@@ -3233,11 +3235,11 @@
 
 HIDDEN int
 to_dplot(struct ged *gedp,
-           int argc,
-           const char *argv[],
-           ged_func_ptr func,
-           const char *UNUSED(usage),
-           int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *UNUSED(usage),
+       int UNUSED(maxargs))
 {
     int ac;
     int ret;
@@ -3299,8 +3301,8 @@
        if (0 < bu_vls_strlen(&tgd->go_more_args_callback)) {
            bu_vls_trunc(&callback_cmd, 0);
            bu_vls_printf(&callback_cmd, "%s [string range {%s} 0 end]",
-                         bu_vls_addr(&tgd->go_more_args_callback),
-                         bu_vls_addr(gedp->ged_result_str));
+                   bu_vls_addr(&tgd->go_more_args_callback),
+                   bu_vls_addr(gedp->ged_result_str));
 
            if (Tcl_Eval(current_top->to_interp, bu_vls_addr(&callback_cmd)) != 
TCL_OK) {
                bu_vls_trunc(gedp->ged_result_str, 0);
@@ -3372,11 +3374,11 @@
 
 HIDDEN int
 to_fontsize(struct ged *gedp,
-           int argc,
-           const char *argv[],
-           ged_func_ptr UNUSED(func),
-           const char *usage,
-           int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     int fontsize;
 
@@ -3425,11 +3427,11 @@
 
 HIDDEN int
 to_fit_png_image(struct ged *gedp,
-                int argc,
-                const char *argv[],
-                ged_func_ptr UNUSED(func),
-                const char *usage,
-                int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     icv_image_t *img;
     size_t i_w, i_n;
@@ -3449,9 +3451,9 @@
     }
 
     if (argc != 6 ||
-       bu_sscanf(argv[2], "%zu", &o_w_requested) != 1 ||
-       bu_sscanf(argv[3], "%zu", &o_n_requested) != 1 ||
-       bu_sscanf(argv[4], "%lf", &sf) != 1) {
+           bu_sscanf(argv[2], "%zu", &o_w_requested) != 1 ||
+           bu_sscanf(argv[3], "%zu", &o_n_requested) != 1 ||
+           bu_sscanf(argv[4], "%lf", &sf) != 1) {
        bu_vls_printf(gedp->ged_result_str, "Usage: %s %s", argv[0], usage);
        return GED_ERROR;
     }
@@ -3531,11 +3533,11 @@
 
 HIDDEN int
 to_init_view_bindings(struct ged *gedp,
-                     int argc,
-                     const char *argv[],
-                     ged_func_ptr UNUSED(func),
-                     const char *usage,
-                     int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     /* initialize result */
     bu_vls_trunc(gedp->ged_result_str, 0);
@@ -3565,11 +3567,11 @@
 
 HIDDEN int
 to_delete_view(struct ged *gedp,
-              int argc,
-              const char *argv[],
-              ged_func_ptr UNUSED(func),
-              const char *usage,
-              int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     /* initialize result */
     bu_vls_trunc(gedp->ged_result_str, 0);
@@ -3597,11 +3599,11 @@
 
 HIDDEN int
 to_handle_expose(struct ged *gedp,
-                int argc,
-                const char *argv[],
-                ged_func_ptr UNUSED(func),
-                const char *usage,
-                int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     int count;
 
@@ -3615,7 +3617,7 @@
     }
 
     if (argc != 3 ||
-       bu_sscanf(argv[2], "%d", &count) != 1) {
+           bu_sscanf(argv[2], "%d", &count) != 1) {
        bu_vls_printf(gedp->ged_result_str, "Usage: %s %s, argv[2] - %s", 
argv[0], usage, argv[2]);
        return GED_ERROR;
     }
@@ -3630,11 +3632,11 @@
 
 HIDDEN int
 to_hide_view(struct ged *gedp,
-            int argc,
-            const char *argv[],
-            ged_func_ptr UNUSED(func),
-            const char *usage,
-            int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     int hide_view;
 
@@ -3717,9 +3719,9 @@
 
            struct tclcad_view_data *tvd = (struct tclcad_view_data 
*)data->gdvp->u_data;
            bu_vls_printf(&tcl_cmd, "%s otranslate %s %s %s",
-                         bu_vls_addr(&tvd->gdv_edit_motion_delta_callback),
-                         bu_vls_addr(&tran_x_vls), bu_vls_addr(&tran_y_vls),
-                         bu_vls_addr(&tran_z_vls));
+                   bu_vls_addr(&tvd->gdv_edit_motion_delta_callback),
+                   bu_vls_addr(&tran_x_vls), bu_vls_addr(&tran_y_vls),
+                   bu_vls_addr(&tran_z_vls));
            tvd->gdv_edit_motion_delta_callback_cnt++;
            if (tvd->gdv_edit_motion_delta_callback_cnt > 1) {
                bu_log("Warning - recursive gdv_edit_motion_delta_callback 
call\n");
@@ -3767,11 +3769,11 @@
 
 HIDDEN int
 to_idle_mode(struct ged *gedp,
-            int argc,
-            const char *argv[],
-            ged_func_ptr UNUSED(func),
-            const char *usage,
-            int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     int mode, need_refresh = 0;
     struct redraw_edited_path_data data;
@@ -3800,8 +3802,8 @@
     mode = gdvp->gv_mode;
 
     if (gdvp->gv_adaptive_plot &&
-       gdvp->gv_redraw_on_zoom &&
-       mode == TCLCAD_SCALE_MODE)
+           gdvp->gv_redraw_on_zoom &&
+           mode == TCLCAD_SCALE_MODE)
     {
        const char *av[] = {"redraw", NULL};
 
@@ -3811,7 +3813,7 @@
     }
 
     if (mode != TCLCAD_POLY_CONTOUR_MODE ||
-       gdvp->gv_data_polygons.gdps_cflag == 0)
+           gdvp->gv_data_polygons.gdps_cflag == 0)
     {
        struct bu_vls bindings = BU_VLS_INIT_ZERO;
 
@@ -3824,8 +3826,8 @@
     }
 
     if (gdvp->gv_grid.snap &&
-       (mode == TCLCAD_TRANSLATE_MODE ||
-        mode == TCLCAD_CONSTRAINED_TRANSLATE_MODE))
+           (mode == TCLCAD_TRANSLATE_MODE ||
+            mode == TCLCAD_CONSTRAINED_TRANSLATE_MODE))
     {
        const char *av[3];
 
@@ -3874,11 +3876,11 @@
 
 HIDDEN int
 to_light(struct ged *gedp,
-        int argc,
-        const char *argv[],
-        ged_func_ptr UNUSED(func),
-        const char *usage,
-        int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     int light;
 
@@ -3927,11 +3929,11 @@
 
 HIDDEN int
 to_list_views(struct ged *gedp,
-             int argc,
-             const char *argv[],
-             ged_func_ptr UNUSED(func),
-             const char *UNUSED(usage),
-             int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *UNUSED(usage),
+       int UNUSED(maxargs))
 {
     struct bview *gdvp;
 
@@ -3954,11 +3956,11 @@
 
 HIDDEN int
 to_local2base(struct ged *gedp,
-             int UNUSED(argc),
-             const char *UNUSED(argv[]),
-             ged_func_ptr UNUSED(func),
-             const char *UNUSED(usage),
-             int UNUSED(maxargs))
+       int UNUSED(argc),
+       const char *UNUSED(argv[]),
+       ged_func_ptr UNUSED(func),
+       const char *UNUSED(usage),
+       int UNUSED(maxargs))
 {
     /* initialize result */
     bu_vls_trunc(gedp->ged_result_str, 0);
@@ -3971,11 +3973,11 @@
 
 HIDDEN int
 to_lod(struct ged *gedp,
-       int argc,
-       const char *argv[],
-       ged_func_ptr func,
-       const char *UNUSED(usage),
-       int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *UNUSED(usage),
+       int UNUSED(maxargs))
 {
     struct bview *gdvp;
 
@@ -4015,11 +4017,11 @@
 
 HIDDEN int
 to_mirror(struct ged *gedp,
-         int argc,
-         const char *argv[],
-         ged_func_ptr UNUSED(func),
-         const char *UNUSED(usage),
-         int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *UNUSED(usage),
+       int UNUSED(maxargs))
 {
     int ret;
     const char *av[3];
@@ -4039,11 +4041,11 @@
 
 HIDDEN int
 to_edit_motion_delta_callback(struct ged *gedp,
-                             int argc,
-                             const char *argv[],
-                             ged_func_ptr UNUSED(func),
-                             const char *usage,
-                             int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     register int i;
 
@@ -4082,11 +4084,11 @@
 
 HIDDEN int
 to_more_args_callback(struct ged *gedp,
-                     int argc,
-                     const char *argv[],
-                     ged_func_ptr UNUSED(func),
-                     const char *UNUSED(usage),
-                     int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *UNUSED(usage),
+       int UNUSED(maxargs))
 {
     register int i;
     struct tclcad_ged_data *tgd = (struct tclcad_ged_data 
*)current_top->to_gedp->u_data;
@@ -4112,9 +4114,9 @@
 
 HIDDEN int
 to_view_cmd(ClientData UNUSED(clientData),
-           Tcl_Interp *UNUSED(interp),
-           int UNUSED(argc),
-           char **UNUSED(argv))
+       Tcl_Interp *UNUSED(interp),
+       int UNUSED(argc),
+       char **UNUSED(argv))
 {
     return TCL_OK;
 }
@@ -4122,11 +4124,11 @@
 
 HIDDEN int
 to_move_arb_edge_mode(struct ged *gedp,
-                     int argc,
-                     const char *argv[],
-                     ged_func_ptr UNUSED(func),
-                     const char *usage,
-                     int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     struct bu_vls bindings = BU_VLS_INIT_ZERO;
 
@@ -4154,7 +4156,7 @@
     }
 
     if (bu_sscanf(argv[4], "%lf", &x) != 1 ||
-       bu_sscanf(argv[5], "%lf", &y) != 1) {
+           bu_sscanf(argv[5], "%lf", &y) != 1) {
        bu_vls_printf(gedp->ged_result_str, "Usage: %s %s", argv[0], usage);
        return GED_ERROR;
     }
@@ -4166,11 +4168,11 @@
     struct bu_vls *pathname = dm_get_pathname((struct dm *)gdvp->dmp);
     if (pathname) {
        bu_vls_printf(&bindings, "bind %s <Motion> {%s mouse_move_arb_edge %s 
%s %s %%x %%y}",
-                     bu_vls_cstr(pathname),
-                     bu_vls_cstr(&current_top->to_gedp->go_name),
-                     bu_vls_cstr(&gdvp->gv_name),
-                     argv[2],
-                     argv[3]);
+               bu_vls_cstr(pathname),
+               bu_vls_cstr(&current_top->to_gedp->go_name),
+               bu_vls_cstr(&gdvp->gv_name),
+               argv[2],
+               argv[3]);
        Tcl_Eval(current_top->to_interp, bu_vls_cstr(&bindings));
     }
     bu_vls_free(&bindings);
@@ -4181,11 +4183,11 @@
 
 HIDDEN int
 to_move_arb_face_mode(struct ged *gedp,
-                     int argc,
-                     const char *argv[],
-                     ged_func_ptr UNUSED(func),
-                     const char *usage,
-                     int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     struct bu_vls bindings = BU_VLS_INIT_ZERO;
 
@@ -4213,7 +4215,7 @@
     }
 
     if (bu_sscanf(argv[4], "%lf", &x) != 1 ||
-       bu_sscanf(argv[5], "%lf", &y) != 1) {
+           bu_sscanf(argv[5], "%lf", &y) != 1) {
        bu_vls_printf(gedp->ged_result_str, "Usage: %s %s", argv[0], usage);
        return GED_ERROR;
     }
@@ -4225,11 +4227,11 @@
     struct bu_vls *pathname = dm_get_pathname((struct dm *)gdvp->dmp);
     if (pathname && bu_vls_strlen(pathname)) {
        bu_vls_printf(&bindings, "bind %s <Motion> {%s mouse_move_arb_face %s 
%s %s %%x %%y}",
-                     bu_vls_cstr(pathname),
-                     bu_vls_cstr(&current_top->to_gedp->go_name),
-                     bu_vls_cstr(&gdvp->gv_name),
-                     argv[2],
-                     argv[3]);
+               bu_vls_cstr(pathname),
+               bu_vls_cstr(&current_top->to_gedp->go_name),
+               bu_vls_cstr(&gdvp->gv_name),
+               argv[2],
+               argv[3]);
        Tcl_Eval(current_top->to_interp, bu_vls_cstr(&bindings));
     }
     bu_vls_free(&bindings);
@@ -4240,11 +4242,11 @@
 
 HIDDEN int
 to_bot_move_pnt(struct ged *gedp,
-               int argc,
-               const char *argv[],
-               ged_func_ptr UNUSED(func),
-               const char *UNUSED(usage),
-               int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *UNUSED(usage),
+       int UNUSED(maxargs))
 {
     int ret;
 
@@ -4271,11 +4273,11 @@
 
 HIDDEN int
 to_bot_move_pnts(struct ged *gedp,
-                int argc,
-                const char *argv[],
-                ged_func_ptr UNUSED(func),
-                const char *UNUSED(usage),
-                int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *UNUSED(usage),
+       int UNUSED(maxargs))
 {
     int ret;
 
@@ -4296,11 +4298,11 @@
 
 HIDDEN int
 to_bot_move_pnt_mode(struct ged *gedp,
-                    int argc,
-                    const char *argv[],
-                    ged_func_ptr UNUSED(func),
-                    const char *usage,
-                    int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     struct bu_vls bindings = BU_VLS_INIT_ZERO;
 
@@ -4328,7 +4330,7 @@
     }
 
     if (bu_sscanf(argv[4], "%lf", &x) != 1 ||
-       bu_sscanf(argv[5], "%lf", &y) != 1) {
+           bu_sscanf(argv[5], "%lf", &y) != 1) {
        bu_vls_printf(gedp->ged_result_str, "Usage: %s %s", argv[0], usage);
        return GED_ERROR;
     }
@@ -4340,11 +4342,11 @@
     struct bu_vls *pathname = dm_get_pathname((struct dm *)gdvp->dmp);
     if (pathname && bu_vls_strlen(pathname)) {
        bu_vls_printf(&bindings, "bind %s <Motion> {%s mouse_bot_move_pnt -r %s 
%s %s %%x %%y}",
-                     bu_vls_cstr(pathname),
-                     bu_vls_cstr(&current_top->to_gedp->go_name),
-                     bu_vls_cstr(&gdvp->gv_name),
-                     argv[2],
-                     argv[3]);
+               bu_vls_cstr(pathname),
+               bu_vls_cstr(&current_top->to_gedp->go_name),
+               bu_vls_cstr(&gdvp->gv_name),
+               argv[2],
+               argv[3]);
        Tcl_Eval(current_top->to_interp, bu_vls_cstr(&bindings));
     }
     bu_vls_free(&bindings);
@@ -4355,11 +4357,11 @@
 
 HIDDEN int
 to_bot_move_pnts_mode(struct ged *gedp,
-                     int argc,
-                     const char *argv[],
-                     ged_func_ptr UNUSED(func),
-                     const char *usage,
-                     int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     register int i;
     struct bu_vls bindings = BU_VLS_INIT_ZERO;
@@ -4388,7 +4390,7 @@
     }
 
     if (bu_sscanf(argv[2], "%lf", &x) != 1 ||
-       bu_sscanf(argv[3], "%lf", &y) != 1) {
+           bu_sscanf(argv[3], "%lf", &y) != 1) {
        bu_vls_printf(gedp->ged_result_str, "Usage: %s %s", argv[0], usage);
        return GED_ERROR;
     }
@@ -4418,11 +4420,11 @@
 
 HIDDEN int
 to_metaball_move_pnt_mode(struct ged *gedp,
-                         int argc,
-                         const char *argv[],
-                         ged_func_ptr UNUSED(func),
-                         const char *usage,
-                         int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     struct bu_vls bindings = BU_VLS_INIT_ZERO;
 
@@ -4450,7 +4452,7 @@
     }
 
     if (bu_sscanf(argv[4], "%lf", &x) != 1 ||
-       bu_sscanf(argv[5], "%lf", &y) != 1) {
+           bu_sscanf(argv[5], "%lf", &y) != 1) {
        bu_vls_printf(gedp->ged_result_str, "Usage: %s %s", argv[0], usage);
        return GED_ERROR;
     }
@@ -4462,11 +4464,11 @@
     struct bu_vls *pathname = dm_get_pathname((struct dm *)gdvp->dmp);
     if (pathname && bu_vls_strlen(pathname)) {
        bu_vls_printf(&bindings, "bind %s <Motion> {%s mouse_metaball_move_pnt 
%s %s %s %%x %%y}",
-                     bu_vls_cstr(pathname),
-                     bu_vls_cstr(&current_top->to_gedp->go_name),
-                     bu_vls_cstr(&gdvp->gv_name),
-                     argv[2],
-                     argv[3]);
+               bu_vls_cstr(pathname),
+               bu_vls_cstr(&current_top->to_gedp->go_name),
+               bu_vls_cstr(&gdvp->gv_name),
+               argv[2],
+               argv[3]);
        Tcl_Eval(current_top->to_interp, bu_vls_cstr(&bindings));
     }
     bu_vls_free(&bindings);
@@ -4477,11 +4479,11 @@
 
 HIDDEN int
 to_pipe_move_pnt_mode(struct ged *gedp,
-                     int argc,
-                     const char *argv[],
-                     ged_func_ptr UNUSED(func),
-                     const char *usage,
-                     int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     struct bu_vls bindings = BU_VLS_INIT_ZERO;
 
@@ -4509,7 +4511,7 @@
     }
 
     if (bu_sscanf(argv[4], "%lf", &x) != 1 ||
-       bu_sscanf(argv[5], "%lf", &y) != 1) {
+           bu_sscanf(argv[5], "%lf", &y) != 1) {
        bu_vls_printf(gedp->ged_result_str, "Usage: %s %s", argv[0], usage);
        return GED_ERROR;
     }
@@ -4521,11 +4523,11 @@
     struct bu_vls *pathname = dm_get_pathname((struct dm *)gdvp->dmp);
     if (pathname && bu_vls_strlen(pathname)) {
        bu_vls_printf(&bindings, "bind %s <Motion> {%s mouse_pipe_move_pnt %s 
%s %s %%x %%y}",
-                     bu_vls_cstr(pathname),
-                     bu_vls_cstr(&current_top->to_gedp->go_name),
-                     bu_vls_cstr(&gdvp->gv_name),
-                     argv[2],
-                     argv[3]);
+               bu_vls_cstr(pathname),
+               bu_vls_cstr(&current_top->to_gedp->go_name),
+               bu_vls_cstr(&gdvp->gv_name),
+               argv[2],
+               argv[3]);
        Tcl_Eval(current_top->to_interp, bu_vls_cstr(&bindings));
     }
     bu_vls_free(&bindings);
@@ -4536,11 +4538,11 @@
 
 HIDDEN int
 to_move_pnt_common(struct ged *gedp,
-                  int argc,
-                  const char *argv[],
-                  ged_func_ptr func,
-                  const char *UNUSED(usage),
-                  int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr func,
+       const char *UNUSED(usage),
+       int UNUSED(maxargs))
 {
     int ret;
 
@@ -4567,11 +4569,11 @@
 
 HIDDEN int
 to_new_view(struct ged *gedp,
-           int argc,
-           const char *argv[],
-           ged_func_ptr UNUSED(func),
-           const char *usage,
-           int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     struct bview *new_gdvp;
     HIDDEN const int name_index = 1;
@@ -4701,9 +4703,9 @@
     struct bu_vls *pathname = dm_get_pathname((struct dm *)new_gdvp->dmp);
     if (pathname && bu_vls_strlen(pathname)) {
        bu_vls_printf(&event_vls, "event generate %s <Configure>; %s autoview 
%s",
-                     bu_vls_cstr(pathname),
-                     bu_vls_cstr(&current_top->to_gedp->go_name),
-                     bu_vls_cstr(&new_gdvp->gv_name));
+               bu_vls_cstr(pathname),
+               bu_vls_cstr(&current_top->to_gedp->go_name),
+               bu_vls_cstr(&new_gdvp->gv_name));
        Tcl_Eval(current_top->to_interp, bu_vls_cstr(&event_vls));
     }
     bu_vls_free(&event_vls);
@@ -4710,10 +4712,10 @@
 
     if (pathname && bu_vls_strlen(pathname)) {
        (void)Tcl_CreateCommand(current_top->to_interp,
-                               bu_vls_cstr(pathname),
-                               (Tcl_CmdProc *)to_view_cmd,
-                               (ClientData)new_gdvp,
-                               NULL);
+               bu_vls_cstr(pathname),
+               (Tcl_CmdProc *)to_view_cmd,
+               (ClientData)new_gdvp,
+               NULL);
     }
 
     bu_vls_printf(gedp->ged_result_str, "%s", bu_vls_cstr(&new_gdvp->gv_name));
@@ -4723,11 +4725,11 @@
 
 HIDDEN int
 to_orotate_mode(struct ged *gedp,
-               int argc,
-               const char *argv[],
-               ged_func_ptr UNUSED(func),
-               const char *usage,
-               int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     struct bu_vls bindings = BU_VLS_INIT_ZERO;
 
@@ -4755,7 +4757,7 @@
     }
 
     if (bu_sscanf(argv[3], "%lf", &x) != 1 ||
-       bu_sscanf(argv[4], "%lf", &y) != 1) {
+           bu_sscanf(argv[4], "%lf", &y) != 1) {
        bu_vls_printf(gedp->ged_result_str, "Usage: %s %s", argv[0], usage);
        return GED_ERROR;
     }
@@ -4767,10 +4769,10 @@
     struct bu_vls *pathname = dm_get_pathname((struct dm *)gdvp->dmp);
     if (pathname && bu_vls_strlen(pathname)) {
        bu_vls_printf(&bindings, "bind %s <Motion> {%s mouse_orotate %s %s %%x 
%%y}",
-                     bu_vls_cstr(pathname),
-                     bu_vls_cstr(&current_top->to_gedp->go_name),
-                     bu_vls_cstr(&gdvp->gv_name),
-                     argv[2]);
+               bu_vls_cstr(pathname),
+               bu_vls_cstr(&current_top->to_gedp->go_name),
+               bu_vls_cstr(&gdvp->gv_name),
+               argv[2]);
        Tcl_Eval(current_top->to_interp, bu_vls_cstr(&bindings));
     }
     bu_vls_free(&bindings);
@@ -4781,11 +4783,11 @@
 
 HIDDEN int
 to_oscale_mode(struct ged *gedp,
-              int argc,
-              const char *argv[],
-              ged_func_ptr UNUSED(func),
-              const char *usage,
-              int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     struct bu_vls bindings = BU_VLS_INIT_ZERO;
 
@@ -4813,7 +4815,7 @@
     }
 
     if (bu_sscanf(argv[3], "%lf", &x) != 1 ||
-       bu_sscanf(argv[4], "%lf", &y) != 1) {
+           bu_sscanf(argv[4], "%lf", &y) != 1) {
        bu_vls_printf(gedp->ged_result_str, "Usage: %s %s", argv[0], usage);
        return GED_ERROR;
     }
@@ -4825,10 +4827,10 @@
     struct bu_vls *pathname = dm_get_pathname((struct dm *)gdvp->dmp);
     if (pathname && bu_vls_strlen(pathname)) {
        bu_vls_printf(&bindings, "bind %s <Motion> {%s mouse_oscale %s %s %%x 
%%y}",
-                     bu_vls_cstr(pathname),
-                     bu_vls_cstr(&current_top->to_gedp->go_name),
-                     bu_vls_cstr(&gdvp->gv_name),
-                     argv[2]);
+               bu_vls_cstr(pathname),
+               bu_vls_cstr(&current_top->to_gedp->go_name),
+               bu_vls_cstr(&gdvp->gv_name),
+               argv[2]);
        Tcl_Eval(current_top->to_interp, bu_vls_cstr(&bindings));
     }
     bu_vls_free(&bindings);
@@ -4840,11 +4842,11 @@
 /* to_model_delta_mode */
 HIDDEN int
 to_otranslate_mode(struct ged *gedp,
-                  int argc,
-                  const char *argv[],
-                  ged_func_ptr UNUSED(func),
-                  const char *usage,
-                  int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     struct bu_vls bindings = BU_VLS_INIT_ZERO;
 
@@ -4872,7 +4874,7 @@
     }
 
     if (bu_sscanf(argv[3], "%lf", &x) != 1 ||
-       bu_sscanf(argv[4], "%lf", &y) != 1) {
+           bu_sscanf(argv[4], "%lf", &y) != 1) {
        bu_vls_printf(gedp->ged_result_str, "Usage: %s %s", argv[0], usage);
        return GED_ERROR;
     }
@@ -4884,10 +4886,10 @@
     struct bu_vls *pathname = dm_get_pathname((struct dm *)gdvp->dmp);
     if (pathname && bu_vls_strlen(pathname)) {
        bu_vls_printf(&bindings, "bind %s <Motion> {%s mouse_otranslate %s %s 
%%x %%y}",
-                     bu_vls_cstr(pathname),
-                     bu_vls_cstr(&current_top->to_gedp->go_name),
-                     bu_vls_cstr(&gdvp->gv_name),
-                     argv[2]);
+               bu_vls_cstr(pathname),
+               bu_vls_cstr(&current_top->to_gedp->go_name),
+               bu_vls_cstr(&gdvp->gv_name),
+               argv[2]);
        Tcl_Eval(current_top->to_interp, bu_vls_cstr(&bindings));
     }
     bu_vls_free(&bindings);
@@ -4898,11 +4900,11 @@
 
 HIDDEN int
 to_paint_rect_area(struct ged *gedp,
-                  int argc,
-                  const char *argv[],
-                  ged_func_ptr UNUSED(func),
-                  const char *usage,
-                  int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
 
     /* initialize result */
@@ -4928,7 +4930,7 @@
 
     struct tclcad_view_data *tvd = (struct tclcad_view_data *)gdvp->u_data;
     (void)fb_refresh(tvd->gdv_fbs.fbs_fbp, gdvp->gv_rect.pos[X], 
gdvp->gv_rect.pos[Y],
-                    gdvp->gv_rect.dim[X], gdvp->gv_rect.dim[Y]);
+           gdvp->gv_rect.dim[X], gdvp->gv_rect.dim[Y]);
 
     (void)dm_set_depth_mask((struct dm *)gdvp->dmp, 1);
 
@@ -4939,11 +4941,11 @@
 #ifdef HAVE_GL_GL_H
 HIDDEN int
 to_pix(struct ged *gedp,
-       int argc,
-       const char *argv[],
-       ged_func_ptr UNUSED(func),
-       const char *usage,
-       int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     FILE *fp = NULL;
     unsigned char *scanline;
@@ -4983,8 +4985,8 @@
 
     if ((fp = fopen(argv[2], "wb")) == NULL) {
        bu_vls_printf(gedp->ged_result_str,
-                     "%s: cannot open \"%s\" for writing.",
-                     argv[0], argv[2]);
+               "%s: cannot open \"%s\" for writing.",
+               argv[0], argv[2]);
        return GED_ERROR;
     }
 
@@ -5021,11 +5023,11 @@
 
 HIDDEN int
 to_png(struct ged *gedp,
-       int argc,
-       const char *argv[],
-       ged_func_ptr UNUSED(func),
-       const char *usage,
-       int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     png_structp png_p;
     png_infop info_p;
@@ -5068,8 +5070,8 @@
 
     if ((fp = fopen(argv[2], "wb")) == NULL) {
        bu_vls_printf(gedp->ged_result_str,
-                     "%s: cannot open \"%s\" for writing.",
-                     argv[0], argv[2]);
+               "%s: cannot open \"%s\" for writing.",
+               argv[0], argv[2]);
        return GED_ERROR;
     }
 
@@ -5109,8 +5111,8 @@
     png_set_filter(png_p, 0, PNG_FILTER_NONE);
     png_set_compression_level(png_p, 9);
     png_set_IHDR(png_p, info_p, width, height, bits_per_channel,
-                PNG_COLOR_TYPE_RGB, PNG_INTERLACE_NONE,
-                PNG_COMPRESSION_TYPE_DEFAULT, PNG_FILTER_TYPE_DEFAULT);
+           PNG_COLOR_TYPE_RGB, PNG_INTERLACE_NONE,
+           PNG_COMPRESSION_TYPE_DEFAULT, PNG_FILTER_TYPE_DEFAULT);
     png_set_gAMA(png_p, info_p, 0.5);
     png_write_info(png_p, info_p);
     png_write_image(png_p, rows);
@@ -5127,11 +5129,11 @@
 
 HIDDEN int
 to_rect_mode(struct ged *gedp,
-            int argc,
-            const char *argv[],
-            ged_func_ptr UNUSED(func),
-            const char *usage,
-            int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     int ac;
     int x, y;
@@ -5163,7 +5165,7 @@
     gedp->ged_gvp = gdvp;
 
     if (bu_sscanf(argv[2], "%d", &x) != 1 ||
-       bu_sscanf(argv[3], "%d", &y) != 1) {
+           bu_sscanf(argv[3], "%d", &y) != 1) {
        bu_vls_printf(gedp->ged_result_str, "Usage: %s %s", argv[0], usage);
        return GED_ERROR;
     }
@@ -5199,9 +5201,9 @@
     struct bu_vls *pathname = dm_get_pathname((struct dm *)gdvp->dmp);
     if (pathname && bu_vls_strlen(pathname)) {
        bu_vls_printf(&bindings, "bind %s <Motion> {%s mouse_rect %s %%x %%y}",
-                     bu_vls_cstr(pathname),
-                     bu_vls_cstr(&current_top->to_gedp->go_name),
-                     bu_vls_cstr(&gdvp->gv_name));
+               bu_vls_cstr(pathname),
+               bu_vls_cstr(&current_top->to_gedp->go_name),
+               bu_vls_cstr(&gdvp->gv_name));
        Tcl_Eval(current_top->to_interp, bu_vls_cstr(&bindings));
     }
     bu_vls_free(&bindings);
@@ -5214,11 +5216,11 @@
 
 HIDDEN int
 to_rotate_arb_face_mode(struct ged *gedp,
-                       int argc,
-                       const char *argv[],
-                       ged_func_ptr UNUSED(func),
-                       const char *usage,
-                       int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     struct bu_vls bindings = BU_VLS_INIT_ZERO;
 
@@ -5246,7 +5248,7 @@
     }
 
     if (bu_sscanf(argv[5], "%lf", &x) != 1 ||
-       bu_sscanf(argv[6], "%lf", &y) != 1) {
+           bu_sscanf(argv[6], "%lf", &y) != 1) {
        bu_vls_printf(gedp->ged_result_str, "Usage: %s %s", argv[0], usage);
        return GED_ERROR;
     }
@@ -5258,12 +5260,12 @@
     struct bu_vls *pathname = dm_get_pathname((struct dm *)gdvp->dmp);
     if (pathname && bu_vls_strlen(pathname)) {
        bu_vls_printf(&bindings, "bind %s <Motion> {%s mouse_rotate_arb_face %s 
%s %s %s %%x %%y}",
-                     bu_vls_cstr(pathname),
-                     bu_vls_cstr(&current_top->to_gedp->go_name),
-                     bu_vls_cstr(&gdvp->gv_name),
-                     argv[2],
-                     argv[3],
-                     argv[4]);
+               bu_vls_cstr(pathname),
+               bu_vls_cstr(&current_top->to_gedp->go_name),
+               bu_vls_cstr(&gdvp->gv_name),
+               argv[2],
+               argv[3],
+               argv[4]);
        Tcl_Eval(current_top->to_interp, bu_vls_cstr(&bindings));
     }
     bu_vls_free(&bindings);
@@ -5274,11 +5276,11 @@
 
 HIDDEN int
 to_rotate_mode(struct ged *gedp,
-              int argc,
-              const char *argv[],
-              ged_func_ptr UNUSED(func),
-              const char *usage,
-              int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     struct bu_vls bindings = BU_VLS_INIT_ZERO;
 
@@ -5306,7 +5308,7 @@
     }
 
     if (bu_sscanf(argv[2], "%lf", &x) != 1 ||
-       bu_sscanf(argv[3], "%lf", &y) != 1) {
+           bu_sscanf(argv[3], "%lf", &y) != 1) {
        bu_vls_printf(gedp->ged_result_str, "Usage: %s %s", argv[0], usage);
        return GED_ERROR;
     }
@@ -5318,9 +5320,9 @@
     struct bu_vls *pathname = dm_get_pathname((struct dm *)gdvp->dmp);
     if (pathname && bu_vls_strlen(pathname)) {
        bu_vls_printf(&bindings, "bind %s <Motion> {%s mouse_rot %s %%x %%y}",
-                     bu_vls_cstr(pathname),
-                     bu_vls_cstr(&current_top->to_gedp->go_name),
-                     bu_vls_cstr(&gdvp->gv_name));
+               bu_vls_cstr(pathname),
+               bu_vls_cstr(&current_top->to_gedp->go_name),
+               bu_vls_cstr(&gdvp->gv_name));
        Tcl_Eval(current_top->to_interp, bu_vls_cstr(&bindings));
     }
     bu_vls_free(&bindings);
@@ -5351,11 +5353,11 @@
 
 HIDDEN int
 to_rt_end_callback(struct ged *gedp,
-                  int argc,
-                  const char *argv[],
-                  ged_func_ptr UNUSED(func),
-                  const char *UNUSED(usage),
-                  int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *UNUSED(usage),
+       int UNUSED(maxargs))
 {
     register int i;
     struct tclcad_ged_data *tgd = (struct tclcad_ged_data 
*)current_top->to_gedp->u_data;
@@ -5390,11 +5392,11 @@
  */
 int
 to_rt_gettrees(struct ged *gedp,
-              int argc,
-              const char *argv[],
-              ged_func_ptr UNUSED(func),
-              const char *usage,
-              int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     struct application *ap;
     char *newprocname;
@@ -5426,7 +5428,7 @@
     /* Instantiate the proc, with clientData of wdb */
     /* Beware, returns a "token", not TCL_OK. */
     (void)Tcl_CreateCommand(current_top->to_interp, newprocname, tclcad_rt,
-                           (ClientData)ap, to_deleteProc_rt);
+           (ClientData)ap, to_deleteProc_rt);
 
     /* Return new function name as result */
     bu_vls_printf(gedp->ged_result_str, "%s", newprocname);
@@ -5437,11 +5439,11 @@
 
 HIDDEN int
 to_protate_mode(struct ged *gedp,
-               int argc,
-               const char *argv[],
-               ged_func_ptr UNUSED(func),
-               const char *usage,
-               int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     struct bu_vls bindings = BU_VLS_INIT_ZERO;
 
@@ -5469,7 +5471,7 @@
     }
 
     if (bu_sscanf(argv[4], "%lf", &x) != 1 ||
-       bu_sscanf(argv[5], "%lf", &y) != 1) {
+           bu_sscanf(argv[5], "%lf", &y) != 1) {
        bu_vls_printf(gedp->ged_result_str, "Usage: %s %s", argv[0], usage);
        return GED_ERROR;
     }
@@ -5481,11 +5483,11 @@
     struct bu_vls *pathname = dm_get_pathname((struct dm *)gdvp->dmp);
     if (pathname && bu_vls_strlen(pathname)) {
        bu_vls_printf(&bindings, "bind %s <Motion> {%s mouse_protate %s %s %s 
%%x %%y}",
-                     bu_vls_cstr(pathname),
-                     bu_vls_cstr(&current_top->to_gedp->go_name),
-                     bu_vls_cstr(&gdvp->gv_name),
-                     argv[2],
-                     argv[3]);
+               bu_vls_cstr(pathname),
+               bu_vls_cstr(&current_top->to_gedp->go_name),
+               bu_vls_cstr(&gdvp->gv_name),
+               argv[2],
+               argv[3]);
        Tcl_Eval(current_top->to_interp, bu_vls_cstr(&bindings));
     }
     bu_vls_free(&bindings);
@@ -5496,11 +5498,11 @@
 
 HIDDEN int
 to_pscale_mode(struct ged *gedp,
-              int argc,
-              const char *argv[],
-              ged_func_ptr UNUSED(func),
-              const char *usage,
-              int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     struct bu_vls bindings = BU_VLS_INIT_ZERO;
 
@@ -5528,7 +5530,7 @@
     }
 
     if (bu_sscanf(argv[4], "%lf", &x) != 1 ||
-       bu_sscanf(argv[5], "%lf", &y) != 1) {
+           bu_sscanf(argv[5], "%lf", &y) != 1) {
        bu_vls_printf(gedp->ged_result_str, "Usage: %s %s", argv[0], usage);
        return GED_ERROR;
     }
@@ -5540,11 +5542,11 @@
     struct bu_vls *pathname = dm_get_pathname((struct dm *)gdvp->dmp);
     if (pathname && bu_vls_strlen(pathname)) {
        bu_vls_printf(&bindings, "bind %s <Motion> {%s mouse_pscale %s %s %s 
%%x %%y}",
-                     bu_vls_cstr(pathname),
-                     bu_vls_cstr(&current_top->to_gedp->go_name),
-                     bu_vls_cstr(&gdvp->gv_name),
-                     argv[2],
-                     argv[3]);
+               bu_vls_cstr(pathname),
+               bu_vls_cstr(&current_top->to_gedp->go_name),
+               bu_vls_cstr(&gdvp->gv_name),
+               argv[2],
+               argv[3]);
        Tcl_Eval(current_top->to_interp, bu_vls_cstr(&bindings));
     }
     bu_vls_free(&bindings);
@@ -5555,11 +5557,11 @@
 
 HIDDEN int
 to_ptranslate_mode(struct ged *gedp,
-                  int argc,
-                  const char *argv[],
-                  ged_func_ptr UNUSED(func),
-                  const char *usage,
-                  int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     struct bu_vls bindings = BU_VLS_INIT_ZERO;
 
@@ -5587,7 +5589,7 @@
     }
 
     if (bu_sscanf(argv[4], "%lf", &x) != 1 ||
-       bu_sscanf(argv[5], "%lf", &y) != 1) {
+           bu_sscanf(argv[5], "%lf", &y) != 1) {
        bu_vls_printf(gedp->ged_result_str, "Usage: %s %s", argv[0], usage);
        return GED_ERROR;
     }
@@ -5599,11 +5601,11 @@
     struct bu_vls *pathname = dm_get_pathname((struct dm *)gdvp->dmp);
     if (pathname && bu_vls_strlen(pathname)) {
        bu_vls_printf(&bindings, "bind %s <Motion> {%s mouse_ptranslate %s %s 
%s %%x %%y}",
-                     bu_vls_cstr(pathname),
-                     bu_vls_cstr(&current_top->to_gedp->go_name),
-                     bu_vls_cstr(&gdvp->gv_name),
-                     argv[2],
-                     argv[3]);
+               bu_vls_cstr(pathname),
+               bu_vls_cstr(&current_top->to_gedp->go_name),
+               bu_vls_cstr(&gdvp->gv_name),
+               argv[2],
+               argv[3]);
        Tcl_Eval(current_top->to_interp, bu_vls_cstr(&bindings));
     }
     bu_vls_free(&bindings);
@@ -5614,11 +5616,11 @@
 
 HIDDEN int
 to_data_scale_mode(struct ged *gedp,
-                  int argc,
-                  const char *argv[],
-                  ged_func_ptr UNUSED(func),
-                  const char *usage,
-                  int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     struct bu_vls bindings = BU_VLS_INIT_ZERO;
 
@@ -5646,7 +5648,7 @@
     }
 
     if (bu_sscanf(argv[2], "%lf", &x) != 1 ||
-       bu_sscanf(argv[3], "%lf", &y) != 1) {
+           bu_sscanf(argv[3], "%lf", &y) != 1) {
        bu_vls_printf(gedp->ged_result_str, "Usage: %s %s", argv[0], usage);
        return GED_ERROR;
     }
@@ -5658,9 +5660,9 @@
     struct bu_vls *pathname = dm_get_pathname((struct dm *)gdvp->dmp);
     if (pathname && bu_vls_strlen(pathname)) {
        bu_vls_printf(&bindings, "bind %s <Motion> {%s mouse_data_scale %s %%x 
%%y}",
-                     bu_vls_cstr(pathname),
-                     bu_vls_cstr(&current_top->to_gedp->go_name),
-                     bu_vls_cstr(&gdvp->gv_name));
+               bu_vls_cstr(pathname),
+               bu_vls_cstr(&current_top->to_gedp->go_name),
+               bu_vls_cstr(&gdvp->gv_name));
        Tcl_Eval(current_top->to_interp, bu_vls_cstr(&bindings));
     }
     bu_vls_free(&bindings);
@@ -5671,11 +5673,11 @@
 
 HIDDEN int
 to_scale_mode(struct ged *gedp,
-             int argc,
-             const char *argv[],
-             ged_func_ptr UNUSED(func),
-             const char *usage,
-             int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     struct bu_vls bindings = BU_VLS_INIT_ZERO;
 
@@ -5703,7 +5705,7 @@
     }
 
     if (bu_sscanf(argv[2], "%lf", &x) != 1 ||
-       bu_sscanf(argv[3], "%lf", &y) != 1) {
+           bu_sscanf(argv[3], "%lf", &y) != 1) {
        bu_vls_printf(gedp->ged_result_str, "Usage: %s %s", argv[0], usage);
        return GED_ERROR;
     }
@@ -5715,9 +5717,9 @@
     struct bu_vls *pathname = dm_get_pathname((struct dm *)gdvp->dmp);
     if (pathname && bu_vls_strlen(pathname)) {
        bu_vls_printf(&bindings, "bind %s <Motion> {%s mouse_scale %s %%x %%y}",
-                     bu_vls_cstr(pathname),
-                     bu_vls_cstr(&current_top->to_gedp->go_name),
-                     bu_vls_cstr(&gdvp->gv_name));
+               bu_vls_cstr(pathname),
+               bu_vls_cstr(&current_top->to_gedp->go_name),
+               bu_vls_cstr(&gdvp->gv_name));
        Tcl_Eval(current_top->to_interp, bu_vls_cstr(&bindings));
     }
     bu_vls_free(&bindings);
@@ -5728,11 +5730,11 @@
 
 HIDDEN int
 to_screen2model(struct ged *gedp,
-               int argc,
-               const char *argv[],
-               ged_func_ptr UNUSED(func),
-               const char *usage,
-               int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     point_t view;
     point_t model;
@@ -5761,7 +5763,7 @@
     }
 
     if (bu_sscanf(argv[2], "%lf", &x) != 1 ||
-       bu_sscanf(argv[3], "%lf", &y) != 1) {
+           bu_sscanf(argv[3], "%lf", &y) != 1) {
        bu_vls_printf(gedp->ged_result_str, "Usage: %s %s", argv[0], usage);
        return GED_ERROR;
     }
@@ -5779,11 +5781,11 @@
 
 HIDDEN int
 to_screen2view(struct ged *gedp,
-              int argc,
-              const char *argv[],
-              ged_func_ptr UNUSED(func),
-              const char *usage,
-              int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     point_t view;
 
@@ -5811,7 +5813,7 @@
     }
 
     if (bu_sscanf(argv[2], "%lf", &x) != 1 ||
-       bu_sscanf(argv[3], "%lf", &y) != 1) {
+           bu_sscanf(argv[3], "%lf", &y) != 1) {
        bu_vls_printf(gedp->ged_result_str, "Usage: %s %s", argv[0], usage);
        return GED_ERROR;
     }
@@ -5828,11 +5830,11 @@
 
 HIDDEN int
 to_set_coord(struct ged *gedp,
-            int argc,
-            const char *argv[],
-            ged_func_ptr UNUSED(func),
-            const char *usage,
-            int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     /* initialize result */
     bu_vls_trunc(gedp->ged_result_str, 0);
@@ -5874,11 +5876,11 @@
 
 HIDDEN int
 to_snap_view(struct ged *gedp,
-            int argc,
-            const char *argv[],
-            ged_func_ptr UNUSED(func),
-            const char *usage,
-            int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     fastf_t fvx, fvy;
 
@@ -5906,7 +5908,7 @@
     }
 
     if (bu_sscanf(argv[2], "%lf", &vx) != 1 ||
-       bu_sscanf(argv[3], "%lf", &vy) != 1) {
+           bu_sscanf(argv[3], "%lf", &vy) != 1) {
        bu_vls_printf(gedp->ged_result_str, "Usage: %s %s", argv[0], usage);
        return GED_ERROR;
     }
@@ -5936,11 +5938,11 @@
 
 HIDDEN int
 to_bot_edge_split(struct ged *gedp,
-                 int argc,
-                 const char *argv[],
-                 ged_func_ptr UNUSED(func),
-                 const char *UNUSED(usage),
-                 int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *UNUSED(usage),
+       int UNUSED(maxargs))
 {
     int ret;
 
@@ -5968,11 +5970,11 @@
 
 HIDDEN int
 to_bot_face_split(struct ged *gedp,
-                 int argc,
-                 const char *argv[],
-                 ged_func_ptr UNUSED(func),
-                 const char *UNUSED(usage),
-                 int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *UNUSED(usage),
+       int UNUSED(maxargs))
 {
     int ret;
 
@@ -6000,11 +6002,11 @@
 
 HIDDEN int
 to_translate_mode(struct ged *gedp,
-                 int argc,
-                 const char *argv[],
-                 ged_func_ptr UNUSED(func),
-                 const char *usage,
-                 int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     struct bu_vls bindings = BU_VLS_INIT_ZERO;
 
@@ -6032,7 +6034,7 @@
     }
 
     if (bu_sscanf(argv[2], "%lf", &x) != 1 ||
-       bu_sscanf(argv[3], "%lf", &y) != 1) {
+           bu_sscanf(argv[3], "%lf", &y) != 1) {
        bu_vls_printf(gedp->ged_result_str, "Usage: %s %s", argv[0], usage);
        return GED_ERROR;
     }
@@ -6044,9 +6046,9 @@
     struct bu_vls *pathname = dm_get_pathname((struct dm *)gdvp->dmp);
     if (pathname && bu_vls_strlen(pathname)) {
        bu_vls_printf(&bindings, "bind %s <Motion> {%s mouse_trans %s %%x %%y}",
-                     bu_vls_cstr(pathname),
-                     bu_vls_cstr(&current_top->to_gedp->go_name),
-                     bu_vls_cstr(&gdvp->gv_name));
+               bu_vls_cstr(pathname),
+               bu_vls_cstr(&current_top->to_gedp->go_name),
+               bu_vls_cstr(&gdvp->gv_name));
        Tcl_Eval(current_top->to_interp, bu_vls_cstr(&bindings));
     }
     bu_vls_free(&bindings);
@@ -6057,11 +6059,11 @@
 
 HIDDEN int
 to_transparency(struct ged *gedp,
-               int argc,
-               const char *argv[],
-               ged_func_ptr UNUSED(func),
-               const char *usage,
-               int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),
+       const char *usage,
+       int UNUSED(maxargs))
 {
     int transparency;
 
@@ -6109,11 +6111,11 @@
 
 HIDDEN int
 to_view_callback(struct ged *gedp,
-                int argc,
-                const char *argv[],
-                ged_func_ptr UNUSED(func),
-                const char *usage,
-                int UNUSED(maxargs))
+       int argc,
+       const char *argv[],
+       ged_func_ptr UNUSED(func),

@@ Diff output truncated at 100000 characters. @@
This was sent by the SourceForge.net collaborative development platform, the 
world's largest Open Source development site.



_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits

Reply via email to