Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
0505ec31
Commit
0505ec31
authored
Feb 19, 2016
by
Dave Cooper
Browse files
updated parallel-vectors? function
parent
9472b1d7
Changes
23
Hide whitespace changes
Inline
Side-by-side
apps/dom/dom.asd
View file @
0505ec31
...
...
@@ -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
"201602
04
"
:depends-on
(
:cl-who
:yadd
)
:version
"201602
11
"
:depends-on
(
:cl-who
:yadd
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
apps/ta2/ta2.asd
View file @
0505ec31
;;;; -*- 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
)
...
...
apps/tasty/tasty.asd
View file @
0505ec31
...
...
@@ -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
"201602
04
"
:depends-on
(
:tree
:gwl-graphics
)
:version
"201602
11
"
:depends-on
(
:tree
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
apps/translators/translators.asd
View file @
0505ec31
...
...
@@ -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
"201602
04
"
:depends-on
(
:gwl
)
:version
"201602
11
"
:depends-on
(
:gwl
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
apps/tree/tree.asd
View file @
0505ec31
...
...
@@ -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
"201602
04
"
:depends-on
(
:gwl-graphics
)
:version
"201602
11
"
:depends-on
(
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
apps/yadd/yadd.asd
View file @
0505ec31
...
...
@@ -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
"201602
04
"
:depends-on
:version
"201602
11
"
:depends-on
(
:gwl-graphics
#-
allegro
:cl-html-parse
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
...
...
base/base.asd
View file @
0505ec31
...
...
@@ -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
"201602
04
"
:depends-on
(
:bordeaux-threads
)
:serial
t
:version
"201602
11
"
:depends-on
(
:bordeaux-threads
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
cl-lite/cl-lite.asd
View file @
0505ec31
...
...
@@ -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
"201602
04
"
:depends-on
(
:glisp
)
:serial
t
:version
"201602
11
"
:depends-on
(
:glisp
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
demos/bus/bus.asd
View file @
0505ec31
...
...
@@ -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
"201602
04
"
:depends-on
(
:gwl-graphics
)
:serial
t
:version
"201602
11
"
:depends-on
(
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
demos/ledger/ledger.asd
View file @
0505ec31
...
...
@@ -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
"201602
04
"
:depends-on
:serial
t
:version
"201602
11
"
:depends-on
(
#-
gwl
:gwl
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
...
...
demos/robot/robot.asd
View file @
0505ec31
...
...
@@ -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
"201602
04
"
:depends-on
(
:gwl-graphics
)
:version
"201602
11
"
:depends-on
(
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
demos/wire-world/wire-world.asd
View file @
0505ec31
...
...
@@ -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
"201602
04
"
:depends-on
:version
"201602
11
"
:depends-on
(
#-
gwl-graphics
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
...
...
documentation/training/g102-tud/examples/examples.asd
View file @
0505ec31
...
...
@@ -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
"201602
04
"
:depends-on
(
:gwl-graphics
:surf
)
:version
"201602
11
"
:depends-on
(
:gwl-graphics
:surf
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
geom-base/geom-base.asd
View file @
0505ec31
...
...
@@ -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
"201602
04
"
:depends-on
(
:glisp
)
:version
"201602
11
"
:depends-on
(
:glisp
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
geom-base/prereqs/source/utilities.lisp
View file @
0505ec31
...
...
@@ -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*
))
...
...
glisp/glisp.asd
View file @
0505ec31
...
...
@@ -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
"201602
04
"
:depends-on
:serial
t
:version
"201602
11
"
: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
...
...
gwl-graphics/gwl-graphics.asd
View file @
0505ec31
...
...
@@ -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
"201602
04
"
:depends-on
(
:geom-base
:gwl
)
:serial
t
:version
"201602
11
"
:depends-on
(
:geom-base
:gwl
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
gwl/gwl.asd
View file @
0505ec31
...
...
@@ -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
"201602
04
"
:depends-on
:serial
t
:version
"201602
11
"
:depends-on
(
:bordeaux-threads
:glisp
:aserve
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
...
...
regression/data/round-trip-2.igs
View file @
0505ec31
S 1
1H,,1H;,27H/Users/dcooper8/tmp/g33
7274
,27H/Users/dcooper8/tmp/g33
7274
, G 1
1H,,1H;,27H/Users/dcooper8/tmp/g33
5777
,27H/Users/dcooper8/tmp/g33
5777
, G 1
23HHarmonyWare Translators,23HHarmonyWare IGES v2.0.2,32,38,6,308,15,, G 2
1.,1,2HIN,1,1.,15H20160211.1
85342
,1.D-6,21.3205116838006,,,11,0,15H20160G 3
211.1
85342
; G 4
1.,1,2HIN,1,1.,15H20160211.1
91249
,1.D-6,21.3205116838006,,,11,0,15H20160G 3
211.1
91249
; 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
...
...
regression/data/round-trip.igs
View file @
0505ec31
S 1
1H,,1H;,27H/Users/dcooper8/tmp/g33
7264
,27H/Users/dcooper8/tmp/g33
7264
, G 1
1H,,1H;,27H/Users/dcooper8/tmp/g33
5767
,27H/Users/dcooper8/tmp/g33
5767
, G 1
23HHarmonyWare Translators,23HHarmonyWare IGES v2.0.2,32,38,6,308,15,, G 2
1.,1,2HIN,1,1.,15H20160211.1
85338
,1.D-6,20.7712135760006,,,11,0,15H20160G 3
211.1
85338
; G 4
1.,1,2HIN,1,1.,15H20160211.1
91246
,1.D-6,20.7712135760006,,,11,0,15H20160G 3
211.1
91246
; 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
Prev
1
2
Next
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment