From 60a6a5dc8344e67aef8c8903c3cacc58a1f2315d Mon Sep 17 00:00:00 2001 From: Gary King Date: Thu, 6 Jul 2006 15:59:37 -0400 Subject: [PATCH] Some more graphviz properties darcs-hash:20060706195937-3cc5d-38191dea26c7152617469fdbce1e39f41aa074fd.gz --- dev/graphviz/graphviz-support.lisp | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/dev/graphviz/graphviz-support.lisp b/dev/graphviz/graphviz-support.lisp index 0bc981e..a27a34b 100644 --- a/dev/graphviz/graphviz-support.lisp +++ b/dev/graphviz/graphviz-support.lisp @@ -250,6 +250,7 @@ B--D [] (:nodesep float) (:ranksep float) (:ordering (:out)) + (:overlap :text) (:rankdir ("LR" "RL" "BT")) (:pagedir text) (:rank (:same :min :max)) @@ -259,14 +260,15 @@ B--D [] (:mclimit float) (:layers text) (:color text) - (:bgcolor text))) + (:bgcolor text) + (:fontname text))) (defparameter *dot-vertex-attributes* '((:pos coordinate) (:height float) (:width float) (:margin float) - (:fixedsize boolean) + (:fixed-size boolean) (:label text) (:shape (:record :plaintext :ellipse :circle :egg :triangle :box :diamond :trapezium :parallelogram :house :hexagon :octagon @@ -278,7 +280,8 @@ B--D [] (:fillcolor text) (:style (:filled :solid :dashed :dotted :bold :invis)) (:layer text) - (:url text))) + (:url text) + (:peripheries integer))) (defparameter *dot-edge-attributes* '((:pos spline) -- 1.7.10.4