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
ed4bc62f
Commit
ed4bc62f
authored
Apr 23, 2013
by
Dave Cooper
Browse files
refreshed .asds, added matrix example to be included in tutorial manual.
parent
dd093dea
Changes
20
Hide whitespace changes
Inline
Side-by-side
apps/ta2/ta2.asd
View file @
ed4bc62f
;;;; -*- encoding: 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 and Genworks International
"
:license
"
Gnu
Affero G
eneral
Public License (
please see
http://www.gnu.org/licenses/)"
:serial
t
:version
"201304
09
"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/javascript"
)
(
:file
"source/action-object"
)
(
:file
"source/ajax"
)
(
:file
"source/assembly"
)
(
:file
"source/click-mode"
)
(
:file
"source/inspector"
)
(
:file
"source/object-tree"
)
(
:file
"source/part-type-form"
)
(
:file
"source/publish"
)
(
:file
"source/viewport"
)))
;;;; -*- encoding: 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
"
John McCarthy
"
:license
"Affero G
nu
Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201304
22
"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/javascript"
)
(
:file
"source/action-object"
)
(
:file
"source/ajax"
)
(
:file
"source/assembly"
)
(
:file
"source/click-mode"
)
(
:file
"source/inspector"
)
(
:file
"source/object-tree"
)
(
:file
"source/part-type-form"
)
(
:file
"source/publish"
)
(
:file
"source/viewport"
)))
apps/tasty/tasty.asd
View file @
ed4bc62f
;;;; -*- encoding: utf-8; -*-
(
asdf:defsystem
#:tasty
:description
"The Gendl™ Web-based Development Environment (tasty)"
:author
"
Dave Cooper and Genworks International
"
:license
"
Gnu
Affero G
eneral
Public License (
please see
http://www.gnu.org/licenses/)"
:serial
t
:version
"201304
09
"
:depends-on
(
:tree
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/assembly"
)
(
:file
"source/initialize"
)
(
:file
"source/inspector"
)
(
:file
"source/menu"
)
(
:file
"source/new-inspector"
)
(
:file
"source/newer-inspector"
)
(
:file
"source/part-type-form"
)
(
:file
"source/publish"
)
(
:file
"source/status-object"
)
(
:file
"source/test-part"
)
(
:file
"source/test-part2"
)
(
:file
"source/two-viewports"
)
(
:file
"source/viewport"
)
(
:file
"source/zzinit"
)))
;;;; -*- encoding: utf-8; -*-
(
asdf:defsystem
#:tasty
:description
"The Gendl™ Web-based Development Environment (tasty)"
:author
"
John McCarthy
"
:license
"Affero G
nu
Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201304
22
"
:depends-on
(
:tree
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/assembly"
)
(
:file
"source/initialize"
)
(
:file
"source/inspector"
)
(
:file
"source/menu"
)
(
:file
"source/new-inspector"
)
(
:file
"source/newer-inspector"
)
(
:file
"source/part-type-form"
)
(
:file
"source/publish"
)
(
:file
"source/status-object"
)
(
:file
"source/test-part"
)
(
:file
"source/test-part2"
)
(
:file
"source/two-viewports"
)
(
:file
"source/viewport"
)
(
:file
"source/zzinit"
)))
apps/translators/translators.asd
View file @
ed4bc62f
;;;; -*- encoding: utf-8; -*-
(
asdf:defsystem
#:translators
:description
"The Gendl™ Translators to/from XML and potentially other high-level KBE and Knowledge formats"
:author
"
Dave Cooper and Genworks International
"
:license
"
Gnu
Affero G
eneral
Public License (
please see
http://www.gnu.org/licenses/)"
:serial
t
:version
"201304
09
"
:depends-on
(
:gwl
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"xml/source/package"
)
(
:file
"xml/source/genworks"
)
(
:file
"xml/source/definition-tree"
)
(
:file
"xml/source/gdl2xml"
)
(
:file
"xml/source/xml2gdl"
)))
;;;; -*- encoding: utf-8; -*-
(
asdf:defsystem
#:translators
:description
"The Gendl™ Translators to/from XML and potentially other high-level KBE and Knowledge formats"
:author
"
John McCarthy
"
:license
"Affero G
nu
Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201304
22
"
:depends-on
(
:gwl
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"xml/source/package"
)
(
:file
"xml/source/genworks"
)
(
:file
"xml/source/definition-tree"
)
(
:file
"xml/source/gdl2xml"
)
(
:file
"xml/source/xml2gdl"
)))
apps/tree/tree.asd
View file @
ed4bc62f
;;;; -*- encoding: utf-8; -*-
(
asdf:defsystem
#:tree
:description
"The Gendl™ Tree component used by Tasty and potentially as a UI component on its own"
:author
"
Dave Cooper and Genworks International
"
:license
"
Gnu
Affero G
eneral
Public License (
please see
http://www.gnu.org/licenses/)"
:serial
t
:version
"201304
09
"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/ajax"
)
(
:file
"source/assembly"
)
(
:file
"source/newertree"
)))
;;;; -*- encoding: utf-8; -*-
(
asdf:defsystem
#:tree
:description
"The Gendl™ Tree component used by Tasty and potentially as a UI component on its own"
:author
"
John McCarthy
"
:license
"Affero G
nu
Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201304
22
"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/ajax"
)
(
:file
"source/assembly"
)
(
:file
"source/newertree"
)))
apps/yadd/yadd.asd
View file @
ed4bc62f
;;;; -*- encoding: utf-8; -*-
(
asdf:defsystem
#:yadd
:description
"The Gendl™ Yet Another Definition Documenter (yadd)"
:author
"
Dave Cooper and Genworks International
"
:license
"
Gnu
Affero G
eneral
Public License (
please see
http://www.gnu.org/licenses/)"
:serial
t
:version
"201304
09
"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/genworks"
)
(
:file
"source/parameters"
)
(
:file
"source/mixins"
)
(
:file
"source/define-object-documentation"
)
(
:file
"source/assembly"
)
(
:file
"source/ass"
)
(
:file
"source/format-documentation"
)
(
:file
"source/function-documentation"
)
(
:file
"source/initialize"
)
(
:file
"source/publish"
)
(
:file
"source/test-part"
)
(
:file
"source/variable-documentation"
)
(
:file
"source/zzinit"
)))
;;;; -*- encoding: utf-8; -*-
(
asdf:defsystem
#:yadd
:description
"The Gendl™ Yet Another Definition Documenter (yadd)"
:author
"
John McCarthy
"
:license
"Affero G
nu
Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201304
22
"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/genworks"
)
(
:file
"source/parameters"
)
(
:file
"source/mixins"
)
(
:file
"source/define-object-documentation"
)
(
:file
"source/assembly"
)
(
:file
"source/ass"
)
(
:file
"source/format-documentation"
)
(
:file
"source/function-documentation"
)
(
:file
"source/initialize"
)
(
:file
"source/publish"
)
(
:file
"source/test-part"
)
(
:file
"source/variable-documentation"
)
(
:file
"source/zzinit"
)))
base/base.asd
View file @
ed4bc62f
;;;; -*- encoding: utf-8; -*-
(
asdf:defsystem
#:base
:description
"The Gendl™ Base Core Kernel Engine"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20130409"
:depends-on
nil
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/genworks"
)
(
:file
"source/presets"
)
(
:file
"source/parameters"
)
(
:file
"source/metaclasses"
)
(
:file
"source/utilities"
)
(
:file
"source/start"
)
(
:file
"expanders/source/inputs"
)
(
:file
"expanders/source/computed-slots"
)
(
:file
"expanders/source/functions"
)
(
:file
"expanders/source/methods"
)
(
:file
"expanders/source/objects"
)
(
:file
"macros/source/reference"
)
(
:file
"macros/source/message-utils"
)
(
:file
"macros/source/define-object"
)
(
:file
"macros/source/defaulting"
)
(
:file
"macros/source/define-format"
)
(
:file
"rest/source/parameters"
)
(
:file
"rest/source/quantification"
)
(
:file
"rest/source/aggregate"
)
(
:file
"rest/source/utilities"
)
(
:file
"rest/source/null-part"
)
(
:file
"rest/source/vanilla-mixin"
)
(
:file
"rest/source/base-rule-object"
)
(
:file
"rest/source/bodies"
)
(
:file
"rest/source/ignore-errors-with-backtrace"
)
(
:file
"rest/source/init"
)
(
:file
"rest/source/make-part"
)
(
:file
"rest/source/sequence"
)
(
:file
"zzinit/source/initialize"
)
(
:file
"zzinit/source/zzinit"
)))
;;;; -*- encoding: utf-8; -*-
(
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
"20130422"
:depends-on
nil
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/genworks"
)
(
:file
"source/presets"
)
(
:file
"source/parameters"
)
(
:file
"source/metaclasses"
)
(
:file
"source/utilities"
)
(
:file
"source/start"
)
(
:file
"expanders/source/inputs"
)
(
:file
"expanders/source/computed-slots"
)
(
:file
"expanders/source/functions"
)
(
:file
"expanders/source/methods"
)
(
:file
"expanders/source/objects"
)
(
:file
"macros/source/reference"
)
(
:file
"macros/source/message-utils"
)
(
:file
"macros/source/define-object"
)
(
:file
"macros/source/defaulting"
)
(
:file
"macros/source/define-format"
)
(
:file
"rest/source/parameters"
)
(
:file
"rest/source/quantification"
)
(
:file
"rest/source/aggregate"
)
(
:file
"rest/source/utilities"
)
(
:file
"rest/source/null-part"
)
(
:file
"rest/source/vanilla-mixin"
)
(
:file
"rest/source/base-rule-object"
)
(
:file
"rest/source/bodies"
)
(
:file
"rest/source/ignore-errors-with-backtrace"
)
(
:file
"rest/source/init"
)
(
:file
"rest/source/make-part"
)
(
:file
"rest/source/sequence"
)
(
:file
"zzinit/source/initialize"
)
(
:file
"zzinit/source/zzinit"
)))
cl-lite/cl-lite.asd
View file @
ed4bc62f
;;;; -*- encoding: utf-8; -*-
(
asdf:defsystem
#:cl-lite
:description
"The Gendl™ Compile-and-Load Lite Utility"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20130409"
:depends-on
(
:glisp
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/cl-lite"
)
(
:file
"source/initialize"
)
(
:file
"source/zzinit"
)))
;;;; -*- encoding: utf-8; -*-
(
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
"20130422"
:depends-on
(
:glisp
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/cl-lite"
)
(
:file
"source/initialize"
)
(
:file
"source/zzinit"
)))
cl-lite/source/cl-lite.lisp
View file @
ed4bc62f
...
...
@@ -302,7 +302,7 @@ Defaults to nil (i.e. we assume we are loading into a clean system and need all
:type
"isc"
)
(
the
ppathname
))))
(
when
(
probe-file
asd-code-file
)
(
with-open-file
(
in
asd-code-file
)
(
with-open-file
(
in
asd-code-file
:external-format
:utf-8
)
(
let
(
result
)
(
let
(
*read-eval*
)
(
do
((
form
(
read
in
nil
nil
)
(
read
in
nil
nil
)))
...
...
@@ -315,9 +315,10 @@ Defaults to nil (i.e. we assume we are loading into a clean system and need all
(
asdf-system-lines
(
let
((
temp-file
(
glisp:temporary-file
)))
(
with-open-file
(
out
temp-file
:direction
:output
:if-exists
:supersede
:if-does-not-exist
:create
)
:if-does-not-exist
:create
:external-format
:utf-8
)
(
pprint
(
the
%asdf-system-list
)
out
))
(
with-open-file
(
in
temp-file
)
(
with-open-file
(
in
temp-file
:external-format
:utf-8
)
(
let
(
result
)
(
do
((
line
(
read-line
in
nil
)
(
read-line
in
nil
)))
((
null
line
)
(
nreverse
result
))
...
...
@@ -405,7 +406,8 @@ Defaults to nil (i.e. we assume we are loading into a clean system and need all
()
(
with-open-file
(
out
(
the
asd-file
)
:direction
:output
:if-exists
:supersede
:if-does-not-exist
:create
)
:if-does-not-exist
:create
:external-format
:utf-8
)
(
let
((
*print-right-margin*
70
)
(
*print-case*
:downcase
))
...
...
demos/bus/bus.asd
View file @
ed4bc62f
;;;; -*- encoding: utf-8; -*-
(
asdf:defsystem
#:bus
:description
"The Gendl™ Wireframe School Bus Demo"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20130409"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)
(
:file
"source/body"
)
(
:file
"source/chassis"
)
(
:file
"source/interior"
)
(
:file
"source/rule-ackermann"
)
(
:file
"source/axle"
)
(
:file
"source/fleet"
)
(
:file
"source/frame-rail"
)
(
:file
"source/frame"
)
(
:file
"source/html-writer-assembly"
)
(
:file
"source/html-writer-body"
)
(
:file
"source/html-writer-chassis"
)
(
:file
"source/html-writer-interior"
)
(
:file
"source/html-writer-rule-ackermann"
)
(
:file
"source/inter-seat-clearance-check"
)
(
:file
"source/inter-seat-spacing"
)
(
:file
"source/knuckle"
)
(
:file
"source/parameters"
)
(
:file
"source/publish"
)
(
:file
"source/rear-axle"
)
(
:file
"source/seat"
)
(
:file
"source/seating-section"
)
(
:file
"source/seating-side"
)
(
:file
"source/wheel"
)))
;;;; -*- encoding: utf-8; -*-
(
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
"20130422"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)
(
:file
"source/body"
)
(
:file
"source/chassis"
)
(
:file
"source/interior"
)
(
:file
"source/rule-ackermann"
)
(
:file
"source/axle"
)
(
:file
"source/fleet"
)
(
:file
"source/frame-rail"
)
(
:file
"source/frame"
)
(
:file
"source/html-writer-assembly"
)
(
:file
"source/html-writer-body"
)
(
:file
"source/html-writer-chassis"
)
(
:file
"source/html-writer-interior"
)
(
:file
"source/html-writer-rule-ackermann"
)
(
:file
"source/inter-seat-clearance-check"
)
(
:file
"source/inter-seat-spacing"
)
(
:file
"source/knuckle"
)
(
:file
"source/parameters"
)
(
:file
"source/publish"
)
(
:file
"source/rear-axle"
)
(
:file
"source/seat"
)
(
:file
"source/seating-section"
)
(
:file
"source/seating-side"
)
(
:file
"source/wheel"
)))
demos/ledger/ledger.asd
View file @
ed4bc62f
;;;; -*- encoding: utf-8; -*-
(
asdf:defsystem
#:ledger
:description
"The Gendl™ Ledger Bookkeeping Demo"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20130409"
:depends-on
(
:gwl
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)
(
:file
"source/html"
)
(
:file
"source/zzinit"
)))
;;;; -*- encoding: utf-8; -*-
(
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
"20130422"
:depends-on
(
:gwl
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)
(
:file
"source/html"
)
(
:file
"source/zzinit"
)))
demos/robot/robot.asd
View file @
ed4bc62f
;;;; -*- encoding: utf-8; -*-
(
asdf:defsystem
#:robot
:description
"The Gendl™ Simplified Android Robot example "
:author
"
Dave Cooper and Genworks International
"
:license
"
Gnu
Affero G
eneral
Public License (
please see
http://www.gnu.org/licenses/)"
:serial
t
:version
"201304
09
"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)
(
:file
"source/initialize"
)
(
:file
"source/parameters"
)
(
:file
"source/zzinit"
)))
;;;; -*- encoding: utf-8; -*-
(
asdf:defsystem
#:robot
:description
"The Gendl™ Simplified Android Robot example "
:author
"
John McCarthy
"
:license
"Affero G
nu
Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201304
22
"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)
(
:file
"source/initialize"
)
(
:file
"source/parameters"
)
(
:file
"source/zzinit"
)))
demos/wire-world/wire-world.asd
View file @
ed4bc62f
;;;; -*- encoding: utf-8; -*-
(
asdf:defsystem
#:wire-world
:description
"The Gendl™ Wire-World demo and test-case for wireframe tessellation and X3D output"
:author
"
Dave Cooper and Genworks International
"
:license
"
Gnu
Affero G
eneral
Public License (
please see
http://www.gnu.org/licenses/)"
:serial
t
:version
"201304
09
"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)))
;;;; -*- encoding: utf-8; -*-
(
asdf:defsystem
#:wire-world
:description
"The Gendl™ Wire-World demo and test-case for wireframe tessellation and X3D output"
:author
"
John McCarthy
"
:license
"Affero G
nu
Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201304
22
"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)))
documentation/training/g102-tud/examples/examples.asd
View file @
ed4bc62f
;;;; -*- encoding: utf-8; -*-
(
asdf:defsystem
#:examples
:description
"The Gendl™ examples Subsystem"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20130409"
:depends-on
nil
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:gdl
"source/primi-plane"
)
(
:gdl
"source/ui-primi-plane"
)))
;;;; -*- encoding: utf-8; -*-
(
asdf:defsystem
#:examples
:description
"The Gendl™ examples Subsystem"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20130422"
:depends-on
nil
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:gdl
"source/primi-plane"
)
(
:gdl
"source/ui-primi-plane"
)))
documentation/tutorial/examples/sequence-matrix.lisp
0 → 100644
View file @
ed4bc62f
(
in-package
:gdl-user
)
(
define-object
cyl-field
(
base-object
)
:input-slots
((
number-of-rows
10
)
(
number-of-columns
(
floor
(
*
(
the
number-of-rows
)
+phi+
)))
(
cylinder-radius
2
)
(
cylinder-length
3
)
(
width
(
twice
(
*
(
the
cylinder-radius
)
(
the
number-of-rows
))))
(
length
(
twice
(
*
(
the
cylinder-radius
)
(
the
number-of-columns
))))
)
:objects
((
cylinders
:type
'cylinder
:sequence
(
:matrix
:lateral
(
the
number-of-rows
)
:longitudinal
(
the
number-of-columns
))
:display-controls
(
list
:color
"#9999FF"
)
:radius
(
the
cylinder-radius
)
:length
(
the
cylinder-length
)
:orientation
(
alignment
:rear
(
the
(
face-normal-vector
:top
)))
)))
(
define-object
cyl-centered
(
base-object
)
:input-slots
((
number-of-rows
10
)
(
number-of-columns
(
floor
(
*
(
the
number-of-rows
)
+phi+
)))
(
cylinder-radius
2
)
(
cylinder-length
3
)
(
width
(
twice
(
*
(
the
cylinder-radius
)
(
the
number-of-rows
))))
(
length
(
twice
(
*
(
the
cylinder-radius
)
(
the
number-of-columns
))))
)
:objects
((
cyls
:type
'cylinder
:sequence
(
:matrix
:lateral
(
the
number-of-rows
)
:longitudinal
(
the
number-of-columns
))
:display-controls
(
list
:color
"#9999FF"
)
:radius
(
the
cylinder-radius
)
:length
(
the
cylinder-length
)
:center
(
translate
(
the
center
)
:left
(
*
(
first
(
the-child
index
))
(
*
7/4
(
twice
(
the-child
radius
))))
:rear
(
*
(
second
(
the-child
index
))
(
*
8/3
(
twice
(
the-child
radius
)))))
:orientation
(
alignment
:rear
(
the
(
face-normal-vector
:top
)))
)))
geom-base/geom-base.asd
View file @
ed4bc62f
;;;; -*- encoding: utf-8; -*-
(
asdf:defsystem
#:geom-base
:description
"The Gendl™ Wireframe Geometry"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20130409"
:depends-on
(
:glisp
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"prereqs/source/presets"
)
(
:file
"prereqs/source/cl-pdf-patches"
)
(
:file
"prereqs/source/matrix"
)
(
:file
"prereqs/source/parameters"
)
(
:file
"prereqs/source/utilities"
)
(
:file
"formats/source/2d-output"
)
(
:file
"formats/source/dxf"
)
(
:file
"formats/source/macro-redefs"
)
(
:file
"formats/source/obj"
)
(
:file
"formats/source/pdf-multipage"
)
(
:file
"formats/source/pdf-raw"
)
(
:file
"formats/source/pdf"
)
(
:file
"formats/source/raster"
)
(
:file
"formats/source/vector-graphics"
)
(
:file
"wire/source/base-object"
)
(
:file
"wire/source/arc"
)
(
:file
"wire/source/l-line"
)
(
:file
"wire/source/circle"
)
(
:file
"wire/source/bezier-curve"
)
(
:file
"wire/source/cylinder"
)
(
:file
"wire/source/global-polyline"
)
(
:file
"wire/source/global-filleted-polyline"
)
(
:file
"wire/source/global-polygon-projection"
)
(
:file
"wire/source/sphere"
)
(
:file
"wire/source/arcoid-mixin"
)
(
:file
"wire/source/bounding-box"
)
(
:file
"wire/source/box"
)
(
:file
"wire/source/c-cylinder"
)
(
:file
"wire/source/cone"
)
(
:file
"wire/source/directional-light"
)
(
:file
"wire/source/ellipse"
)
(
:file
"wire/source/fillet"
)
(
:file
"wire/source/global-filleted-polygon-projection"
)
(
:file
"wire/source/null-geometric-object"
)
(
:file
"wire/source/outline-specialization-mixin"
)
(
:file
"wire/source/point-light"
)
(
:file
"wire/source/point"
)
(
:file
"wire/source/points-display"
)
(
:file
"wire/source/primitives"
)
(
:file
"wire/source/route-pipe"
)
(
:file
"wire/source/spherical-cap"
)
(
:file
"wire/source/spot-light"
)
(
:file
"wire/source/torus"
)
(
:file
"wire/source/utilities"
)
(
:file
"wire/source/views"
)
(
:file
"annotations/source/angular-dimension"
)
(
:file
"annotations/source/arrowhead"
)
(
:file
"annotations/source/center-line"
)
(
:file
"annotations/source/horizontal-dimension"
)
(
:file
"annotations/source/label"
)
(
:file
"annotations/source/leader-arc"
)
(
:file
"annotations/source/leader-line"
)
(
:file
"annotations/source/linear-dimension"
)
(
:file
"annotations/source/parallel-dimension"
)
(
:file
"annotations/source/sample-drawing"
)
(
:file
"annotations/source/vertical-dimension"
)
(
:file
"drawing/source/base-view"
)
(
:file
"drawing/source/document"
)
(
:file
"drawing/source/lenses"
)
(
:file
"drawing/source/renderer-mixin"
)
(
:file
"text/source/general-note"
)
(
:file
"text/source/typeset-block"
)
(
:file
"graphs/source/graph"
)
(
:file
"graphs/source/legend"
)
(
:file
"graphs/source/pie-chart"
)
(
:file
"lenses/source/vrml"
)
(
:file
"lenses/source/x3d"
)
(
:file
"math/source/polynomial"
)
(
:file
"zzinit/source/initialize"
)
(
:file
"zzinit/source/zzinit"
)))
;;;; -*- encoding: utf-8; -*-
(
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
"20130422"
:depends-on
(
:glisp
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"prereqs/source/presets"
)
(
:file
"prereqs/source/cl-pdf-patches"
)
(
:file
"prereqs/source/matrix"
)
(
:file
"prereqs/source/parameters"
)
(
:file
"prereqs/source/utilities"
)
(
:file
"formats/source/2d-output"
)
(
:file
"formats/source/dxf"
)
(
:file
"formats/source/macro-redefs"
)
(
:file
"formats/source/obj"
)
(
:file
"formats/source/pdf-multipage"
)
(
:file
"formats/source/pdf-raw"
)
(
:file
"formats/source/pdf"
)
(
:file
"formats/source/raster"
)
(
:file
"formats/source/vector-graphics"
)
(
:file
"wire/source/base-object"
)
(
:file
"wire/source/arc"
)
(
:file
"wire/source/l-line"
)
(
:file
"wire/source/circle"
)
(
:file
"wire/source/bezier-curve"
)
(
:file
"wire/source/cylinder"
)
(
:file
"wire/source/global-polyline"
)
(
:file
"wire/source/global-filleted-polyline"
)
(
:file
"wire/source/global-polygon-projection"
)
(
:file
"wire/source/sphere"
)
(
:file
"wire/source/arcoid-mixin"
)
(
:file
"wire/source/bounding-box"
)
(
:file
"wire/source/box"
)
(
:file
"wire/source/c-cylinder"
)
(
:file
"wire/source/cone"
)
(
:file
"wire/source/directional-light"
)
(
:file
"wire/source/ellipse"
)
(
:file
"wire/source/fillet"
)
(
:file
"wire/source/global-filleted-polygon-projection"
)
(
:file
"wire/source/null-geometric-object"
)
(
:file
"wire/source/outline-specialization-mixin"
)
(
:file
"wire/source/point-light"
)
(
:file
"wire/source/point"
)
(
:file
"wire/source/points-display"
)
(
:file
"wire/source/primitives"
)
(
:file
"wire/source/route-pipe"
)
(
:file
"wire/source/spherical-cap"
)
(
:file
"wire/source/spot-light"
)
(
:file
"wire/source/torus"
)
(
:file
"wire/source/utilities"
)
(
:file
"wire/source/views"
)
(
:file
"annotations/source/angular-dimension"
)
(
:file
"annotations/source/arrowhead"
)
(
:file
"annotations/source/center-line"
)
(
:file
"annotations/source/horizontal-dimension"
)
(
:file
"annotations/source/label"
)
(
:file
"annotations/source/leader-arc"
)
(
:file
"annotations/source/leader-line"
)
(
:file
"annotations/source/linear-dimension"
)
(
:file
"annotations/source/parallel-dimension"
)
(
:file
"annotations/source/sample-drawing"
)
(
:file
"annotations/source/vertical-dimension"
)
(
:file
"drawing/source/base-view"
)
(
:file
"drawing/source/document"
)
(
:file
"drawing/source/lenses"
)
(
:file
"drawing/source/renderer-mixin"
)
(
:file
"text/source/general-note"
)
(
:file
"text/source/typeset-block"
)
(
:file
"graphs/source/graph"
)
(
:file
"graphs/source/legend"
)
(
:file
"graphs/source/pie-chart"
)
(
:file
"lenses/source/vrml"
)
(
:file
"lenses/source/x3d"
)
(
:file
"math/source/polynomial"
)
(
:file
"zzinit/source/initialize"
)
(
:file
"zzinit/source/zzinit"
)))
glisp/glisp.asd
View file @
ed4bc62f
;;;; -*- encoding: utf-8; -*-
(
asdf:defsystem
#:glisp
:description
"The Gendl™ Common Lisp Portability"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20130409"
:depends-on
(
:base
:uiop
:cl-typesetting
:cl-ppcre
:cl-who
#-
allegro
:cl-base64
#-
allegro
:babel
#-
allegro
:acl-compat
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/presets"
)
(
:file
"source/parameters"
)
(
:file
"source/genworks"
)
(
:file
"source/initialize"
)
(
:file
"source/zzinit"
)))
;;;; -*- encoding: utf-8; -*-
(
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
"20130422"
:depends-on