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

Vocabulary

tools.image.analyzer.graphviz

Inputs

graph	an object
image	an object

Outputs

graph

an 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 ;