/usr/share/axiom-20170501/input/graphviz.input is in axiom-test 20170501-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 | )set break resume
)sys rm -f graphviz.output
)spool graphviz.output
)set message test on
)set message auto off
)clear all
--S 1 of 6
header:=standardDotHeader()
--R
--R
--R (1)
--R ["digraph graphname {", "graph [rankdir="LR" ranksep="3.0"]",
--R "node [style=filled];", "edge [penwidth="0.5" color="blue"];"]
--R Type: List(String)
--E 1
--S 2 of 6
graph:=sampleDotGraph()
--R
--R
--R (2)
--R ["I1 [fillcolor="white"];", "I2 [fillcolor="white"];",
--R "N1 [fillcolor="cadetblue"];", "N2 [fillcolor="coral"];",
--R "N3 [fillcolor="green"];", "N4 [fillcolor="gold"];",
--R "N5 [fillcolor="cyan"];", "N6 [fillcolor="red"];",
--R "N7 [fillcolor="yellow"];", "N8 [fillcolor="orange"];",
--R "O1 [fillcolor="white"];", "O2 [fillcolor="white"];", "I1 -> N1;",
--R "I1 -> N2;", "I1 -> N3;", "I2 -> N1;", "I2 -> N2;", "I2 -> N3;",
--R "N1 -> N4;", "N1 -> N5;", "N1 -> N6;", "N2 -> N4;", "N2 -> N5;",
--R "N2 -> N6;", "N3 -> N4;", "N3 -> N5;",
--R "N3 -> N6 [color="red" penwidth="3"];", "N4 -> N7;", "N4 -> N8;",
--R "N5 -> N7;", "N5 -> N8;", "N6 -> N7;", "N6 -> N8;", "N7 -> O1;",
--R "N8 -> O2;"]
--R Type: List(String)
--E 2
--S 3 of 6
writeDotGraph(header,graph,"NeuralNet")
--R
--R Type: Void
--E 3
--S 4 of 6
dot2eps "NeuralNet"
--R
--R Type: Void
--E 4
--S 5 of 6
)show Graphviz
--R
--R Graphviz is a package constructor
--R Abbreviation for Graphviz is GRAPHVIZ
--R This constructor is exposed in this frame.
--R Issue )edit bookvol10.4.pamphlet to see algebra source code for GRAPHVIZ
--R
--R------------------------------- Operations --------------------------------
--R dot2eps : String -> Void dotview : (String,String) -> Void
--R sampleDotGraph : () -> List(String)
--R standardDotHeader : () -> List(String)
--R writeDotGraph : (List(String),List(String),String) -> Void
--R
--E 5
--S 6 of 6
-- dotview("evince","NeuralNet")
--E 6
)spool
)lisp (bye)
|