Update for 0.18

Author: mgold

Ease.elm

@@ -275,10 +275,10 @@ inElastic time =
             p =
                 0.3
 
-            t' =
+            t =
                 time - 1
         in
-            -((2 ^ (10 * t')) * sin ((t' - s) * (2 * pi) / p))
+            -((2 ^ (10 * t)) * sin ((t - s) * (2 * pi) / p))
 
 
 {-| -}

elm-package.json

@@ -10,7 +10,7 @@
         "Ease"
     ],
     "dependencies": {
-        "elm-lang/core": "4.0.0 <= v < 5.0.0"
+        "elm-lang/core": "5.0.0 <= v < 6.0.0"
     },
-    "elm-version": "0.17.0 <= v < 0.18.0"
-}
+    "elm-version": "0.18.0 <= v < 0.19.0"
+}

test/Test.elm

@@ -8,73 +8,75 @@ import Color exposing (gray, black)
 
 
 width =
-  120
+    120
 
 
 height =
-  64
+    64
 
 
 plot : Int -> ( Easing, String ) -> Form
 plot i ( f, name ) =
-  group
-    [ rect width 1 |> filled gray
-    , rect width 1 |> filled gray |> moveY height
-    , path
-        (List.map (\x -> ( x - width / 2, f (x / width) * height )) [0..width])
-        |> traced (solid black)
-      --|> (\ls -> {ls | width = 3}),
-    , Text.fromString name |> text |> moveY (height + 8)
-    ]
-    |> move ( (width + 10) * (i % 6) |> toFloat, (-height - 20) * (i // 6) |> toFloat )
+    group
+        [ rect width 1 |> filled gray
+        , rect width 1 |> filled gray |> moveY height
+        , List.map
+            (toFloat >> (\x -> ( x - width / 2, f (x / width) * height )))
+            (List.range 0 (round width))
+            |> path
+            |> traced (solid black)
+          --|> (\ls -> {ls | width = 3}),
+        , Text.fromString name |> text |> moveY (height + 8)
+        ]
+        |> move ( (width + 10) * (i % 6) |> toFloat, (-height - 20) * (i // 6) |> toFloat )
 
 
 title =
-  Text.fromString "This is a replication of easings.net for testing purposes. You can see the plots are nearly identical."
-    |> text
-    |> move ( 200, height + 30 )
+    Text.fromString "This is a replication of easings.net for testing purposes. You can see the plots are nearly identical."
+        |> text
+        |> move ( 200, height + 30 )
 
 
 main =
-  let
-    forms =
-      title :: List.indexedMap plot easingFunctions
+    let
+        forms =
+            title :: List.indexedMap plot easingFunctions
 
-    grouped =
-      group forms |> move ( -200, 300 )
-  in
-    collage 1000 1000 [ grouped ] |> toHtml
+        grouped =
+            group forms |> move ( -200, 300 )
+    in
+        collage 1000 1000 [ grouped ] |> toHtml
 
 
 easingFunctions =
-  [ ( inSine, "inSine" )
-  , ( outSine, "outSine" )
-  , ( inOutSine, "inOutSine" )
-  , ( inQuad, "inQuad" )
-  , ( outQuad, "outQuad" )
-  , ( inOutQuad, "inOutQuad" )
-  , ( inCubic, "inCubic" )
-  , ( outCubic, "outCubic" )
-  , ( inOutCubic, "inOutCubic" )
-  , ( inQuart, "inQuart" )
-  , ( outQuart, "outQuart" )
-  , ( inOutQuart, "inOutQuart" )
-  , ( inQuint, "inQuint" )
-  , ( outQuint, "outQuint" )
-  , ( inOutQuint, "inOutQuint" )
-  , ( inExpo, "inExpo" )
-  , ( outExpo, "outExpo" )
-  , ( inOutExpo, "inOutExpo" )
-  , ( inCirc, "inCirc" )
-  , ( outCirc, "outCirc" )
-  , ( inOutCirc, "inOutCirc" )
-  , ( inBack, "inBack" )
-  , ( outBack, "outBack" )
-  , ( inOutBack, "inOutBack" )
-  , ( inElastic, "inElastic" )
-  , ( outElastic, "outElastic" )
-  , ( inOutElastic, "inOutElastic" )
-  , ( inBounce, "inBounce" )
-  , ( outBounce, "outBounce" )
-  , ( inOutBounce, "inOutBounce" )
-  ]
+    [ ( inSine, "inSine" )
+    , ( outSine, "outSine" )
+    , ( inOutSine, "inOutSine" )
+    , ( inQuad, "inQuad" )
+    , ( outQuad, "outQuad" )
+    , ( inOutQuad, "inOutQuad" )
+    , ( inCubic, "inCubic" )
+    , ( outCubic, "outCubic" )
+    , ( inOutCubic, "inOutCubic" )
+    , ( inQuart, "inQuart" )
+    , ( outQuart, "outQuart" )
+    , ( inOutQuart, "inOutQuart" )
+    , ( inQuint, "inQuint" )
+    , ( outQuint, "outQuint" )
+    , ( inOutQuint, "inOutQuint" )
+    , ( inExpo, "inExpo" )
+    , ( outExpo, "outExpo" )
+    , ( inOutExpo, "inOutExpo" )
+    , ( inCirc, "inCirc" )
+    , ( outCirc, "outCirc" )
+    , ( inOutCirc, "inOutCirc" )
+    , ( inBack, "inBack" )
+    , ( outBack, "outBack" )
+    , ( inOutBack, "inOutBack" )
+    , ( inElastic, "inElastic" )
+    , ( outElastic, "outElastic" )
+    , ( inOutElastic, "inOutElastic" )
+    , ( inBounce, "inBounce" )
+    , ( outBounce, "outBounce" )
+    , ( inOutBounce, "inOutBounce" )
+    ]

test/elm-package.json

@@ -8,8 +8,8 @@
     ],
     "exposed-modules": [],
     "dependencies": {
-        "elm-lang/core": "4.0.0 <= v < 5.0.0",
-        "evancz/elm-graphics": "1.0.0 <= v < 2.0.0"
+        "elm-lang/core": "5.0.0 <= v < 6.0.0",
+        "evancz/elm-graphics": "1.0.1 <= v < 2.0.0"
     },
-    "elm-version": "0.17.0 <= v < 0.18.0"
+    "elm-version": "0.18.0 <= v < 0.19.0"
 }