knifeblock: move PegTemplate and AtSides up (nfc)

[reprap-play.git] / knifeblock.scad

diff --git a/knifeblock.scad b/knifeblock.scad
index 6d7e96a5a1a355607cccd6cfeda4465013407317..e708c647e95372e3bafa67aa3fb2542e6192005c 100644 (file)
--- a/knifeblock.scad
+++ b/knifeblock.scad
@@ -42,7 +42,14 @@ pegstemheight = 2;
 pegheight = 9;
 peglen = 12;
 
-pegslop = 0.5;
+recessblockwidth = peghead + pegstem*3;
+recessblockheight = peglen + pegstem*1.5;
+
+pegsloph = 0.5;
+pegslopv = 0.5;
+pegslopl = 0.5;
+
+pegdepthproportion = 0.67;
 
 // computed
 side = minsidein + screwcsinkdia + minsideout;
@@ -54,6 +61,8 @@ maxkx = locations[nknives-1] + widths[nknives-1]/2;
 minx = minkx - side;
 maxx = maxkx + side;
 
+pegrecess = pegdepthproportion*totaldepth - 0.5*peglen;
+
 module ImportTemplate(w,k,t) {
   fn = str("knifeblock-knives-t",k,t,".dxf");
   echo(fn);
@@ -93,6 +102,22 @@ 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 Block(){
   sidemidx = minsideout + screwcsinkdia/2;
 
@@ -128,8 +153,8 @@ module CoverTemplate(){
             [minx, covershortlen]]);
 }
 
-module CoverSide(xpos, len){
-  translate([xpos, 0 ,0]) {
+module CoverSide(len){
+  translate([0, 0 ,0]) {
     rotate([90,0,90])
       linear_extrude(height=coverside)
       polygon([[0,                      0],
@@ -140,40 +165,43 @@ module CoverSide(xpos, len){
               [len - covertopwing,     totaldepth],
               [len,                    totaldepth],
               [len,                    0]]);
+    cube([recessblockwidth, recessblockheight, totaldepth]);
   }
 }
 
-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));
-  d = pegslop;
+  dx = pegsloph;
+  dy = pegslopv;
   rotate([90,0,0]) {
-    linear_extrude(height=peglen) {
+    linear_extrude(height=peglen-pegslopl) {
       intersection(){
-       translate([-d,-d,0]) PegTemplate();
-       translate([-d,+d,0]) PegTemplate();
-       translate([+d,+d,0]) PegTemplate();
-       translate([+d,-d,0]) PegTemplate();
+       translate([-dx,-dy,0]) PegTemplate();
+       translate([-dx,+dy,0]) PegTemplate();
+       translate([+dx,+dy,0]) PegTemplate();
+       translate([+dx,-dy,0]) PegTemplate();
       }
     }
   }
 }
 
+module CoverPegSlot(coverlen){
+  translate([recessblockwidth/2, 0, -1]){
+    linear_extrude(height= 1 + pegrecess + 0.5*peglen){
+      PegTemplate();
+    }
+  }
+}
+
 module Cover(){
-  CoverTemplate();
-  CoverSide(minx,           covershortlen);
-  mirror([1,0,0]) CoverSide(-maxx, coverlonglen);
+  difference(){
+    union(){
+      CoverTemplate();
+      AtSides() { CoverSide(covershortlen); CoverSide(coverlonglen); }
+    }
+    AtSides() { CoverPegSlot(); CoverPegSlot(); }
+  }
 }
 
 module CoverAligned(){
@@ -190,3 +218,4 @@ module Demo(){ ////toplevel
 
 Demo();
 //Cover();
+//Peg();