From 9d08799f80788d68513e0e890ed200f24afdd7bb 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] Draw masses with fixed radii

---
 Main.hs | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/Main.hs b/Main.hs
index 1b4326e..0431a9c 100644
--- a/Main.hs
+++ b/Main.hs
@@ -21,12 +21,18 @@ minorMass = 20
 initialState :: State
 initialState = State (PolarCoord 300 0) 0 0.001
 
+majorRadius :: Float
+majorRadius = 20
+
+minorRadius :: Float
+minorRadius = 5
+
 framesPerSecond :: Int
 framesPerSecond = 120
 
 render :: State -> Picture
-render state = pictures [ circleSolid (sqrt majorMass)
-                        , translatePolar (position state) $ circleSolid (sqrt minorMass) ]
+render state = pictures [ circleSolid majorRadius
+                        , translatePolar (position state) $ circleSolid minorRadius ]
 
 step :: a -> b -> State -> State
 step _ _ state = state { position = nextPosition state