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
8729d872
Commit
8729d872
authored
Jan 31, 2013
by
Dave Cooper
Browse files
Issue 69.
parent
b297a7fe
Changes
4
Hide whitespace changes
Inline
Side-by-side
gdl/base/rest/source/utilities.lisp
View file @
8729d872
...
...
@@ -778,7 +778,7 @@ toplevel inputs as specified in the snapshot file.
(
defun
add-notify-cons
(
notify-cons
value
&optional
self
message
)
(
when
nil
;;
(and self message)
(
when
(
and
self
message
)
(
let
((
aggregate
(
gdl-acc::%aggregate%
(
first
notify-cons
))))
(
when
(
and
(
consp
aggregate
)
(
not
(
consp
(
gdl-acc::%aggregate%
self
))))
...
...
regression/issues/source/issue-65.lisp
0 → 100644
View file @
8729d872
(
in-package
:gdl-user
)
(
define-object
manifold-sample
(
base-object
)
:objects
((
box
:type
'box-solid
:width
2
:length
2
:height
2
)
(
merged
:type
'merged-solid
:other-brep
(
the
box
:face-breps
:list-elements
))
(
merged2
:type
'merged-solid
:other-brep
(
the
box
:face-breps
:list-elements
)
:make-manifold?
t
)))
\ No newline at end of file
regression/issues/source/issue-67.lisp
0 → 100644
View file @
8729d872
(
in-package
:gdl-user
)
(
define-object
issue-67
(
base-object
)
:objects
((
box
:type
'box-solid
:width
2
:length
2
:height
2
)
(
clean-surfaces
:type
'surface
:sequence
(
:size
6
)
:built-from
(
the
box
(
faces
(
the-child
index
))
basis-surface
))
(
stitched
:type
'stitched-solid
:faces-in
(
list-elements
(
the
clean-surfaces
)))
(
stitched-alternative
:type
'stitched-solid
:faces-in
(
list-elements
(
the
box
:faces
)
(
the-element
basis-surface
)))
(
stitched-manifold
:type
'manifold-solid
:brep
(
the
stitched
))))
regression/issues/source/issue-68.lisp
0 → 100644
View file @
8729d872
(
in-package
:gdl-user
)
;;
;; Submitted by Hermen de Jong of KE-works
;;
(
define-object
huge-boxes-sequence
(
base-object
)
:input-slots
((
number-of-boxes
100
:settable
))
:computed-slots
((
wall-width
(
floor
(
sqrt
(
the
number-of-boxes
)))))
:objects
((
boxes
:type
'box
:sequence
(
:size
(
the
number-of-boxes
))
:height
10
:width
20
:length
30
:display-controls
(
list
:color
:red
:transparency
.5
)
:center
(
translate
(
make-point
0
0
0
)
:right
(
*
(
rem
(
the-child
index
)
(
the
wall-width
))
(
the-child
width
))
:top
(
*
(
floor
(
the-child
index
)
(
the
wall-width
))
(
the-child
height
))))))
\ No newline at end of file
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