chiark / gitweb /
10254 remove # debugging
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Wed, 22 Aug 2012 22:56:38 +0000 (23:56 +0100)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Thu, 23 Aug 2012 01:01:00 +0000 (02:01 +0100)
th-10254/MendelSpindle.scad

index ce7a444a4a6bec2061814ea7bfde758e1b4514a4..3c23eea39e58cd13b21c4f27a649c1f7fb57c140 100644 (file)
 include <Libs.scad> //  Libs.scad is @ http://www.thingiverse.com/thing:6021\r
 include <FilamentSpool.scad> //  FilamentSpool.scad is @ http://www.thingiverse.com/thing:8317\r
 \r
-module MendelSpindle()\r
+module MendelSpindle(mainwidth=6,clipwidth=10,extenddist=40)\r
 {\r
        difference()\r
        {\r
                union()\r
                {\r
-                       translate([0,-2,0]) Spindle(10.5,11,8,0,0,0,5,0,[1.5,18,5]);\r
-                       translate([-65,0,0]) cube([70,10,10]);\r
-                       translate([-60,9,0]) rotate([0,0,150]) ClipBar();\r
+                       translate([0,-3,0]) cube([10,15,12]);\r
+                       intersection() {\r
+                               translate([0,-2,0])\r
+                                       Spindle(10.5,11,8,0,0,0,5,0,[1.5,18,5]);\r
+                               translate([5,-3,0])\r
+                                       cube([50,15,12]);\r
+                       }\r
+                       translate([-extenddist-5,0,0])\r
+                               cube([extenddist+10,9,mainwidth]);\r
+                       translate([-extenddist,9,0]) rotate([0,0,150])\r
+                               ClipBar(mainwidth=mainwidth,\r
+                                       clipwidth=clipwidth);\r
+               }\r
+               translate([9,3.8,-4]) minkowski(){\r
+                       cylinder(r=1.5,h=40);\r
+                       cube([20,1,0.1]);\r
                }\r
-\r
        }\r
 }\r
 \r
-module ClipBar()\r
+module clipbarcylinders(r,h) {\r
+               rotate([0,0,-13])\r
+               {\r
+                       translate([7,11.1,-1]) cylinder(r=r,h=h);\r
+                       translate([7+37.5,11.1,-1]) cylinder(r=r,h=h);\r
+               }\r
+}\r
+\r
+module ClipBar(mainwidth,clipwidth)\r
 {\r
        difference()\r
        {\r
-               cube([57,10,10]);\r
-               rotate([0,0,-13])\r
-               {\r
-                       translate([7,11.1,-1]) cylinder(r=4,h=12);\r
-                       translate([7+37.5,11.1,-1]) cylinder(r=4,h=12);\r
+               union() {\r
+                       cube([57,10,mainwidth]);\r
+                       intersection() {\r
+                               clipbarcylinders(r=6,h=clipwidth);\r
+                               cube([57,10,clipwidth]);\r
+                       }\r
+                       minkowski() {\r
+                               rotate([0,0,3.5]) translate([-7,1,0])\r
+                                       cube([27,0.1,mainwidth-1]);\r
+                               cylinder(r=4,h=1);\r
+                       }\r
                }\r
+               translate([0,0,-1]) clipbarcylinders(r=3.5,h=clipwidth+2);\r
        }\r
 }\r
 \r