       (assoc-in [:xAxis :max] @x-max)
       (assoc-in [:yAxis :min] @y-min)
       (assoc-in [:yAxis :max] @y-max)
-      (assoc-in [:series 0 :data] @points)))
+      (assoc-in [:series 0 :data]
+                (take-nth (int @scale) (drop (int @skip) @points)))))
 
 (defn chart-render [wd ht ps]
   @ps

             :on-change #(reset! upper-v (-> % .-target .-value))}]
    @upper-v]])

(defn logistic-map [x]
  (* 3.9341 x (- 1 x)))

(defn evolution! [seed ps interval]
  (letfn [(evol [x y]

   [:div
    [:label {:for "pause"} "pause"]
    [slider "pause" pause 200 2000]]
   [:div
    [:label {:for "skip"} "skip"]
    [slider "skip" skip 0 1000]]
   [:div
    [:label {:for "scale"} "scale"]
    [slider "scale" scale 1 10]]
   [chart width height points]])

(reagent/render-component [page]
