Commit d35a0074 authored by Dave Cooper's avatar Dave Cooper

updated emacs .el

parent cc725e55
...@@ -191,7 +191,10 @@ ...@@ -191,7 +191,10 @@
(defun load-and-or-start-gendl () (defun load-and-or-start-gendl ()
(slime-repl) (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) (slime-repl-return)
(insert (format "(when (find-package :gendl) (load (compile-file \"%semacs/glime.lisp\")))" *gendl-home*)) (insert (format "(when (find-package :gendl) (load (compile-file \"%semacs/glime.lisp\")))" *gendl-home*))
(slime-repl-return) (slime-repl-return)
......
;;
;; 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)))))
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