From b92eafd9ea5e444d6e7bf445c2bff4798b3952ca Mon Sep 17 00:00:00 2001
From: Justin Lin <caterpillar@openhome.cc>
Date: Sun, 1 Mar 2020 18:28:08 +0800
Subject: [PATCH] extract gcd lcm

---
 src/experimental/gcd.scad  | 1 +
 src/experimental/lcm.scad  | 3 +++
 src/experimental/loft.scad | 5 +----
 3 files changed, 5 insertions(+), 4 deletions(-)
 create mode 100644 src/experimental/gcd.scad
 create mode 100644 src/experimental/lcm.scad

diff --git a/src/experimental/gcd.scad b/src/experimental/gcd.scad
new file mode 100644
index 00000000..f7d4e35a
--- /dev/null
+++ b/src/experimental/gcd.scad
@@ -0,0 +1 @@
+function gcd(m, n) = n == 0 ? m : gcd(n, m % n);
\ No newline at end of file
diff --git a/src/experimental/lcm.scad b/src/experimental/lcm.scad
new file mode 100644
index 00000000..2f45bd63
--- /dev/null
+++ b/src/experimental/lcm.scad
@@ -0,0 +1,3 @@
+use <experimental/gcd.scad>;
+
+function lcm(m, n) = m * n / gcd(m, n);
\ No newline at end of file
diff --git a/src/experimental/loft.scad b/src/experimental/loft.scad
index 647c32ab..53a823b6 100644
--- a/src/experimental/loft.scad
+++ b/src/experimental/loft.scad
@@ -1,10 +1,7 @@
+use <experimental/lcm.scad>;
 use <experimental/sweep.scad>;
    
 module loft(sections, slices = 1) {
-    function gcd(m, n) = n == 0 ? m : gcd(n, m % n);
-
-    function lcm(m, n) = m * n / gcd(m, n);
-
     function inter_pts(p1, p2, n) =
         let(
             v = p2 - p1,