26 lines
526 B
Haskell
26 lines
526 B
Haskell
-- SPDX-License-Identifier: ISC
|
|
-- Copyright (c) 2021 Camden Dixie O'Brien
|
|
|
|
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!"
|