Question: Maplet trajectory animation

Hello, i am trying to make a maplet that animates the trajectory of a thrown object.
unfortunately i am having a problem with the animation, the plot looks fine but it is just a simple plot and not an animation. Need help!

Here is the code I have been working on:

restart:
with(Maplets[Elements]):
with(plots):
coord:=[[80*t*sin(2.35), -9.81/2*t^2-80*t*cos(2.35)] $t=0..12];
p:= plots[animate](plot,[coord, numpoints=300], t=0..15, frames=200):
anim:= Maplet(
   [ Plotter[P](p, continuous=false),
         [ Button("Play",SetOption(P('play')=true)),
           Button("Stop",SetOption(P('`stop`')=true)),
           Button("Pause",SetOption(P('pause')=true)) ],
         [ Button("To start",SetOption(P('to_start')=true)),
           Button("To end",SetOption(P('to_end')=true)) ],
         [ Button("Backwards",SetOption(P('frame_backwards')=true)),
           Button("Forward",SetOption(P('frame_forward')=true)) ],
         [ "continuous",CheckBox[CONTINUOUS](value=false,
        onchange=SetOption(target=P, `option`='continuous',
        Argument(CONTINUOUS))) ],
         [ "delay", Slider[DELAY](100..500, 200, 'filled'=true,
           'showticks','majorticks'=100,'minorticks'=50,
        onchange=SetOption(target=P,`option`='delay',Argument(DELAY))) ],
        Button("ok",Shutdown()) ]):
 Maplets:-Display(anim);