run triangulation

jsk-ros-pkg/jsk_model_tools#208 (comment)
euslisp · Jul 24, 2017 · b782d46 · b782d46
1 parent d1b6d84
commit b782d46
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/irteus/irtstl.l b/irteus/irtstl.l
@@ -214,7 +214,7 @@
 (defun eus2stl (fname _faceset &key (scale 0.001))
   (send _faceset :worldpos)
   (with-open-file (f fname :direction :output)
-    (let ((faces (send _faceset :faces)))
+    (let ((faces (send (body-to-faces _faceset) :faces)))
       (write-stl-header f (length faces))
       (dolist (_face faces)
         (write-stl-face f _face :scale scale))))