From 177b7e4fac93c0db24cc6e177d9f3b9b36dd916c Mon Sep 17 00:00:00 2001
From: Kei Okada <k-okada@jsk.t.u-tokyo.ac.jp>
Date: Mon, 24 Jul 2017 21:45:17 +0900
Subject: [PATCH] run triangulation

https://github.com/jsk-ros-pkg/jsk_model_tools/pull/208#issuecomment-316548668
---
 irteus/irtstl.l | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/irteus/irtstl.l b/irteus/irtstl.l
index edec87592..55dc11a13 100644
--- a/irteus/irtstl.l
+++ b/irteus/irtstl.l
@@ -213,7 +213,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))))