| -rw-r--r-- | bubbles.scad | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/bubbles.scad b/bubbles.scad new file mode 100644 index 0000000..2f25938 --- a/dev/null +++ b/bubbles.scad @@ -0,0 +1,11 @@ + module bubbles(size,d=1.2,s=1.8) { + maxr=max(d/2,size[1]); + scl = [ d/2/maxr, size[1]/maxr, d/2/maxr ]; + nx = floor((size[0]-2*d)/s); sx = s*nx; x0=(size[0]-sx)/2; + nz = floor((size[2]-2*d)/s); sz = s*nz; z0=(size[2]-sz)/2; + for(iz=[0:nz]) let(z=z0+s*iz) { + for(ix=[0:iz%2?nx-1:nx]) let(x=x0+(iz%2?s/2:0)+s*ix) { + translate([x,0,z]) scale(scl) sphere(r=maxr,$fn=30); + } + } + } |