New Style Generator (#8)

1 files changed, 24 insertions, 0 deletions

diff --git a/examples/Styles/Satellite.elm b/examples/Styles/Satellite.elm
new file mode 100644
index 0000000..77a7f06
--- /dev/null
+++ b/examples/Styles/Satellite.elm
@@ -0,0 +1,24 @@
+module Styles.Satellite exposing (style)
+
+import Mapbox.Expression as E
+import Mapbox.Layer as Layer
+import Mapbox.Source as Source
+import Mapbox.Style as Style exposing (Style(..))
+
+
+style : Style
+style =
+    Style
+        { transition = Style.defaultTransition
+        , light = Style.defaultLight
+        , layers =
+            [ Layer.background "background" [ Layer.backgroundColor (E.rgba 4 7 14 1) ]
+            , Layer.raster "satellite" "mapbox" [ Layer.sourceLayer "mapbox_satellite_full" ]
+            ]
+        , sources = [ Source.rasterFromUrl "mapbox" "mapbox://mapbox.satellite" ]
+        , misc =
+            [ Style.sprite "mapbox://sprites/mapbox/satellite-v9"
+            , Style.glyphs "mapbox://fonts/mapbox/{fontstack}/{range}.pbf"
+            , Style.name "Satellite"
+            ]
+        }