I have a code in which I use the Manipulate feature to cause a point to oscillate along a line which is being rotated. What I've been trying to figure out is how to make the point leave a trail though all of the points that it travels through. I've tried to use a LineListPlot
using 0,0 as the starting point and 0,Cos[Pi*6*x] as the end thinking that it would continually update the second point, but that didn't work. Here's the code
Manipulate[
Graphics[
Rotate[{{Red, Rectangle[{-(1/128), -2}, {1/128, 2}]}, {Blue, PointSize[0.02], Point[{0, Cos[\[Pi]*6*x]}]}},
360 Degree*(6*x)],
PlotRange -> {{-2.5, 2.5}, {-2, 2}},
Axes -> True],
{x, 0, 1}]