reanimate-0.2.0.0: examples/doc_equirectangularP.hs

#!/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