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

added assembly output for surfaces.

parent a389529c
...@@ -74,6 +74,18 @@ ...@@ -74,6 +74,18 @@
(warn "No NURBS representation for ~s, apparently of type ~s" self (the type))))) (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) () (define-lens (nurbs brep) ()
:output-functions :output-functions
((cad-output-assembly (assembly-instance) ((cad-output-assembly (assembly-instance)
......
gendl.asd gendl.asd
gwl/gwl.asd gwl\gwl.asd
base/base.asd base\base.asd
surf/surf.asd surf\surf.asd
glisp/glisp.asd glisp\glisp.asd
apps/ta2/ta2.asd apps\ta2\ta2.asd
demos/bus/bus.asd demos\bus\bus.asd
apps/tree/tree.asd apps\tree\tree.asd
apps/yadd/yadd.asd apps\yadd\yadd.asd
cl-lite/cl-lite.asd cl-lite\cl-lite.asd
apps/tasty/tasty.asd apps\tasty\tasty.asd
demos/robot/robot.asd demos\robot\robot.asd
demos/ledger/ledger.asd demos\ledger\ledger.asd
geom-base/geom-base.asd geom-base\geom-base.asd
regression/regression.asd regression\regression.asd
gwl-graphics/gwl-graphics.asd gwl-graphics\gwl-graphics.asd
demos/wire-world/wire-world.asd demos\wire-world\wire-world.asd
apps/translators/translators.asd apps\translators\translators.asd
documentation/training/training.asd documentation\training\training.asd
documentation/training/g102-tud/examples/examples.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