filamenttrestle.scad

   1 // -*- C -*-
   2
   3 spoolwidth = 80; // fixme needs to be measured
   4 trestleheight = 80; // fixme needs to be checked
   5 trestlebase = 80; // fixme needs to be checked
   6
   7 include <doveclip.scad>
   8
   9 spoolwidthgap = 2;
  10 barrady = 5;
  11 barradz = 7;
  12 guidewidth = 3;
  13 guiderad = 20;
  14
  15 plugl = 12;
  16 plugwmin = 3;
  17 plugh = 10;
  18 plugslope = 0.5;
  19 plugwmax = plugwmin + plugh * plugslope * 2;
  20
  21 trestlelegw = 10;
  22 trestlebaseh = 10;
  23 trestleplugd = 1;
  24
  25 topcylthick = 3;
  26 topcylbasedepth = 4;
  27
  28 pindr = 0.5;
  29 pinholeminr = 1.0 + pindr;
  30 pinholemaxr = 1.5 + pindr;
  31
  32 module Plug(d=0){
  33   a = -atan(plugslope);
  34   tdx = d * cos(a);
  35   tdy = d * sin(a);
  36   bdx = d / cos(a);
  37   translate([-d,0,0]) rotate([90,0,90]) linear_extrude(height=plugl+0.1+d*2){
  38     polygon([[-(plugwmin/2 + bdx),  0],
  39              [-(plugwmax/2 + tdx),  plugh + tdy],
  40              [+(plugwmax/2 + tdx),  plugh + tdy],
  41              [+(plugwmin/2 + bdx),  0]]);
  42   }
  43 }
  44
  45 module Bar(){
  46   spoolw = spoolwidth + spoolwidthgap*2;
  47   barz = barradz * 0.5;
  48   biggestw = spoolw + 50;
  49
  50   intersection(){
  51     for (mir=[0,1]) {
  52       mirror([mir,0,0]) {
  53         translate([0,0,barz]) {
  54           scale([1,barrady,barradz]) translate([-1,0,0])
  55             rotate([0,90,0]) cylinder(r=1, h=spoolw/2+2, $fn=30);
  56           translate([spoolw/2,0,0])
  57             rotate([0,90,0]) cylinder(r=guiderad, h=guidewidth, $fn=60);
  58         }
  59         translate([spoolw/2 + guidewidth, 0, 0])
  60           Plug();
  61       }
  62     }
  63     translate([-biggestw/2, -50, 0])
  64       cube([biggestw, 100, 100]);
  65   }
  66 }
  67
  68 module Trestle(){
  69   legang = atan2(trestlebase/2, trestleheight);
  70   eplen = sqrt(trestleheight*trestleheight + trestlebase*trestlebase*0.25);
  71   topcylw = plugwmax + topcylthick*2;
  72
  73   difference(){
  74     union(){
  75       for (mir=[0,1]) {
  76         mirror([mir,0,0]) {
  77           rotate([0,0, -90-legang])
  78             ExtenderPillars(length=eplen+trestlelegw,
  79                             width=trestlelegw,
  80                             height=plugl,
  81                             baseweb=true);
  82
  83           translate([-trestlebase/2, -trestleheight, 0])
  84             cylinder(r=trestlelegw/2*1.2, h=plugl);
  85         }
  86       }
  87       translate([-topcylw/2, -topcylbasedepth, 0])
  88         cube([topcylw, topcylbasedepth + plugh + topcylthick, plugl]);
  89
  90       translate([-trestlebase/2, -trestleheight, 0])
  91         ExtenderPillars(length=trestlebase, width=trestlebaseh*2, height=plugl);
  92     }
  93     translate([-300, -trestleheight-50, -1])
  94       cube([600, 50, plugl+2]);
  95
  96     rotate([-90,-90,0])
  97       Plug(d=trestleplugd);
  98
  99     for (rot=[0,180]) {
 100       translate([0,0,plugl/2]) rotate([0,rot,0]) translate([0,0,-plugl/2]) {
 101         translate([-(topcylw/2+1), plugh, plugl/4])
 102           rotate([0,90,0])
 103           cylinder(r1=pinholeminr, r2=pinholeminr, h=topcylw/2+2, $fn=20);
 104         translate([0, plugh, plugl/4])
 105           rotate([0,90,0])
 106           cylinder(r1=pinholeminr, r2=pinholemaxr, h=topcylw/2+1, $fn=20);
 107       }
 108     }
 109   }
 110 }
 111
 112 //Bar();
 113 Trestle();
 114
 115 //Plug(d=1);
 116 //ExtenderPillars(80,12,8, baseweb=true);