Commit 0505ec31 authored by Dave Cooper's avatar Dave Cooper

updated parallel-vectors? function

parent 9472b1d7
......@@ -3,7 +3,7 @@
(asdf:defsystem #:dom :description
"The Gendl\" dom Subsystem" :author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20160204" :depends-on (:cl-who :yadd)
:version "20160211" :depends-on (:cl-who :yadd)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:ta2 :description
"The Gendl (legacy) Testing and Tracking Utility, version 2 (using Ajax but pre-gdlAjax, and no JQuery or CSS)"
:author "Dave Cooper" :license
"The Gendl\" (legacy) Testing and Tracking Utility, version 2 (using Ajax but pre-gdlAjax, and no JQuery or CSS)"
:author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20160211" :depends-on (:gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
......
......@@ -4,7 +4,7 @@
"The Gendl\" Web-based Development Environment (tasty)" :author
"John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20160204" :depends-on (:tree :gwl-graphics)
:version "20160211" :depends-on (:tree :gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
......@@ -4,7 +4,7 @@
"The Gendl\" Translators to/from XML and potentially other high-level KBE and Knowledge formats"
:author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20160204" :depends-on (:gwl)
:version "20160211" :depends-on (:gwl)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
......@@ -4,7 +4,7 @@
"The Gendl\" Tree component used by Tasty and potentially as a UI component on its own"
:author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20160204" :depends-on (:gwl-graphics)
:version "20160211" :depends-on (:gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
......@@ -4,7 +4,7 @@
"The Gendl\" Yet Another Definition Documenter (yadd)" :author
"John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20160204" :depends-on
:version "20160211" :depends-on
(:gwl-graphics #-allegro :cl-html-parse)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
......
......@@ -3,7 +3,7 @@
(asdf:defsystem #:base :description
"The Gendl\" Base Core Kernel Engine" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20160204" :depends-on (:bordeaux-threads)
:serial t :version "20160211" :depends-on (:bordeaux-threads)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
......@@ -3,7 +3,7 @@
(asdf:defsystem #:cl-lite :description
"The Gendl\" Compile-and-Load Lite Utility" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20160204" :depends-on (:glisp)
:serial t :version "20160211" :depends-on (:glisp)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
......@@ -3,7 +3,7 @@
(asdf:defsystem #:bus :description
"The Gendl\" Wireframe School Bus Demo" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20160204" :depends-on (:gwl-graphics)
:serial t :version "20160211" :depends-on (:gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
......@@ -3,7 +3,7 @@
(asdf:defsystem #:ledger :description
"The Gendl\" Ledger Bookkeeping Demo" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20160204" :depends-on
:serial t :version "20160211" :depends-on
(#-gwl :gwl)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
......
......@@ -4,7 +4,7 @@
"The Gendl\" Simplified Android Robot example " :author
"John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20160204" :depends-on (:gwl-graphics)
:version "20160211" :depends-on (:gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
......@@ -4,7 +4,7 @@
"The Gendl\" Wire-World demo and test-case for wireframe tessellation and X3D output"
:author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20160204" :depends-on
:version "20160211" :depends-on
(#-gwl-graphics :gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
......
......@@ -3,7 +3,7 @@
(asdf:defsystem #:examples :description
"The Gendl\" examples Subsystem" :author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20160204" :depends-on (:gwl-graphics :surf)
:version "20160211" :depends-on (:gwl-graphics :surf)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
......@@ -3,7 +3,7 @@
(asdf:defsystem #:geom-base :description
"The Gendl\" Wireframe Geometry" :author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20160204" :depends-on (:glisp)
:version "20160211" :depends-on (:glisp)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
......@@ -588,7 +588,7 @@ is as close as possible to <b>vector</b>.
(cross-vectors reference-vector normal))))))
(defun parallel-vectors? (vector-1 vector-2 &key (tolerance *zero-epsilon*))
(defun parallel-vectors? (vector-1 vector-2 &key (tolerance *zero-epsilon*) directed?)
"Boolean. Returns non-nil iff <b>vector-1</b> and <b>vector-2</b> are pointing in the
same direction or opposite directions.
......@@ -596,7 +596,7 @@ same direction or opposite directions.
vector-2 \"3D Vector\")
:&key ((tolerance *zero-epsilon*) \"Number\")"
(or (same-direction-vectors? vector-1 vector-2 :tolerance tolerance)
(same-direction-vectors? vector-1 (reverse-vector vector-2) :tolerance tolerance)))
(unless directed? (same-direction-vectors? vector-1 (reverse-vector vector-2) :tolerance tolerance))))
(defun same-direction-vectors? (vector-1 vector-2 &key (tolerance *zero-epsilon*))
......
......@@ -3,7 +3,7 @@
(asdf:defsystem #:glisp :description
"The Gendl\" Common Lisp Portability" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20160204" :depends-on
:serial t :version "20160211" :depends-on
(:base :uiop :cl-typesetting :cl-ppcre :cl-who #-allegro :cl-base64 #-allegro :babel #-allegro :acl-compat)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
......
......@@ -3,7 +3,7 @@
(asdf:defsystem #:gwl-graphics :description
"The Gendl\" GWL embedded graphics support" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20160204" :depends-on (:geom-base :gwl)
:serial t :version "20160211" :depends-on (:geom-base :gwl)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
......@@ -3,7 +3,7 @@
(asdf:defsystem #:gwl :description
"The Gendl\" Generative Web Language (GWL)" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20160204" :depends-on
:serial t :version "20160211" :depends-on
(:bordeaux-threads :glisp :aserve)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
......
S 1
1H,,1H;,27H/Users/dcooper8/tmp/g337274,27H/Users/dcooper8/tmp/g337274, G 1
1H,,1H;,27H/Users/dcooper8/tmp/g335777,27H/Users/dcooper8/tmp/g335777, G 1
23HHarmonyWare Translators,23HHarmonyWare IGES v2.0.2,32,38,6,308,15,, G 2
1.,1,2HIN,1,1.,15H20160211.185342,1.D-6,21.3205116838006,,,11,0,15H20160G 3
211.185342; G 4
1.,1,2HIN,1,1.,15H20160211.191249,1.D-6,21.3205116838006,,,11,0,15H20160G 3
211.191249; G 4
502 1 0 0 0 0 0 000010000D 1
502 0 0 16 1 0D 2
124 17 0 0 0 0 0 000000000D 3
......
S 1
1H,,1H;,27H/Users/dcooper8/tmp/g337264,27H/Users/dcooper8/tmp/g337264, G 1
1H,,1H;,27H/Users/dcooper8/tmp/g335767,27H/Users/dcooper8/tmp/g335767, G 1
23HHarmonyWare Translators,23HHarmonyWare IGES v2.0.2,32,38,6,308,15,, G 2
1.,1,2HIN,1,1.,15H20160211.185338,1.D-6,20.7712135760006,,,11,0,15H20160G 3
211.185338; G 4
1.,1,2HIN,1,1.,15H20160211.191246,1.D-6,20.7712135760006,,,11,0,15H20160G 3
211.191246; G 4
502 1 0 0 0 0 0 000010000D 1
502 0 0 442 1 0D 2
110 443 0 0 0 0 0 000010000D 3
ISO-10303-21;
HEADER;
FILE_DESCRIPTION ((), '1');
FILE_NAME ('/Users/dcooper8/tmp/g337451', '2016-02-11T18:53:53', ('Unknown'), ('Unknown'), 'HarmonyWare STEP v2.0.2', 'HarmonyWare Translators', '');
FILE_NAME ('/Users/dcooper8/tmp/g335956', '2016-02-11T19:13:01', ('Unknown'), ('Unknown'), 'HarmonyWare STEP v2.0.2', 'HarmonyWare Translators', '');
FILE_SCHEMA (('CONFIG_CONTROL_DESIGN'));
ENDSEC;
......@@ -26464,7 +26464,7 @@ DATA;
#264350 = APPROVAL (#264340, '');
#264360 = CALENDAR_DATE (2016, 11, 2);
#264370 = COORDINATED_UNIVERSAL_TIME_OFFSET (0, $, .AHEAD.);
#264380 = LOCAL_TIME (18, 53, 53., #264370);
#264380 = LOCAL_TIME (19, 13, 1., #264370);
#264390 = DATE_AND_TIME (#264360, #264380);
#264400 = APPROVAL_DATE_TIME (#264390, #264350);
#264410 = APPROVAL_ROLE ('');
......@@ -26489,7 +26489,7 @@ DATA;
#264600 = APPROVAL (#264590, '');
#264610 = CALENDAR_DATE (2016, 11, 2);
#264620 = COORDINATED_UNIVERSAL_TIME_OFFSET (0, $, .AHEAD.);
#264630 = LOCAL_TIME (18, 53, 53., #264620);
#264630 = LOCAL_TIME (19, 13, 1., #264620);
#264640 = DATE_AND_TIME (#264610, #264630);
#264650 = APPROVAL_DATE_TIME (#264640, #264600);
#264660 = APPROVAL_ROLE ('');
......@@ -26501,7 +26501,7 @@ DATA;
#264720 = DATE_TIME_ROLE ('classification_date');
#264730 = CALENDAR_DATE (2016, 11, 2);
#264740 = COORDINATED_UNIVERSAL_TIME_OFFSET (0, $, .AHEAD.);
#264750 = LOCAL_TIME (18, 53, 53., #264740);
#264750 = LOCAL_TIME (19, 13, 1., #264740);
#264760 = DATE_AND_TIME (#264730, #264750);
#264770 = CC_DESIGN_DATE_AND_TIME_ASSIGNMENT (#264760, #264720, (#264580));
#264780 = PERSON_AND_ORGANIZATION_ROLE ('classification_officer');
......@@ -26516,7 +26516,7 @@ DATA;
#264870 = APPROVAL (#264860, '');
#264880 = CALENDAR_DATE (2016, 11, 2);
#264890 = COORDINATED_UNIVERSAL_TIME_OFFSET (0, $, .AHEAD.);
#264900 = LOCAL_TIME (18, 53, 53., #264890);
#264900 = LOCAL_TIME (19, 13, 1., #264890);
#264910 = DATE_AND_TIME (#264880, #264900);
#264920 = APPROVAL_DATE_TIME (#264910, #264870);
#264930 = APPROVAL_ROLE ('');
......@@ -26528,7 +26528,7 @@ DATA;
#264990 = DATE_TIME_ROLE ('creation_date');
#265000 = CALENDAR_DATE (2016, 11, 2);
#265010 = COORDINATED_UNIVERSAL_TIME_OFFSET (0, $, .AHEAD.);
#265020 = LOCAL_TIME (18, 53, 53., #265010);
#265020 = LOCAL_TIME (19, 13, 1., #265010);
#265030 = DATE_AND_TIME (#265000, #265020);
#265040 = CC_DESIGN_DATE_AND_TIME_ASSIGNMENT (#265030, #264990, (#264850));
#265050 = PERSON_AND_ORGANIZATION_ROLE ('creator');
......@@ -3,7 +3,7 @@
(asdf:defsystem #:regression :description
"The Gendl\" regression Subsystem" :author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20160204" :depends-on (:lift :surf :tasty)
:version "20160211" :depends-on (:lift :surf :tasty)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
......@@ -4,7 +4,7 @@
"The Gendl\" NURBS Surface and Solids Geometry Primitives" :author
"John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20160204" :depends-on (:geom-base)
:version "20160211" :depends-on (:geom-base)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment