 
 
 (def path-colors
-  [
-   0xA6CEE3
-   0x1F78B4
-   0xB2DF8A
-   0x33A02C
-   0xFB9A99
-   0xE31A1C
-   0xFDBF6F
-   0xFF7F00
-   0xCAB2D6
-   0xFF0000
-   0x00FF00
-   0x0000FF
-   0xF15854 ;; (red))
-   0xB276B2 ;; (purple)
-   0xDECF3F ;; (yellow)
-   0x4D4D4D ;; (gray)
-   0x5DA5DA ;; (blue)
-   0xFAA43A ;; (orange)
-   0x60BD68 ;; (green)
-   0xF17CB0 ;; (pink)
-   0xB2912F ;; (brown)
-   ])
+  (cycle
+   [
+    0xA6CEE3
+    0x1F78B4
+    0xB2DF8A
+    0x33A02C
+    0xFB9A99
+    0xE31A1C
+    0xFDBF6F
+    0xFF7F00
+    0xCAB2D6
+    0xFF0000
+    0x00FF00
+    0x0000FF
+    0xF15854 ;; (red))
+    0xB276B2 ;; (purple)
+    0xDECF3F ;; (yellow)
+    0x4D4D4D ;; (gray)
+    0x5DA5DA ;; (blue)
+    0xFAA43A ;; (orange)
+    0x60BD68 ;; (green)
+    0xF17CB0 ;; (pink)
+    0xB2912F ;; (brown)
+    ]))
 
 
 (defn feet-to-meters [f]

   records))


(defn kmldoc [tracks]
  [:kml {:xmlns "http://www.opengis.net/kml/2.2"}
   [:Document
    [:name "Recent law enforcement aircraft tracks"]
    [:description
     (str (count tracks) " sessions")]
    (map-indexed
     (fn [idx color]
       [:Style {:id (str "color" idx)}

         [:width 4]]
        [:PolyStyle
         [:color "7f00ff00"]]])
     (take 100 path-colors))
    tracks]])


