use<closepoints.scad>   // https://github.com/rcolyer/closepoints

CloseLoop([for (a=[0:360]) let(z=30+3*cos(8*a))
  [for (p=[[15,0,0], [13,0,0], [13,0,z], [15,0,z]]) Affine(RotZ(a), p)]]);