projects
/
cl-graph.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2d52d1e
)
Some more graphviz properties
author
Gary King
<gwking@metabang.com>
Thu, 6 Jul 2006 19:59:37 +0000
(15:59 -0400)
committer
Gary King
<gwking@metabang.com>
Thu, 6 Jul 2006 19:59:37 +0000
(15:59 -0400)
darcs-hash:
20060706195937
-3cc5d-
38191dea26c7152617469fdbce1e39f41aa074fd
.gz
dev/graphviz/graphviz-support.lisp
patch
|
blob
|
history
diff --git
a/dev/graphviz/graphviz-support.lisp
b/dev/graphviz/graphviz-support.lisp
index
0bc981e
..
a27a34b
100644
(file)
--- a/
dev/graphviz/graphviz-support.lisp
+++ b/
dev/graphviz/graphviz-support.lisp
@@
-250,6
+250,7
@@
B--D []
(:nodesep float)
(:ranksep float)
(:ordering (:out))
(:nodesep float)
(:ranksep float)
(:ordering (:out))
+ (:overlap :text)
(:rankdir ("LR" "RL" "BT"))
(:pagedir text)
(:rank (:same :min :max))
(:rankdir ("LR" "RL" "BT"))
(:pagedir text)
(:rank (:same :min :max))
@@
-259,14
+260,15
@@
B--D []
(:mclimit float)
(:layers text)
(:color text)
(:mclimit float)
(:layers text)
(:color text)
- (:bgcolor text)))
+ (:bgcolor text)
+ (:fontname text)))
(defparameter *dot-vertex-attributes*
'((:pos coordinate)
(:height float)
(:width float)
(:margin float)
(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
(: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)
(:fillcolor text)
(:style (:filled :solid :dashed :dotted :bold :invis))
(:layer text)
- (:url text)))
+ (:url text)
+ (:peripheries integer)))
(defparameter *dot-edge-attributes*
'((:pos spline)
(defparameter *dot-edge-attributes*
'((:pos spline)