diff --git a/Colop-R40-bottom.scad b/Colop-R40-bottom.scad
new file mode 100644
index 0000000..b98c7f1
--- /dev/null
+++ b/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();
\ No newline at end of file
diff --git a/Colop_R40-crown-cork-stamper-centerer.stl b/Colop_R40-crown-cork-stamper-centerer.stl
new file mode 100644
index 0000000..a9ed409
Binary files /dev/null and b/Colop_R40-crown-cork-stamper-centerer.stl differ
diff --git a/arm.scad b/arm.scad
new file mode 100644
index 0000000..545f34a
--- /dev/null
+++ b/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();
\ No newline at end of file
diff --git a/colop_stamper_attachment.scad b/colop_stamper_attachment.scad
new file mode 100644
index 0000000..a232ee3
--- /dev/null
+++ b/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();
+ 
\ No newline at end of file
diff --git a/crown_cork.scad b/crown_cork.scad
new file mode 100644
index 0000000..6d75875
--- /dev/null
+++ b/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();
\ No newline at end of file
diff --git a/size_collection.scad b/size_collection.scad
new file mode 100644
index 0000000..03689c8
--- /dev/null
+++ b/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);
\ No newline at end of file