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