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
7e99578f
Commit
7e99578f
authored
Apr 28, 2013
by
Dave Cooper
Browse files
Merge branch 'devo'
parents
64dc3961
68ff860c
Changes
1
Hide whitespace changes
Inline
Side-by-side
regression/geom-base/source/drawing.lisp
0 → 100644
View file @
7e99578f
(
in-package
:gdl-user
)
(
define-object
box-with-annotated-drawing
(
base-object
)
:objects
((
drawing
:type
'box-annotated-drawing
:objects
(
list
(
the
box
)))
(
box
:type
'box
:length
10
:width
20
:height
30
)))
(
define-object
box-annotated-drawing
(
base-drawing
)
:input-slots
(
objects
(
character-size
15
)
(
witness-line-gap
10
)
(
witness-line-length
15
)
(
witness-line-ext
5
))
:objects
((
tri-view
:type
'base-view
:projection-vector
(
getf
*standard-views*
:trimetric
)
:length
(
half
(
the
length
))
:width
(
half
(
the
width
))
:center
(
translate
(
the
center
)
:rear
(
half
(
the-child
length
))
:left
(
half
(
the-child
width
)))
:objects
(
the
objects
)
:annotation-objects
(
list
(
the
main-length-dim
)))
(
top-view
:type
'base-view
:view-scale
(
*
(
getf
(
the-child
view-contents-data
)
:view-scale
)
0.8
)
:projection-vector
(
getf
*standard-views*
:top
)
:length
(
half
(
the
length
))
:width
(
half
(
the
width
))
:center
(
translate
(
the
center
)
:rear
(
half
(
the-child
length
))
:right
(
half
(
the-child
width
)))
:objects
(
the
objects
)
:annotation-objects
(
list
(
the
top-width-dim
)
(
the
top-length-dim
)))
(
main-length-dim
:type
'vertical-dimension
:pass-down
(
character-size
witness-line-gap
witness-line-length
witness-line-ext
)
:start-point
(
the
tri-view
(
view-point
(
the
box
(
vertex
:rear
:top
:right
))))
:end-point
(
the
tri-view
(
view-point
(
the
box
(
vertex
:rear
:bottom
:right
))))
:dim-value
(
3d-distance
(
the
box
(
vertex
:rear
:top
:right
))
(
the
box
(
vertex
:rear
:bottom
:right
)))
:text-above-leader?
nil
)
(
front-view
:type
'base-view
:view-scale
(
*
(
getf
(
the-child
view-contents-data
)
:view-scale
)
0.8
)
:projection-vector
(
getf
*standard-views*
:front
)
:length
(
half
(
the
length
))
:center
(
translate
(
the
center
)
:front
(
half
(
the-child
length
)))
:objects
(
the
objects
)
:annotation-objects
(
list
(
the
bottom-length-dim
)))
(
top-width-dim
:type
'horizontal-dimension
:pass-down
(
character-size
witness-line-gap
witness-line-length
witness-line-ext
)
:start-point
(
the
top-view
(
view-point
(
the
box
(
vertex
:top
:front
:left
))))
:end-point
(
the
top-view
(
view-point
(
the
box
(
vertex
:top
:front
:right
))))
:text-above-leader?
nil
:flip-leaders?
t
:dim-scale
(
/
(
the
top-view
view-scale
)))
(
top-length-dim
:type
'vertical-dimension
:pass-down
(
character-size
witness-line-gap
witness-line-length
witness-line-ext
)
:start-point
(
the
top-view
(
view-point
(
the
box
(
vertex
:top
:rear
:right
))))
:end-point
(
the
top-view
(
view-point
(
the
box
(
vertex
:top
:front
:right
))))
:flip-leaders?
nil
:dim-scale
(
/
(
the
top-view
view-scale
)))
(
bottom-length-dim
:type
'horizontal-dimension
:pass-down
(
character-size
witness-line-gap
witness-line-length
witness-line-ext
)
:start-point
(
the
front-view
(
view-point
(
the
box
(
vertex
:front
:bottom
:left
))))
:end-point
(
the
front-view
(
view-point
(
the
box
(
edge-center
:front
:right
))))
:text-above-leader?
nil
:dim-value
(
the
box
width
)
:dim-text-bias
:start
:flip-leaders?
t
:outside-leaders?
t
)
#+
nil
(
bottom-length-dim
:type
'horizontal-dimensions
:pass-down
(
character-size
witness-line-gap
witness-line-length
witness-line-ext
)
:start-point
(
the
front-view
(
view-point
(
the
box
(
vertex
:front
:bottom
:left
))))
:dim-scale
(
/
(
the
front-view
view-scale
))
:text-above-leader?
nil
:flip-leaders?
t
:end-point
(
the
front-view
(
view-point
(
the
box
(
vertex
:front
:bottom
:right
)))))
))
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