From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 22 Nov 2018 00:33:30 +0000 (+0000)
Subject: distort-stl: Actually implement set-fa
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=commitdiff_plain;h=b2eba6fd278dbb2753a00818fd412d393804783a

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 1c60663..0eb71fd 100755
--- 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;