             xscale (:xscale stroke-data)
             yscale (:yscale stroke-data)
             joints (:joints stroke-data)
-            stroke-z (calc-stroke-z stroke joints)
+            dense-stroke (fill-intra-index-stroke-gap stroke)
+            stroke-z (calc-stroke-z dense-stroke joints)
             gaps (fill-inter-stroke-gap (list stroke-z))
-            dense-strokes (map fill-intra-stroke-gap (list stroke-z))
             strokes-plus-gaps (list 
                                 (process-stroke (first gaps) xscale yscale 6.0)
-                                (process-stroke (first dense-strokes) xscale yscale nil)
+                                (process-stroke stroke-z xscale yscale nil)
                                 (process-stroke (second gaps) xscale yscale 6.0))]
-        (println (map cons (iterate inc 0) (second strokes-plus-gaps)))
+        (println dense-stroke)
         (dump-angles (xyz2angles-list (reduce concat strokes-plus-gaps)))))))
 
 (defn write-strokes [angles-seq]

        dense-strokes (map fill-intra-stroke-gap strokes)
        ;; gaps has one element than dense-strokes
        strokes-plus-gaps (concat (interleave (map (fn [x] (process-stroke x xscale yscale 6.0)) gaps)
                                              (map (fn [x] (process-stroke x xscale yscale 3.9)) dense-strokes))
                                  (list (process-stroke (last gaps) xscale yscale 6.0)))
        strokes-z (reduce concat strokes-plus-gaps)]
    (xyz2angles-list strokes-z)))

;;
(def min-y 18)
(def xfield-size 24)
(def yfield-size 8)

(def base-high 25.4)
(def first-arm 20.9)
(def second-arm 24.0)
(def offset-last 5.5)

(defn to-int [val]
  (int (+ 0.5 val)))
