           (when (= line "// Insert Arrays Here")
             (.write fout 
                     (with-out-str 
-                      (println (str "var betas = [" (string/join "," (map #(str (first %)) alpha-beta-degree-list)) "];"))
-                      (println (str "var alphas = [" (string/join "," (map #(str (second %)) alpha-beta-degree-list)) "];"))
+                      (println (str "var alphas = [" (string/join "," (map #(str (first %)) alpha-beta-degree-list)) "];"))
+                      (println (str "var betas = [" (string/join "," (map #(str (second %)) alpha-beta-degree-list)) "];"))
                       (println (str "var delta_thetas = [" (string/join "," (map #(str (get-base-angle (second %))) r-theta-list)) "];"))))
-                      ;(println (str "const int betas[] PROGMEM = {" (string/join "," (map #(str (first %)) alpha-beta-degree-list)) "};"))
-                      ;(println (str "const int alphas[] PROGMEM = {" (string/join "," (map #(str (second %)) alpha-beta-degree-list)) "};"))
-                      ;(println (str "const int delta_thetas[] PROGMEM = {" (string/join "," (map #(str (get-base-angle (second %))) r-theta-list)) "};"))))
+            ;(println (str "const int alphas[] PROGMEM = {" (string/join "," (map #(str (first %)) alpha-beta-degree-list)) "};"))
+            ;(println (str "const int betas[] PROGMEM = {" (string/join "," (map #(str (second %)) alpha-beta-degree-list)) "};"))
+            ;(println (str "const int delta_thetas[] PROGMEM = {" (string/join "," (map #(str (get-base-angle (second %))) r-theta-list)) "};"))))
             (.write fout "\n")))))))
 
 ;(defn -main1

(ns calc-angle.core
 (:require [clojure.string :as string]
           [clojure.core.reducers :as r])
 (:gen-class))

(declare radian-to-degree)


                  (- (second pt2) (second pt1))))))

(defn mix-pts [pt1 ratio1 pt2 ratio2]
  (list (+ 
          (* ratio1 (first pt1))
          (* ratio2 (first pt2)))
        (+
          (* ratio1 (second pt1))
          (* ratio2 (second pt2)))))

(defn preprocess-stroke [stroke]
  (defn append-point [stroke-arr new-tail]
