From 16e507d2676b462565fe9261a256e67d4dec7e8e Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 12 Aug 2023 14:12:18 +0100
Subject: [PATCH] rope-adjuster: wip, teeth

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 rope-adjuster.scad | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/rope-adjuster.scad b/rope-adjuster.scad
index 16267ce..edfe9ca 100644
--- a/rope-adjuster.scad
+++ b/rope-adjuster.scad
@@ -7,6 +7,13 @@ around_hole = 5;
 thick = 4;
 lever_len = 65;
 
+teeth_n = 4;
+teeth_bite = 4;
+teeth_pitch = 4;
+teeth_gap = 2;
+teeth_back = 2;
+teeth_height = 12;
+
 module Circles(r) {
   for (x = [-1,+1] * 0.5 * lever_len) {
     translate([x, 0])
@@ -23,9 +30,24 @@ module Plan() {
   }
 }
 
+module TeethPlan(){
+  for (m=[0,1]) {
+    mirror([m,0]) {
+      for (i= [ 0: teeth_n-1 ]) {
+	translate([teeth_gap/2, teeth_pitch*i])
+	  polygon([[ 0,0 ],
+		   [ teeth_bite, 0 ],
+		   [ teeth_bite, teeth_pitch ]]);
+      }
+    }
+  }
+}
+
 module Adjuster(){
   linextr(0,thick)
     Plan();
+  linextr(thick - 0.1, thick + teeth_height)
+    TeethPlan();
 }
 
 Adjuster();
-- 
2.30.2