diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Cloud.elm | 2 | ||||
| -rw-r--r-- | src/Physics.elm | 2 | ||||
| -rw-r--r-- | src/Player.elm | 4 | ||||
| -rw-r--r-- | src/Point.elm | 2 |
4 files changed, 5 insertions, 5 deletions
diff --git a/src/Cloud.elm b/src/Cloud.elm index 0916bf6..45a1dcb 100644 --- a/src/Cloud.elm +++ b/src/Cloud.elm @@ -15,7 +15,7 @@ type alias Cloud = initCloud : Cloud initCloud = - let spawn = 100 + let spawn = 600 in { points config = case config of White -> [] diff --git a/src/Physics.elm b/src/Physics.elm index b59b3e1..2d2d627 100644 --- a/src/Physics.elm +++ b/src/Physics.elm @@ -23,7 +23,7 @@ getMove speed dir = } getAcc : Vec2 -> Vec2 -> Vec2 -getAcc move speed = (move `div` 800) `sub` (speed `div` 1000) +getAcc move speed = (move `div` 300) `sub` (speed `div` 300) getNewPos : Float -> Vec2 -> Vec2 -> Vec2 -> Vec2 getNewPos dt acc speed pos = diff --git a/src/Player.elm b/src/Player.elm index 2be7229..d1c10e0 100644 --- a/src/Player.elm +++ b/src/Player.elm @@ -10,7 +10,7 @@ type alias Player = } playerSize : Float -playerSize = 10 +playerSize = 15 playerSpeed : Float -> Float -playerSpeed dt = dt / 400 +playerSpeed dt = dt / 200 diff --git a/src/Point.elm b/src/Point.elm index a27916c..e66a5f7 100644 --- a/src/Point.elm +++ b/src/Point.elm @@ -15,7 +15,7 @@ pointMove {initTime, initPos, initDest, move} time = move initTime initPos initDest time pointSize : Float -pointSize = 5 +pointSize = 10 pointSpeed : Float -> Float pointSpeed dt = dt / 20 |