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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
module Logic where
import Data.Astro.Types
import Data.Astro.Time.JulianDate
import Data.Astro.Coordinate
import Data.Astro.Planet
data SkyT = Sky { s_date :: JulianDate,
objects :: [SkyObjectT]
} deriving (Show)
data RelativeSkyT = RelativeSky { rs_date :: JulianDate,
nonVisibleObjects :: [SkyObjectT],
visibleObjects :: [SkyObjectT]
} deriving (Show)
data SkyObjectT = SkyObject {
so_name :: String,
coordinates :: EquatorialCoordinates1
} deriving (Show)
data RelativeSkyObjectT = RelativeSkyObject {
rso_name :: String
--m_relative_coordinates :: HorizonCoordinates
} deriving (Show)
generateSky :: JulianDate -> SkyT
generateSky date = Sky {
s_date = date,
objects = predictSkyObjects date
}
trackedObjects :: [Planet]
trackedObjects = [Mercury, Venus, Mars, Jupiter, Saturn, Neptune, Uranus] --Moon?
predictSkyObjects :: JulianDate -> [SkyObjectT]
predictSkyObjects date = do
object <- trackedObjects
objectDetails <- return $ j2010PlanetDetails object
earthDetails <- return $ j2010PlanetDetails Earth
objectPosition <- return $ planetPosition planetTrueAnomaly1 objectDetails earthDetails date
return SkyObject { so_name = show object, coordinates = objectPosition }
relativize_sky :: SkyT -> GeographicCoordinates -> RelativeSkyT
relativize_sky sky location = RelativeSky {
rs_date = s_date sky,
nonVisibleObjects = objects sky,
visibleObjects = []
}λ> λ>
|
