From 6119616f2893bd09f41fccf3b26cbcb7315e6540 Mon Sep 17 00:00:00 2001
From: Camden Dixie O'Brien <cdo@wip.sh>
Date: Fri, 1 Jan 2021 00:00:40 +0000
Subject: [PATCH] Tweak parameters a little

---
 Main.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Main.hs b/Main.hs
index 0431a9c..3eedfae 100644
--- a/Main.hs
+++ b/Main.hs
@@ -13,13 +13,13 @@ data State = State { position :: PolarCoord
                    , angularMomentum :: Float }
 
 majorMass :: Float
-majorMass = 200
+majorMass = 100
 
 minorMass :: Float
-minorMass = 20
+minorMass = 1
 
 initialState :: State
-initialState = State (PolarCoord 300 0) 0 0.001
+initialState = State (PolarCoord 200 0) 0 150
 
 majorRadius :: Float
 majorRadius = 20