an AutoLISP routine that draws equilateral, isosceles, and right triangles based on the base midpoint or left corner