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
f96b726a
Commit
f96b726a
authored
May 17, 2013
by
Dave Cooper
Browse files
updateing for travel
parent
fa96d7e5
Changes
1
Show whitespace changes
Inline
Side-by-side
documentation/training/g102/examples/source/drawing.lisp
View file @
f96b726a
(
in-package
:gdl-user
)
(
define-object
robot-drawing
(
base-drawing
)
:hidden-objects
((
robot-assembly
:type
'robot:assembly
))
:objects
((
tri-view
:type
'base-view
:border-box?
t
:object-roots
(
list
(
the
robot-assembly
robot
))
:length
(
half
(
the
length
))
:center
(
translate
(
the
center
)
:rear
(
half
(
the-child
length
)))
:projection-vector
(
getf
*standard-views*
:trimetric
)
:object-roots
(
list
(
the
robot
)))
:projection-vector
(
getf
*standard-views*
:trimetric
))
(
front-view
:type
'base-view
(
top-view
:type
'base-view
:border-box?
t
:object-roots
(
list
(
the
robot-assembly
robot
))
:annotation-objects
(
list
(
the
top-width-dim
)
(
the
top-length-dim
))
:view-scale
(
*
0.80
(
getf
(
the-child
view-contents-data
)
:view-scale
))
:length
(
half
(
the
length
))
:width
(
half
(
the
width
))
:center
(
translate
(
the
center
)
:front
(
half
(
the-child
length
))
:left
(
half
(
the-child
width
)))
:projection-vector
(
getf
*standard-views*
:front
)
:object-roots
(
list
(
the
robot
)))
:projection-vector
(
getf
*standard-views*
:top
))
(
width-dim
:type
'horizontal-dimension
:character-size
1
5
(
top-
width-dim
:type
'horizontal-dimension
:character-size
1
0
:dim-scale
(
/
(
the
top-view
view-scale
))
:witness-line-length
108
:start-point
(
the
top-view
(
view-point
(
the
robot
robot
body
(
arms
0
)
(
vertex
:top
:rear
:left
))))
:end-point
(
the
top-view
(
view-point
(
the
robot
robot
body
(
arms
1
)
(
vertex
:top
:rear
:right
)))))
:witness-line-length
20
:witness-line-gap
70
:witness-line-ext
5
:start-point
(
the
top-view
(
view-point
(
the
robot-assembly
robot
body
(
arms
0
)
(
vertex
:rear
:left
:top
))))
:end-point
(
the
top-view
(
view-point
(
the
robot-assembly
robot
body
(
arms
1
)
(
vertex
:rear
:right
:top
)))))
(
top-length-dim
:type
'vertical-dimension
:dim-scale
(
/
(
the
top-view
view-scale
))
:character-size
10
:witness-line-length
15
:witness-line-gap
25
:witness-line-ext
3
:flip-leaders?
t
:start-point
(
the
top-view
(
view-point
(
the
robot-assembly
robot
body
base
foot
(
vertex
:rear
:left
:top
))))
:end-point
(
the
top-view
(
view-point
(
the
robot-assembly
robot
body
base
foot
(
vertex
:front
:left
:top
)))))
(
top-view
:type
'base-view
(
front-view
:type
'base-view
:border-box?
t
:object-roots
(
list
(
the
robot-assembly
robot
))
:length
(
half
(
the
length
))
:width
(
half
(
the
width
))
:center
(
translate
(
the
center
)
:front
(
half
(
the-child
length
))
:right
(
half
(
the-child
width
)))
:projection-vector
(
getf
*standard-views*
:top
)
:annotation-objects
(
list
(
the
width-dim
))
:object-roots
(
list
(
the
robot
)))
:projection-vector
(
getf
*standard-views*
:front
))
))
(
robot
:type
'robot:assembly
)))
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