From 598580b9d50534cb09752fc10913a13d4d1d52bb Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 31 Dec 2014 18:02:39 +0000
Subject: [PATCH] knifeblock: CoverParts

---
 knifeblock.scad | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/knifeblock.scad b/knifeblock.scad
index 7e03782..d083156 100644
--- a/knifeblock.scad
+++ b/knifeblock.scad
@@ -49,7 +49,7 @@ pegsloph = 0.5;
 pegslopv = 0.5;
 pegslopl = 0.5;
 
-pegdepthproportion = 0.67;
+pegdepthproportion = 0.80;
 
 // computed
 side = minsidein + screwcsinkdia + minsideout;
@@ -219,10 +219,24 @@ 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(); }
+}
+
+module CoverParts(){ ////toplevel
+  Cover();
+  translate([0, coverlonglen, pegheight/2]) {
+    Peg();
+    translate([-peghead-3, 0,0]) Peg();
+  }
 }
 
 Demo();
-- 
2.30.2