main :: IO ()
main = do

   let seqFlowGraph =
          EqSys.solve TripodGiven.seqFlowGraph TripodGiven.equationSystem

       stateFlowGraph =
          StateFlow.graphFromCumResult $
          StateFlow.fromSequenceFlowResult False seqFlowGraph

   concurrentlyMany_ $ map Draw.xterm $
      Draw.seqFlowGraph Draw.optionsDefault seqFlowGraph :
      Draw.stateFlowGraph Draw.optionsDefault stateFlowGraph :
      Draw.stateFlowGraph Draw.optionsDefault
         (StateEqSys.solve stateFlowGraph mempty) :
      []
main :: IO ()
main = do

   let seqFlowGraph =
          EqSys.solve TripodGiven.seqFlowGraph TripodGiven.equationSystem

       stateFlowGraph =
          StateFlow.graphFromCumResult $
          StateFlow.fromSequenceFlowResult False seqFlowGraph

   concurrentlyMany_ $ map Draw.xterm $
      Draw.seqFlowGraph Draw.optionsDefault seqFlowGraph :
      Draw.stateFlowGraph Draw.optionsDefault stateFlowGraph :
      Draw.stateFlowGraph Draw.optionsDefault
         (StateEqSys.solve stateFlowGraph mempty) :
      []
main = do

   let seqFlowGraph =
          EqSys.solve TripodGiven.seqFlowGraph TripodGiven.equationSystem

       stateFlowGraph =
          StateFlow.graphFromCumResult $
          StateFlow.fromSequenceFlowResult False seqFlowGraph

   concurrentlyMany_ $ map Draw.xterm $
      Draw.seqFlowGraph Draw.optionsDefault seqFlowGraph :
      Draw.stateFlowGraph Draw.optionsDefault stateFlowGraph :
      Draw.stateFlowGraph Draw.optionsDefault
         (StateEqSys.solve stateFlowGraph mempty) :
      []