From cbc770f340a9cfcd290bd401a889206be5b0ea67 Mon Sep 17 00:00:00 2001
From: Dimitri Lozeve <dimitri.lozeve@gmail.com>
Date: Tue, 18 Jul 2017 18:12:40 +0200
Subject: [PATCH] Add examples of Sun and Earth

---
 src/Lib.hs | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/Lib.hs b/src/Lib.hs
index 8e7b63b..31e378a 100644
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -89,3 +89,9 @@ b1 = Body 42 (P $ V3 0 0 0) (V3 0 0 0)
 b2 = Body 11 (P $ V3 1 2 3) (V3 0 0 0)
 b3 = Body 5 (P $ V3 5 2 1) (V3 0 0 0)
 
+-- Astronomical Unit
+au :: Double
+au = 149597870700
+
+sun  = Body 1.98855e30 (P $ V3 0 0 0) (V3 0 0 0)
+earth = Body 8.97237e24 (P $ V3 au 0 0) (V3 0 29.78e3 0)