diff options
| author | sternenseemann <git@lukasepple.de> | 2019-05-17 23:49:48 +0200 |
|---|---|---|
| committer | sternenseemann <git@lukasepple.de> | 2019-05-17 23:49:48 +0200 |
| commit | 9ee7690b06a2cb01e9cddba027031ae01d949e35 (patch) | |
| tree | ebcb5dcd5def3a5ecf2f10f800ecebb5e20824bf | |
| parent | 8d2045f0675e6acdfa23a8f14e02e002a11ab197 (diff) | |
adjust values of initial state
| -rw-r--r-- | src/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Main.hs b/src/Main.hs index 00bd5a7..641993b 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -128,11 +128,11 @@ shipHitbox = HMultiple initialWorld :: Fractional a => State a initialWorld = State (PlayerState 0 0) - [ Dynamic shipHitbox 0 10000 (V2 130 20) (V2 0 0) (V2 0 0) True + [ Dynamic shipHitbox 0 10000 (V2 200 0) (V2 0 0) (V2 0 0) True , Static (centeredCircle 80) 0 moonMass (V2 0 0) -- , Static (centeredCircle 40) 0 (0.5 * moonMass) (V2 250 120) ] - where moonMass = 8e13 + where moonMass = 8e14 renderUi :: Show a => PlayerState a -> Picture renderUi ps = translate (-350) (350) . scale 0.3 0.3 . Color green . Text . show $ shipAcc ps |