-- | Graph drawing
module Sound.DF.Uniform.PhT.Draw (draw,drawM) where

import Control.Monad.Trans.State {- transformers -}
import Sound.DF.Uniform.LL
import Sound.DF.Uniform.PhT.Node
import qualified Sound.DF.Uniform.UDF as U

-- | View graph using graphviz.
draw :: DF a -> IO ()
draw = U.draw . df_udf

drawM :: State Id (DF a) -> IO ()
drawM = draw . evalId