 
 (defcard
   "100 values linearly distributed between -1.0 and 1.0
-   in ring buffer of size 100. 10 values taken out of it."
+   in ring buffer of size 100. Taking 10 values out of
+   it results in 10 values starting at -1.0."
   (let [data (linear-distribution [-1.0 1.0] 100)]
     (plot-buffer 10
                  (take 10 data)


(defcard
  "100 values linearly distributed between -1.0 and 1.0
   in ring buffer of size 100. 20 values taken out of it."
  (let [data (linear-distribution [-1.0 1.0] 100)]
    (plot-buffer 20
                 (take 20 data)
                 (into (ring-buffer 100) data))))

(defcard
  "100 values linearly distributed between -1.0 and 1.0
   in ring buffer of size 100. 100 values taken out of it."
  (let [data (linear-distribution [-1.0 1.0] 100)]
    (plot-buffer 100
                 (take 100 data)

         [:div {:style {:text-align "center"}} "Actual"]]]]])))

(defcard
  "100 zeroes in a ring buffer of size 100. Taking 100 values
   out of it results in 100 values of 0.0."
  (let [data (repeat 100 0.0)]
    (plot-buffer 100 data (into (ring-buffer 100) data))))

(defcard
  "100 zeroes in a ring buffer of size 100. Taking 200 values
   out of it results in 100 values of 0.0, followed by 100
   nils."
  (let [data (repeat 100 0.0)]
    (plot-buffer 200 data (into (ring-buffer 100) data))))

(defcard
  "100 zeroes and 100 ones in a ring buffer of size 100.
   Taking 100 values out of results in 100 values of 1.0."
  (let [data (concat (repeat 100 0.0) (repeat 100 1.0))]
    (plot-buffer 100
                 (drop 100 data)
