Add skeleton functionality

1 files changed, 32 insertions, 0 deletions

diff --git a/src/Logic.hs b/src/Logic.hs
new file mode 100644
index 0000000..fb2a03b
--- /dev/null
+++ b/src/Logic.hs
@@ -0,0 +1,32 @@
+module Logic where
+
+import Data.Astro.Types
+import Data.Astro.Time.JulianDate
+import Data.Astro.Coordinate
+
+data SkyT = Sky { date :: JulianDate,
+                  nonVisibleObjects :: [SkyObjectT],
+                  visibleObjects :: [SkyObjectT]
+                  } deriving (Show)
+
+data SkyObjectT = SkyObject {
+    name :: String
+    --coordinates :: EquatorialCoordinates1
+    --m_relative_coordinates :: Maybe HorizonCoordinates
+} deriving (Show)
+
+generateSky :: JulianDate -> SkyT
+generateSky date = let
+                                (nonVisibleObjects, visibleObjects) = predictSkyObjects date
+                            in 
+                                Sky { 
+                                    date = date,
+                                    nonVisibleObjects=nonVisibleObjects, 
+                                    visibleObjects=visibleObjects
+                                 }
+
+predictSkyObjects :: JulianDate -> ([SkyObjectT], [SkyObjectT])
+predictSkyObjects date = ([SkyObject { name="test" }], [SkyObject { name= "uwu" }])
+
+relativize_sky :: SkyT -> GeographicCoordinates -> SkyT
+relativize_sky sky location = sky
\ No newline at end of file