Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
d35a0074
Commit
d35a0074
authored
Nov 18, 2013
by
Dave Cooper
Browse files
updated emacs .el
parent
cc725e55
Changes
2
Hide whitespace changes
Inline
Side-by-side
emacs/gdl.el
View file @
d35a0074
...
...
@@ -191,7 +191,10 @@
(
defun
load-and-or-start-gendl
()
(
slime-repl
)
(
insert
"(unless (find-package :gendl) (load (merge-pathnames \".load-gendl.lisp\" (user-homedir-pathname))))"
)
(
insert
"(unless (find-package :gendl)
(let ((load-file (or (probe-file (merge-pathnames \".load-gendl.lisp\" (user-homedir-pathname)))
(probe-file \"c:/users/dcooper8/.load-gendl.lisp\"))))
(load load-file)))"
)
(
slime-repl-return
)
(
insert
(
format
"(when (find-package :gendl) (load (compile-file \"%semacs/glime.lisp\")))"
*gendl-home*
))
(
slime-repl-return
)
...
...
surf/source/3d-curve.lisp
0 → 100644
View file @
d35a0074
;;
;; Copyright 2013 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This source file contains free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;;
;; This source file 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
;; Affero General Public License for more details.
;;
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
(
in-package
:surf
)
(
define-object
3d-curve
(
b-spline-curve
)
:documentation
(
:description
"Given a uv on-surface curve and its surface, produce the corresponding 3d curve."
)
:input-slots
(
"GDL Curve object. Curve whose points are understood to be 2D u, v parameter values on the surface."
uv-curve
"GDL Surface object. The surface corresponding to the given uv-curve."
surface
)
:computed-slots
((
knot-vector
(
the
uv-curve
knot-vector
))
(
weights
(
the
uv-curve
weights
))
(
degree
(
the
uv-curve
degree
))
(
control-points
(
mapcar
#'
(
lambda
(
point
)
(
the
surface
(
point
(
get-x
point
)
(
get-y
point
))))
(
the
uv-curve
control-points
)))))
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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