Add stamper files

Colop-R40-bottom.scad

@@ -0,0 +1,20 @@
+module colop() {
+difference() { // rough bottom 10mm of colop r40
+    difference() { // outer edge of colop
+        cylinder(h=10, d=55, center=true);
+        difference() {
+            cube([67,71,10], center=true); // outer box for cutter
+            cube([47,67,10], center=true); // cutter's inner edge
+        }
+    }
+    difference() { // inner edge of colop
+        cylinder(h=10, d=47, center=true);
+        difference() {
+            cube([67,71,10], center=true); // outer box for cutter
+            cube([42,67,10], center=true); // cutter's inner edge
+        }
+    }
+}
+}
+
+colop();

arm.scad

@@ -0,0 +1,14 @@
+include <size_collection.scad>;
+$fn=128;
+module arm() {
+translate([0,0,arm_h+cork_h/2])
+rotate([0,180,0]) // flips right side up
+rotate([0,0,(360-arm_degrees)/2]) // rotates to align with cork centerer
+rotate_extrude(angle = arm_degrees, convexity=10)
+    translate([stamper_r,0,0]) {
+        square([wall,arm_h]);
+        circle(wall);
+    }
+}
+
+arm();

colop_stamper_attachment.scad

@@ -0,0 +1,18 @@
+$fn=24;
+include <sizes.scad>;
+
+module arm() {
+    color("yellow") cube([wall, arm_w, arm_h], true);
+    translate([wall/2,-arm_w/2,arm_h/2]) {
+        rotate([-90,0,0]) {
+            difference() {
+                color("khaki") cylinder(arm_w, d=wall, true);
+                translate([-wall/2,-wall*2,0]) color("maroon") cube([wall, wall*2, arm_w]);
+            }
+//            halfpipe();
+        }
+    };
+}
+
+arm();
+ 

crown_cork.scad

@@ -0,0 +1,8 @@
+// crown cork with extra space
+include <size_collection.scad>;
+$fn=21;
+module cork() {
+    cylinder(h=ceil(cork_h+1.5), d2=ceil(cork_d_top+1.5), d1=cork_d_bottom+2, center=true); // cork space
+};
+
+cork();

size_collection.scad

@@ -0,0 +1,16 @@
+$fn=128;
+cork_h=5.6;
+cork_d_top=26.5;
+cork_d_bottom=32;
+
+wall=4;
+
+stamper_inner_w=47; // also colop's outer depth
+stamper_r=((stamper_inner_w + 2*wall)/2);
+centerer_w_bottom=stamper_inner_w + 4*wall; // 2 colop walls + 2 addon walls
+centerer_w_top=stamper_inner_w + 3*wall; // 2 colop walls + (2 addon walls)/2
+
+arm_h=7;
+arm_w=stamper_inner_w*0.66; // 2/3 of colop
+arm_degrees=25;
+//echo(arm_w);