X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=wine-vacuum-adapter.scad;h=5ce11a81d170ea055cfe56425a4d1e954f645476;hb=eb06f06509cc2403d8592cd147d89d9a1b8bb97f;hp=0f622e8c53eefa2d339033eb675953079c3cd798;hpb=8c7e4d3b46b50eb745f03250b63ed7f45f35782b;p=reprap-play.git

diff --git a/wine-vacuum-adapter.scad b/wine-vacuum-adapter.scad
index 0f622e8..5ce11a8 100644
--- 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,7 +23,20 @@ $fs=0.1;
 india_use = india_nom + india_slop;
 middia_use = middia_nom - middia_slop;
 
-module Plan() {
+//echo("MIN WALL", (middia_use - india_use)/2);
+
+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     ],
@@ -28,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();
+    Plan1();
 }
 
+//Demo();
 Adapter();