Commit 755d4a7a authored by Dave Cooper's avatar Dave Cooper
Browse files

added assembly output for surfaces.

parent a389529c
......@@ -74,6 +74,18 @@
(warn "No NURBS representation for ~s, apparently of type ~s" self (the type)))))
(define-lens (nurbs surface) ()
:output-functions
((cad-output-assembly (assembly-instance)
(let ((color (lookup-color (getf (the display-controls) :color))))
(tx-assembly-add-brep *geometry-kernel*
assembly-instance
(the brep %native-brep%)
:name (the strings-for-display)
:red (get-x color)
:green (get-y color)
:blue (get-z color))))))
(define-lens (nurbs brep) ()
:output-functions
((cad-output-assembly (assembly-instance)
......
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
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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment