cdo/double-pendulum
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Implement rendering

Browse Source
This commit is contained in:
Camden Dixie O'Brien 2021-01-01 00:00:38 +00:00
parent 113ca6cdc4
commit daeff1c461
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
Main.hs
View File

@ -3,6 +3,9 @@
module Main where
import Graphics.Gloss
import Graphics.Gloss.Geometry.Angle
data State = State { theta :: Float
, pTheta :: Float
, phi :: Float
@ -21,5 +24,13 @@ particleColor = black
rodColor = greyN 0.5
framesPerSecond = 100
main :: IO ()
main = putStrLn "Hello, Haskell!"
render state = doublePendulum (theta state) (phi state)
doublePendulum theta phi = (translatePolar rodLength theta $ pendulum phi) <> pendulum theta
translatePolar radius angle = translate (radius * sin angle) (negate $ radius * cos angle)
pendulum angle = rotateRadians angle $ rod <> (translate 0 (negate rodLength) $ particle)
rod = color rodColor $ line [ (0, 0), (0, negate rodLength) ]
particle = color particleColor $ circleSolid particleRadius
rotateRadians = rotate . radToDeg . negate
window = InWindow "Double Pendulum" (800, 800) (100, 100)
main = display window white (render initialState)