wine-vacuum-adapter.scad

   1 // -*- C -*-
   2
   3 india_nom = 27.0;
   4 india_slop = 0.63;
   5
   6 middia_nom = 31.0;
   7 middia_slop = 0.10;
   8
   9 outdia = 44.0;
  10
  11 wall = 4;
  12
  13 htop = 5;
  14 hbot = 7;
  15
  16 slope = 0.65;
  17
  18 $fa=3;
  19 $fs=0.1;
  20
  21 // calculated
  22
  23 india_use = india_nom + india_slop;
  24 middia_use = middia_nom - middia_slop;
  25
  26 //echo("MIN WALL", (middia_use - india_use)/2);
  27
  28 ppA = [middia_use/2, 0];
  29 ppB = ppA + [0, 1] * htop;
  30 ppC = ppB + [-1,0] * wall;
  31 ppD = [ppC[0], ppA[1] - wall/slope];
  32 ppE = [india_use/2, ppD[1] - (india_use/2 - ppD[0])/slope];
  33 ppF = ppE + [0,-1] * (htop + hbot);
  34 ppG = ppF + [1, 0] * wall;
  35 ppK = [outdia/2, ppA[1]];
  36 ppJ = ppK + [0,-1] * wall;
  37 ppH = [ppG[0], ppJ[1] - (ppJ[0]-ppG[0])/slope];
  38
  39 module Plan1() {
  40   polygon([[ india_use/2,    -hbot ],
  41            [ outdia/2,       -hbot ],
  42            [ outdia/2,       0     ],
  43            [ middia_use/2,   0     ],
  44            [ middia_use/2,   htop  ],
  45            [ india_use/2,    htop  ]]);
  46 }
  47
  48 module Plan3() {
  49   p = [ ppA,
  50         ppB,
  51         ppC,
  52         ppD,
  53         ppE,
  54         ppF,
  55         ppG,
  56         ppH,
  57         ppJ,
  58         ppK ];
  59   echo(p);
  60   polygon(p);
  61 }
  62
  63 module Demo(){
  64   color("blue") translate([0,0,1]) Plan1();
  65   Plan3();
  66 }
  67
  68 module Adapter(){
  69   rotate_extrude(convexity=5)
  70     Plan1();
  71 }
  72
  73 //Demo();
  74 Adapter();