add-root-node ( graph ptr index -- graph )


Vocabulary
tools.image.analyzer.graphviz

Inputs
graphan object
ptran object
indexan object


Outputs
graphan object


Definition
USING: graphviz kernel math math.bitwise
tools.image.analyzer.utils ;

IN: tools.image.analyzer.graphviz

: add-root-node ( graph ptr index -- graph )
over 15 mask 1 <=
[ 2drop ] [ [ swap untag add-edge ] keep <root-node> add ]
if ;