+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;
+ rotate([90,0,0]) {
+ linear_extrude(height=peglen) {
+ intersection(){
+ translate([-d,-d,0]) PegTemplate();
+ translate([-d,+d,0]) PegTemplate();
+ translate([+d,+d,0]) PegTemplate();
+ translate([+d,-d,0]) PegTemplate();
+ }
+ }
+ }
+}
+