Revision: 76347
http://sourceforge.net/p/brlcad/code/76347
Author: starseeker
Date: 2020-07-15 01:31:21 +0000 (Wed, 15 Jul 2020)
Log Message:
-----------
rename
Added Paths:
-----------
brlcad/trunk/src/libtclcad/view/util.c
Removed Paths:
-------------
brlcad/trunk/src/libtclcad/view/tclcad_views.c
Deleted: brlcad/trunk/src/libtclcad/view/tclcad_views.c
===================================================================
--- brlcad/trunk/src/libtclcad/view/tclcad_views.c 2020-07-15 01:30:45 UTC
(rev 76346)
+++ brlcad/trunk/src/libtclcad/view/tclcad_views.c 2020-07-15 01:31:21 UTC
(rev 76347)
@@ -1,96 +0,0 @@
-/* T C L C A D _ V I E W S . C
- * BRL-CAD
- *
- * Copyright (c) 2000-2020 United States Government as represented by
- * the U.S. Army Research Laboratory.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public License
- * version 2.1 as published by the Free Software Foundation.
- *
- * This library is distributed in the hope that it will be useful, but
- * WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this file; see the file named COPYING for more
- * information.
- */
-/** @addtogroup libtclcad */
-/** @{ */
-/** @file libtclcad/tclcad_views.c
- *
- * A quasi-object-oriented database interface.
- *
- * A GED object contains the attributes and methods for controlling a
- * BRL-CAD geometry edit object.
- *
- */
-/** @} */
-
-#include "common.h"
-#include "bu/units.h"
-#include "ged.h"
-#include "tclcad.h"
-
-/* Private headers */
-#include "../tclcad_private.h"
-#include "../view/view.h"
-
-
-fastf_t
-screen_to_view_x(struct dm *dmp, fastf_t x)
-{
- int width = dm_get_width(dmp);
- return x / (fastf_t)width * 2.0 - 1.0;
-}
-
-
-fastf_t
-screen_to_view_y(struct dm *dmp, fastf_t y)
-{
- int height = dm_get_height(dmp);
- return (y / (fastf_t)height * -2.0 + 1.0) / dm_get_aspect(dmp);
-}
-
-
-int
-to_is_viewable(struct ged_dm_view *gdvp)
-{
- Tcl_Obj *our_result;
- Tcl_Obj *saved_result;
- int result_int;
- const char *pathname = bu_vls_addr(dm_get_pathname(gdvp->gdv_dmp));
-
- /* stash any existing result so we can inspect our own */
- saved_result = Tcl_GetObjResult(current_top->to_interp);
- Tcl_IncrRefCount(saved_result);
-
- if (pathname && tclcad_eval(current_top->to_interp, "winfo viewable", 1,
&pathname) != TCL_OK) {
- return 0;
- }
-
- our_result = Tcl_GetObjResult(current_top->to_interp);
- Tcl_GetIntFromObj(current_top->to_interp, our_result, &result_int);
-
- /* restore previous result */
- Tcl_SetObjResult(current_top->to_interp, saved_result);
- Tcl_DecrRefCount(saved_result);
-
- if (!result_int) {
- return 0;
- }
-
- return 1;
-}
-
-/*
- * Local Variables:
- * mode: C
- * tab-width: 8
- * indent-tabs-mode: t
- * c-file-style: "stroustrup"
- * End:
- * ex: shiftwidth=4 tabstop=8
- */
Copied: brlcad/trunk/src/libtclcad/view/util.c (from rev 76346,
brlcad/trunk/src/libtclcad/view/tclcad_views.c)
===================================================================
--- brlcad/trunk/src/libtclcad/view/util.c (rev 0)
+++ brlcad/trunk/src/libtclcad/view/util.c 2020-07-15 01:31:21 UTC (rev
76347)
@@ -0,0 +1,96 @@
+/* T C L C A D _ V I E W S . C
+ * BRL-CAD
+ *
+ * Copyright (c) 2000-2020 United States Government as represented by
+ * the U.S. Army Research Laboratory.
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public License
+ * version 2.1 as published by the Free Software Foundation.
+ *
+ * This library is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this file; see the file named COPYING for more
+ * information.
+ */
+/** @addtogroup libtclcad */
+/** @{ */
+/** @file libtclcad/tclcad_views.c
+ *
+ * A quasi-object-oriented database interface.
+ *
+ * A GED object contains the attributes and methods for controlling a
+ * BRL-CAD geometry edit object.
+ *
+ */
+/** @} */
+
+#include "common.h"
+#include "bu/units.h"
+#include "ged.h"
+#include "tclcad.h"
+
+/* Private headers */
+#include "../tclcad_private.h"
+#include "../view/view.h"
+
+
+fastf_t
+screen_to_view_x(struct dm *dmp, fastf_t x)
+{
+ int width = dm_get_width(dmp);
+ return x / (fastf_t)width * 2.0 - 1.0;
+}
+
+
+fastf_t
+screen_to_view_y(struct dm *dmp, fastf_t y)
+{
+ int height = dm_get_height(dmp);
+ return (y / (fastf_t)height * -2.0 + 1.0) / dm_get_aspect(dmp);
+}
+
+
+int
+to_is_viewable(struct ged_dm_view *gdvp)
+{
+ Tcl_Obj *our_result;
+ Tcl_Obj *saved_result;
+ int result_int;
+ const char *pathname = bu_vls_addr(dm_get_pathname(gdvp->gdv_dmp));
+
+ /* stash any existing result so we can inspect our own */
+ saved_result = Tcl_GetObjResult(current_top->to_interp);
+ Tcl_IncrRefCount(saved_result);
+
+ if (pathname && tclcad_eval(current_top->to_interp, "winfo viewable", 1,
&pathname) != TCL_OK) {
+ return 0;
+ }
+
+ our_result = Tcl_GetObjResult(current_top->to_interp);
+ Tcl_GetIntFromObj(current_top->to_interp, our_result, &result_int);
+
+ /* restore previous result */
+ Tcl_SetObjResult(current_top->to_interp, saved_result);
+ Tcl_DecrRefCount(saved_result);
+
+ if (!result_int) {
+ return 0;
+ }
+
+ return 1;
+}
+
+/*
+ * Local Variables:
+ * mode: C
+ * tab-width: 8
+ * indent-tabs-mode: t
+ * c-file-style: "stroustrup"
+ * End:
+ * ex: shiftwidth=4 tabstop=8
+ */
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
_______________________________________________
BRL-CAD Source Commits mailing list
brlcad-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
