shelf-label-holder: working on Elevation

[reprap-play.git] / shelf-label-holder.scad

diff --git a/shelf-label-holder.scad b/shelf-label-holder.scad
index 42da91f4728c37aba571c053742cd57e3f7a2348..0cea5a9cc32de6c7d043ffb4f1931a7ada4b6979 100644 (file)
--- a/shelf-label-holder.scad
+++ b/shelf-label-holder.scad
@@ -1,8 +1,17 @@
 // -*- C -*-
 
 prong_nomdepth = 15;
-prong_curverad = 15;
+prong_curverad = 30;
 prong_thick = 1.0;
+prong_maxdepth = 18;
+
+nom_shelf = 14.54;
+
+interference = 0.5;
+
+// calculated
+
+interference_angle = atan2(interference, prong_nomdepth);
 
 module ProngElevationUnrotated(){
   intersection(){
@@ -17,4 +26,18 @@ module ProngElevationUnrotated(){
   }
 }
 
-ProngElevationUnrotated();
+module Elevation(){
+  intersection(){
+    union(){
+      rotate(-interference_angle)
+       ProngElevationUnrotated();
+      translate([0, -nom_shelf])
+       mirror([0,1])
+       rotate(-interference_angle)
+       ProngElevationUnrotated();
+    }
+  }
+}
+
+//ProngElevationUnrotated();
+Elevation();