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
c7379bf9
Commit
c7379bf9
authored
May 22, 2013
by
Dave Cooper
Browse files
updated drawing examples
parent
7efae6ec
Changes
2
Hide whitespace changes
Inline
Side-by-side
documentation/training/g102/examples/source/drawing.lisp
View file @
c7379bf9
...
...
@@ -2,14 +2,31 @@
(
define-object
robot-drawing
(
base-drawing
)
:hidden-objects
((
robot-assembly
:type
'robot:assembly
))
:hidden-objects
((
robot-assembly
:type
'robot:assembly
)
(
text-block
:type
'robot-text-block
:robot-width
(
the
robot-assembly
height
)
:robot-length
(
the
robot-assembly
length
)
:arm-angle-left
(
the
robot-assembly
arm-angle-left
)
:head-angle
(
the
robot-assembly
head-angle
)
:body-angle
(
the
robot-assembly
body-angle
)))
:objects
((
tri-view
:type
'base-view
((
text-view
:type
'base-view
:border-box?
t
:objects
(
list
(
the
text-block
))
:length
(
half
(
the
length
))
:width
(
half
(
the
width
))
:center
(
translate
(
the
center
)
:rear
(
half
(
the-child
length
))
:right
(
half
(
the-child
width
))))
(
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
)))
:width
(
half
(
the
width
))
:center
(
translate
(
the
center
)
:rear
(
half
(
the-child
length
))
:left
(
half
(
the-child
width
)))
:projection-vector
(
getf
*standard-views*
:trimetric
))
(
top-view
:type
'base-view
...
...
@@ -60,7 +77,25 @@
))
(
define-object
robot-text-block
(
typeset-block
)
:input-slots
(
robot-width
robot-length
body-angle
arm-angle-left
head-angle
)
:functions
((
content
()
(
tt:compile-text
(
:font
"Helvetica"
:font-size
12.0
)
(
tt:paragraph
()
"Robot Data"
)
(
tt:table
(
:col-widths
'
(
220
200
))
(
dolist
(
slot
(
list
:robot-width
:robot-length
:body-angle
:arm-angle-left
:head-angle
))
(
tt:row
()
(
tt:cell
(
:background-color
"#00FF00"
)
(
tt:put-string
(
format
nil
"~a"
(
string-capitalize
slot
))))
(
tt:cell
()
(
tt:paragraph
(
:h-align
:center
)
(
tt:put-string
(
format
nil
"~a"
(
the
(
evaluate
slot
)))))))))))))
...
...
system-index.txt
View file @
c7379bf9
gendl.asd
gwl
\
gwl.asd
base
\
base.asd
surf
\
surf.asd
glisp
\
glisp.asd
apps
\
ta2
\
ta2.asd
demos
\
bus
\
bus.asd
apps
\
tree
\
tree.asd
apps
\
yadd
\
yadd.asd
cl-lite
\
cl-lite.asd
apps
\
tasty
\
tasty.asd
demos
\
robot
\
robot.asd
demos
\
ledger
\
ledger.asd
geom-base
\
geom-base.asd
regression
\
regression.asd
gwl-graphics
\
gwl-graphics.asd
demos
\
wire-world
\
wire-world.asd
apps
\
translators
\
translators.asd
documentation
\
training
\
training.asd
documentation
\
training
\
g102-tud
\
examples
\
examples.asd
gendl.asd
gwl
/
gwl.asd
base
/
base.asd
surf
/
surf.asd
glisp
/
glisp.asd
apps
/
ta2
/
ta2.asd
demos
/
bus
/
bus.asd
apps
/
tree
/
tree.asd
apps
/
yadd
/
yadd.asd
cl-lite
/
cl-lite.asd
apps
/
tasty
/
tasty.asd
demos
/
robot
/
robot.asd
demos
/
ledger
/
ledger.asd
geom-base
/
geom-base.asd
regression
/
regression.asd
gwl-graphics
/
gwl-graphics.asd
demos
/
wire-world
/
wire-world.asd
apps
/
translators
/
translators.asd
documentation
/
training
/
training.asd
documentation
/
training
/
g102-tud
/
examples
/
examples.asd
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