Compare commits

...

1 Commits

Author SHA1 Message Date
557725ac74 removed debug help 2020-01-30 00:15:21 +01:00

View File

@@ -15,7 +15,7 @@
(defun conlanging//declare-node (node-text node-generation)
"Declares a node in the graphviz source code. The nodes identifier will be
~node-generation~, and it will bear the label ~node-text~."
(format "%d[label=\"%s\"];\n" node-generation
(format "%d[label=\"%s\"];" node-generation
node-text))
(defun conlanging/tree-to-dot (tree &optional current-generation previous-generation)
@@ -30,7 +30,7 @@ Arguments:
node"
(cond
((null previous-generation) ;; first call
(concat "graph{graph[dpi=300];node[shape=plaintext];graph[bgcolor=\"transparent\"];\n"
(concat "graph{graph[dpi=300];node[shape=plaintext];graph[bgcolor=\"transparent\"];"
(conlanging//declare-node (car tree) 0)
(conlanging/tree-to-dot (cdr tree) 1 0)
"}"))
@@ -40,7 +40,7 @@ Arguments:
current-generation)
;; make link
(concat (number-to-string previous-generation) " -- "
(number-to-string current-generation) ";\n")
(number-to-string current-generation) ";")
(conlanging/tree-to-dot (cdr tree)
(+ 1
(* 10 current-generation))