Commit 3f1cd9c1 authored by Bruno Guillaume's avatar Bruno Guillaume

Trick for undirect access to positions…

parent 1191d051
......@@ -686,6 +686,9 @@ module G_graph = struct
let strings_to_concat =
List.map
(function
| Concat_item.Feat (node_gid, "position") ->
let node = Gid_map.find node_gid graph.map in
sprintf "%g" (G_node.get_position node)
| Concat_item.Feat (node_gid, feat_name) ->
let node = Gid_map.find node_gid graph.map in
(match G_fs.get_string_atom feat_name (G_node.get_fs node) with
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment