distort-stl: Actually implement set-fa

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/distort-stl b/distort-stl
index 1c6066352fc048459ebc1e373dbbc4d855bc209c..0eb71fd6179121f346c1d60e4c52e89ba82d1528 100755 (executable)
--- a/distort-stl
+++ b/distort-stl
@@ -72,6 +72,12 @@ sub append_triangle ($) {
     push @$output, $t;
 }
 
+#---------- set-fa ----------
+
+sub op__set_fa () {
+    $fa = shift_arg;
+}
+
 #---------- project-cylinder ----------
 
 our $project_cylinder_radius;