From ca21b97faeb867e6b2d83e12bc412ed4ded105af Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 17 Oct 2012 18:06:22 +0100
Subject: [PATCH] filamenttrestle wip  with spool core  circular bar

---
 filamenttrestle.scad | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/filamenttrestle.scad b/filamenttrestle.scad
index b0ee2f9..1931c4c 100644
--- a/filamenttrestle.scad
+++ b/filamenttrestle.scad
@@ -7,8 +7,7 @@ trestlebase = 80; // fixme needs to be checked
 include <doveclip.scad>
 
 spoolwidthgap = 2;
-barrady = 5;
-barradz = 7;
+barrad = 7;
 guidewidth = 3;
 guiderad = 20;
 
@@ -54,15 +53,15 @@ module Plug(d=0){
 
 module Bar(){ ////toplevel
   spoolw = spoolwidth + spoolwidthgap*2;
-  barz = barradz * 0.5;
+  barz = barrad * 0.5;
   biggestw = spoolw + 50;
 
   intersection(){
     for (mir=[0,1]) {
       mirror([mir,0,0]) {
 	translate([0,0,barz]) {
-	  scale([1,barrady,barradz]) translate([-1,0,0])
-	    rotate([0,90,0]) cylinder(r=1, h=spoolw/2+2, $fn=30);
+	  translate([-1,0,0])
+	    rotate([0,90,0]) cylinder(r=barrad, h=spoolw/2+2, $fn=30);
 	  translate([spoolw/2,0,0])
 	    rotate([0,90,0]) cylinder(r=guiderad, h=guidewidth, $fn=60);
 	}
@@ -166,9 +165,9 @@ module TestKit(){ ////toplevel
   }
 }
 
-//Bar();
+Bar();
 //Trestle();
 //Pin();
-TestKit();
+//TestKit();
 //Plug(d=1);
 //ExtenderPillars(80,12,8, baseweb=true);
-- 
2.30.2