shelf-label-holder: ProngElevationUnrotated

diff --git a/shelf-label-holder.scad b/shelf-label-holder.scad
new file mode 100644 (file)
index 0000000..73cc3ae
--- /dev/null
+++ b/shelf-label-holder.scad
@@ -0,0 +1,20 @@
+// -*- C -*-
+
+prong_nomdepth = 15;
+prong_curverad = 15;
+prong_thick = 1.0;
+
+module ProngElevationUnrotated(){
+  intersection(){
+    union(){
+      translate([ prong_nomdepth, prong_curverad ])
+       circle( prong_curverad , $fa=0.5 );
+      translate([ -10, 0 ])
+       square([ prong_curverad + 10, 10 ]);
+    }
+    translate([-5, -5])
+      square([ 100, prong_thick + 5]);
+  }
+}
+
+ProngElevationUnrotated();