I'm just starting to think about writing a perl program to make it easy to draw euclidean geometry graphs. You see, I'm trying to teach my daughter some serious geometry, but am getting tired of drawing bad graphs. I'm wondering, first of all, what tools those book publisher use to draw those graphs for books. But I'm more interested in writing a perl program to do that. I'm not looking for a click-drag-click kind of tool like visio, but a tool to draw a graph from a description file. For example, to draw a graph corresponding to the problem of "Prove the three angle bisectors of a triangle intersect at one point", I'd like to be able to say: "draw a trangle ABC in general position, draw bisector from A intersecting BC at D,...,", and the program just read in this description and produce the graph.

So I guess my questions are: is there something like this out there? do you think this is feasible? any suggestions?

Thanks.