X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=lemon-stand.scad.pl;fp=lemon-stand.scad.pl;h=308892ac07c6eb99cc604334ee4054ae4becb94e;hb=c8a6cfa3b96af91038104ee9c2d7213983b60cbc;hp=048f4d7bdb6813ad3a4c4887c534d7d4ef3183f4;hpb=162a83b6ff1d0ebeacf742ab9e838d84b3639c03;p=reprap-play.git

diff --git a/lemon-stand.scad.pl b/lemon-stand.scad.pl
index 048f4d7..308892a 100755
--- a/lemon-stand.scad.pl
+++ b/lemon-stand.scad.pl
@@ -7,11 +7,6 @@ use IO::File;
 use Data::Dumper;
 use constant tau => pi*2;
 
-print <<END;
-// -*- C -*-
-// *** AUTOGENERATED - DO NOT EDIT ***
-END
-
 my $ellipse = 20;
 my $circle = 6;
 my $channel = 5;
@@ -20,6 +15,13 @@ my $N = 30; # around ellipse
 my $M = 20; # around each circle
 my @channeldistprops = (0, 1/3, 2/3);
 
+print <<END;
+// -*- C -*-
+// *** AUTOGENERATED - DO NOT EDIT ***
+END
+
+print "torusyup = ", ($circle / sqrt(2)), ";\n";
+
 our @ellipse = map {
     my $theta = tau * $_ / $N;
     V( cos($theta) * $ellipse * $xscale, sin($theta) * $ellipse, 0 )
@@ -142,5 +144,13 @@ STDOUT->error and die $!;
 STDOUT->flush or die $!;
 
 __DATA__
-Torusy();
-Channels();
+module Stand(){
+    difference(){
+	translate([0,0,torusyup])
+	    Torusy();
+	Channels();
+	translate([-200,-200,-50])
+	    cube([400,400,50]);
+    }
+}
+Stand();