   (let [;; Lines
         normal-line (make-coll :geodetic "normal-line"
                                (l/ords->line-string :geodetic 22.681 -8.839, 18.309 -11.426, 22.705 -6.557))
+        along-am-line (make-coll :geodetic "along-am-line"
+                                 (l/ords->line-string :geodetic -180 0 -180 85))
         normal-line-cart (make-coll :cartesian "normal-line-cart"
                                     (l/ords->line-string :cartesian 16.439 -13.463,  31.904 -13.607, 31.958 -10.401))
 


           ;; Across antimeridian
           [-163.9,49.6,171.51,53.82,166.96,-11.32,-168.36,-14.86,-163.9,49.6]
           [whole-world across-am-poly across-am-br am-point very-wide-cart]

           [-2.212 -12.44, 0.103 -15.911, 2.185 -11.161 -2.212 -12.44]
           [whole-world normal-poly-cart polygon-with-holes-cart]

                            polygon-with-holes-cart]

           ;; crosses am
           [166.11,53.04,-166.52,-19.14] [whole-world across-am-poly across-am-br am-point
                                          very-wide-cart along-am-line]

           ;; Matches geodetic line
           [17.67,-4,25.56,-6.94] [whole-world normal-line]
