summaryrefslogtreecommitdiff
Unidiff
Diffstat (more/less context) (ignore whitespace changes)
-rw-r--r--bubbles.scad8
1 files changed, 5 insertions, 3 deletions
diff --git a/bubbles.scad b/bubbles.scad
index 2f25938..c586736 100644
--- a/bubbles.scad
+++ b/bubbles.scad
@@ -2,10 +2,12 @@
2 maxr=max(d/2,size[1]); 2 maxr=max(d/2,size[1]);
3 scl = [ d/2/maxr, size[1]/maxr, d/2/maxr ]; 3 scl = [ d/2/maxr, size[1]/maxr, d/2/maxr ];
4 nx = floor((size[0]-2*d)/s); sx = s*nx; x0=(size[0]-sx)/2; 4 nx = floor((size[0]-2*d)/s); sx = s*nx; x0=(size[0]-sx)/2;
5 nz = floor((size[2]-2*d)/s); sz = s*nz; z0=(size[2]-sz)/2; 5 nz = floor((size[2]-2*d)/s); sz = s*nz; z0=(size[2]-sz)/2;
6 for(iz=[0:nz]) let(z=z0+s*iz) { 6 for(iz=[0:nz]) {
7 for(ix=[0:iz%2?nx-1:nx]) let(x=x0+(iz%2?s/2:0)+s*ix) { 7 z=z0+s*iz;
8 translate([x,0,z]) scale(scl) sphere(r=maxr,$fn=30); 8 for(ix=[0:iz%2?nx-1:nx]) {
9 x=x0+(iz%2?s/2:0)+s*ix;
10 translate([x,0,z]) scale(scl) sphere(r=maxr,$fs=0.5);
9 } 11 }
10 } 12 }
11 } 13 }