From 99b0e7655c6b49abb1c614e8b11045f38377d64d Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 14 Apr 2020 01:21:10 +0100
Subject: [PATCH] camera-mount: refactor l (nfc)

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 camera-mount.scad       | 8 ++++----
 mic-camera-adapter.scad | 4 +++-
 2 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/camera-mount.scad b/camera-mount.scad
index 10d2adc..38c1016 100644
--- a/camera-mount.scad
+++ b/camera-mount.scad
@@ -5,19 +5,19 @@ include <threads.scad>
 inch = 25.4;
 
 negative_dia = inch * 1/4. + 0.375;
-negative_l =   10.0;
+negative_default_l =   10.0;
 
 negative_tpi = 20;
 negative_pitch = inch/negative_tpi;
 negative_chamfer = negative_pitch/2;
 
-module CameraMountThread(){
+module CameraMountThread(l){
   translate([0,0, midsection]) {
     english_thread(diameter=negative_dia/inch,
 		   threads_per_inch=negative_tpi,
 		   leadin=0, internal=true, test=$test,
-		   length= (negative_l + inch/19) / inch);
-    translate([0,0, negative_l]) {
+		   length= (l + inch/19) / inch);
+    translate([0,0, l]) {
       hull(){
 	translate([0,0, negative_chamfer])
 	  cylinder(r= negative_dia/2 + negative_chamfer*2,
diff --git a/mic-camera-adapter.scad b/mic-camera-adapter.scad
index 416b591..439f460 100644
--- a/mic-camera-adapter.scad
+++ b/mic-camera-adapter.scad
@@ -9,6 +9,8 @@ include <camera-mount.scad>
 positive_dia = inch * 3/8. - 0.375;
 positive_l = inch * 1/2.;
 
+negative_l = negative_default_l;
+
 negative_wall = 4;
 midsection = 4;
 
@@ -43,7 +45,7 @@ module Adapter(){
 	  }
 	}
       }
-      CameraMountThread();
+      CameraMountThread(negative_l);
     }
   }
 }
-- 
2.30.2