add-root-nodes ( graph image -- graph )


Vocabulary
tools.image-analyzer.graphviz

Inputs
graphan object
imagean object


Outputs
graphan object


Definition
USING: accessors graphviz kernel sequences ;

IN: tools.image-analyzer.graphviz

: add-root-nodes ( graph image -- graph )
0 <cluster> swap header>> special-objects>>
[ add-root-node ] each-index add ;