--- /dev/null
+// -*- C -*-
+
+// should rename this to actual name of the product
+
+include <utils.scad>
+
+lip_height = 2.0 - 0.15;
+lip_depth = 2.5 /*?*/ - 0.20;
+neck_width = 26.5 - 0.45;
+neck_depth = 28.5 - 0.45;
+neck_length = 1.5 + 0.50;
+
+slope = 0.35;
+
+nep0 = [0,0];
+nep1 = nep0 + [0,1] * neck_length;
+nep7 = nep0 + [1,0] * lip_depth;
+nep2 = [ nep7[0], nep1[1] + slope * (nep7[0] - nep1[0]) ];
+nep3 = nep2 + [0, 0.1];
+nep4 = [ nep0[0]-1, nep3[1] ];
+nep6 = nep7 + [0,-1] * lip_height;
+nep5 = [ nep4[0], nep6[1] ];
+nepm = [ nep0[0], nep3[1] ];
+
+total_height = nep2[1] - nep6[0];
+nep_z_offset = -nep2[1];
+nep_side_offset = [ neck_width/2, nep_z_offset ];
+nep_rear_offset = [ neck_depth/2, nep_z_offset ];
+inner_pos = [-0.1, -total_height];
+
+module NeckEdgePlan() {
+ polygon([ nep0,
+ nep1,
+ nep2,
+ nep3,
+ nep4,
+ nep5,
+ nep6,
+ nep7 ]);
+}
+
+module Neck() {
+ for (m=[0,1]) {
+ mirror([m,0]) {
+ translate(nep_side_offset) NeckEdgePlan();
+ rectfromto(inner_pos,
+ nep_side_offset + nepm);
+ }
+ }
+}
+
+//NeckEdgePlan();
+Neck();