fix b1039 - improper arrowhead on flat edges in undirected graphs

diff --git a/lib/dotgen/dotsplines.c b/lib/dotgen/dotsplines.c
index 2f25119d554e3cdd636b3be5532c5aa0129d0476..5790df6644590537f6b5f7c744a434039118991c 100644 (file)
--- a/lib/dotgen/dotsplines.c
+++ b/lib/dotgen/dotsplines.c
@@ -631,9 +631,10 @@ static graph_t*
 cloneGraph (graph_t* g)
 {
     Agsym_t* sym;
-    graph_t* auxg = agopen ("auxg", AGDIGRAPH);
+    graph_t* auxg;
     Agsym_t **list;
     
+    auxg = agopen ("auxg", AG_IS_DIRECTED(g)?AGDIGRAPH:AGRAPH);
     agraphattr(auxg, "rank", "");
     GD_drawing(auxg) = NEW(layout_t);
     GD_drawing(auxg)->quantum = GD_drawing(g)->quantum;