From 8d31a13c305771d027ea10b2f42e639fc4f2a2b4 Mon Sep 17 00:00:00 2001
From: Dimitri Lozeve <dimitri.lozeve@gmail.com>
Date: Wed, 19 Jul 2017 15:34:56 +0200
Subject: [PATCH] Graphics

---
 app/Main.hs | 32 +++++++++++++++++++++++++++++++-
 orbit.cabal |  1 +
 2 files changed, 32 insertions(+), 1 deletion(-)

diff --git a/app/Main.hs b/app/Main.hs
index 0b2b653..dd11faa 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -5,6 +5,8 @@ import Lib
 import Linear.Affine
 import Linear.V3
 
+import Graphics.Gloss hiding (Point)
+
 csvFromPoint :: Point V3 Double -> String
 csvFromPoint (P (V3 x y z)) =
   show x ++ "," ++ show y ++ "," ++ show z
@@ -23,5 +25,33 @@ steps n dt bodies = do
   putStr . concat $ map ((++) (show n ++ ",")) $ csvFromBodies bodies
   steps (n-1) dt (updateAll dt bodies)
 
+width, height, offset :: Int
+width = 1000
+height = 750
+offset = 100
+
+window :: Display
+window = InWindow "Orbit" (width, height) (offset, offset)
+
+displayBody :: Body -> Picture
+displayBody b = translate (realToFrac x/1e9) (realToFrac y/1e9) $ circle (realToFrac (bodyRadius b)/1e8)
+  where P (V3 x y _) = bodyPosition b
+
+displayBodies :: [Body] -> Picture
+displayBodies = (color white) . Pictures . (map displayBody)
+
+drawing :: Picture
+drawing = color white $ circle 80
+
 main :: IO ()
-main = steps 1000000 10 [sun, earth, moon, mercury, venus, mars]
+main = simulate
+  window
+  black
+  25
+  [sun, earth, moon, mercury, venus, mars]
+  displayBodies
+  (\_ dt bs -> updateAll (realToFrac dt*1e6) bs)
+
+--main :: IO ()
+--main = steps 1000000 10 [sun, earth, moon, mercury, venus, mars]
+
diff --git a/orbit.cabal b/orbit.cabal
index e571193..eed3753 100644
--- a/orbit.cabal
+++ b/orbit.cabal
@@ -27,6 +27,7 @@ executable orbit-exe
   build-depends:       base
                      , orbit
                      , linear
+                     , gloss
   default-language:    Haskell2010
 
 test-suite orbit-test