1let
2    cubic_lattice =
3        let R a = abs(a - floor(a+.5));
4        in make_shape {
5            dist[x,y,z,_] = min[mag[R y,R z], mag[R x,R z], mag[R x,R y]];
6            is_3d = true;
7        };
8
9in
10cubic_lattice
11  >> offset 0.1
12  >> into (smooth 0.1 .intersection) [sphere 20]
13  >> colour (p->sRGB(abs(normalize(p.[[X,Y,Z]]))))
14