segment labelling work-in-progress - yet to do are labels and graph colouring

[trains.git] / layout / extractgraph

diff --git a/layout/extractgraph b/layout/extractgraph
index 52f66d8f3a50bea7c91797c7f91ac6edbe8d6d75..5c71d597929dcca66fb15165cd75ff8bf53187af 100755 (executable)
--- a/layout/extractgraph
+++ b/layout/extractgraph
@@ -248,13 +248,20 @@ sub writeout () {
        }
        o("\n};\n");
     }
-    o("\n");
+    o("Segment *all_segments[]= {\n");
+    for $segname (keys %segments) {
+       o("  &segment_$segname,\n");
+    }
+    o("  0\n".
+      "};\n".
+      "\n");
     for ($i=0; $i<@nodes; $i++) {
        $node= $nodes[$i];
        o("static Node ",pr(Node,$node),"= { \"$i\",\n");
        o("  ".($i>0 ? '&'.pr(Node,$nodes[$i-1]) : '0').
          ", ".($i<$#nodes ? '&'.pr(Node,$nodes[$i+1]) : '0'));
-       o(", {");
+       o(",\n  $node->{X}, $node->{Y}, $node->{A},".
+         "  $node->{LayerMin}, $node->{LayerMax}, {");
        $delim= '';
        for ($side=0; $side<2; $side++) {
            o("$delim\n    { &".pr(Node,$node).", $side,");