chiark / gitweb /
7d8436a9e9ab857ffc000e3acbd736d5c19733db
[reprap-play.git] / filamenttrestle.scad
1 // -*- C -*-
2
3 spoolwidth = 80; // fixme needs to be measured
4
5 include <doveclip.scad>
6
7 spoolwidthgap = 2;
8 barrady = 5;
9 barradz = 7;
10 guidewidth = 3;
11 guiderad = 20;
12
13 module Bar(){
14   spoolw = spoolwidth + spoolwidthgap*2;
15   barz = barradz * 0.5;
16   biggestw = spoolw + 50;
17
18   intersection(){
19     for (mir=[0,1]) {
20       mirror([mir,0,0]) {
21         translate([0,0,barz]) {
22           scale([1,barrady,barradz]) translate([-1,0,0])
23             rotate([0,90,0]) cylinder(r=1, h=spoolw/2+2, $fn=30);
24           translate([spoolw/2,0,0])
25             rotate([0,90,0]) cylinder(r=guiderad, h=guidewidth, $fn=60);
26         }
27       }
28     }
29     translate([-biggestw/2, -50, 0])
30       cube([biggestw, 100, 100]);
31   }
32 }
33
34 Bar();