 ;;
 (def min-y 18)
 (def xfield-size 24)
-(def yfield-size 12)
+(def yfield-size 8)
 
 (def base-high 25.4)
 (def first-arm 20.9)
 (def second-arm 24.0)
-(def offset-last 5.2)
+(def offset-last 5.5)
 
 (defn to-int [val]
   (int (+ 0.5 val)))

        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)))

        y (+ (* (Math/sin beta-rad) first-arm) (* (Math/sin (- alpha-rad)) second-arm))]
    (list (* r (Math/cos theta-rad)) y (* r (Math/sin (- theta-rad))))))

(def ^:dynamic *serial-conn*)
(def dump-degrees true)

(defn set-count [cnt]
  (let [count-str (format "s=%d," cnt)]
