From 113ca6cdc420c2484b8702e67f886d25b9523733 Mon Sep 17 00:00:00 2001
From: Camden Dixie O'Brien <cdo@wip.sh>
Date: Fri, 1 Jan 2021 00:00:38 +0000
Subject: [PATCH] Define parameters

---
 Main.hs | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/Main.hs b/Main.hs
index 446e0c7..dbc1571 100644
--- a/Main.hs
+++ b/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!"