Harmonic Oscillations - Two Dimensions

Manipulate[
ParametricPlot[
{A Cos[ω1 *t-α],B Cos[ω2 *t-β]},{t,0,temp},
PlotRange->{{-1.05,1.05},{-1.05,1.05}},
PlotStyle->{Blue,AbsoluteThickness[3]},
Frame->False,
Ticks->{{{-1,"-1"},{-0.75,""},{-0.5,""},{-0.25,""},{0,""},{0.25,""},{0.5,""},{0.75,""},{1,"1"}},{{-1,"-1"},{-0.75,""},{-0.5,""},{-0.25,""},{0,""},{0.25,""},{0.5,""},{0.75,""},{1,"1"}}},
GridLines->{{-1.0, -0.75, -0.5, -0.25,0, 0.25,0.5, 0.75, 1.0},{-1.0, -0.75, -0.5, -0.25,0, 0.25,0.5, 0.75, 1.0}},
GridLinesStyle->Directive[LightBlue,AbsoluteThickness[1.3]],
AxesLabel->{Row[{Style["x",Italic]," (cm)"}],Row[{Style["y",Italic]," (cm)"}]},
PerformanceGoal->"Quality",
Epilog->{PointSize[0.02],Point[{A Cos[ω1 *temp-α],B Cos[ω2*temp-β]}]},
ImageSize->400,
LabelStyle->({FontSize->12,FontFamily->"Times"})
],
Style["horizontal",Bold],
{{ω1,1,"(Subscript[ω, x])"},1,4,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{A,1},0,1,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{α,0},-π,π,(π/100),ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
Style["vertical",Bold],
{{ω2,1,"(Subscript[ω, y])"},1,4,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{B,1},0,1,.01,ImageSize->Tiny,Appearance->"Labeled"},
{{β,0},-π,π,(π/100),ImageSize->Tiny,Appearance->"Labeled"},
Delimiter,
{{temp,0.001,"run"},0.0001,Infinity,ControlType->Trigger}, ControlPlacement->Left]