Geo projections (#52)

Former-commit-id: bc6475b83149db308bf541f1a49b6a8e67729a81

examples/doc_bonneP.hs

@@ -0,0 +1,12 @@
+#!/usr/bin/env stack
+-- stack runghc --package reanimate
+module Main (main) where
+
+import           Reanimate
+import           Reanimate.GeoProjection
+import           Reanimate.Builtin.Images
+
+main :: IO ()
+main = reanimate $ animate $
+  const $ scaleToSize screenWidth screenHeight $
+  embedImage $ project smallEarth (bonneP (45/180*pi))

examples/doc_bottomleyP.hs

@@ -0,0 +1,12 @@
+#!/usr/bin/env stack
+-- stack runghc --package reanimate
+module Main (main) where
+
+import           Reanimate
+import           Reanimate.GeoProjection
+import           Reanimate.Builtin.Images
+
+main :: IO ()
+main = reanimate $ animate $
+  const $ scaleToSize screenWidth screenHeight $
+  embedImage $ project smallEarth (bottomleyP (30/180*pi))

examples/doc_collignonP.hs

@@ -0,0 +1,12 @@
+#!/usr/bin/env stack
+-- stack runghc --package reanimate
+module Main (main) where
+
+import           Reanimate
+import           Reanimate.GeoProjection
+import           Reanimate.Builtin.Images
+
+main :: IO ()
+main = reanimate $ animate $
+  const $ scaleToSize screenWidth screenHeight $
+  embedImage $ project smallEarth collignonP

examples/doc_eckert1P.hs

@@ -0,0 +1,12 @@
+#!/usr/bin/env stack
+-- stack runghc --package reanimate
+module Main (main) where
+
+import           Reanimate
+import           Reanimate.GeoProjection
+import           Reanimate.Builtin.Images
+
+main :: IO ()
+main = reanimate $ animate $
+  const $ scaleToSize screenWidth screenHeight $
+  embedImage $ project smallEarth eckert1P

examples/doc_eckert3P.hs

@@ -0,0 +1,12 @@
+#!/usr/bin/env stack
+-- stack runghc --package reanimate
+module Main (main) where
+
+import           Reanimate
+import           Reanimate.GeoProjection
+import           Reanimate.Builtin.Images
+
+main :: IO ()
+main = reanimate $ animate $
+  const $ scaleToSize screenWidth screenHeight $
+  embedImage $ project smallEarth eckert3P

examples/doc_eckert5P.hs

@@ -0,0 +1,12 @@
+#!/usr/bin/env stack
+-- stack runghc --package reanimate
+module Main (main) where
+
+import           Reanimate
+import           Reanimate.GeoProjection
+import           Reanimate.Builtin.Images
+
+main :: IO ()
+main = reanimate $ animate $
+  const $ scaleToSize screenWidth screenHeight $
+  embedImage $ project smallEarth eckert5P

examples/doc_equirectangularP.hs

@@ -0,0 +1,12 @@
+#!/usr/bin/env stack
+-- stack runghc --package reanimate
+module Main (main) where
+
+import           Reanimate
+import           Reanimate.GeoProjection
+import           Reanimate.Builtin.Images
+
+main :: IO ()
+main = reanimate $ animate $
+  const $ scaleToSize screenWidth screenHeight $
+  embedImage $ project smallEarth equirectangularP

examples/doc_faheyP.hs

@@ -0,0 +1,12 @@
+#!/usr/bin/env stack
+-- stack runghc --package reanimate
+module Main (main) where
+
+import           Reanimate
+import           Reanimate.GeoProjection
+import           Reanimate.Builtin.Images
+
+main :: IO ()
+main = reanimate $ animate $
+  const $ scaleToSize screenWidth screenHeight $
+  embedImage $ project smallEarth faheyP

examples/doc_hammerP.hs

@@ -0,0 +1,12 @@
+#!/usr/bin/env stack
+-- stack runghc --package reanimate
+module Main (main) where
+
+import           Reanimate
+import           Reanimate.GeoProjection
+import           Reanimate.Builtin.Images
+
+main :: IO ()
+main = reanimate $ animate $
+  const $ scaleToSize screenWidth screenHeight $
+  embedImage $ project smallEarth hammerP

examples/doc_lambertP.hs

@@ -0,0 +1,12 @@
+#!/usr/bin/env stack
+-- stack runghc --package reanimate
+module Main (main) where
+
+import           Reanimate
+import           Reanimate.GeoProjection
+import           Reanimate.Builtin.Images
+
+main :: IO ()
+main = reanimate $ animate $
+  const $ scaleToSize screenWidth screenHeight $
+  embedImage $ project smallEarth lambertP

examples/doc_mercatorP.hs

@@ -0,0 +1,12 @@
+#!/usr/bin/env stack
+-- stack runghc --package reanimate
+module Main (main) where
+
+import           Reanimate
+import           Reanimate.GeoProjection
+import           Reanimate.Builtin.Images
+
+main :: IO ()
+main = reanimate $ animate $
+  const $ scaleToSize screenWidth screenHeight $
+  embedImage $ project smallEarth mercatorP

examples/doc_mollweideP.hs

@@ -0,0 +1,12 @@
+#!/usr/bin/env stack
+-- stack runghc --package reanimate
+module Main (main) where
+
+import           Reanimate
+import           Reanimate.GeoProjection
+import           Reanimate.Builtin.Images
+
+main :: IO ()
+main = reanimate $ animate $
+  const $ scaleToSize screenWidth screenHeight $
+  embedImage $ project smallEarth mollweideP

examples/doc_orthoP.hs

@@ -0,0 +1,12 @@
+#!/usr/bin/env stack
+-- stack runghc --package reanimate
+module Main (main) where
+
+import           Reanimate
+import           Reanimate.GeoProjection
+import           Reanimate.Builtin.Images
+
+main :: IO ()
+main = reanimate $ animate $
+  const $ scaleToSize screenWidth screenHeight $
+  embedImage $ project smallEarth (orthoP 0 0)

examples/doc_sinusoidalP.hs

@@ -0,0 +1,12 @@
+#!/usr/bin/env stack
+-- stack runghc --package reanimate
+module Main (main) where
+
+import           Reanimate
+import           Reanimate.GeoProjection
+import           Reanimate.Builtin.Images
+
+main :: IO ()
+main = reanimate $ animate $
+  const $ scaleToSize screenWidth screenHeight $
+  embedImage $ project smallEarth sinusoidalP

examples/doc_smallEarth.hs

@@ -0,0 +1,12 @@
+#!/usr/bin/env stack
+-- stack runghc --package reanimate
+module Main (main) where
+
+import           Reanimate
+import           Reanimate.Builtin.Documentation
+import           Reanimate.Builtin.Images
+
+main :: IO ()
+main = reanimate $ docEnv $ animate $ const $
+  scaleToSize screenWidth screenHeight $
+  embedImage smallEarth

examples/doc_wernerP.hs

@@ -0,0 +1,12 @@
+#!/usr/bin/env stack
+-- stack runghc --package reanimate
+module Main (main) where
+
+import           Reanimate
+import           Reanimate.GeoProjection
+import           Reanimate.Builtin.Images
+
+main :: IO ()
+main = reanimate $ animate $
+  const $ scaleToSize screenWidth screenHeight $
+  embedImage $ project smallEarth wernerP