From 0bd5c1fd7159694b36ef69694143eef00d442961 Mon Sep 17 00:00:00 2001
From: Michael Krelin <hacker@klever.net>
Date: Fri, 24 Jun 2016 11:26:00 +0000
Subject: Volcano

---
(limited to 'bubbles.scad')

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);
+   }
+  }
+ }
--
cgit v0.9.0.2