         
         back (decorate-arrow-node back-node "<")
         next (decorate-arrow-node next-node ">")
-        dots (decorate-dots dots-node)]
+        dots (decorate-dots dots-node)
+        ]
     (.. back-node
         (setAlign 0 0.5 0)
         (setPosition 40 0 0)

                           (setProperty "backgroundImage" image-url)
                           (setProperty "background-repeat" "no-repeat")
                           (setProperty "background-size" "cover"))
                       {:node image-node
                        :el el
                        :box box

               :currentIndex (atom 0) 
               :threashold 4000
               :pages pages
               :pageWidth (atom 0)}
       ]

    (.. pager-node (addComponent (clj->js {:onSizeChange (fn [^Float32Array size]
                                                           (reset! (:pageWidth pager) size))})))

    (.. FamousEngine (requestUpdate (clj->js {:onUpdate (fn [time]
                                                          (.. simulation (update time))
                                                          (doseq [page (:pages pager)
                                                                  :let [physics-transform (.. simulation (getTransform (:box page)))
                                                                        p (.. physics-transform -position)
                                                                        r (.. physics-transform -rotation)
                                                                        node (:node page)]]
                                                            (.. node
                                                                (setPosition (* 0 1446) 0 0)
                                                                (setRotation (nth r 0) (nth r 1) (nth r 2) (nth r 3))
                                                                )
                                                            )
                                                          
                                                          (this-as this
                                                                   (.. 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))
  
(defn Carousel [selector data]
  (let [context (.. FamousEngine (createScene selector))
        root-node (.. context addChild)
