From d481811cad040ab887ffb9dca6b41616e842e0ca Mon Sep 17 00:00:00 2001
From: Michael Krelin <hacker@klever.net>
Date: Mon, 06 Feb 2017 21:19:20 +0000
Subject: bore shape as it is

---
diff --git a/another.scad b/another.scad
index f78d1b0..d4a3f90 100644
--- a/another.scad
+++ b/another.scad
@@ -19,6 +19,7 @@ module the_extruder(
  mounthole_depth = 5,
  protrusion_d = 22, protrusion_h = 2.2,		// the dimensions of the protrusion on top of gearbox
  bore_d = 8, bore_l = 17.6,
+ bore_dd = 7,
  // pulley properties
  pulley_d = 11.5, pulley_h=10,
  pulley_elevation = 1,				// pulley elevation above the protrusion
@@ -78,14 +79,17 @@ module the_extruder(
   }
  }
 
- // vitamins
  % if(vitamins) mirrorleft() {
   translate([0,0,-epsilon]) mirror([0,0,1]) cylinder(d=gearbox_d,h=1,$fn=60);
   for(zr=[0:90:359]) rotate([0,0,zr]) translate([mount_d/2,0,0])
    cylinder(d=mount_screw_d,h=20,$fn=30);
   translate([0,0,-epsilon]) cylinder(d=protrusion_d,h=protrusion_h,$fn=30);
   translate([0,0,protrusion_h]) {
-   cylinder(d=bore_d,h=bore_l,$fn=30);
+   difference() {
+    cylinder(d=bore_d,h=bore_l,$fn=30);
+    translate([-bore_d/2-1,bore_dd-bore_d/2,-1])
+    cube([bore_d+2,bore_d/2,bore_l+2]);
+   }
    translate([0,0,pulley_elevation]) {
     cylinder(d=pulley_d,h=pulley_h,$fn=30);
     translate([0,0,teeth_elevation]) {
@@ -103,7 +107,7 @@ module the_extruder(
     }//translate teeth
    }//translate pulley
   }//translate protrusion
- }// vitamins to let
+ }//vitamins
 
  module lever() {
   translate([0,0,protrusion_h+pulley_elevation+teeth_elevation]) {
--
cgit v0.9.0.2