r[t_, s_] := {Cos[2 t/5] Sin[5 t/4] + Cos[s], 5 Sin[s]/6 + 2 Cos[t]/3,
    Cos[2 t] - Sin[t/2] Cos[s/8]}; 
H1 = ParametricPlot3D[
   Evaluate[r[t, s]], {t, 0, 3 Pi/2}, {s, 0, 5 Pi/4}, 
   PlotStyle -> 
    Directive[Blue, Thick, Opacity[.75], Specularity[Green, 5]], 
   Lighting -> Automatic, Mesh -> None, Boxed -> False, Axes -> False,
    PlotRange -> All, AspectRatio -> 2/GoldenRatio, 
   Background -> LightBlue];
H2[t_, s_] := 
  Show[{H1, 
    Graphics3D[
     Table[{Hue[RandomReal[{.4, .65}]], PointSize[.1], 
       Point[r[t, s]]}, {1}]]}];
Manipulate[H2[t, s], {t, 0, 3 Pi/2}, {s, 0, 5 Pi/4}, 
 ControlType -> VerticalSlider, ControlPlacement -> Left, 
 FrameLabel -> "Ride the Wave!"]