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