dimitri/orbit
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Barnes-Hut: tree management

Browse source
This commit is contained in:
Dimitri Lozeve 2017-11-07 10:30:29 +00:00
parent 6e4cf862d4
commit 232fbc6701
3 changed files with 122 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

4
app/Main.hs
View file

@ -55,8 +55,8 @@ csvFromPoint (P v) = csvFromVector v
csvFromBody :: Double -> Body -> String
csvFromBody dt b =
show dt ++ "," ++
csvFromPoint (bodyPosition b) ++ "," ++
csvFromVector (bodySpeed b) ++ "\n"
csvFromPoint (_bodyPosition b) ++ "," ++
csvFromVector (_bodySpeed b) ++ "\n"
-- | Show a list of bodies as CSV
csvFromBodies :: Double -> [Body] -> String