--- /dev/null
+// -*- C -*-
+
+p2 = [ 0, 3.0 /2 ];
+p1 = p2 + [ -1.0, -1.0 ];
+p3 = [ 3.0, 2.5 /2 ];
+p4 = [ p3[0] + (3.2-2.5)/2 , 3.2 /2 ];
+p8 = [ 13.0, 8.0 /2 ];
+p5 = [ p8[0] - 8.5, 3.2 /2 ];
+p6 = [ p5[0] + (3.5-3.2)/2, 3.5 /2];
+p7 = [ p8[0], p6[1] ];
+p9 = p8 + [ 10, 0 ];
+
+$fa = 1;
+$fs = 0.1;
+
+module Plan(){
+ polygon([[ p1[0], 0.1 ],
+ p1, p2, p3, p4, p5, p6, p7, p8, p9,
+ [ p9[0], 0.1 ]]);
+}
+
+module Dummy(){
+ rotate_extrude()
+ rotate([0,0,-90])
+ Plan();
+ translate([0,0, -p1[0]])
+ mirror([0,0,1])
+ cylinder(r= 0.2, h= p9[0] - p1[0]);
+}
+
+//Plan();
+Dummy();