wine-vacuum-adapter: v3

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/wine-vacuum-adapter.scad b/wine-vacuum-adapter.scad
index 11fa5c3f005cfc71b8e12742d2916f279cfb7fb2..1379b7d23eee05d832b026e3f5859a75c3664e26 100644 (file)
--- a/wine-vacuum-adapter.scad
+++ b/wine-vacuum-adapter.scad
@@ -8,9 +8,13 @@ middia_slop = 0.10;
 
 outdia = 44.0;
 
+wall = 4;
+
 htop = 5;
 hbot = 7;
 
+slope = 0.65;
+
 $fa=3;
 $fs=0.1;
 
@@ -19,9 +23,20 @@ $fs=0.1;
 india_use = india_nom + india_slop;
 middia_use = middia_nom - middia_slop;
 
-echo("MIN WALL", (middia_use - india_use)/2);
+//echo("MIN WALL", (middia_use - india_use)/2);
 
-module Plan() {
+ppA = [middia_use/2, 0];
+ppB = ppA + [0, 1] * htop;
+ppC = ppB + [-1,0] * wall;
+ppD = [ppC[0], ppA[1] - wall/slope];
+ppE = [india_use/2, ppD[1] - (india_use/2 - ppD[0])/slope];
+ppF = ppE + [0,-1] * (htop + hbot);
+ppG = ppF + [1, 0] * wall;
+ppK = [outdia/2, ppA[1]];
+ppJ = ppK + [0,-1] * wall;
+ppH = [ppG[0], ppJ[1] - (ppJ[0]-ppG[0])/slope];
+
+module Plan1() {
   polygon([[ india_use/2,    -hbot ],
           [ outdia/2,       -hbot ],
           [ outdia/2,       0     ],
@@ -30,9 +45,30 @@ module Plan() {
           [ india_use/2,    htop  ]]);
 }
 
+module Plan3() {
+  p = [ ppA,
+       ppB,
+       ppC,
+       ppD,
+       ppE,
+       ppF,
+       ppG,
+       ppH,
+       ppJ,
+       ppK ];
+  echo(p);
+  polygon(p);
+}
+
+module Demo(){
+  color("blue") translate([0,0,1]) Plan1();
+  Plan3();
+}
+
 module Adapter(){
   rotate_extrude(convexity=5)
-    Plan();
+    Plan3();
 }
 
+//Demo();
 Adapter();