rot[θ_]:={{Cos[θ], -Sin[θ]},{Sin[θ], Cos[θ]}}; (**rotation matrix**)
vect[t_]:={(d/2)-v0 t,0}; (**position of puck in stationary frame over time**)

d=1; (**diameter of the table**)
v0=1; (**velocity at which puck is pushed across table**)
ωtable=3; (**angular velocity of the table**)

ω={0.25,3,7,10, 30, 60}; (**vector of different omega values**)
Animate[

Table[GraphicsColumn[{Style["(((Subscript[ω, table]) d)/(Subscript[v, puck])) = "<>ToString@omega],Show[{Graphics@Circle[{0,0},(d/2)],ParametricPlot[If[v0 t ≤ d, rot[omega t].vect[t], -(d/2)], {t,0,tmax},PlotRange->{{-(d/2),(d/2)},{-(d/2),(d/2)}},PlotLabel->"(Subscript[ω, Table])= "<>ToString[omega]]}]}],{omega, ω}],{tmax,0.01,1,0.01}, AnimationRate->(1/2)] (**formats the graphics for the circle, plot, and plot label in a neat fashion and outputs a table of one graphic for each (Subscript[ω, table]) value**)