    (let [w 950 h 500
          line-geo (js/THREE.Geometry.)
          line-material (js/THREE.LineBasicMaterial.  (clj->js  {:color 0x000000
-                                                                :lineWidth 2}))]
+                                                                :lineWidth 1}))]
      {:renderer (js/THREE.WebGLRenderer. (clj->js {:antialias true}))
       :camera (js/THREE.PerspectiveCamera. 45 (/ w h) 1 10000)
       :scene (js/THREE.Scene.)

       (events->chan js/window EventType.MOUSEUP up)
       (events->chan js/window EventType.MOUSEMOVE move)
       (go-loop [[event c] (alts! [down up move])]
         (.log js/console event)
         (.log js/console "up: " (= up c))
         (.log js/console "down: " (= down c))
         (.log js/console "move: " (= move c))
         (.log js/console "c: " c)
         (condp = c
           down (do
                  (log/fine l "DOWN")

       (sub (:pub ws-chan) :post ws-sub-chan)
       (go-loop
           [[m c] (alts! [ws-sub-chan e-chan])]

         (when m
           (condp = c
             ws-sub-chan (do
