Commit 28bf5c5d authored by Dave Cooper's avatar Dave Cooper
Browse files

hope this push works

parent 98bbccf1
Pipeline #7596 passed with stages
in 5 minutes and 39 seconds
......@@ -95,6 +95,13 @@ n:arguments (point \"2D point\")"
(defun %get-w% (point)
(coerce (svref point 3) 'single-float))
(defsetf get-u (vector)(value) `(setf (svref ,vector 0) (coerce ,value 'double-float)))
(defsetf get-v (vector)(value) `(setf (svref ,vector 1) (coerce ,value 'double-float)))
(defsetf get-w (vector)(value) `(setf (svref ,vector 3) (coerce ,value 'double-float)))
(defsetf get-x (vector)(value) `(setf (svref ,vector 0) (coerce ,value 'double-float)))
(defsetf get-y (vector)(value) `(setf (svref ,vector 1) (coerce ,value 'double-float)))
(defsetf get-z (vector)(value) `(setf (svref ,vector 2) (coerce ,value 'double-float)))
(defun subtract-vectors (v1 v2)
"Vector. Return a new vector, the result of affine vector subtraction.
......
......@@ -50,7 +50,7 @@
:height (the box-height)
:sequence (:matrix :longitudinal (the rows)
:lateral (the columns)))))
(in-package :gdl-user)
(define-object box-container-sample (box-container)
:input-slots ((box-length 10 :settable)
......
Supports Markdown
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