Complete simple shape gate

shape_gate.scad

@@ -0,0 +1,17 @@
+$fn = 100;
+gate_height = 50;
+
+include<math.scad>;
+include<round_poly.scad>;
+
+module shape_gate (shape, throw, shaft_r, sharpness = 0) {
+  function throw_travel(throw) = gate_height * tan(throw);
+  
+  hull(){
+    linear_extrude(0.1)
+      round_poly(shape, shaft_r, 0, sharpness);
+    translate([0,0,gate_height])
+      linear_extrude(0.00001)
+        round_poly(shape, shaft_r, throw_travel(throw), sharpness);
+  }
+}