Vykrajovatko

diff --git a/vykrajovatko-ctverec.scad b/vykrajovatko-ctverec.scad
new file mode 100644 (file)
index 0000000..ac5ef15
--- /dev/null
+++ b/vykrajovatko-ctverec.scad
@@ -0,0 +1,71 @@
+draft = 0;
+eps = 0.01;
+infty = 100;
+
+kuzel_def = [
+       [ 6.5, 0 ],
+       [ 6.5, 1.5 ],
+       [ 3.5, 4 ],
+       [ 2.5, 6 ],
+       [ 1.5, 13.0 ],
+       [ 0.5, 15.0 ],
+];
+
+module kuzel() {
+       for (i = [0 : len(kuzel_def)-2]) {
+               translate([0, 0, kuzel_def[i][1]])
+                       cylinder(r1 = kuzel_def[i][0],
+                               r2 = kuzel_def[i+1][0],
+                               h = kuzel_def[i+1][1] + eps - kuzel_def[i][1]);
+       }
+};
+
+kuzel2_def = [
+       [ 1.5, 0 ],
+       [ 1.5, 13.0 ],
+       [ 0.5, 15.0 ],
+];
+
+module kuzel2() {
+       for (i = [0 : len(kuzel2_def)-2]) {
+               translate([0, 0, kuzel2_def[i][1]])
+                       cylinder(r1 = kuzel2_def[i][0],
+                               r2 = kuzel2_def[i+1][0],
+                               h = kuzel2_def[i+1][1] + eps - kuzel2_def[i][1]);
+       }
+};
+
+module shape(h)
+{
+  linear_extrude(height=h)
+      polygon([[-15, -15], [-15, 15], [15, 15], [15, -15]]);
+};
+
+for (x = [0, 45]) translate([x, 0, 0])
+difference(){
+       minkowski(){
+               shape(eps);
+               if (draft == 1) {
+                       kuzel($fn = 6);
+               } else {
+                       kuzel($fn = 32);
+               }
+       }
+       translate([0,0,-infty/2]) shape(infty);
+};
+
+difference(){
+       union() {
+               minkowski(){
+                       cylinder(r = 7, h = eps, $fn = 128);
+                       if (draft == 1) {
+                               kuzel2($fn = 6);
+                       } else {
+                               kuzel2($fn = 32);
+                       }
+               }
+               for (a = [0, 90]) rotate([0, 0, a])
+               translate([-15, -1, 0]) cube([30, 2, 7]);
+       }
+       translate([0,0,-infty/2]) cylinder(r = 7, h = infty);
+};