curve = ParametricPlot[{z, Sin[z]}, {z, 0, 2 Pi}][[1]]

Manipulate[
 circle = {RGBColor[1, 0.27, 0.5], {Circle[{x, f[x]}, y]},
   PlotRange -> {{0, 100}, {-5, 5}}};
 curve = ParametricPlot[{z, Sin[z]}, {z, 0, 2 Pi}][[1]];
 box = {RGBColor[0.81, 0.79, 1], Rectangle[{40, 0}, {50, 10}]};
 Graphics[{box, circle, curve},
  PlotRange -> {{-10, 50}, {-10, 20}}], {x, 0, 50}, {y, 0.5, 5}]