Revision: 53815
http://brlcad.svn.sourceforge.net/brlcad/?rev=53815&view=rev
Author: bob1961
Date: 2012-11-26 15:37:31 +0000 (Mon, 26 Nov 2012)
Log Message:
-----------
Now handling hr instead of hh.
Modified Paths:
--------------
brlcad/trunk/src/libged/translate_tgc.c
Modified: brlcad/trunk/src/libged/translate_tgc.c
===================================================================
--- brlcad/trunk/src/libged/translate_tgc.c 2012-11-26 15:27:37 UTC (rev
53814)
+++ brlcad/trunk/src/libged/translate_tgc.c 2012-11-26 15:37:31 UTC (rev
53815)
@@ -64,6 +64,28 @@
VMOVE(tgc->h, hvec);
+ break;
+ case 'r':
+ case 'R':
+ if (attribute[2] != '\0') {
+ bu_vls_printf(gedp->ged_result_str, "bad tgc attribute
- %s", attribute);
+ return GED_ERROR;
+ }
+
+ if (rflag) {
+ VADD2(hvec, tgc->h, tvec);
+ } else {
+ VSUB2(hvec, tvec, tgc->v);
+ }
+
+ /* check for zero H vector */
+ if (MAGNITUDE(hvec) <= SQRT_SMALL_FASTF) {
+ bu_vls_printf(gedp->ged_result_str, "Zero H vector not
allowed.");
+ return GED_ERROR;
+ }
+
+ VMOVE(tgc->h, hvec);
+
/* have new height vector -- redefine rest of tgc */
la = MAGNITUDE(tgc->a);
lb = MAGNITUDE(tgc->b);
@@ -86,28 +108,6 @@
VSCALE(tgc->b, tgc->b, lb);
break;
- case 'h':
- case 'H':
- if (attribute[2] != '\0') {
- bu_vls_printf(gedp->ged_result_str, "bad tgc attribute
- %s", attribute);
- return GED_ERROR;
- }
-
- if (rflag) {
- VADD2(hvec, tgc->h, tvec);
- } else {
- VSUB2(hvec, tvec, tgc->v);
- }
-
- /* check for zero H vector */
- if (MAGNITUDE(hvec) <= SQRT_SMALL_FASTF) {
- bu_vls_printf(gedp->ged_result_str, "Zero H vector not
allowed.");
- return GED_ERROR;
- }
-
- VMOVE(tgc->h, hvec);
-
- break;
default:
bu_vls_printf(gedp->ged_result_str, "bad tgc attribute -
%s", attribute);
return GED_ERROR;
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Monitor your physical, virtual and cloud infrastructure from a single
web console. Get in-depth insight into apps, servers, databases, vmware,
SAP, cloud infrastructure, etc. Download 30-day Free Trial.
Pricing starts from $795 for 25 servers or applications!
http://p.sf.net/sfu/zoho_dev2dev_nov
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
