1// 3D plot of the 'sinc', or 'cardinal sine' function.
2// https://en.wikipedia.org/wiki/Sinc_function
3let
4    sinc x = if (x == 0) 1 else sin x / x;
5
6in
7make_shape {
8  dist[x,y,z,t] = abs(z - sinc(mag[x,y])*10) - 1;
9  is_3d = true;
10}
11>> lipschitz 5
12>> into intersection [box[40,40,40]]
13//>> slice_xz >> show_dist
14