src/Logic.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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