                                                                       (boolean vertices)
                                                                       (boolean normals)]))
   (let [[x y z] [(js/Math.sin now)
-                 (js/Math.cos now)
+                 5;;(js/Math.cos now)
                  (js/Math.sin (* now 2))]]
     {u-p-matrix           (object-array p)
      u-mv-matrix          (object-array mv)

        height           (.-clientHeight node)
        driver           (make-driver gl)
        starting-program 0
        programs         {:diffuse-flat  (gd/program driver program-diffuse-flat)
                          :diffuse-light (gd/program driver program-diffuse-light)
                          :texture-flat  (gd/program driver program-texture-flat)
                          :texture-light (gd/program driver program-texture-light)
                          :sky-box       (gd/program driver program-sky-box)}
        now              (.getTime (js/Date.))
        app-state        (-> (app-state width height gl node now)
                             (update-in [:comms] merge {:controls controls

                                      sampler          (:sampler material)
                                      draw-count       (:count indices)
                                      program-name     (if texture-program?
                                                         :texture-per-fragment-light
                                                         :diffuse-per-fragment-light)
                                      program          (get-in state [:runtime :programs program-name])
                                      scene-data       (when normals
                                                         (select-keys (get-data now
