(setq pc1 (list 50.0 50.0)) (setq r 20 )(setq pc2 (polar...