diff options
| author | lukasepple <git@lukasepple.de> | 2015-12-05 19:34:11 +0100 |
|---|---|---|
| committer | lukasepple <git@lukasepple.de> | 2015-12-05 19:34:11 +0100 |
| commit | 9a17c078e3442b751c4cb0de1aa4394a446c8e92 (patch) | |
| tree | 6fd4283054142269123cddee5fc1768b103e128b | |
| parent | 9ba16321fd0727d95174d46c051b82f54d0dd920 (diff) | |
Fix missing bindings
I am sorry. I caused this by failing a git add -p :(
| -rw-r--r-- | grav1ty.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/grav1ty.hs b/grav1ty.hs index 7f6d530..2a8ac8d 100644 --- a/grav1ty.hs +++ b/grav1ty.hs @@ -112,6 +112,10 @@ exampleUniverse = [ Dynamic (V2 0 (earthRadius + 100000)) (color (makeColor 1 0 0 1) $ circleSolid (earthRadius / 100)) spaceshipMass (V2 0 0) , Static (V2 0 0) (color (makeColor 0 0 1 1) $ circleSolid (earthRadius)) earthMass ] + where earthMass = 5.974e24 + earthRadius = 6378137 + spaceshipMass = 1935 + mainFRP :: Universe -> Behavior Time |