Plot[{Sqrt[1 - (-1 Abs[x])^2], -Pi ArcCos[1 - Abs[x]]}, {x, -2, 2},{y,-3,1}]