\filldraw  (A) circle (1pt) node [above] {$~A$};
\filldraw  (P) circle (1pt) node [right] {$~P$};

