From 82f2a23bab3ee202dd00c16f94d759fe2034fd3b Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Thu, 28 Jan 2016 00:48:43 +0000 Subject: [PATCH] lemon-stand: adjust $channelw and $channelh separately --- lemon-stand.scad.pl | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lemon-stand.scad.pl b/lemon-stand.scad.pl index e2ed927..8c1d10f 100755 --- a/lemon-stand.scad.pl +++ b/lemon-stand.scad.pl @@ -9,7 +9,8 @@ use constant tau => pi*2; my $ellipse = 25 / 2; my $circle = 7 / 2; -my $channel = 5 / 2; +my $channelh = 3; +my $channelw = 4; my $xscale = 35 / 25; my $N = 180; # around ellipse my $M = 80; # around each circle @@ -136,8 +137,9 @@ sub channels(){ print " rotate([0,0,$angle*360/",tau,"])\n"; print " rotate([0,90,0])\n"; print " translate([0,0, -2*$circle])\n"; + print " scale([1, $channelw/$channelh/2, 1])\n"; print " rotate([0,0,360/8/2])\n"; - print " cylinder(r=$channel, h=4*$circle, \$fn=8);\n"; + print " cylinder(r=$channelh, h=4*$circle, \$fn=8);\n"; } print "}\n"; } -- 2.30.2