-rw-r--r-- | bubbles.scad | 8 |
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 | |||
@@ -1,11 +1,13 @@ | |||
1 | module bubbles(size,d=1.2,s=1.8) { | 1 | module bubbles(size,d=1.2,s=1.8) { |
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 | } |