Noise Sponge Shape - Curv

Curv is a programming language for creating art using mathematics. It's a 2D and 3D geometric modelling tool that supports full colour, animation and 3D printing.
https://github.com/doug-moen/curv

//noise sponge shape
let
include file "Textures.curv";
noiseshape =
make_shape {
dist(x,y,z,t) = abs((noise3d(x,y,z)[X])*2 -1 )-0.25;
is_3d = true;
};
in

smooth 0.4 .intersection
(
morph 0.5
(
sphere 10 ,
cube 10>>offset 1>>rotate {angle:45*deg,axis:[1,1,1]}
),
noiseshape
)