X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=lemon-stand.scad.pl;h=ebba9ee874285cab84143eabc5bc23415d60fe9f;hb=388bd0288542fa384387dd1829aaa69fa7580172;hp=308892ac07c6eb99cc604334ee4054ae4becb94e;hpb=c8a6cfa3b96af91038104ee9c2d7213983b60cbc;p=reprap-play.git diff --git a/lemon-stand.scad.pl b/lemon-stand.scad.pl index 308892a..ebba9ee 100755 --- a/lemon-stand.scad.pl +++ b/lemon-stand.scad.pl @@ -7,12 +7,12 @@ use IO::File; use Data::Dumper; use constant tau => pi*2; -my $ellipse = 20; -my $circle = 6; +my $ellipse = 25; +my $circle = 7; my $channel = 5; -my $xscale = 2; -my $N = 30; # around ellipse -my $M = 20; # around each circle +my $xscale = 35/25; +my $N = 30; #180; # around ellipse +my $M = 20; #80; # around each circle my @channeldistprops = (0, 1/3, 2/3); print <