knifeblock: Un-round the corners

[reprap-play.git] / knifeblock.scad

diff --git a/knifeblock.scad b/knifeblock.scad
index 64b8468fdbdf132438e4a639683d9466d364dd50..08a0d1a4c43dd34b40b3daa5abcf9a3d8d2d74dd 100644 (file)
--- a/knifeblock.scad
+++ b/knifeblock.scad
@@ -36,6 +36,13 @@ covertopwing = 15;
 covertopwingbase = 20;
 coveredge = 3;
 
+holesize = 12.5;
+holestrut = 7;
+holeedge = 4;
+
+holeoffx = 0.45;
+holeoffy = 0.25;
+
 pegstem = 3.5;
 peghead = 10;
 pegstemheight = 2;
@@ -43,13 +50,13 @@ pegheight = 9;
 peglen = 12;
 
 recessblockwidth = peghead + pegstem*3;
-recessblockheight = peglen + pegstem*1.5;
+recessblockheight = peglen/2 + pegstem*1.5;
 
 pegsloph = 0.5;
 pegslopv = 0.5;
 pegslopl = 0.5;
 
-pegdepthproportion = 0.67;
+pegdepthproportion = 0.80;
 
 // computed
 side = minsidein + screwcsinkdia + minsideout;
@@ -61,6 +68,8 @@ maxkx = locations[nknives-1] + widths[nknives-1]/2;
 minx = minkx - side;
 maxx = maxkx + side;
 
+holepitch = holesize+holestrut;
+
 pegrecess = pegdepthproportion*totaldepth - 0.5*peglen;
 
 module ImportTemplate(w,k,t) {
@@ -102,16 +111,37 @@ module ScrewHole(){
     cylinder(r=screwcsinkdia/2 / (sqrt(3)/2), h=100, $fn=6);
 }
 
+module PegTemplate(){
+  for (mx=[0,1]) for (my=[0,1]) {
+      mirror([mx,0,0]) mirror([0,my,0])
+       polygon([[-0.1,      -0.1],
+                [pegstem/2, -0.1],
+                [pegstem/2, pegstemheight/2],
+                [peghead/2, pegheight    /2],
+                [-0.1,      pegheight    /2]]);
+    }
+}
+
+module AtSides(){
+  translate([minx,0,0])                 child(0);
+  translate([maxx,0,0]) mirror([1,0,0]) child(1);
+}
+
+module BlockPegSlot(){
+  translate([recessblockwidth/2, pegrecess - 0.5*peglen, -height]){
+    rotate([-90,0,0]) linear_extrude(height=totaldepth){
+      PegTemplate();
+    }
+  }
+}
+
 module Block(){
   sidemidx = minsideout + screwcsinkdia/2;
 
   difference(){
-    hull() mirror([0,0,1]) {
-      translate([minx, 0, 0])
-       cube([maxx-minx, totaldepth-front, height]);
-      for (x=[minx + front/2, maxx - front/2])
-       translate([x, -front/2, 0])
-       cylinder(r=front/2, h=height, $fn=30);
+    mirror([0,0,1]) {
+      translate([minx, -front, 0])
+       cube([maxx-minx, totaldepth, height]);
     }
     for (x=[minx + sidemidx, maxx - sidemidx]) {
       translate([x, 0, -screwabove])
@@ -120,6 +150,7 @@ module Block(){
     for (yshift=[-1,1])
       translate([0, yshift * frontbackslop, 0])
        DoKnives();
+    AtSides() { BlockPegSlot(); BlockPegSlot(); }
   }
 }
 
@@ -153,17 +184,6 @@ module CoverSide(len){
   }
 }
 
-module PegTemplate(){
-  for (mx=[0,1]) for (my=[0,1]) {
-      mirror([mx,0,0]) mirror([0,my,0])
-       polygon([[-0.1,      -0.1],
-                [pegstem/2, -0.1],
-                [pegstem/2, pegstemheight/2],
-                [peghead/2, pegheight    /2],
-                [-0.1,      pegheight    /2]]);
-    }
-}
-
 module Peg(){
   echo("peg angle slope (must be <1)",
        (peghead-pegstem)/(pegheight-pegstemheight));
@@ -189,15 +209,49 @@ module CoverPegSlot(coverlen){
   }
 }
 
-module AtSides(){
-  translate([minx,0,0])                 child(0);
-  translate([maxx,0,0]) mirror([1,0,0]) child(1);
+module HoleRow(){
+  for (i=[0:10]) {
+    translate([0, (i+0.5)*holepitch, -1])
+      cylinder(r=holesize/2, h=coverthick+2, $fn=20);
+  }
+}
+
+module HolesScope(){
+  intersection_for (dx=[-1,+1]) {
+    intersection_for (dy=[-1,+1]) {
+      translate([dx * holeedge, dy * holeedge, -1])
+       scale([1,1,2])
+       CoverTemplate();
+    }
+  }
+}
+
+module Holes(){
+  intersection(){
+    translate([holeoffx * holepitch, holeoffy * holepitch, 0]) {
+      for (i=[-10:10]) {
+       translate([i * sqrt(3) * holepitch, 0, 0]) {
+         HoleRow();
+         translate([sqrt(3)/2 * holepitch, -0.5 * holepitch, 0])
+           HoleRow();
+       }
+      }
+    }
+    HolesScope();
+  }
+}
+
+module CoverCover(){
+  difference(){
+    CoverTemplate();
+    Holes();
+  }
 }
 
 module Cover(){
   difference(){
     union(){
-      CoverTemplate();
+      CoverCover();
       AtSides() { CoverSide(covershortlen); CoverSide(coverlonglen); }
     }
     AtSides() { CoverPegSlot(); CoverPegSlot(); }
@@ -210,11 +264,29 @@ module CoverAligned(){
     Cover();
 }
 
+module DemoPeg(){
+  translate([recessblockwidth/2, pegrecess, -height])
+    Peg();
+}
+
 module Demo(){ ////toplevel
   %Block();
   DoKnives();
   color([0,0,1]) CoverAligned();
+  color([1,0,0]) AtSides() { DemoPeg(); DemoPeg(); }
 }
 
-Demo();
+module CoverParts(){ ////toplevel
+  Cover();
+  translate([0, coverlonglen, pegheight/2]) {
+    Peg();
+    translate([-peghead-3, 0,0]) Peg();
+  }
+}
+
+//Block();
+//Demo();
+//Cover();
+//CoverParts();
+//Peg();
 //Cover();