                                                client-hist
                                                client-send-ch client-recv-ch
                                                vis-chs world-vis-init el-prefix))))))))
-              el-prefix render-net init-event-delay)
+              el-prefix
+              #(render-net % "net-1" "net")
+              init-event-delay)
     cmd-inject-ch))
 
 (start-test "net-test" cbfg.net-test/test)

                      "</div>"])
                  (sort-by first @addrs))
             "</div>"]]
      (set-el-innerHTML "net"
                        (apply str (flatten h))))))

(defn world-vis-init [el-prefix init-event-delay]

                                                        conj [ts v])))
                 (recur num-requests (inc num-responses)))))))

(defn render-net [vis net-actx-id output-el-id]
  (let [net-state (:loop-state (second (first (filter (fn [[actx actx-info]]
                                                        (= (last actx) net-actx-id))
                                                      (:actxs vis)))))
        addrs (atom {})
        coords (atom {})]
