Define parameters

Main.hs

@@ -3,5 +3,23 @@
 
 module Main where
 
+data State = State { theta :: Float
+                   , pTheta :: Float
+                   , phi :: Float
+                   , pPhi :: Float
+                   }
+
+-- Simulation parameters
+particleMass = 1
+rodLength = 200
+initialState = State (pi / 4) 0 (pi / 6) 0
+g = 0.1
+
+-- Rendering parameters
+particleRadius = 5
+particleColor = black
+rodColor = greyN 0.5
+framesPerSecond = 100
+
 main :: IO ()
 main = putStrLn "Hello, Haskell!"