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
28bf5c5d
Commit
28bf5c5d
authored
Dec 13, 2022
by
Dave Cooper
Browse files
hope this push works
parent
98bbccf1
Pipeline
#7596
passed with stages
in 5 minutes and 39 seconds
Changes
2
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
geom-base/prereqs/source/utilities.lisp
View file @
28bf5c5d
...
...
@@ -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.
...
...
regression/geom-base/source/box-matrix.lisp
View file @
28bf5c5d
...
...
@@ -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
)
...
...
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