From 66e84d53db82a245e06fb4475182b8b27784fd0f Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 17 Oct 2012 21:30:35 +0100
Subject: [PATCH] filamenttrestle demo

---
 filamenttrestle.scad | 23 ++++++++++++++++++-----
 1 file changed, 18 insertions(+), 5 deletions(-)

diff --git a/filamenttrestle.scad b/filamenttrestle.scad
index 340a6d5..2c54245 100644
--- a/filamenttrestle.scad
+++ b/filamenttrestle.scad
@@ -38,6 +38,9 @@ pinstraightlen = 10;
 spoolouterpad = AxlePin_holerad()*2 * 1.5;
 spoolbarlen = spoolwidth +
   2*(Washer_thick() + AxlePin_holerad() + spoolinnerslop + spoolouterpad);
+  barz = barrad * 0.5;
+axlepin_x = spoolwidth/2 + Washer_thick() + spoolinnerslop +
+  AxlePin_holerad()*0.5;
 
 module Plug(d=0){
   dw = d;
@@ -58,7 +61,6 @@ module Plug(d=0){
 
 module Bar(){ ////toplevel
   spoolw = spoolbarlen;
-  barz = barrad * 0.5;
   biggestw = spoolw + 50;
 
   intersection(){
@@ -75,9 +77,7 @@ module Bar(){ ////toplevel
 	cube([biggestw, 100, 100]);
       for (mir=[0,1]) {
 	mirror([mir,0,0])
-	  translate([spoolwidth/2 + Washer_thick() + spoolinnerslop +
-		     AxlePin_holerad()*0.5,
-		     0, -50])
+	  translate([axlepin_x, 0, -50])
 	  cylinder(r=AxlePin_holerad(), 100, $fn=15);
       }
     }
@@ -187,7 +187,19 @@ module TestKit(){ ////toplevel
   }
 }
 
-Bar();
+module Demo(){
+  %Bar();
+  for (mir=[0,1]) {
+    mirror([mir,0,0]) {
+      %translate([spoolbarlen/2,0,0]) rotate([90,0,90]) Trestle();
+      translate([spoolwidth/2 + spoolinnerslop/4, 0, barz])
+	rotate([0,90,0]) AxleWasher();
+      translate([axlepin_x, 0, barz]) rotate([90,0,90]) FtAxlePin();
+    }
+  }
+}
+
+//Bar();
 //FtAxlePin();
 //AxleWasher();
 //Trestle();
@@ -195,3 +207,4 @@ Bar();
 //TestKit();
 //Plug(d=1);
 //ExtenderPillars(80,12,8, baseweb=true);
+Demo();
-- 
2.30.2