                                                                    (.. 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))
   

        
        dots-node (create-dots root-node)
        pager (create-pager root-node)
        
        back (decorate-arrow-node back-node "<")
        next (decorate-arrow-node next-node ">")

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