                                                                    (.. FamousEngine (requestUpdateOnNextTick this)))
                                                           )})))
 
-    (add-watch (:currentIndex pager) :watcher (fn [key atom old-index new-index]
-                                                (let [pages (:pages pager)
-                                                      old-page (nth pages old-index)
-                                                      new-page (nth pages new-index)]
-                                                  (.. (:anchor old-page) (set 1 0 0))
-                                                  (.. (:quaternion old-page) (fromEuler 0 (/ (.. js/Math -PI) -2) 0))
-                                                  (.. (:anchor new-page) (set 0 0 0))
-                                                  (.. (:quaternion new-page) (set 1 0 0 0))
-                                                  ) 
-                                                
-                                                ))
+    
     
     pager))
   

        (setAlign 1 0.5 0)
        (setPosition -40 0 0)
        (setMountPoint 1 0.5 0))
    (go
      (while true
        (let [[v channel] (alts! [back-clicks next-clicks])]
          (cond
            (= channel back-clicks) (let [current-index (:currentIndex pager)]
                                      (println "back" @current-index)
                                      (swap! current-index dec)
                                      )
            (= channel next-clicks) (let [current-index (:currentIndex pager)]
                                      (println "next" @current-index)
                                      (swap! current-index inc)
                                      )))))))

        pager-node (.. root-node addChild)
        pages (create-pages root-node)
        pager {:node     pager-node
               :pages pages
               :pageWidth (atom 0)}
       ]
