module Data.Astro.Star
(
Star(..)
, starCoordinates
)
where
import Data.Astro.Coordinate (EquatorialCoordinates1(..))
import Data.Astro.Types (fromDMS, fromHMS)
data Star = Polaris
| AlphaCrucis
| Sirius
| Betelgeuse
| Rigel
| Vega
| Antares
| Canopus
| Pleiades
deriving (Int -> Star -> ShowS
[Star] -> ShowS
Star -> String
(Int -> Star -> ShowS)
-> (Star -> String) -> ([Star] -> ShowS) -> Show Star
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Star] -> ShowS
$cshowList :: [Star] -> ShowS
show :: Star -> String
$cshow :: Star -> String
showsPrec :: Int -> Star -> ShowS
$cshowsPrec :: Int -> Star -> ShowS
Show, Star -> Star -> Bool
(Star -> Star -> Bool) -> (Star -> Star -> Bool) -> Eq Star
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Star -> Star -> Bool
$c/= :: Star -> Star -> Bool
== :: Star -> Star -> Bool
$c== :: Star -> Star -> Bool
Eq)
starCoordinates :: Star -> EquatorialCoordinates1
starCoordinates :: Star -> EquatorialCoordinates1
starCoordinates Star
Polaris = DecimalDegrees -> DecimalHours -> EquatorialCoordinates1
EC1 (Int -> Int -> Double -> DecimalDegrees
forall a. RealFrac a => Int -> Int -> a -> DecimalDegrees
fromDMS Int
89 Int
15 Double
51) (Int -> Int -> Double -> DecimalHours
forall a. RealFrac a => Int -> Int -> a -> DecimalHours
fromHMS Int
2 Int
31 Double
48.7)
starCoordinates Star
AlphaCrucis = DecimalDegrees -> DecimalHours -> EquatorialCoordinates1
EC1 (-(Int -> Int -> Double -> DecimalDegrees
forall a. RealFrac a => Int -> Int -> a -> DecimalDegrees
fromDMS Int
63 Int
5 Double
56.73)) (Int -> Int -> Double -> DecimalHours
forall a. RealFrac a => Int -> Int -> a -> DecimalHours
fromHMS Int
12 Int
26 Double
35.9)
starCoordinates Star
Sirius = DecimalDegrees -> DecimalHours -> EquatorialCoordinates1
EC1 (-(Int -> Int -> Double -> DecimalDegrees
forall a. RealFrac a => Int -> Int -> a -> DecimalDegrees
fromDMS Int
16 Int
42 Double
58.02)) (Int -> Int -> Double -> DecimalHours
forall a. RealFrac a => Int -> Int -> a -> DecimalHours
fromHMS Int
6 Int
45 Double
8.92)
starCoordinates Star
Betelgeuse = DecimalDegrees -> DecimalHours -> EquatorialCoordinates1
EC1 (Int -> Int -> Double -> DecimalDegrees
forall a. RealFrac a => Int -> Int -> a -> DecimalDegrees
fromDMS Int
07 Int
24 Double
25.4304) (Int -> Int -> Double -> DecimalHours
forall a. RealFrac a => Int -> Int -> a -> DecimalHours
fromHMS Int
5 Int
55 Double
10.30536)
starCoordinates Star
Rigel = DecimalDegrees -> DecimalHours -> EquatorialCoordinates1
EC1 (-(Int -> Int -> Double -> DecimalDegrees
forall a. RealFrac a => Int -> Int -> a -> DecimalDegrees
fromDMS Int
8 Int
12 Double
05.8981)) (Int -> Int -> Double -> DecimalHours
forall a. RealFrac a => Int -> Int -> a -> DecimalHours
fromHMS Int
5 Int
14 Double
32.27210)
starCoordinates Star
Vega = DecimalDegrees -> DecimalHours -> EquatorialCoordinates1
EC1 (Int -> Int -> Double -> DecimalDegrees
forall a. RealFrac a => Int -> Int -> a -> DecimalDegrees
fromDMS Int
38 Int
47 Double
01.2802) (Int -> Int -> Double -> DecimalHours
forall a. RealFrac a => Int -> Int -> a -> DecimalHours
fromHMS Int
18 Int
36 Double
56.33635)
starCoordinates Star
Antares = DecimalDegrees -> DecimalHours -> EquatorialCoordinates1
EC1 (-(Int -> Int -> Double -> DecimalDegrees
forall a. RealFrac a => Int -> Int -> a -> DecimalDegrees
fromDMS Int
26 Int
25 Double
55.2094)) (Int -> Int -> Double -> DecimalHours
forall a. RealFrac a => Int -> Int -> a -> DecimalHours
fromHMS Int
16 Int
29 Double
24.45970)
starCoordinates Star
Canopus = DecimalDegrees -> DecimalHours -> EquatorialCoordinates1
EC1 (-(Int -> Int -> Double -> DecimalDegrees
forall a. RealFrac a => Int -> Int -> a -> DecimalDegrees
fromDMS Int
52 Int
41 Double
44.3810)) (Int -> Int -> Double -> DecimalHours
forall a. RealFrac a => Int -> Int -> a -> DecimalHours
fromHMS Int
6 Int
23 Double
57.10988)
starCoordinates Star
Pleiades = DecimalDegrees -> DecimalHours -> EquatorialCoordinates1
EC1 (Int -> Int -> Double -> DecimalDegrees
forall a. RealFrac a => Int -> Int -> a -> DecimalDegrees
fromDMS Int
24 Int
7 Double
00) (Int -> Int -> Double -> DecimalHours
forall a. RealFrac a => Int -> Int -> a -> DecimalHours
fromHMS Int
3 Int
47 Double
24)