(setq A (point 3 3))
(setq B (point 3 6))
(setq C (point 7 3))
(triangle A B C)