 
 (defcard
   "100 values linearly distributed between -1.0 and 1.0
-   in ring buffer of size 100. 200 values taken out of it."
+   in ring buffer of size 100. Taking 200 values out of
+   it results in 100 values from -1.0 and 1.0, followed
+   by 100 nils."
   (let [data (linear-distribution [-1.0 1.0] 100)]
     (plot-buffer 200
                  (take 100 data)


(defcard
  "200 values linearly distributed between -1.0 and 1.0
   in ring buffer of size 100. 200 values taken out of it."
  (let [data (linear-distribution [-1.0 1.0] 200)]
    (plot-buffer 200
                 (drop 100 data)
                 (into (ring-buffer 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)
