Question: Help to make legends apear on a plot

Hey everone, im trying to get 2 legends to apear on my plot im animateing. The problem here is that it just wont. Could you guys help me ?

Heres the code

c := x -> piecewise(0 <= x and x <= 450000, 0.37*x, 450000 < x, 0.37*x + 0.06*(x - 450000));
g := x -> piecewise(0 <= x and x <= 558000, 0.37*x, 558000 < x, 0.37*x + 0.12*(x - 558000));
A1 := plots:-animate(plot, [g(x), x = 0 .. skat, color = blue], frames = 20, skat = 0 .. 1000000);
A2 := plots:-animate(plot, [c(x), x = 0 .. skat, color = red], frames = 20, skat = 0 .. 1000000);
Do(%Plot2 = plots:-display([A1, A2], size = [1000, 700], gridlines = true, legend=["Line 1","Line 2"],legendstyle=[font=[Lucida, roman, 14], location=bottom]));
SetProperty("Plot2", ':-play', true, ':-refresh' = true);