wavy.nb

(* An attempt by Clayton Shonkwiler [https://shonkwiler.org] to answer 
Matt Enlow's challenge: https://twitter.com/CmonMattTHINK/status/1619704564705554432 *)

Block[{pts},
 pts = Select[
   Flatten[
    Table[
     {x, y, Cos[2 \[Pi] (Sqrt[x^2 + y^2])]/9},
     {x, -5, 5, .03}, {y, -5, 5, .06}],
    1],
   (#[[1]]^2 + #[[2]]^2 <= 20) &];
 Graphics3D[
  {GrayLevel[.7],
   Table[{Opacity[LogisticSigmoid[2 (p[[2]] + .5)]], 
     Sphere[p, .01]}, {p, pts}]},
  ViewVector -> {{0, 4.5, 2.7}, {0, 0, 0}}, ViewVertical -> {0, 0, 1},
   Background -> GrayLevel[.1], Boxed -> False, Axes -> False, 
  PlotRange -> {-5, 5}, ImageSize -> {400, 300}, Lighting -> "Neutral"]
 ]