X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=blobdiff_plain;f=distort-stl;h=0eb71fd6179121f346c1d60e4c52e89ba82d1528;hp=1c6066352fc048459ebc1e373dbbc4d855bc209c;hb=3c75c6575c9ec874afd93fe9d2e1c7f28390806f;hpb=d705d34b83e04ef3bf0a2d76649250d53accac22

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;