Cell[CellGroupData[{Cell[BoxData[
 RowBox[{"Manipulate", "[", "
", 
  RowBox[{
   RowBox[{"Show", "[", "
", 
    RowBox[{
     RowBox[{"Graphics3D", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", 
       RowBox[{"BoxRatios", "->", "Automatic"}]}], "]"}], ",", 
     " ", "
", 
     RowBox[{"If", "[", " ", 
      RowBox[{"bEcliptic", ",", " ", "ecliptic", ",", " ", 
       RowBox[{"Graphics3D", "[", 
        RowBox[{"{", "}"}], "]"}]}], "]"}], ",", 
     "
", 
     RowBox[{"If", "[", " ", 
      RowBox[{
      "bCelestialEquator", ",", " ", "celestialEquator", ",", " ", 
       RowBox[{"Graphics3D", "[", 
        RowBox[{"{", "}"}], "]"}]}], "]"}], ",", 
     "
", 
     RowBox[{"If", "[", " ", 
      RowBox[{
      "bCelestialSphere", ",", " ", "celestialSphere", ",", " ", 
       RowBox[{"Graphics3D", "[", 
        RowBox[{"{", "}"}], "]"}]}], "]"}], ",", 
     "
", 
     RowBox[{"If", "[", " ", 
      RowBox[{"bPlotStarCoords", ",", " ", 
       RowBox[{"plotStarCoords", "[", "starCoords", "]"}], ",", " ", 
       RowBox[{"Graphics3D", "[", 
        RowBox[{"{", "}"}], "]"}]}], "]"}], ",", 
     "
", 
     RowBox[{"Graphics3D", "[", 
      RowBox[{"{", "
", 
       RowBox[{
        RowBox[{"If", "[", " ", 
         RowBox[{"bZenith", ",", 
          RowBox[{"drawZenith", "[", " ", 
           RowBox[{"ra", ",", " ", "dec"}], " ", "]"}], ",", " ", 
          "White"}], "]"}], ",", "
", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"If", "[", " ", 
           RowBox[{"bPoles", ",", " ", "poles", ",", 
            RowBox[{"BoxRatios", "->", 
             RowBox[{"{", 
              RowBox[{"1", ",", "1", ",", "1"}], "}"}]}]}], "]"}], 
          ","}], "*)"}], "
", "poles", ",", 
        "
", 
        RowBox[{"If", "[", " ", 
         RowBox[{
         "bFirstPointOfAries", ",", "firstPointOfAries", ",", 
          "White"}], "]"}], ",", "
", "Red", ",", 
        " ", 
        RowBox[{"Opacity", "[", "0.7", "]"}], ",", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"plotConstellation", "[", " ", "name", "]"}], ",", 
          " ", 
          RowBox[{"{", 
           RowBox[{"name", ",", " ", 
            RowBox[{"constellationFamily", "[", "familyName", "]"}]}],
            "}"}]}], "]"}], ",", "
", "Yellow", ",",
         " ", "Thick", ",", " ", 
        RowBox[{"Opacity", "[", "1", "]"}], ",", 
        RowBox[{
        "plotConstellation", "[", " ", "constellationName", "]"}]}], 
       "
", "}"}], "]"}], ",", 
     RowBox[{"ImageSize", "->", 
      RowBox[{"{", 
       RowBox[{"375", ",", "375"}], "}"}]}], ",", 
     RowBox[{"Boxed", "->", "False"}], ",", 
     RowBox[{"ViewAngle", "->", 
      RowBox[{"\[Pi]", "/", "10"}]}]}], "]"}], ",", 
   "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "bCelestialSphere", ",", "True", ",", 
       "\"\<celestial sphere\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"True", ",", "False"}], "}"}]}], "}"}], ",", 
   "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "bPlotStarCoords", ",", "True", ",", 
       "\"\<1000 brightest stars\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"True", ",", "False"}], "}"}]}], "}"}], ",", 
   "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "bCelestialEquator", ",", "True", ",", 
       "\"\<celestial equator\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"True", ",", "False"}], "}"}]}], "}"}], ",", 
   "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"bEcliptic", ",", "True", ",", "\"\<ecliptic\>\""}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"True", ",", "False"}], "}"}]}], "}"}], ",", 
   "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"bZenith", ",", "True", ",", "\"\<zenith\>\""}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"True", ",", "False"}], "}"}]}], "}"}], ",", 
   "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "bFirstPointOfAries", ",", "True", ",", 
       "\"\<first point of Aries\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"True", ",", "False"}], "}"}]}], "}"}], ",", 
   "
", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"bPoles", ",", "True", ",", "\"\<Poles\>\""}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"True", ",", "False"}], "}"}]}], "}"}], ","}], "*)"}],
    "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "ra", ",", "18", ",", "\"\<zenith right ascension\>\""}], "}"}],
      ",", "0", ",", "24", ",", " ", "0.1", ",", 
     RowBox[{"ImageSize", "->", "Tiny"}]}], "}"}], ",", 
   "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"dec", ",", "45", ",", "\"\<zenith declination\>\""}], 
      "}"}], ",", 
     RowBox[{"-", "90"}], ",", "90", ",", ".01", ",", 
     RowBox[{"ImageSize", "->", "Tiny"}]}], "}"}], ",", 
   "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "familyName", ",", "\"\<Zodiac\>\"", ",", "\"\<family\>\""}], 
      "}"}], ",", " ", 
     RowBox[{"Dynamic", "[", 
      RowBox[{"constellationFamilyNames", ",", 
       RowBox[{"SynchronousUpdating", "->", "False"}]}], "]"}], 
     ",", 
     RowBox[{"ControlType", "->", "PopupMenu"}], ",", 
     RowBox[{"ControlPlacement", "->", "Top"}]}], "}"}], ",", 
   "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "constellationName", ",", "\"\<Cygnus\>\"", ",", 
       "\"\<constellation\>\""}], "}"}], ",", 
     RowBox[{"Dynamic", "[", " ", 
      RowBox[{"constellationNames", ",", 
       RowBox[{"SynchronousUpdating", "->", "False"}]}], "]"}], 
     ",", 
     RowBox[{"ControlType", "->", "PopupMenu"}], ",", 
     RowBox[{"ControlPlacement", "->", "Top"}]}], "}"}], ",", 
   "
", 
   RowBox[{"SynchronousInitialization", "->", "False"}], ",", 
   RowBox[{"SynchronousUpdating", "->", "False"}], ",", 
   RowBox[{"ControlPlacement", "->", "Left"}], ",", 
   "
", 
   RowBox[{"Initialization", ":>", 
    RowBox[{"(", "
", 
     RowBox[{"(*", " ", 
      RowBox[{
      "Constellations", " ", "from", " ", "the", " ", "original", " ",
        "Celestial", " ", "Sphere"}], " ", "*)"}], 
     "
", 
     RowBox[{
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Ursa Minor\>\"", "]"}], " ",
        "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Polaris\>\"", ",", "\"\<Yildun\>\"", ",", 
          "\"\<EpsilonUrsaeMinoris\>\"", ",", 
          "\"\<ZetaUrsaeMinoris\>\"", ",", "\"\<Kochab\>\"", ",", 
          "\"\<Pherkad\>\"", ",", "\"\<EtaUrsaeMinoris\>\"", ",", 
          "\"\<ZetaUrsaeMinoris\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Ursa Major\>\"", "]"}], " ",
        "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<Alkaid\>\"", ",", "\"\<Mizar\>\"", ",", 
           "\"\<Alioth\>\"", ",", "\"\<Megrez\>\"", ",", 
           "\"\<Phad\>\"", ",", "\"\<Merak\>\"", ",", "\"\<Dubhe\>\"",
            ",", "\"\<Megrez\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<Dubhe\>\"", ",", "\"\<HIP46733\>\"", ",", 
           "\"\<Muscida\>\"", ",", "\"\<UpsilonUrsaeMajoris\>\"", 
           ",", "\"\<Merak\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<UpsilonUrsaeMajoris\>\"", ",", 
           "\"\<ThetaUrsaeMajoris\>\"", ",", "\"\<Dnoces\>\"", ",", 
           "\"\<TalithaAustralis\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<Phad\>\"", ",", "\"\<ChiUrsaeMajoris\>\"", ",", 
           "\"\<AlulaBorealis\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<ChiUrsaeMajoris\>\"", ",", "\"\<PsiUrsaeMajoris\>\"", 
           ",", "\"\<TaniaAustralis\>\"", ",", 
           "\"\<TaniaBorealis\>\""}], "}"}]}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Cygnus\>\"", "]"}], " ", 
       "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<Deneb\>\"", ",", "\"\<Sadr\>\"", ",", 
           "\"\<EtaCygni\>\"", ",", "\"\<Albireo\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<ZetaCygni\>\"", ",", "\"\<EpsilonCygni\>\"", ",", 
           "\"\<Sadr\>\"", ",", "\"\<DeltaCygni\>\"", ",", 
           "\"\<ThetaCygni\>\"", ",", "\"\<Iota1Cygni\>\"", ",", 
           "\"\<KappaCygni\>\""}], "}"}]}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Cassiopeia\>\"", "]"}], " ",
        "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Caph\>\"", ",", "\"\<Shedir\>\"", ",", "\"\<Tsih\>\"", 
          ",", "\"\<Rukbah\>\"", ",", "\"\<Navi\>\""}], "}"}], 
        "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Orion\>\"", "]"}], "=", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<Betelgeuse\>\"", ",", "\"\<Phi1Orionis\>\"", ",", 
           "\"\<Bellatrix\>\"", ",", "\"\<Mintaka\>\"", ",", 
           "\"\<Rigel\>\"", ",", "\"\<Saiph\>\"", ",", 
           "\"\<Alnitak\>\"", ",", "\"\<Betelgeuse\>\"", ",", 
           "\"\<MuOrionis\>\"", ",", "\"\<XiOrionis\>\"", ",", 
           "\"\<Chi2Orionis\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<Bellatrix\>\"", ",", "\"\<Pi3Orionis\>\"", ",", 
           "\"\<Pi2Orionis\>\"", ",", "\"\<Pi1Orionis\>\""}], "}"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<Pi3Orionis\>\"", ",", "\"\<Pi4Orionis\>\"", ",", 
           "\"\<Pi5Orionis\>\"", ",", "\"\<Pi6Orionis\>\""}], "}"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<XiOrionis\>\"", ",", "\"\<NuOrionis\>\"", ",", 
           "\"\<Chi1Orionis\>\""}], "}"}]}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Pisces\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<TauPiscium\>\"", ",", "\"\<UpsilonPiscium\>\"", ",", 
          "\"\<PhiPiscium\>\"", ",", "\"\<EtaPiscium\>\"", ",", 
          "\"\<OmicronPiscium\>\"", ",", "\"\<AlphaPiscium\>\"", ",", 
          "\"\<NuPiscium\>\"", ",", "\"\<MuPiscium\>\"", ",", 
          "\"\<EpsilonPiscium\>\"", ",", "\"\<DeltaPiscium\>\"", ",", 
          "\"\<OmegaPiscium\>\"", ",", "\"\<IotaPiscium\>\"", ",", 
          "\"\<ThetaPiscium\>\"", ",", "\"\<HIP115227\>\"", ",", 
          "\"\<GammaPiscium\>\"", ",", "\"\<KappaPiscium\>\"", ",", 
          "\"\<LambdaPiscium\>\"", ",", "\"\<HIP117245\>\"", ",", 
          "\"\<IotaPiscium\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Gemini\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<XiGeminorum\>\"", ",", "\"\<Alhena\>\"", ",", 
          "\"\<Mekbuda\>\"", ",", "\"\<Wasat\>\"", ",", 
          "\"\<KappaGeminorum\>\"", ",", "\"\<Pollux\>\"", ",", 
          "\"\<Castor\>\"", ",", "\"\<RhoGeminorum\>\"", ",", 
          "\"\<TauGeminorum\>\"", ",", "\"\<Mebsuta\>\"", ",", 
          "\"\<Tejat\>\"", ",", "\"\<Propus\>\""}], "}"}], "}"}]}], 
      ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Cancer\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<Tarf\>\"", ",", "\"\<AsellusAustralis\>\"", ",", 
           "\"\<AsellusBorealis\>\"", ",", "\"\<Iota1Cancri\>\""}], 
          "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<AsellusAustralis\>\"", ",", "\"\<Acubens\>\""}], 
          "}"}]}], "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Leo\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<EpsilonLeonis\>\"", ",", "\"\<Rasalas\>\"", ",", 
          "\"\<Adhafera\>\"", ",", "\"\<Algieba\>\"", ",", 
          "\"\<EtaLeonis\>\"", ",", "\"\<Regulus\>\"", ",", 
          "\"\<Chort\>\"", ",", "\"\<Denebola\>\"", ",", 
          "\"\<Zosma\>\"", ",", "\"\<Algieba\>\""}], "}"}], "}"}]}], 
      ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Virgo\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<Alaraph\>\"", ",", "\"\<EtaVirginis\>\"", ",", 
           "\"\<Porrima\>\"", ",", "\"\<ThetaVirginis\>\"", ",", 
           "\"\<Spica\>\"", ",", "\"\<ZetaVirginis\>\"", ",", 
           "\"\<Auva\>\"", ",", "\"\<Porrima\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\"\<Spica\>\"", ",", "\"\<KappaVirginis\>\""}], 
          "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<ZetaVirginis\>\"", ",", "\"\<TauVirginis\>\"", ",", 
           "\"\<HIP72220\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\"\<Auva\>\"", ",", "\"\<Vindemiatrix\>\""}], 
          "}"}]}], "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Libra\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<TauLibrae\>\"", ",", "\"\<UpsilonLibrae\>\"", ",", 
           "\"\<SigmaLibrae\>\"", ",", "\"\<Zubenelgenubi\>\"", ",", 
           "\"\<Zubeneshamali\>\"", ",", "\"\<SigmaLibrae\>\""}], 
          "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<Zubeneshamali\>\"", ",", "\"\<Zubenelhakrabi\>\"", 
           ",", "\"\<EtaLibrae\>\"", ",", "\"\<ThetaLibrae\>\""}], 
          "}"}]}], "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Scorpius\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<Shaula\>\"", ",", "\"\<KappaScorpii\>\"", ",", 
           "\"\<Iota1Scorpii\>\"", ",", "\"\<ThetaScorpii\>\"", ",", 
           "\"\<EtaScorpii\>\"", ",", "\"\<Zeta1Scorpii\>\"", ",", 
           "\"\<Mu1Scorpii\>\"", ",", "\"\<EpsilonScorpii\>\"", ",", 
           "\"\<TauScorpii\>\"", ",", "\"\<Antares\>\"", ",", 
           "\"\<SigmaScorpii\>\"", ",", "\"\<Dschubba\>\""}], "}"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<Jabbah\>\"", ",", "\"\<Acrab\>\"", ",", 
           "\"\<Dschubba\>\"", ",", "\"\<HIP78265\>\"", ",", 
           "\"\<RhoScorpii\>\""}], "}"}]}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Sagittarius\>\"", "]"}], 
       "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<EtaSagittarii\>\"", ",", "\"\<KausAustralis\>\"", ",", 
           "\"\<KausMedia\>\"", ",", "\"\<KausBorealis\>\"", ",", 
           "\"\<PhiSagittarii\>\"", ",", "\"\<Nunki\>\"", ",", 
           "\"\<TauSagittarii\>\"", ",", "\"\<Ascella\>\"", ",", 
           "\"\<PhiSagittarii\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<KausMedia\>\"", ",", "\"\<Gamma1Sagittarii\>\"", ",", 
           "\"\<HIP87072\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<KausBorealis\>\"", ",", "\"\<MuSagittarii\>\""}], 
          "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\"\<Nunki\>\"", ",", "\"\<OmicronSagittarii\>\""}],
           "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<TauSagittarii\>\"", ",", "\"\<HIP96465\>\"", ",", 
           "\"\<HIP98688\>\"", ",", "\"\<Theta1Sagittarii\>\"", ",", 
           "\"\<HIP98032\>\"", ",", "\"\<Arkab\>\""}], "}"}]}], 
        "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Capricornus\>\"", "]"}], 
       "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<AlGiedi\>\"", ",", "\"\<Dabih\>\"", ",", 
          "\"\<PsiCapricorni\>\"", ",", "\"\<OmegaCapricorni\>\"", 
          ",", "\"\<HIP104234\>\"", ",", "\"\<ZetaCapricorni\>\"", 
          ",", "\"\<DenebAlgiedi\>\"", ",", "\"\<IotaCapricorni\>\"", 
          ",", "\"\<ThetaCapricorni\>\"", ",", "\"\<Dabih\>\""}], 
         "}"}], "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Aquarius\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<Albali\>\"", ",", "\"\<Sadalsuud\>\"", ",", 
           "\"\<Sadalmelik\>\"", ",", "\"\<Sadachbia\>\"", ",", 
           "\"\<Zeta1Aquarii\>\"", ",", "\"\<EtaAquarii\>\"", ",", 
           "\"\<PhiAquarii\>\"", ",", "\"\<LambdaAquarii\>\"", ",", 
           "\"\<Tau1Aquarii\>\"", ",", "\"\<Skat\>\"", ",", 
           "\"\<HIP114341\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<Sadalmelik\>\"", ",", "\"\<Ancha\>\"", ",", 
           "\"\<IotaAquarii\>\""}], "}"}]}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Aries\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Mesarthim\>\"", ",", "\"\<Sheratan\>\"", ",", 
          "\"\<Hamal\>\"", ",", "\"\<HIP13209\>\""}], "}"}], "}"}]}], 
      ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Taurus\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<OmicronTauri\>\"", ",", "\"\<HIP16083\>\"", ",", 
           "\"\<LambdaTauri\>\"", ",", "\"\<GammaTauri\>\"", ",", 
           "\"\<Delta1Tauri\>\"", ",", "\"\<Ain\>\"", ",", 
           "\"\<TauTauri\>\"", ",", "\"\<Alnath\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<GammaTauri\>\"", ",", "\"\<Theta2Tauri\>\"", ",", 
           "\"\<Aldebaran\>\"", ",", "\"\<ZetaTauri\>\""}], "}"}]}], 
        "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Bootes\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Muphrid\>\"", ",", "\"\<Arcturus\>\"", ",", 
          "\"\<RhoBootis\>\"", ",", "\"\<GammaBootis\>\"", ",", 
          "\"\<Nekkar\>\"", ",", "\"\<DeltaBootis\>\"", ",", 
          "\"\<Izar\>\"", ",", "\"\<Arcturus\>\"", ",", 
          "\"\<HIP70027\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Hercules\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<PhiHerculis\>\"", ",", "\"\<TauHerculis\>\"", ",", 
           "\"\<SigmaHerculis\>\"", ",", "\"\<EtaHerculis\>\"", ",", 
           "\"\<PiHerculis\>\"", ",", "\"\<EpsilonHerculis\>\"", ",", 
           "\"\<ZetaHerculis\>\"", ",", "\"\<EtaHerculis\>\""}], 
          "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<PiHerculis\>\"", ",", "\"\<RhoHerculis\>\"", ",", 
           "\"\<ThetaHerculis\>\"", ",", "\"\<IotaHerculis\>\""}], 
          "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<EpsilonHerculis\>\"", ",", "\"\<Sarin\>\"", ",", 
           "\"\<LambdaHerculis\>\"", ",", "\"\<MuHerculis\>\"", ",", 
           "\"\<XiHerculis\>\"", ",", "\"\<OmicronHerculis\>\""}], 
          "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<ZetaHerculis\>\"", ",", "\"\<Kornephoros\>\"", ",", 
           "\"\<GammaHerculis\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\"\<Kornephoros\>\"", ",", "\"\<Rasalgethi\>\""}], 
          "}"}]}], "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Perseus\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<OmicronPersei\>\"", ",", "\"\<Atik\>\"", ",", 
           "\"\<Menkib\>\"", ",", "\"\<EpsilonPersei\>\"", ",", 
           "\"\<DeltaPersei\>\"", ",", "\"\<Mirphak\>\"", ",", 
           "\"\<GammaPersei\>\"", ",", "\"\<EtaPersei\>\"", ",", 
           "\"\<PhiPersei\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<Mirphak\>\"", ",", "\"\<KappaPersei\>\"", ",", 
           "\"\<Algol\>\"", ",", "\"\<RhoPersei\>\"", ",", 
           "\"\<HIP13254\>\""}], "}"}]}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Auriga\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Alnath\>\"", ",", "\"\<IotaAurigae\>\"", ",", 
          "\"\<EtaAurigae\>\"", ",", "\"\<Maaz\>\"", ",", 
          "\"\<Capella\>\"", ",", "\"\<Menkalinan\>\"", ",", 
          "\"\<ThetaAurigae\>\"", ",", "\"\<Alnath\>\""}], "}"}], 
        "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Lynx\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<AlphaLyncis\>\"", ",", "\"\<HIP45688\>\"", ",", 
          "\"\<HIP44248\>\"", ",", "\"\<HIP41075\>\"", ",", 
          "\"\<HIP36145\>\"", ",", "\"\<HIP33449\>\"", ",", 
          "\"\<HIP30060\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Camelopardalis\>\"", "]"}], 
       "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<HIP23040\>\"", ",", "\"\<BetaCamelopardalis\>\"", ",", 
          "\"\<AlphaCamelopardalis\>\"", ",", 
          "\"\<GammaCamelopardalis\>\"", ",", "\"\<HIP16228\>\""}], 
         "}"}], "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Cepheus\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<DeltaCephei\>\"", ",", "\"\<EpsilonCephei\>\"", ",", 
           "\"\<ZetaCephei\>\"", ",", "\"\<IotaCephei\>\"", ",", 
           "\"\<Alrai\>\"", ",", "\"\<Alfirk\>\"", ",", 
           "\"\<Alderamin\>\"", ",", "\"\<EtaCephei\>\"", ",", 
           "\"\<ThetaCephei\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\"\<ZetaCephei\>\"", ",", "\"\<Alderamin\>\""}], 
          "}"}]}], "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Draco\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Giauzar\>\"", ",", "\"\<KappaDraconis\>\"", ",", 
          "\"\<Thuban\>\"", ",", "\"\<Edasich\>\"", ",", 
          "\"\<ThetaDraconis\>\"", ",", "\"\<EtaDraconis\>\"", ",", 
          "\"\<ZetaDraconis\>\"", ",", "\"\<Dziban\>\"", ",", 
          "\"\<ChiDraconis\>\"", ",", "\"\<TauDraconis\>\"", ",", 
          "\"\<Tyl\>\"", ",", "\"\<Altais\>\"", ",", 
          "\"\<Grumium\>\"", ",", "\"\<Nu2Draconis\>\"", ",", 
          "\"\<Alwaid\>\"", ",", "\"\<Etamin\>\"", ",", 
          "\"\<Grumium\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Andromeda\>\"", "]"}], "=", 
       
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Almach\>\"", ",", "\"\<Mirach\>\"", ",", 
          "\"\<DeltaAndromedae\>\"", ",", "\"\<Alpheratz\>\"", ",", 
          "\"\<PiAndromedae\>\"", ",", "\"\<MuAndromedae\>\"", ",", 
          "\"\<HIP7607\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Pegasus\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<Alpheratz\>\"", ",", "\"\<Algenib\>\"", ",", 
           "\"\<Markab\>\"", ",", "\"\<XiPegasi\>\"", ",", 
           "\"\<Homam\>\"", ",", "\"\<Baham\>\"", ",", 
           "\"\<Enif\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<Markab\>\"", ",", "\"\<Scheat\>\"", ",", 
           "\"\<Matar\>\"", ",", "\"\<IotaPegasi\>\"", ",", 
           "\"\<KappaPegasi\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<Scheat\>\"", ",", "\"\<Sadalbari\>\"", ",", 
           "\"\<LambdaPegasi\>\"", ",", "\"\<HIP107348\>\"", ",", 
           "\"\<HIP105502\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\"\<Scheat\>\"", ",", "\"\<Alpheratz\>\""}], 
          "}"}]}], "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Ophiuchus\>\"", "]"}], "=", 
       
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<HIP85423\>\"", ",", "\"\<ThetaOphiuchi\>\"", ",", 
           "\"\<HIP85340\>\"", ",", "\"\<XiOphiuchi\>\"", ",", 
           "\"\<Sabik\>\"", ",", "\"\<ZetaOphiuchi\>\"", ",", 
           "\"\<YedPosterior\>\"", ",", "\"\<YedPrior\>\"", ",", 
           "\"\<KappaOphiuchi\>\"", ",", "\"\<Rasalhague\>\"", ",", 
           "\"\<Celbalrai\>\"", ",", "\"\<Sabik\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<Celbalrai\>\"", ",", "\"\<GammaOphiuchi\>\"", ",", 
           "\"\<NuOphiuchi\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<GammaOphiuchi\>\"", ",", "\"\<HIP88192\>\"", ",", 
           "\"\<HIP88601\>\""}], "}"}]}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Aquila\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<HIP93429\>\"", ",", "\"\<LambdaAquilae\>\"", ",", 
           "\"\<DeltaAquilae\>\"", ",", "\"\<ZetaAquilae\>\"", ",", 
           "\"\<Tarazed\>\"", ",", "\"\<Altair\>\"", ",", 
           "\"\<Alshain\>\"", ",", "\"\<ThetaAquilae\>\"", ",", 
           "\"\<EtaAquilae\>\"", ",", "\"\<DeltaAquilae\>\""}], "}"}],
          ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<ZetaAquilae\>\"", ",", "\"\<EpsilonAquilae\>\""}], 
          "}"}]}], "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Lepus\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<EpsilonLeporis\>\"", ",", "\"\<Nihal\>\"", ",", 
           "\"\<Arneb\>\"", ",", "\"\<ZetaLeporis\>\"", ",", 
           "\"\<HIP27517\>\"", ",", "\"\<EtaLeporis\>\""}], "}"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{"\"\<Arneb\>\"", ",", "\"\<HIP24305\>\""}], "}"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<Nihal\>\"", ",", "\"\<GammaLeporis\>\"", ",", 
           "\"\<DeltaLeporis\>\""}], "}"}]}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Eridanus\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<LambdaEridani\>\"", ",", "\"\<Cursa\>\"", ",", 
          "\"\<OmegaEridani\>\"", ",", "\"\<NuEridani\>\"", ",", 
          "\"\<Beid\>\"", ",", "\"\<Zaurac\>\"", ",", 
          "\"\<PiEridani\>\"", ",", "\"\<Rana\>\"", ",", 
          "\"\<EpsilonEridani\>\"", ",", "\"\<Azha\>\"", ",", 
          "\"\<Tau1Eridani\>\"", ",", "\"\<Tau3Eridani\>\"", ",", 
          "\"\<Angetenar\>\"", ",", "\"\<Tau5Eridani\>\"", ",", 
          "\"\<Tau6Eridani\>\"", ",", "\"\<Tau8Eridani\>\"", ",", 
          "\"\<Tau9Eridani\>\"", ",", "\"\<Upsilon1Eridani\>\"", ",", 
          "\"\<Upsilon2Eridani\>\"", ",", "\"\<HIP20535\>\"", ",", 
          "\"\<Upsilon4Eridani\>\"", ",", "\"\<HIP17874\>\"", ",", 
          "\"\<HIP17797\>\"", ",", "\"\<HIP15510\>\"", ",", 
          "\"\<Acamar\>\"", ",", "\"\<PhiEridani\>\"", ",", 
          "\"\<KappaEridani\>\"", ",", "\"\<PhiEridani\>\"", ",", 
          "\"\<PhiEridani\>\"", ",", "\"\<Achernar\>\""}], "}"}], 
        "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Monoceras\>\"", "]"}], "=", 
       
       RowBox[{"monoceras", "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "\"\<GammaMonocerotis\>\"", ",", "\"\<BetaMonocerotis\>\"",
             ",", "\"\<DeltaMonocerotis\>\"", ",", 
            "\"\<AlphaMonocerotis\>\"", ",", 
            "\"\<ZetaMonocerotis\>\""}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
           "\"\<DeltaMonocerotis\>\"", ",", "\"\<HIP32578\>\"", ",", 
            "\"\<EpsilonMonocerotis\>\"", ",", "\"\<HIP31216\>\""}], 
           "}"}]}], "}"}]}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Canis Major\>\"", "]"}], 
       "=", 
       RowBox[{"canismajor", "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "\"\<Mirzam\>\"", ",", "\"\<Sirius\>\"", ",", 
            "\"\<Omicron2CanisMajoris\>\"", ",", "\"\<Wezen\>\"", 
            ",", "\"\<HIP35205\>\"", ",", "\"\<Aludra\>\""}], "}"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"\"\<Wezen\>\"", ",", "\"\<Adhara\>\""}], "}"}]}], 
         "}"}]}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Hydra\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<PiHydrae\>\"", ",", "\"\<GammaHydrae\>\"", ",", 
          "\"\<BetaHydrae\>\"", ",", "\"\<XiHydrae\>\"", ",", 
          "\"\<NuHydrae\>\"", ",", "\"\<MuHydrae\>\"", ",", 
          "\"\<Upsilon2Hydrae\>\"", ",", "\"\<Upsilon1Hydrae\>\"", 
          ",", "\"\<Alphard\>\"", ",", "\"\<IotaHydrae\>\"", ",", 
          "\"\<ThetaHydrae\>\"", ",", "\"\<ZetaHydrae\>\"", ",", 
          "\"\<EtaHydrae\>\"", ",", "\"\<SigmaHydrae\>\"", ",", 
          "\"\<DeltaHydrae\>\"", ",", "\"\<EpsilonHydrae\>\"", ",", 
          "\"\<ZetaHydrae\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Antila\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<HIP53502\>\"", ",", "\"\<AlphaAntliae\>\"", ",", 
          "\"\<ThetaAntliae\>\"", ",", "\"\<EpsilonAntliae\>\""}], 
         "}"}], "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Vela\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<MuVelorum\>\"", ",", "\"\<HIP51986\>\"", ",", 
          "\"\<HIP50191\>\"", ",", "\"\<PsiVelorum\>\"", ",", 
          "\"\<Alsuhail\>\"", ",", "\"\<HIP42884\>\"", ",", 
          "\"\<HIP42312\>\"", ",", "\"\<Regor\>\"", ",", 
          "\"\<DeltaVelorum\>\"", ",", "\"\<KappaVelorum\>\"", ",", 
          "\"\<PhiVelorum\>\"", ",", "\"\<MuVelorum\>\""}], "}"}], 
        "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Puppis\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<TauPuppis\>\"", ",", "\"\<HIP34922\>\"", ",", 
          "\"\<SigmaPuppis\>\"", ",", "\"\<Naos\>\"", ",", 
          "\"\<RhoPuppis\>\"", ",", "\"\<HIP38170\>\"", ",", 
          "\"\<HIP37229\>\"", ",", "\"\<HIP36917\>\"", ",", 
          "\"\<PiPuppis\>\"", ",", "\"\<NuPuppis\>\"", ",", 
          "\"\<TauPuppis\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Carina\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Canopus\>\"", ",", "\"\<ChiCarinae\>\"", ",", 
          "\"\<Avior\>\"", ",", "\"\<Aspidiske\>\"", ",", 
          "\"\<HIP50371\>\"", ",", "\"\<ThetaCarinae\>\"", ",", 
          "\"\<OmegaCarinae\>\"", ",", "\"\<Miaplacidus\>\"", ",", 
          "\"\<UpsilonCarinae\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Centaurus\>\"", "]"}], "=", 
       
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<LambdaCentauri\>\"", ",", "\"\<PiCentauri\>\"", ",", 
           "\"\<RhoCentauri\>\"", ",", "\"\<DeltaCentauri\>\"", ",", 
           "\"\<SigmaCentauri\>\"", ",", "\"\<GammaCentauri\>\"", 
           ",", "\"\<EpsilonCentauri\>\"", ",", 
           "\"\<ZetaCentauri\>\"", ",", "\"\<MuCentauri\>\"", ",", 
           "\"\<NuCentauri\>\"", ",", "\"\<Menkent\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\"\<EpsilonCentauri\>\"", ",", "\"\<Hadar\>\""}], 
          "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<EpsilonCentauri\>\"", ",", "\"\<RigelKentaurusA\>\""}],
           "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<HIP65109\>\"", ",", "\"\<NuCentauri\>\"", ",", 
           "\"\<EtaCentauri\>\"", ",", "\"\<KappaCentauri\>\""}], 
          "}"}]}], "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Columba\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<EpsilonColumbae\>\"", ",", "\"\<Phact\>\"", ",", 
           "\"\<Wazn\>\"", ",", "\"\<GammaColumbae\>\"", ",", 
           "\"\<KappaColumbae\>\"", ",", "\"\<DeltaColumbae\>\""}], 
          "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\"\<Wazn\>\"", ",", "\"\<EtaColumbae\>\""}], 
          "}"}]}], "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Pictor\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<BetaPictoris\>\"", ",", "\"\<GammaPictoris\>\"", ",", 
          "\"\<AlphaPictoris\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Volans\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<AlphaVolantis\>\"", ",", "\"\<BetaVolantis\>\"", ",", 
          "\"\<EpsilonVolantis\>\"", ",", "\"\<ZetaVolantis\>\"", 
          ",", "\"\<Gamma2Volantis\>\"", ",", "\"\<DeltaVolantis\>\"",
           ",", "\"\<EpsilonVolantis\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Dorado\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<GammaDoradus\>\"", ",", "\"\<AlphaDoradus\>\"", ",", 
           "\"\<ZetaDoradus\>\"", ",", "\"\<BetaDoradus\>\"", ",", 
           "\"\<DeltaDoradus\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\"\<BetaDoradus\>\"", ",", "\"\<HIP27890\>\""}], 
          "}"}]}], "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Reticulum\>\"", "]"}], "=", 
       
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<EpsilonReticulii\>\"", ",", "\"\<AlphaReticulii\>\"", 
          ",", "\"\<BetaReticulii\>\"", ",", "\"\<DeltaReticulii\>\"",
           ",", "\"\<EpsilonReticulii\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Horologium\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<AlphaHorologii\>\"", ",", "\"\<HIP12653\>\"", ",", 
          "\"\<EtaHorologii\>\"", ",", "\"\<ZetaHorologii\>\"", ",", 
          "\"\<AlphaHorologii\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Hydrus\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<GammaHydri\>\"", ",", "\"\<BetaHydri\>\"", ",", 
          "\"\<AlphaHydri\>\"", ",", "\"\<GammaHydri\>\""}], "}"}], 
        "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Octans\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<BetaOctantis\>\"", ",", "\"\<NuOctantis\>\"", ",", 
          "\"\<DeltaOctantis\>\"", ",", "\"\<BetaOctantis\>\""}], 
         "}"}], "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Mensa\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<BetaMensae\>\"", ",", "\"\<EtaMensae\>\"", ",", 
          "\"\<GammaMensae\>\"", ",", "\"\<AlphaMensae\>\""}], "}"}], 
        "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Chamaeleon\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<AlphaChamaeleontis\>\"", ",", 
          "\"\<GammaChamaeleontis\>\"", ",", 
          "\"\<BetaChamaeleontis\>\"", ",", 
          "\"\<Delta2Chamaeleontis\>\"", ",", 
          "\"\<ThetaChamaeleontis\>\"", ",", 
          "\"\<AlphaChamaeleontis\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Crux\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"\"\<Acrux\>\"", ",", "\"\<Gacrux\>\""}], "}"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{"\"\<Mimosa\>\"", ",", "\"\<DeltaCrucis\>\""}], 
          "}"}]}], "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{
       "constellation", "[", "\"\<Triangulum Australe\>\"", "]"}], 
       "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Atria\>\"", ",", "\"\<GammaTrianguliAustralis\>\"", 
          ",", "\"\<BetaTrianguliAustralis\>\"", ",", 
          "\"\<Atria\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Ara\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<EtaArae\>\"", ",", "\"\<ZetaArae\>\"", ",", 
           "\"\<Epsilon1Arae\>\"", ",", "\"\<AlphaArae\>\"", ",", 
           "\"\<ThetaArae\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<AlphaArae\>\"", ",", "\"\<BetaArae\>\"", ",", 
           "\"\<GammaArae\>\"", ",", "\"\<DeltaArae\>\""}], "}"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{"\"\<GammaArae\>\"", ",", "\"\<ZetaArae\>\""}], 
          "}"}]}], "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Pavo\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Peacock\>\"", ",", "\"\<BetaPavonis\>\"", ",", 
          "\"\<EpsilonPavonis\>\"", ",", "\"\<ZetaPavonis\>\"", ",", 
          "\"\<EtaPavonis\>\"", ",", "\"\<PiPavonis\>\"", ",", 
          "\"\<XiPavonis\>\"", ",", "\"\<LambdaPavonis\>\"", ",", 
          "\"\<DeltaPavonis\>\"", ",", "\"\<BetaPavonis\>\"", ",", 
          "\"\<GammaPavonis\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Tucana\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<DeltaTucanae\>\"", ",", "\"\<AlphaTucanae\>\"", ",", 
          "\"\<GammaTucanae\>\"", ",", "\"\<Beta1Tucanae\>\"", ",", 
          "\"\<ZetaTucanae\>\"", ",", "\"\<EpsilonTucanae\>\"", ",", 
          "\"\<GammaTucanae\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Phoenix\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<DeltaPhoenicis\>\"", ",", "\"\<GammaPhoenicis\>\"", 
          ",", "\"\<BetaPhoenicis\>\"", ",", "\"\<ZetaPhoenicis\>\"", 
          ",", "\"\<EtaPhoenicis\>\"", ",", 
          "\"\<EpsilonPhoenicis\>\"", ",", "\"\<Ankaa\>\"", ",", 
          "\"\<BetaPhoenicis\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Sculptor\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<BetaSculptoris\>\"", ",", "\"\<GammaSculptoris\>\"", 
          ",", "\"\<DeltaSculptoris\>\"", ",", 
          "\"\<AlphaSculptoris\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Indus\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<DeltaIndi\>\"", ",", "\"\<ThetaIndi\>\"", ",", 
           "\"\<AlphaIndi\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\"\<ThetaIndi\>\"", ",", "\"\<BetaIndi\>\""}], 
          "}"}]}], "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Grus\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<ZetaGruis\>\"", ",", "\"\<EpsilonGruis\>\"", ",", 
           "\"\<BetaGruis\>\"", ",", "\"\<Delta1Gruis\>\"", ",", 
           "\"\<Mu1Gruis\>\"", ",", "\"\<LambdaGruis\>\"", ",", 
           "\"\<GammaGruis\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<Alnair\>\"", ",", "\"\<BetaGruis\>\"", ",", 
           "\"\<HIP114421\>\"", ",", "\"\<ThetaGruis\>\""}], "}"}]}], 
        "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{
       "constellation", "[", "\"\<Piscis Austrinus\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Fomalhaut\>\"", ",", "\"\<DeltaPiscisAustrini\>\"", 
          ",", "\"\<GammaPiscisAustrini\>\"", ",", 
          "\"\<BetaPiscisAustrini\>\"", ",", 
          "\"\<IotaPiscisAustrini\>\"", ",", 
          "\"\<ThetaPiscisAustrini\>\"", ",", 
          "\"\<EtaPiscisAustrini\>\"", ",", 
          "\"\<LambdaPiscisAustrini\>\"", ",", 
          "\"\<EpsilonPiscisAustrini\>\"", ",", "\"\<Fomalhaut\>\""}],
          "}"}], "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Microscopium\>\"", "]"}], 
       "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Theta1Microscopii\>\"", ",", 
          "\"\<EpsilonMicroscopii\>\"", ",", 
          "\"\<GammaMicroscopii\>\"", ",", 
          "\"\<AlphaMicroscopii\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Cetus\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<BatenKaitos\>\"", ",", "\"\<ThetaCeti\>\"", ",", 
          "\"\<EtaCeti\>\"", ",", "\"\<IotaCeti\>\"", ",", 
          "\"\<Diphda\>\"", ",", "\"\<TauCeti\>\"", ",", 
          "\"\<BatenKaitos\>\"", ",", "\"\<HIP11046\>\"", ",", 
          "\"\<DeltaCeti\>\"", ",", "\"\<Kaffaljidhm\>\"", ",", 
          "\"\<Xi2Ceti\>\"", ",", "\"\<MuCeti\>\"", ",", 
          "\"\<LambdaCeti\>\"", ",", "\"\<Menkar\>\"", ",", 
          "\"\<Kaffaljidhm\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Canis Minor\>\"", "]"}], 
       "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"\"\<Procyon\>\"", ",", "\"\<Gomeisa\>\""}], "}"}], 
        "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Apus\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<BetaApodis\>\"", ",", "\"\<GammaApodis\>\"", ",", 
          "\"\<Delta1Apodis\>\"", ",", "\"\<AlphaApodis\>\""}], "}"}],
         "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Caelum\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"\"\<AlphaCaeli\>\"", ",", "\"\<BetaCaeli\>\""}], 
         "}"}], "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Canes Venatici\>\"", "]"}], 
       "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"\"\<CorCaroli\>\"", ",", "\"\<Chara\>\""}], "}"}], 
        "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Circinus\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<BetaCircini\>\"", ",", "\"\<AlphaCircini\>\"", ",", 
          "\"\<GammaCircini\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Coma Berenices\>\"", "]"}], 
       "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Alpha1ComaeBerenices\>\"", ",", 
          "\"\<BetaComaeBerenices\>\"", ",", 
          "\"\<GammaComaeBerenices\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{
       "constellation", "[", "\"\<Corona Australis\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Eta1CoronaeAustralis\>\"", ",", 
          "\"\<ZetaCoronaeAustralis\>\"", ",", 
          "\"\<DeltaCoronaeAustralis\>\"", ",", 
          "\"\<BetaCoronaeAustralis\>\"", ",", 
          "\"\<AlphaCoronaeAustralis\>\"", ",", 
          "\"\<Gamma1CoronaeAustralis\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Corona Borealis\>\"", "]"}],
        "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<EpsilonCoronaeBorealis\>\"", ",", 
          "\"\<DeltaCoronaeBorealis\>\"", ",", 
          "\"\<GammaCoronaeBorealis\>\"", ",", "\"\<Alphekka\>\"", 
          ",", "\"\<Nusakan\>\"", ",", 
          "\"\<ThetaCoronaeBorealis\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Corvus\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Alchibah\>\"", ",", "\"\<EpsilonCorvi\>\"", ",", 
          "\"\<Gienah\>\"", ",", "\"\<Algorab\>\"", ",", 
          "\"\<Kraz\>\"", ",", "\"\<EpsilonCorvi\>\""}], "}"}], 
        "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Crater\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<ThetaCrateris\>\"", ",", "\"\<EpsilonCrateris\>\"", 
           ",", "\"\<DeltaCrateris\>\"", ",", "\"\<Alkes\>\"", ",", 
           "\"\<BetaCrateris\>\"", ",", "\"\<GammaCrateris\>\"", ",", 
           "\"\<DeltaCrateris\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<GammaCrateris\>\"", ",", "\"\<ZetaCrateris\>\"", ",", 
           "\"\<EtaCrateris\>\""}], "}"}]}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Delphinus\>\"", "]"}], "=", 
       
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<EpsilonDelphini\>\"", ",", "\"\<Rotanev\>\"", ",", 
          "\"\<AlphaDelphini\>\"", ",", "\"\<Gamma2Delphini\>\"", 
          ",", "\"\<DeltaDelphini\>\"", ",", "\"\<Rotanev\>\""}], 
         "}"}], "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Equuleus\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Kitalpha\>\"", ",", "\"\<BetaEquulei\>\"", ",", 
          "\"\<DeltaEquulei\>\"", ",", "\"\<GammaEquulei\>\"", ",", 
          "\"\<Kitalpha\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Fornax\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<AlphaFornacis\>\"", ",", "\"\<BetaFornacis\>\"", ",", 
          "\"\<NuFornacis\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Lacerta\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<HIP109937\>\"", ",", "\"\<HIP109754\>\"", ",", 
          "\"\<HIP110351\>\"", ",", "\"\<HIP110609\>\"", ",", 
          "\"\<HIP110609\>\"", ",", "\"\<AlphaLacertae\>\"", ",", 
          "\"\<BetaLacertae\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Leo Minor\>\"", "]"}], "=", 
       
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<HIP53229\>\"", ",", "\"\<BetaLeonisMinoris\>\"", ",", 
          "\"\<HIP49593\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Lupus\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<ThetaLupi\>\"", ",", "\"\<EtaLupi\>\"", ",", 
           "\"\<GammaLupi\>\"", ",", "\"\<EpsilonLupi\>\"", ",", 
           "\"\<Kappa1Lupi\>\"", ",", "\"\<ZetaLupi\>\"", ",", 
           "\"\<AlphaLupi\>\"", ",", "\"\<BetaLupi\>\"", ",", 
           "\"\<DeltaLupi\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<GammaLupi\>\"", ",", "\"\<Phi1Lupi\>\"", ",", 
           "\"\<ChiLupi\>\""}], "}"}]}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Lyra\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<Vega\>\"", ",", "\"\<Zeta1Lyrae\>\"", ",", 
           "\"\<Delta2Lyrae\>\"", ",", "\"\<Sulaphat\>\"", ",", 
           "\"\<Shelyak\>\"", ",", "\"\<Zeta1Lyrae\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<Epsilon2Lyrae\>\"", ",", "\"\<Vega\>\"", ",", 
           "\"\<KappaLyrae\>\""}], "}"}]}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Musca\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<DeltaMuscae\>\"", ",", "\"\<AlphaMuscae\>\"", ",", 
           "\"\<EpsilonMuscae\>\"", ",", "\"\<LambdaMuscae\>\""}], 
          "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<GammaMuscae\>\"", ",", "\"\<AlphaMuscae\>\"", ",", 
           "\"\<BetaMuscae\>\""}], "}"}]}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Norma\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<EpsilonNormae\>\"", ",", "\"\<Gamma2Normae\>\"", ",", 
          "\"\<EtaNormae\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Pyxis\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<BetaPyxidis\>\"", ",", "\"\<AlphaPyxidis\>\"", ",", 
          "\"\<GammaPyxidis\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Sagitta\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<EtaSagittae\>\"", ",", "\"\<GammaSagittae\>\"", ",", 
           "\"\<ZetaSagittae\>\"", ",", "\"\<BetaSagittae\>\""}], 
          "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<ZetaSagittae\>\"", ",", "\"\<AlphaSagittae\>\""}], 
          "}"}]}], "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Scutum\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<BetaScuti\>\"", ",", "\"\<AlphaScuti\>\"", ",", 
           "\"\<GammaScuti\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\"\<AlphaScuti\>\"", ",", "\"\<ZetaScuti\>\""}], 
          "}"}]}], "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Serpens\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<BetaSerpentis\>\"", ",", "\"\<GammaSerpentis\>\"", ",", 
          "\"\<KappaSerpentis\>\"", ",", "\"\<BetaSerpentis\>\"", 
          ",", "\"\<DeltaSerpentis\>\"", ",", "\"\<Unukalhai\>\"", 
          ",", "\"\<EpsilonSerpentis\>\"", ",", "\"\<MuSerpentis\>\"",
           ",", "\"\<NuSerpentis\>\"", ",", "\"\<XiSerpentis\>\"", 
          ",", "\"\<OmicronSerpentis\>\"", ",", 
          "\"\<EtaSerpentis\>\"", ",", "\"\<Alya\>\""}], "}"}], 
        "}"}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Sextans\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<BetaSextantis\>\"", ",", "\"\<AlphaSextantis\>\"", ",", 
          "\"\<GammaSextantis\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Telescopium\>\"", "]"}], 
       "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<ZetaTelescopii\>\"", ",", "\"\<AlphaTelescopii\>\"", 
          ",", "\"\<EpsilonTelescopii\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Triangulum\>\"", "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<BetaTrianguli\>\"", ",", "\"\<GammaTrianguli\>\"", ",", 
          "\"\<Mothallah\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<Vulpecula\>\"", "]"}], "=", 
       
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
         "\"\<HIP97886\>\"", ",", "\"\<AlphaVulpeculae\>\"", ",", 
          "\"\<HIP94703\>\""}], "}"}], "}"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{"constellation", "[", "\"\<None\>\"", "]"}], " ", "=", 
       " ", 
       RowBox[{"{", 
        RowBox[{"{", "\"\<Polaris\>\"", "}"}], "}"}]}], ";", "\n", 
      "
", 
      RowBox[{"(*", " ", 
       RowBox[{
       "These", " ", "are", " ", "the", " ", "families", " ", "of", 
        " ", "constellations"}], " ", "*)"}], "
", 
      RowBox[{
       RowBox[{"constellationFamily", "[", "\"\<none\>\"", "]"}], " ",
        "=", 
       RowBox[{"constellationNames", " ", "=", " ", 
        RowBox[{"{", "}"}]}]}], ";", "
", 
      RowBox[{
       RowBox[{"constellationFamily", "[", "\"\<all\>\"", "]"}], " ", 
       "=", " ", 
       RowBox[{"constellationNames", " ", "=", " ", 
        RowBox[{"Prepend", "[", 
         RowBox[{
          RowBox[{"Sort", "[", 
           RowBox[{"{", 
            RowBox[{
            "\"\<Ursa Minor\>\"", ",", "\"\<Ursa Major\>\"", ",", 
             "\"\<Cygnus\>\"", ",", "\"\<Cassiopeia\>\"", ",", 
             "\"\<Orion\>\"", ",", "\"\<Pisces\>\"", ",", 
             "\"\<Gemini\>\"", ",", "\"\<Leo\>\"", ",", 
             "\"\<Virgo\>\"", ",", "\"\<Libra\>\"", ",", 
             "\"\<Scorpius\>\"", ",", "\"\<Sagittarius\>\"", ",", 
             "\"\<Capricornus\>\"", ",", "\"\<Aries\>\"", ",", 
             "\"\<Taurus\>\"", ",", "\"\<Bootes\>\"", ",", 
             "\"\<Hercules\>\"", ",", "\"\<Perseus\>\"", ",", 
             "\"\<Auriga\>\"", ",", "\"\<Lynx\>\"", ",", 
             "\"\<Camelopardalis\>\"", ",", "\"\<Cepheus\>\"", ",", 
             "\"\<Draco\>\"", ",", "\"\<Andromeda\>\"", ",", 
             "\"\<Pegasus\>\"", ",", "\"\<Ophiuchus\>\"", ",", 
             "\"\<Aquila\>\"", ",", "\"\<Lepus\>\"", ",", 
             "\"\<Eridanus\>\"", ",", "\"\<Monoceras\>\"", ",", 
             "\"\<Canis Major\>\"", ",", "\"\<Hydra\>\"", ",", 
             "\"\<Antila\>\"", ",", "\"\<Vela\>\"", ",", 
             "\"\<Puppis\>\"", ",", "\"\<Carina\>\"", ",", 
             "\"\<Centaurus\>\"", ",", "\"\<Columba\>\"", ",", 
             "\"\<Pictor\>\"", ",", "\"\<Volans\>\"", ",", 
             "\"\<Dorado\>\"", ",", "\"\<Reticulum\>\"", ",", 
             "\"\<Horologium\>\"", ",", "\"\<Hydrus\>\"", ",", 
             "\"\<Octans\>\"", ",", "\"\<Mensa\>\"", ",", 
             "\"\<Chamaeleon\>\"", ",", "\"\<Crux\>\"", ",", 
             "\"\<Triangulum Australe\>\"", ",", "\"\<Ara\>\"", ",", 
             "\"\<Pavo\>\"", ",", "\"\<Phoenix\>\"", ",", 
             "\"\<Sculptor\>\"", ",", "\"\<Indus\>\"", ",", 
             "\"\<Grus\>\"", ",", "\"\<Piscis Austrinus\>\"", ",", 
             "\"\<Microscopium\>\"", ",", "\"\<Canis Minor\>\"", ",", 
             "\"\<Apus\>\"", ",", "\"\<Caelum\>\"", ",", 
             "\"\<Canes Venatici\>\"", ",", "\"\<Circinus\>\"", ",", 
             "\"\<Coma Berenices\>\"", ",", 
             "\"\<Corona Australis\>\"", ",", 
             "\"\<Corona Borealis\>\"", ",", "\"\<Corvus\>\"", ",", 
             "\"\<Crater\>\"", ",", "\"\<Delphinus\>\"", ",", 
             "\"\<Equuleus\>\"", ",", "\"\<Fornax\>\"", ",", 
             "\"\<Lacerta\>\"", ",", "\"\<Leo Minor\>\"", ",", 
             "\"\<Lupus\>\"", ",", "\"\<Lyra\>\"", ",", 
             "\"\<Musca\>\"", ",", "\"\<Norma\>\"", ",", 
             "\"\<Pyxis\>\"", ",", "\"\<Sagitta\>\"", ",", 
             "\"\<Scutum\>\"", ",", "\"\<Serpens\>\"", ",", 
             "\"\<Sextans\>\"", ",", "\"\<Telescopium\>\"", ",", 
             "\"\<Triangulum\>\"", ",", "\"\<Vulpecula\>\"", ",", 
             " ", "\"\<Aquarius\>\""}], "}"}], "]"}], ",", " ", 
          "\"\<None\>\""}], "]"}]}]}], ";", "
", 
      RowBox[{
       RowBox[{
       "constellationFamily", "[", " ", "\"\<Ursa Major\>\"", " ", 
        "]"}], " ", "=", 
       RowBox[{"ursaMajorConstellationNames", " ", "=", " ", 
        RowBox[{"{", "  ", 
         RowBox[{
         "\"\<Ursa Major\>\"", ",", "\"\<Ursa Minor\>\"", ",", 
          "\"\<Draco\>\"", ",", "\"\<Canes Venatici\>\"", ",", 
          "\"\<Bootes\>\"", ",", "\"\<Coma Berenices\>\"", ",", 
          "\"\<Corona Borealis\>\"", ",", "\"\<Camelopardalis\>\"", 
          ",", "\"\<Lynx\>\"", ",", "\"\<Leo Minor\>\""}], " ", 
         "}"}]}]}], ";", "
", 
      RowBox[{
       RowBox[{
       "constellationFamily", "[", " ", "\"\<Zodiac\>\"", " ", "]"}], 
       " ", "=", 
       RowBox[{"zodiacConstellationNames", " ", "=", " ", 
        RowBox[{"{", " ", 
         RowBox[{
         "\"\<Leo\>\"", ",", "\"\<Virgo\>\"", ",", "\"\<Libra\>\"", 
          ",", "\"\<Scorpius\>\"", ",", "\"\<Sagittarius\>\"", ",", 
          "\"\<Capricornus\>\"", ",", "\"\<Aquarius\>\"", ",", 
          "\"\<Pisces\>\"", ",", "\"\<Aries\>\"", ",", 
          "\"\<Taurus\>\"", ",", "\"\<Gemini\>\"", ",", 
          "\"\<Cancer\>\""}], "}"}]}]}], ";", "
", 
      RowBox[{
       RowBox[{
       "constellationFamily", "[", " ", "\"\<Perseus\>\"", " ", "]"}],
        " ", "=", 
       RowBox[{"perseusConstellationNames", " ", "=", " ", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Cassiopeia\>\"", ",", "\"\<Cepheus\>\"", ",", 
          "\"\<Andromeda\>\"", ",", "\"\<Perseus\>\"", ",", 
          "\"\<Pegasus\>\"", ",", "\"\<Cetus\>\"", ",", 
          "\"\<Auriga\>\"", ",", "\"\<Lacerta\>\"", ",", 
          "\"\<Triangulum\>\""}], "}"}]}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{
       "constellationFamily", "[", " ", "\"\<Hercules\>\"", " ", 
        "]"}], " ", "=", 
       RowBox[{"herculesConstellationNames", " ", "=", " ", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Hercules\>\"", ",", "\"\<Sagitta\>\"", ",", 
          "\"\<Aquila\>\"", ",", "\"\<Lyra\>\"", ",", 
          "\"\<Cygnus\>\"", ",", "\"\<Vulpecula\>\"", ",", 
          "\"\<Hydra\>\"", ",", "\"\<Sextans\>\"", ",", 
          "\"\<Crater\>\"", ",", "\"\<Corvus\>\"", ",", 
          "\"\<Ophiuchus\>\"", ",", "\"\<Serpens\>\"", ",", 
          "\"\<Scutum\>\"", ",", "\"\<Centaurus\>\"", ",", 
          "\"\<Lupus\>\"", ",", "\"\<Corona Australis\>\"", ",", 
          "\"\<Ara\>\"", ",", "\"\<Triangulum Australe\>\"", ",", 
          "\"\<Crux\>\""}], "}"}]}]}], ";", "
", 
      RowBox[{
       RowBox[{
       "constellationFamily", "[", " ", "\"\<Orion\>\"", " ", "]"}], 
       " ", "=", 
       RowBox[{"orionConstellationNames", " ", "=", " ", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Orion\>\"", ",", "\"\<Canis Major\>\"", ",", 
          "\"\<Canis Minor\>\"", ",", "\"\<Monoceras\>\"", ",", 
          "\"\<Lepus\>\""}], "}"}]}]}], ";", "
", 
      RowBox[{
       RowBox[{
       "constellationFamily", "[", " ", "\"\<Heavenly Waters\>\"", 
        " ", "]"}], " ", "=", 
       RowBox[{"heavenlyWatersConstellationNames", " ", "=", " ", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Delphinus\>\"", ",", "\"\<Equuleus\>\"", ",", 
          "\"\<Eridanus\>\"", ",", "\"\<Piscis Austrinus\>\"", ",", 
          "\"\<Carina\>\"", ",", "\"\<Puppis\>\"", ",", 
          "\"\<Vela\>\"", ",", "\"\<Pyxis\>\"", ",", 
          "\"\<Columba\>\""}], "}"}]}]}], ";", "
", 
      
      RowBox[{
       RowBox[{
       "constellationFamily", "[", " ", "\"\<Johann Bayer\>\"", " ", 
        "]"}], " ", "=", 
       RowBox[{"johannBayerConstellationNames", " ", "=", " ", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Hydrus\>\"", ",", "\"\<Dorado\>\"", ",", 
          "\"\<Volans\>\"", ",", "\"\<Apus\>\"", ",", "\"\<Pavo\>\"", 
          ",", "\"\<Grus\>\"", ",", "\"\<Phoenix\>\"", ",", 
          "\"\<Tucana\>\"", ",", "\"\<Indus\>\"", ",", 
          "\"\<Chamaeleon\>\"", ",", "\"\<Musca\>\""}], "}"}]}]}], 
      ";", "
", 
      RowBox[{
       RowBox[{
       "constellationFamily", "[", " ", "\"\<Lacaille\>\"", " ", 
        "]"}], " ", "=", 
       RowBox[{"lacailleConstellationNames", " ", "=", " ", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Norma\>\"", ",", "\"\<Circinus\>\"", ",", 
          "\"\<Telescopium\>\"", ",", "\"\<Microscopium\>\"", ",", 
          "\"\<Sculptor\>\"", ",", "\"\<Fornax\>\"", ",", 
          "\"\<Caelum\>\"", ",", "\"\<Horologium\>\"", ",", 
          "\"\<Octans\>\"", ",", "\"\<Mensa\>\"", ",", 
          "\"\<Reticulum\>\"", ",", "\"\<Pictor\>\"", ",", 
          "\"\<Antila\>\""}], "}"}]}]}], ";", "
", 
      RowBox[{"constellationFamilyNames", " ", "=", " ", 
       RowBox[{"{", 
        RowBox[{
        "\"\<all\>\"", ",", " ", "\"\<none\>\"", ",", " ", 
         "\"\<Ursa Major\>\"", ",", " ", "\"\<Zodiac\>\"", ",", " ", 
         "\"\<Perseus\>\"", ",", " ", "\"\<Hercules\>\"", ",", " ", 
         "\"\<Orion\>\"", ",", " ", "\"\<Heavenly Waters\>\"", ",", 
         " ", "\"\<Johann Bayer\>\"", ",", " ", "\"\<Lacaille\>\""}], 
        " ", "}"}]}], ";", "
", 
      "
", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{
        "The", " ", "list", " ", "of", " ", "stars", " ", "to", " ", 
         "work", " ", 
         RowBox[{"with", ".", " ", "For"}], " ", "good", " ", 
         "performance", " ", 
         RowBox[{"it", "'"}], "s", " ", "essential", " ", "to", " ", 
         "work", " ", "with", " ", "starCoords"}], " ", "-", 
        "
", 
        RowBox[{"the", " ", "star", " ", 
         RowBox[{"{", 
          RowBox[{"x", ",", "y", ",", "z"}], "}"}], " ", 
         "coordinates"}], " ", "-", " ", 
        RowBox[{
        "directly", " ", "rather", " ", "than", " ", "access", " ", 
         "them", " ", "on", " ", "demand", " ", "via", " ", 
         "AstronomicalData"}]}], " ", "*)"}], "\n", 
      RowBox[{"stars", " ", "=", "  ", 
       RowBox[{"Take", "[", 
        RowBox[{
         RowBox[{
         "AstronomicalData", "[", " ", "\"\<NakedEyeStar\>\"", "]"}], 
         ",", " ", "1000"}], "]"}]}], ";", "
", 
      RowBox[{"starCoords", " ", "=", " ", 
       RowBox[{"Table", "[", " ", 
        RowBox[{
         RowBox[{"starToCartesian", "[", " ", "star", "]"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"star", ",", " ", "stars"}], "}"}]}], "]"}]}], ";", 
      "\n", "
", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Converts", " ", "ra", " ", "in", " ", "decimal", " ", "hours",
         " ", "and", " ", "dec", " ", "in", " ", "degrees", " ", "to",
         " ", "Cartesian", " ", "coordinates"}], " ", "*)"}], 
      "
", 
      RowBox[{
       RowBox[{"toCartesian", "[", " ", 
        RowBox[{"ra_", ",", " ", "dec_"}], "]"}], " ", ":=", " ", 
       RowBox[{"Module", "[", " ", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x", ",", " ", "y", ",", " ", "z"}], "}"}], ",", 
         " ", "
", 
         RowBox[{
          RowBox[{"x", " ", "=", " ", 
           RowBox[{
            RowBox[{"Cos", "[", 
             RowBox[{"15", " ", "ra", " ", "Degree"}], "]"}], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{
              RowBox[{"dec", " ", "Degree"}], "+", 
              RowBox[{"Pi", "/", "2"}]}], "]"}]}]}], ";", 
          "
", 
          RowBox[{"y", " ", "=", " ", 
           RowBox[{
            RowBox[{"Sin", "[", 
             RowBox[{"15", " ", "ra", " ", "Degree"}], "]"}], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{
              RowBox[{"dec", " ", "Degree"}], "+", 
              RowBox[{"Pi", "/", "2"}]}], "]"}]}]}], ";", 
          "
", 
          RowBox[{"z", " ", "=", " ", 
           RowBox[{"-", 
            RowBox[{"Cos", "[", 
             RowBox[{
              RowBox[{"dec", " ", "Degree"}], "+", 
              RowBox[{"Pi", "/", "2"}]}], "]"}]}]}], ";", 
          "
", 
          RowBox[{"{", 
           RowBox[{"x", ",", " ", "y", ",", " ", "z"}], "}"}]}]}], 
        " ", "]"}]}], ";", "
", "\n", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Returns", " ", "the", " ", "Cartesian", " ", "coordinates", 
        " ", "of", " ", "a", " ", "particular", " ", "star"}], " ", 
       "*)"}], 
      RowBox[{
       RowBox[{"starToCartesian", "[", " ", "name_", " ", "]"}], " ", 
       ":=", 
       RowBox[{"toCartesian", "[", " ", 
        RowBox[{
         RowBox[{"AstronomicalData", "[", " ", 
          RowBox[{"name", ",", " ", "\"\<RightAscension\>\""}], "]"}],
          ",", " ", 
         RowBox[{"AstronomicalData", "[", " ", 
          RowBox[{"name", ",", " ", "\"\<Declination\>\""}], "]"}]}], 
        "]"}]}], ";", "
", "\n", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Returns", " ", "the", " ", "graphics", " ", "primitives", " ",
         "to", " ", "plot", " ", "a", " ", "particular", " ", 
        RowBox[{"star", ".", " ", "This"}], " ", "is", " ", 
        RowBox[{"SLOW", "!"}]}], " ", "*)"}], "
", 
      RowBox[{
       RowBox[{"plotStar", "[", " ", "name_", "]"}], " ", ":=", " ", 
       RowBox[{"{", 
        RowBox[{"White", ",", " ", 
         RowBox[{"Sphere", "[", 
          RowBox[{
           RowBox[{"starToCartesian", "[", "name", "]"}], ",", " ", 
           "0.02"}], "]"}]}], "}"}]}], ";", "
", 
      "
", 
      RowBox[{"(*", " ", 
       RowBox[{"Plots", " ", "a", " ", "list", " ", "of", " ", 
        RowBox[{"{", 
         RowBox[{"x", ",", "y", ",", "z"}], "}"}], " ", "coordinates",
         " ", "corresponding", " ", "to", " ", "a", " ", "set", " ", 
        "of", " ", 
        RowBox[{"stars", ".", " ", "This"}], " ", "is", " ", 
        RowBox[{"FAST", "!"}]}], " ", "*)"}], "\n", 
      RowBox[{
       RowBox[{"plotStarCoords", "[", " ", "starCoords", "]"}], " ", 
       "=", 
       RowBox[{"ListPointPlot3D", "[", 
        RowBox[{
         RowBox[{"{", "starCoords", "}"}], ",", " ", 
         RowBox[{"BoxRatios", "->", 
          RowBox[{"{", 
           RowBox[{"1", ",", " ", "1", ",", " ", "1"}], "}"}]}], ",", 
         " ", 
         RowBox[{"PlotStyle", "->", 
          RowBox[{"{", "Blue", "}"}]}]}], "]"}]}], ";", "\n", 
      "
", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Returns", " ", "the", " ", "graphics", " ", "primitives", " ",
         "to", " ", "plot", " ", "a", " ", "particular", " ", 
        "constellation"}], " ", "*)"}], 
      RowBox[{
       RowBox[{
       "plotConstellation", "[", "  ", "constellationName_", "]"}], 
       " ", ":=", " ", 
       RowBox[{"{", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Line", "[", " ", 
           RowBox[{
            RowBox[{
             RowBox[{"starToCartesian", "[", "#", "]"}], "&"}], "/@", 
            
            RowBox[{
             RowBox[{"constellation", "[", "constellationName", "]"}],
              "[", 
             RowBox[{"[", "n", "]"}], "]"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"n", ",", " ", "1", ",", " ", 
            RowBox[{
             RowBox[{"Dimensions", "[", " ", 
              RowBox[{
              "constellation", "[", "constellationName", "]"}], "]"}],
              "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], " ", "]"}], 
        "}"}]}], " ", ";", "\n", "
", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Returns", " ", "the", " ", "graphics", " ", "primitives", " ",
         "to", " ", "plot", " ", "a", " ", "particular", " ", 
        "constellation", " ", "family"}], " ", "*)"}], 
      RowBox[{
       RowBox[{
       "plotConstellationFamily", "[", " ", "familyName_", "]"}], " ",
        ":=", " ", "
", 
       RowBox[{"{", 
        RowBox[{"Table", "[", " ", 
         RowBox[{
          RowBox[{"plotConstellation", "[", " ", "name", " ", "]"}], 
          ",", " ", 
          RowBox[{"{", 
           RowBox[{"name", ",", " ", 
            RowBox[{"constellationFamily", "[", "familyName", "]"}]}],
            "}"}]}], "]"}], "}"}]}], ";", "\n", "
", 
      RowBox[{"(*", " ", 
       RowBox[{"Draw", " ", "the", " ", "celestial", " ", 
        RowBox[{"equator", ".", " ", "This"}], " ", "is", " ", "the", 
        " ", 
        RowBox[{"Earth", "'"}], "s", " ", "equator", " ", "extended", 
        " ", "to", " ", "the", " ", 
        RowBox[{"stars", "."}]}], " ", "*)"}], "
", 
      
      RowBox[{"celestialEquator", "=", 
       RowBox[{"ParametricPlot3D", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Sin", "[", "t", "]"}], ",", 
           RowBox[{"Cos", "[", "t", "]"}], ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "0", ",", 
           RowBox[{"2", " ", "Pi"}]}], "}"}], ",", 
         RowBox[{"MaxRecursion", "->", "0"}], ",", 
         RowBox[{"PlotStyle", "->", 
          RowBox[{"{", 
           RowBox[{"Thick", ",", 
            RowBox[{"ColorData", "[", 
             RowBox[{"1", ",", "1"}], "]"}]}], "}"}]}]}], "]"}]}], 
      ";", "\n", "
", 
      RowBox[{"(*", " ", 
       RowBox[{"Draw", " ", "the", " ", 
        RowBox[{"ecliptic", ".", " ", "This"}], " ", "is", " ", "the",
         " ", "plane", " ", "of", " ", "the", " ", "solar", " ", 
        RowBox[{"system", "."}]}], " ", "*)"}], 
      RowBox[{"ecliptic", "=", 
       RowBox[{"ParametricPlot3D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Sin", "[", "t", "]"}], ",", 
            RowBox[{"Cos", "[", "t", "]"}], ",", "0"}], "}"}], ".", 
          RowBox[{"RotationMatrix", "[", 
           RowBox[{
            RowBox[{"23.5", " ", "Degree"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}]}], 
           "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "0", ",", 
           RowBox[{"2", " ", "Pi"}]}], "}"}], ",", 
         RowBox[{"MaxRecursion", "->", "0"}], ",", 
         RowBox[{"PlotStyle", "->", 
          RowBox[{"{", 
           RowBox[{"Thick", ",", 
            RowBox[{"ColorData", "[", 
             RowBox[{"1", ",", "2"}], "]"}]}], "}"}]}]}], "]"}]}], 
      ";", "
", "
", 
      RowBox[{"(*", " ", 
       RowBox[{"Draw", " ", "the", " ", "Celestial", " ", 
        RowBox[{"Sphere", "."}]}], " ", "*)"}], "\n", 
      RowBox[{"celestialSphere", " ", "=", " ", 
       RowBox[{"Graphics3D", "[", 
        RowBox[{"{", 
         RowBox[{"White", ",", 
          RowBox[{"Opacity", "[", ".7", "]"}], ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "0.99"}], 
           "]"}]}], "}"}], "]"}]}], ";", "\n", "
", 
      
      RowBox[{"(*", " ", 
       RowBox[{
       "Returns", " ", "the", " ", "graphics", " ", "primitives", " ",
         "to", " ", "draw", " ", "the", " ", 
        RowBox[{"poles", "."}]}], " ", "*)"}], "
", 
      
      RowBox[{"poles", " ", "=", " ", 
       RowBox[{"{", 
        RowBox[{"Black", ",", 
         RowBox[{"Cylinder", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"0", ",", "0", ",", 
               RowBox[{"-", "1.1"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "0", ",", "1.1"}], "}"}]}], "}"}], 
           ",", ".01"}], "]"}], ",", " ", 
         RowBox[{"Text", "[", 
          RowBox[{
           RowBox[{"Style", "[", 
            RowBox[{"\"\<N\>\"", ",", "18", ",", "Blue"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "1.2"}], "}"}]}], "]"}], ",", 
         " ", 
         RowBox[{"Text", "[", 
          RowBox[{
           RowBox[{"Style", "[", 
            RowBox[{"\"\<S\>\"", ",", "18", ",", "Red"}], "]"}], ",", 
           
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", 
             RowBox[{"-", "1.2"}]}], "}"}]}], "]"}]}], "}"}]}], ";", 
      "
", "\n", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Returns", " ", "the", " ", "graphics", " ", "primitives", " ",
         "to", " ", "draw", " ", "the", " ", 
        RowBox[{"zenith", "."}]}], " ", "*)"}], "
", 
      RowBox[{
       RowBox[{"drawZenith", "[", " ", 
        RowBox[{"ra_", ",", " ", "dec_"}], "]"}], " ", ":=", " ", 
       RowBox[{"{", 
        RowBox[{"Black", ",", 
         RowBox[{"Cylinder", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
             RowBox[{"toCartesian", "[", 
              RowBox[{"ra", ",", " ", "dec"}], "]"}]}], "}"}], ",", 
           ".01"}], "]"}]}], "}"}]}], ";", "
", 
      "
", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Returns", " ", "the", " ", "graphics", " ", "primitives", " ",
         "to", " ", "draw", " ", "the", " ", "First", " ", "Point", 
        " ", "of", " ", "Aries"}], " ", "*)"}], "\n", 
      RowBox[{"firstPointOfAries", " ", "=", " ", 
       RowBox[{"{", 
        RowBox[{"Yellow", ",", " ", 
         RowBox[{"Sphere", "[", " ", 
          RowBox[{
           RowBox[{"toCartesian", "[", 
            RowBox[{"0", ",", " ", "0"}], "]"}], ",", ".03"}], 
          "]"}]}], "}"}]}], ";"}], "
", ")"}]}]}], 
  "
", "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.4510605479119997`*^9, 3.4510611424040003`*^9}, {
   3.451061550743*^9, 3.451061553967*^9}, {3.4510644355150003`*^9, 
   3.451065478395*^9}, {3.451065511719*^9, 3.451065699342*^9}, {
   3.4511910358771286`*^9, 3.4511919062071285`*^9}, {
   3.4511919531791286`*^9, 3.451191953453129*^9}, {
   3.451192066183129*^9, 3.451192742357129*^9}, {
   3.4511928875541286`*^9, 3.4511928904121284`*^9}, {
   3.4512048817265997`*^9, 3.4512048869370003`*^9}, 
   3.4512059205425997`*^9, {3.4512059584038*^9, 3.4512059591994*^9}, {
   3.4512059923338003`*^9, 3.4512060260453997`*^9}, {
   3.4512061154178*^9, 3.4512068241726*^9}, {3.4512202369954*^9, 
   3.4512202387004004`*^9}, 3.4512283400425997`*^9, {
   3.451228376785*^9, 3.4512284394658003`*^9}, {3.4512284976538*^9, 
   3.4512286672414*^9}, {3.4512287103286*^9, 
   3.4512288973570004`*^9}, {3.4512289288378*^9, 
   3.4512289405222*^9}, {3.4512291757390003`*^9, 3.4512291764722*^9}, 
   3.4512292827862*^9, {3.4512296353306*^9, 3.451229637031*^9}, 
   3.4512320044424*^9, 3.4512320629112*^9, {3.451298677866341*^9, 
   3.4512986789183407`*^9}, {3.451361757755526*^9, 
   3.451361769919526*^9}, {3.4513618382195263`*^9, 
   3.451361839659526*^9}, {3.451361926177526*^9, 
   3.451361929055526*^9}, {3.4513974973922462`*^9, 
   3.451397576219046*^9}, {3.451397617325046*^9, 
   3.4513976347658463`*^9}, {3.4513978001102457`*^9, 
   3.451398285379446*^9}, {3.451405624510446*^9, 
   3.451405630438446*^9}, {3.4515605349730997`*^9, 
   3.4515606104111*^9}, {3.4515606445441*^9, 3.4515607908931*^9}, {
   3.4515616846621*^9, 3.4515617179351*^9}, 3.4515618605181*^9, {
   3.4517251680864415`*^9, 3.4517251778424416`*^9}, {
   3.4517817785570383`*^9, 3.451781896626844*^9}, {
   3.4517820096831484`*^9, 3.4517821171988993`*^9}, {
   3.451782291602338*^9, 3.4517823465648336`*^9}, {
   3.451821255818365*^9, 3.4518212592767105`*^9}, {
   3.451837508064041*^9, 3.4518375140640793`*^9}, {
   3.4523408524964075`*^9, 3.4523408599651546`*^9}, 
   3.452340899741132*^9, {3.4523409472398806`*^9, 
   3.452340956402797*^9}, 3.4523409925174084`*^9, 3.75975903434102*^9},
 CellID->237094957],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`bCelestialEquator$$ = 
    True, $CellContext`bCelestialSphere$$ = 
    True, $CellContext`bEcliptic$$ = 
    True, $CellContext`bFirstPointOfAries$$ = 
    True, $CellContext`bPlotStarCoords$$ = 
    True, $CellContext`bZenith$$ = 
    True, $CellContext`constellationName$$ = 
    "Cygnus", $CellContext`dec$$ = 45, $CellContext`familyName$$ = 
    "Zodiac", $CellContext`ra$$ = 18, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`bCelestialSphere$$], True, 
       "celestial sphere"}, {True, False}}, {{
       Hold[$CellContext`bPlotStarCoords$$], True, 
       "1000 brightest stars"}, {True, False}}, {{
       Hold[$CellContext`bCelestialEquator$$], True, 
       "celestial equator"}, {True, False}}, {{
       Hold[$CellContext`bEcliptic$$], True, "ecliptic"}, {
      True, False}}, {{
       Hold[$CellContext`bZenith$$], True, "zenith"}, {
      True, False}}, {{
       Hold[$CellContext`bFirstPointOfAries$$], True, 
       "first point of Aries"}, {True, False}}, {{
       Hold[$CellContext`ra$$], 18, "zenith right ascension"}, 0, 24, 
      0.1}, {{
       Hold[$CellContext`dec$$], 45, "zenith declination"}, -90, 90, 
      0.01}, {{
       Hold[$CellContext`familyName$$], "Zodiac", "family"}, 
      Dynamic[$CellContext`constellationFamilyNames, 
       SynchronousUpdating -> False]}, {{
       Hold[$CellContext`constellationName$$], "Cygnus", 
       "constellation"}, 
      Dynamic[$CellContext`constellationNames, SynchronousUpdating -> 
       False]}}, Typeset`size$$ = {375., {185., 190.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ =
     False, $CellContext`bCelestialSphere$827287$$ = 
    False, $CellContext`bPlotStarCoords$827288$$ = 
    False, $CellContext`bCelestialEquator$827289$$ = 
    False, $CellContext`bEcliptic$827290$$ = 
    False, $CellContext`bZenith$827291$$ = 
    False, $CellContext`bFirstPointOfAries$827292$$ = 
    False, $CellContext`ra$827293$$ = 0, $CellContext`dec$827294$$ = 
    0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`bCelestialEquator$$ = 
        True, $CellContext`bCelestialSphere$$ = 
        True, $CellContext`bEcliptic$$ = 
        True, $CellContext`bFirstPointOfAries$$ = 
        True, $CellContext`bPlotStarCoords$$ = 
        True, $CellContext`bZenith$$ = 
        True, $CellContext`constellationName$$ = 
        "Cygnus", $CellContext`dec$$ = 45, $CellContext`familyName$$ = 
        "Zodiac", $CellContext`ra$$ = 18}, "ControllerVariables" :> {
        Hold[$CellContext`bCelestialSphere$$, \
$CellContext`bCelestialSphere$827287$$, False], 
        Hold[$CellContext`bPlotStarCoords$$, \
$CellContext`bPlotStarCoords$827288$$, False], 
        Hold[$CellContext`bCelestialEquator$$, \
$CellContext`bCelestialEquator$827289$$, False], 
        Hold[$CellContext`bEcliptic$$, \
$CellContext`bEcliptic$827290$$, False], 
        Hold[$CellContext`bZenith$$, $CellContext`bZenith$827291$$, 
         False], 
        Hold[$CellContext`bFirstPointOfAries$$, \
$CellContext`bFirstPointOfAries$827292$$, False], 
        Hold[$CellContext`ra$$, $CellContext`ra$827293$$, 0], 
        Hold[$CellContext`dec$$, $CellContext`dec$827294$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
         Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, 
        Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Show[
        Graphics3D[{}, BoxRatios -> Automatic], 
        If[$CellContext`bEcliptic$$, $CellContext`ecliptic, 
         Graphics3D[{}]], 
        If[$CellContext`bCelestialEquator$$, \
$CellContext`celestialEquator, 
         Graphics3D[{}]], 
        If[$CellContext`bCelestialSphere$$, \
$CellContext`celestialSphere, 
         Graphics3D[{}]], 
        If[$CellContext`bPlotStarCoords$$, 
         $CellContext`plotStarCoords[$CellContext`starCoords], 
         Graphics3D[{}]], 
        Graphics3D[{
          If[$CellContext`bZenith$$, 
           $CellContext`drawZenith[$CellContext`ra$$, \
$CellContext`dec$$], White], $CellContext`poles, 
          
          If[$CellContext`bFirstPointOfAries$$, \
$CellContext`firstPointOfAries, White], Red, 
          Opacity[0.7], 
          Table[
           $CellContext`plotConstellation[$CellContext`name], \
{$CellContext`name, 
            $CellContext`constellationFamily[$CellContext`familyName$$\
]}], Yellow, Thick, 
          Opacity[1], 
          $CellContext`plotConstellation[$CellContext`\
constellationName$$]}], ImageSize -> {375, 375}, Boxed -> False, 
        ViewAngle -> Pi/10], 
      "Specifications" :> {{{$CellContext`bCelestialSphere$$, True, 
          "celestial sphere"}, {
         True, False}}, {{$CellContext`bPlotStarCoords$$, True, 
          "1000 brightest stars"}, {
         True, False}}, {{$CellContext`bCelestialEquator$$, True, 
          "celestial equator"}, {
         True, False}}, {{$CellContext`bEcliptic$$, True, 
          "ecliptic"}, {
         True, False}}, {{$CellContext`bZenith$$, True, "zenith"}, {
         True, False}}, {{$CellContext`bFirstPointOfAries$$, True, 
          "first point of Aries"}, {
         True, False}}, {{$CellContext`ra$$, 18, 
          "zenith right ascension"}, 0, 24, 0.1, ImageSize -> 
         Tiny}, {{$CellContext`dec$$, 45, "zenith declination"}, -90, 
         90, 0.01, ImageSize -> 
         Tiny}, {{$CellContext`familyName$$, "Zodiac", "family"}, 
         
         Dynamic[$CellContext`constellationFamilyNames, 
          SynchronousUpdating -> False], ControlType -> PopupMenu, 
         ControlPlacement -> 
         Top}, {{$CellContext`constellationName$$, "Cygnus", 
          "constellation"}, 
         
         Dynamic[$CellContext`constellationNames, SynchronousUpdating -> 
          False], ControlType -> PopupMenu, ControlPlacement -> Top}},
       "Options" :> {
       SynchronousInitialization -> False, SynchronousUpdating -> 
        False, ControlPlacement -> Left}, 
      "DefaultOptions" :> {ControllerLinking -> True}],
     ImageSizeCache->{604., {241., 247.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>(($CellContext`constellation[
        "Ursa Minor"] = {{
         "Polaris", "Yildun", "EpsilonUrsaeMinoris", 
          "ZetaUrsaeMinoris", "Kochab", "Pherkad", "EtaUrsaeMinoris", 
          "ZetaUrsaeMinoris"}}; $CellContext`constellation[
        "Ursa Major"] = {{
         "Alkaid", "Mizar", "Alioth", "Megrez", "Phad", "Merak", 
          "Dubhe", "Megrez"}, {
         "Dubhe", "HIP46733", "Muscida", "UpsilonUrsaeMajoris", 
          "Merak"}, {
         "UpsilonUrsaeMajoris", "ThetaUrsaeMajoris", "Dnoces", 
          "TalithaAustralis"}, {
         "Phad", "ChiUrsaeMajoris", "AlulaBorealis"}, {
         "ChiUrsaeMajoris", "PsiUrsaeMajoris", "TaniaAustralis", 
          "TaniaBorealis"}}; $CellContext`constellation[
        "Cygnus"] = {{"Deneb", "Sadr", "EtaCygni", "Albireo"}, {
         "ZetaCygni", "EpsilonCygni", "Sadr", "DeltaCygni", 
          "ThetaCygni", "Iota1Cygni", 
          "KappaCygni"}}; $CellContext`constellation[
        "Cassiopeia"] = {{
         "Caph", "Shedir", "Tsih", "Rukbah", 
          "Navi"}}; $CellContext`constellation[
        "Orion"] = {{
         "Betelgeuse", "Phi1Orionis", "Bellatrix", "Mintaka", "Rigel",
           "Saiph", "Alnitak", "Betelgeuse", "MuOrionis", "XiOrionis",
           "Chi2Orionis"}, {
         "Bellatrix", "Pi3Orionis", "Pi2Orionis", "Pi1Orionis"}, {
         "Pi3Orionis", "Pi4Orionis", "Pi5Orionis", "Pi6Orionis"}, {
         "XiOrionis", "NuOrionis", 
          "Chi1Orionis"}}; $CellContext`constellation[
        "Pisces"] = {{
         "TauPiscium", "UpsilonPiscium", "PhiPiscium", "EtaPiscium", 
          "OmicronPiscium", "AlphaPiscium", "NuPiscium", "MuPiscium", 
          "EpsilonPiscium", "DeltaPiscium", "OmegaPiscium", 
          "IotaPiscium", "ThetaPiscium", "HIP115227", "GammaPiscium", 
          "KappaPiscium", "LambdaPiscium", "HIP117245", 
          "IotaPiscium"}}; $CellContext`constellation[
        "Gemini"] = {{
         "XiGeminorum", "Alhena", "Mekbuda", "Wasat", 
          "KappaGeminorum", "Pollux", "Castor", "RhoGeminorum", 
          "TauGeminorum", "Mebsuta", "Tejat", 
          "Propus"}}; $CellContext`constellation[
        "Cancer"] = {{
         "Tarf", "AsellusAustralis", "AsellusBorealis", 
          "Iota1Cancri"}, {
         "AsellusAustralis", "Acubens"}}; $CellContext`constellation[
        "Leo"] = {{
         "EpsilonLeonis", "Rasalas", "Adhafera", "Algieba", 
          "EtaLeonis", "Regulus", "Chort", "Denebola", "Zosma", 
          "Algieba"}}; $CellContext`constellation[
        "Virgo"] = {{
         "Alaraph", "EtaVirginis", "Porrima", "ThetaVirginis", 
          "Spica", "ZetaVirginis", "Auva", "Porrima"}, {
         "Spica", "KappaVirginis"}, {
         "ZetaVirginis", "TauVirginis", "HIP72220"}, {
         "Auva", "Vindemiatrix"}}; $CellContext`constellation[
        "Libra"] = {{
         "TauLibrae", "UpsilonLibrae", "SigmaLibrae", "Zubenelgenubi",
           "Zubeneshamali", "SigmaLibrae"}, {
         "Zubeneshamali", "Zubenelhakrabi", "EtaLibrae", 
          "ThetaLibrae"}}; $CellContext`constellation[
        "Scorpius"] = {{
         "Shaula", "KappaScorpii", "Iota1Scorpii", "ThetaScorpii", 
          "EtaScorpii", "Zeta1Scorpii", "Mu1Scorpii", 
          "EpsilonScorpii", "TauScorpii", "Antares", "SigmaScorpii", 
          "Dschubba"}, {
         "Jabbah", "Acrab", "Dschubba", "HIP78265", 
          "RhoScorpii"}}; $CellContext`constellation[
        "Sagittarius"] = {{
         "EtaSagittarii", "KausAustralis", "KausMedia", 
          "KausBorealis", "PhiSagittarii", "Nunki", "TauSagittarii", 
          "Ascella", "PhiSagittarii"}, {
         "KausMedia", "Gamma1Sagittarii", "HIP87072"}, {
         "KausBorealis", "MuSagittarii"}, {
         "Nunki", "OmicronSagittarii"}, {
         "TauSagittarii", "HIP96465", "HIP98688", "Theta1Sagittarii", 
          "HIP98032", "Arkab"}}; $CellContext`constellation[
        "Capricornus"] = {{
         "AlGiedi", "Dabih", "PsiCapricorni", "OmegaCapricorni", 
          "HIP104234", "ZetaCapricorni", "DenebAlgiedi", 
          "IotaCapricorni", "ThetaCapricorni", 
          "Dabih"}}; $CellContext`constellation[
        "Aquarius"] = {{
         "Albali", "Sadalsuud", "Sadalmelik", "Sadachbia", 
          "Zeta1Aquarii", "EtaAquarii", "PhiAquarii", "LambdaAquarii",
           "Tau1Aquarii", "Skat", "HIP114341"}, {
         "Sadalmelik", "Ancha", 
          "IotaAquarii"}}; $CellContext`constellation[
        "Aries"] = {{
         "Mesarthim", "Sheratan", "Hamal", 
          "HIP13209"}}; $CellContext`constellation[
        "Taurus"] = {{
         "OmicronTauri", "HIP16083", "LambdaTauri", "GammaTauri", 
          "Delta1Tauri", "Ain", "TauTauri", "Alnath"}, {
         "GammaTauri", "Theta2Tauri", "Aldebaran", 
          "ZetaTauri"}}; $CellContext`constellation[
        "Bootes"] = {{
         "Muphrid", "Arcturus", "RhoBootis", "GammaBootis", "Nekkar", 
          "DeltaBootis", "Izar", "Arcturus", 
          "HIP70027"}}; $CellContext`constellation[
        "Hercules"] = {{
         "PhiHerculis", "TauHerculis", "SigmaHerculis", "EtaHerculis",
           "PiHerculis", "EpsilonHerculis", "ZetaHerculis", 
          "EtaHerculis"}, {
         "PiHerculis", "RhoHerculis", "ThetaHerculis", 
          "IotaHerculis"}, {
         "EpsilonHerculis", "Sarin", "LambdaHerculis", "MuHerculis", 
          "XiHerculis", "OmicronHerculis"}, {
         "ZetaHerculis", "Kornephoros", "GammaHerculis"}, {
         "Kornephoros", "Rasalgethi"}}; $CellContext`constellation[
        "Perseus"] = {{
         "OmicronPersei", "Atik", "Menkib", "EpsilonPersei", 
          "DeltaPersei", "Mirphak", "GammaPersei", "EtaPersei", 
          "PhiPersei"}, {
         "Mirphak", "KappaPersei", "Algol", "RhoPersei", 
          "HIP13254"}}; $CellContext`constellation[
        "Auriga"] = {{
         "Alnath", "IotaAurigae", "EtaAurigae", "Maaz", "Capella", 
          "Menkalinan", "ThetaAurigae", 
          "Alnath"}}; $CellContext`constellation[
        "Lynx"] = {{
         "AlphaLyncis", "HIP45688", "HIP44248", "HIP41075", 
          "HIP36145", "HIP33449", 
          "HIP30060"}}; $CellContext`constellation[
        "Camelopardalis"] = {{
         "HIP23040", "BetaCamelopardalis", "AlphaCamelopardalis", 
          "GammaCamelopardalis", 
          "HIP16228"}}; $CellContext`constellation[
        "Cepheus"] = {{
         "DeltaCephei", "EpsilonCephei", "ZetaCephei", "IotaCephei", 
          "Alrai", "Alfirk", "Alderamin", "EtaCephei", 
          "ThetaCephei"}, {
         "ZetaCephei", "Alderamin"}}; $CellContext`constellation[
        "Draco"] = {{
         "Giauzar", "KappaDraconis", "Thuban", "Edasich", 
          "ThetaDraconis", "EtaDraconis", "ZetaDraconis", "Dziban", 
          "ChiDraconis", "TauDraconis", "Tyl", "Altais", "Grumium", 
          "Nu2Draconis", "Alwaid", "Etamin", 
          "Grumium"}}; $CellContext`constellation[
        "Andromeda"] = {{
         "Almach", "Mirach", "DeltaAndromedae", "Alpheratz", 
          "PiAndromedae", "MuAndromedae", 
          "HIP7607"}}; $CellContext`constellation[
        "Pegasus"] = {{
         "Alpheratz", "Algenib", "Markab", "XiPegasi", "Homam", 
          "Baham", "Enif"}, {
         "Markab", "Scheat", "Matar", "IotaPegasi", "KappaPegasi"}, {
         "Scheat", "Sadalbari", "LambdaPegasi", "HIP107348", 
          "HIP105502"}, {
         "Scheat", "Alpheratz"}}; $CellContext`constellation[
        "Ophiuchus"] = {{
         "HIP85423", "ThetaOphiuchi", "HIP85340", "XiOphiuchi", 
          "Sabik", "ZetaOphiuchi", "YedPosterior", "YedPrior", 
          "KappaOphiuchi", "Rasalhague", "Celbalrai", "Sabik"}, {
         "Celbalrai", "GammaOphiuchi", "NuOphiuchi"}, {
         "GammaOphiuchi", "HIP88192", 
          "HIP88601"}}; $CellContext`constellation[
        "Aquila"] = {{
         "HIP93429", "LambdaAquilae", "DeltaAquilae", "ZetaAquilae", 
          "Tarazed", "Altair", "Alshain", "ThetaAquilae", 
          "EtaAquilae", "DeltaAquilae"}, {
         "ZetaAquilae", 
          "EpsilonAquilae"}}; $CellContext`constellation[
        "Lepus"] = {{
         "EpsilonLeporis", "Nihal", "Arneb", "ZetaLeporis", 
          "HIP27517", "EtaLeporis"}, {"Arneb", "HIP24305"}, {
         "Nihal", "GammaLeporis", 
          "DeltaLeporis"}}; $CellContext`constellation[
        "Eridanus"] = {{
         "LambdaEridani", "Cursa", "OmegaEridani", "NuEridani", 
          "Beid", "Zaurac", "PiEridani", "Rana", "EpsilonEridani", 
          "Azha", "Tau1Eridani", "Tau3Eridani", "Angetenar", 
          "Tau5Eridani", "Tau6Eridani", "Tau8Eridani", "Tau9Eridani", 
          "Upsilon1Eridani", "Upsilon2Eridani", "HIP20535", 
          "Upsilon4Eridani", "HIP17874", "HIP17797", "HIP15510", 
          "Acamar", "PhiEridani", "KappaEridani", "PhiEridani", 
          "PhiEridani", "Achernar"}}; $CellContext`constellation[
        "Monoceras"] = ($CellContext`monoceras = {{
          "GammaMonocerotis", "BetaMonocerotis", "DeltaMonocerotis", 
           "AlphaMonocerotis", "ZetaMonocerotis"}, {
          "DeltaMonocerotis", "HIP32578", "EpsilonMonocerotis", 
           "HIP31216"}}); $CellContext`constellation[
        "Canis Major"] = ($CellContext`canismajor = {{
          "Mirzam", "Sirius", "Omicron2CanisMajoris", "Wezen", 
           "HIP35205", "Aludra"}, {
          "Wezen", "Adhara"}}); $CellContext`constellation[
        "Hydra"] = {{
         "PiHydrae", "GammaHydrae", "BetaHydrae", "XiHydrae", 
          "NuHydrae", "MuHydrae", "Upsilon2Hydrae", "Upsilon1Hydrae", 
          "Alphard", "IotaHydrae", "ThetaHydrae", "ZetaHydrae", 
          "EtaHydrae", "SigmaHydrae", "DeltaHydrae", "EpsilonHydrae", 
          "ZetaHydrae"}}; $CellContext`constellation[
        "Antila"] = {{
         "HIP53502", "AlphaAntliae", "ThetaAntliae", 
          "EpsilonAntliae"}}; $CellContext`constellation[
        "Vela"] = {{
         "MuVelorum", "HIP51986", "HIP50191", "PsiVelorum", 
          "Alsuhail", "HIP42884", "HIP42312", "Regor", "DeltaVelorum",
           "KappaVelorum", "PhiVelorum", 
          "MuVelorum"}}; $CellContext`constellation[
        "Puppis"] = {{
         "TauPuppis", "HIP34922", "SigmaPuppis", "Naos", "RhoPuppis", 
          "HIP38170", "HIP37229", "HIP36917", "PiPuppis", "NuPuppis", 
          "TauPuppis"}}; $CellContext`constellation[
        "Carina"] = {{
         "Canopus", "ChiCarinae", "Avior", "Aspidiske", "HIP50371", 
          "ThetaCarinae", "OmegaCarinae", "Miaplacidus", 
          "UpsilonCarinae"}}; $CellContext`constellation[
        "Centaurus"] = {{
         "LambdaCentauri", "PiCentauri", "RhoCentauri", 
          "DeltaCentauri", "SigmaCentauri", "GammaCentauri", 
          "EpsilonCentauri", "ZetaCentauri", "MuCentauri", 
          "NuCentauri", "Menkent"}, {"EpsilonCentauri", "Hadar"}, {
         "EpsilonCentauri", "RigelKentaurusA"}, {
         "HIP65109", "NuCentauri", "EtaCentauri", 
          "KappaCentauri"}}; $CellContext`constellation[
        "Columba"] = {{
         "EpsilonColumbae", "Phact", "Wazn", "GammaColumbae", 
          "KappaColumbae", "DeltaColumbae"}, {
         "Wazn", "EtaColumbae"}}; $CellContext`constellation[
        "Pictor"] = {{
         "BetaPictoris", "GammaPictoris", 
          "AlphaPictoris"}}; $CellContext`constellation[
        "Volans"] = {{
         "AlphaVolantis", "BetaVolantis", "EpsilonVolantis", 
          "ZetaVolantis", "Gamma2Volantis", "DeltaVolantis", 
          "EpsilonVolantis"}}; $CellContext`constellation[
        "Dorado"] = {{
         "GammaDoradus", "AlphaDoradus", "ZetaDoradus", "BetaDoradus",
           "DeltaDoradus"}, {
         "BetaDoradus", "HIP27890"}}; $CellContext`constellation[
        "Reticulum"] = {{
         "EpsilonReticulii", "AlphaReticulii", "BetaReticulii", 
          "DeltaReticulii", 
          "EpsilonReticulii"}}; $CellContext`constellation[
        "Horologium"] = {{
         "AlphaHorologii", "HIP12653", "EtaHorologii", 
          "ZetaHorologii", 
          "AlphaHorologii"}}; $CellContext`constellation[
        "Hydrus"] = {{
         "GammaHydri", "BetaHydri", "AlphaHydri", 
          "GammaHydri"}}; $CellContext`constellation[
        "Octans"] = {{
         "BetaOctantis", "NuOctantis", "DeltaOctantis", 
          "BetaOctantis"}}; $CellContext`constellation[
        "Mensa"] = {{
         "BetaMensae", "EtaMensae", "GammaMensae", 
          "AlphaMensae"}}; $CellContext`constellation[
        "Chamaeleon"] = {{
         "AlphaChamaeleontis", "GammaChamaeleontis", 
          "BetaChamaeleontis", "Delta2Chamaeleontis", 
          "ThetaChamaeleontis", 
          "AlphaChamaeleontis"}}; $CellContext`constellation[
        "Crux"] = {{"Acrux", "Gacrux"}, {
         "Mimosa", "DeltaCrucis"}}; $CellContext`constellation[
        "Triangulum Australe"] = {{
         "Atria", "GammaTrianguliAustralis", "BetaTrianguliAustralis",
           "Atria"}}; $CellContext`constellation[
        "Ara"] = {{
         "EtaArae", "ZetaArae", "Epsilon1Arae", "AlphaArae", 
          "ThetaArae"}, {
         "AlphaArae", "BetaArae", "GammaArae", "DeltaArae"}, {
         "GammaArae", "ZetaArae"}}; $CellContext`constellation[
        "Pavo"] = {{
         "Peacock", "BetaPavonis", "EpsilonPavonis", "ZetaPavonis", 
          "EtaPavonis", "PiPavonis", "XiPavonis", "LambdaPavonis", 
          "DeltaPavonis", "BetaPavonis", 
          "GammaPavonis"}}; $CellContext`constellation[
        "Tucana"] = {{
         "DeltaTucanae", "AlphaTucanae", "GammaTucanae", 
          "Beta1Tucanae", "ZetaTucanae", "EpsilonTucanae", 
          "GammaTucanae"}}; $CellContext`constellation[
        "Phoenix"] = {{
         "DeltaPhoenicis", "GammaPhoenicis", "BetaPhoenicis", 
          "ZetaPhoenicis", "EtaPhoenicis", "EpsilonPhoenicis", 
          "Ankaa", "BetaPhoenicis"}}; $CellContext`constellation[
        "Sculptor"] = {{
         "BetaSculptoris", "GammaSculptoris", "DeltaSculptoris", 
          "AlphaSculptoris"}}; $CellContext`constellation[
        "Indus"] = {{"DeltaIndi", "ThetaIndi", "AlphaIndi"}, {
         "ThetaIndi", "BetaIndi"}}; $CellContext`constellation[
        "Grus"] = {{
         "ZetaGruis", "EpsilonGruis", "BetaGruis", "Delta1Gruis", 
          "Mu1Gruis", "LambdaGruis", "GammaGruis"}, {
         "Alnair", "BetaGruis", "HIP114421", 
          "ThetaGruis"}}; $CellContext`constellation[
        "Piscis Austrinus"] = {{
         "Fomalhaut", "DeltaPiscisAustrini", "GammaPiscisAustrini", 
          "BetaPiscisAustrini", "IotaPiscisAustrini", 
          "ThetaPiscisAustrini", "EtaPiscisAustrini", 
          "LambdaPiscisAustrini", "EpsilonPiscisAustrini", 
          "Fomalhaut"}}; $CellContext`constellation[
        "Microscopium"] = {{
         "Theta1Microscopii", "EpsilonMicroscopii", 
          "GammaMicroscopii", 
          "AlphaMicroscopii"}}; $CellContext`constellation[
        "Cetus"] = {{
         "BatenKaitos", "ThetaCeti", "EtaCeti", "IotaCeti", "Diphda", 
          "TauCeti", "BatenKaitos", "HIP11046", "DeltaCeti", 
          "Kaffaljidhm", "Xi2Ceti", "MuCeti", "LambdaCeti", "Menkar", 
          "Kaffaljidhm"}}; $CellContext`constellation[
        "Canis Minor"] = {{
         "Procyon", "Gomeisa"}}; $CellContext`constellation[
        "Apus"] = {{
         "BetaApodis", "GammaApodis", "Delta1Apodis", 
          "AlphaApodis"}}; $CellContext`constellation[
        "Caelum"] = {{
         "AlphaCaeli", "BetaCaeli"}}; $CellContext`constellation[
        "Canes Venatici"] = {{
         "CorCaroli", "Chara"}}; $CellContext`constellation[
        "Circinus"] = {{
         "BetaCircini", "AlphaCircini", 
          "GammaCircini"}}; $CellContext`constellation[
        "Coma Berenices"] = {{
         "Alpha1ComaeBerenices", "BetaComaeBerenices", 
          "GammaComaeBerenices"}}; $CellContext`constellation[
        "Corona Australis"] = {{
         "Eta1CoronaeAustralis", "ZetaCoronaeAustralis", 
          "DeltaCoronaeAustralis", "BetaCoronaeAustralis", 
          "AlphaCoronaeAustralis", 
          "Gamma1CoronaeAustralis"}}; $CellContext`constellation[
        "Corona Borealis"] = {{
         "EpsilonCoronaeBorealis", "DeltaCoronaeBorealis", 
          "GammaCoronaeBorealis", "Alphekka", "Nusakan", 
          "ThetaCoronaeBorealis"}}; $CellContext`constellation[
        "Corvus"] = {{
         "Alchibah", "EpsilonCorvi", "Gienah", "Algorab", "Kraz", 
          "EpsilonCorvi"}}; $CellContext`constellation[
        "Crater"] = {{
         "ThetaCrateris", "EpsilonCrateris", "DeltaCrateris", "Alkes",
           "BetaCrateris", "GammaCrateris", "DeltaCrateris"}, {
         "GammaCrateris", "ZetaCrateris", 
          "EtaCrateris"}}; $CellContext`constellation[
        "Delphinus"] = {{
         "EpsilonDelphini", "Rotanev", "AlphaDelphini", 
          "Gamma2Delphini", "DeltaDelphini", 
          "Rotanev"}}; $CellContext`constellation[
        "Equuleus"] = {{
         "Kitalpha", "BetaEquulei", "DeltaEquulei", "GammaEquulei", 
          "Kitalpha"}}; $CellContext`constellation[
        "Fornax"] = {{
         "AlphaFornacis", "BetaFornacis", 
          "NuFornacis"}}; $CellContext`constellation[
        "Lacerta"] = {{
         "HIP109937", "HIP109754", "HIP110351", "HIP110609", 
          "HIP110609", "AlphaLacertae", 
          "BetaLacertae"}}; $CellContext`constellation[
        "Leo Minor"] = {{
         "HIP53229", "BetaLeonisMinoris", 
          "HIP49593"}}; $CellContext`constellation[
        "Lupus"] = {{
         "ThetaLupi", "EtaLupi", "GammaLupi", "EpsilonLupi", 
          "Kappa1Lupi", "ZetaLupi", "AlphaLupi", "BetaLupi", 
          "DeltaLupi"}, {
         "GammaLupi", "Phi1Lupi", 
          "ChiLupi"}}; $CellContext`constellation[
        "Lyra"] = {{
         "Vega", "Zeta1Lyrae", "Delta2Lyrae", "Sulaphat", "Shelyak", 
          "Zeta1Lyrae"}, {
         "Epsilon2Lyrae", "Vega", 
          "KappaLyrae"}}; $CellContext`constellation[
        "Musca"] = {{
         "DeltaMuscae", "AlphaMuscae", "EpsilonMuscae", 
          "LambdaMuscae"}, {
         "GammaMuscae", "AlphaMuscae", 
          "BetaMuscae"}}; $CellContext`constellation[
        "Norma"] = {{
         "EpsilonNormae", "Gamma2Normae", 
          "EtaNormae"}}; $CellContext`constellation[
        "Pyxis"] = {{
         "BetaPyxidis", "AlphaPyxidis", 
          "GammaPyxidis"}}; $CellContext`constellation[
        "Sagitta"] = {{
         "EtaSagittae", "GammaSagittae", "ZetaSagittae", 
          "BetaSagittae"}, {
         "ZetaSagittae", 
          "AlphaSagittae"}}; $CellContext`constellation[
        "Scutum"] = {{"BetaScuti", "AlphaScuti", "GammaScuti"}, {
         "AlphaScuti", "ZetaScuti"}}; $CellContext`constellation[
        "Serpens"] = {{
         "BetaSerpentis", "GammaSerpentis", "KappaSerpentis", 
          "BetaSerpentis", "DeltaSerpentis", "Unukalhai", 
          "EpsilonSerpentis", "MuSerpentis", "NuSerpentis", 
          "XiSerpentis", "OmicronSerpentis", "EtaSerpentis", 
          "Alya"}}; $CellContext`constellation[
        "Sextans"] = {{
         "BetaSextantis", "AlphaSextantis", 
          "GammaSextantis"}}; $CellContext`constellation[
        "Telescopium"] = {{
         "ZetaTelescopii", "AlphaTelescopii", 
          "EpsilonTelescopii"}}; $CellContext`constellation[
        "Triangulum"] = {{
         "BetaTrianguli", "GammaTrianguli", 
          "Mothallah"}}; $CellContext`constellation[
        "Vulpecula"] = {{
         "HIP97886", "AlphaVulpeculae", 
          "HIP94703"}}; $CellContext`constellation[
        "None"] = {{"Polaris"}}; $CellContext`constellationFamily[
        "none"] = ($CellContext`constellationNames = {}); \
$CellContext`constellationFamily[
        "all"] = ($CellContext`constellationNames = Prepend[
          
          Sort[{"Ursa Minor", "Ursa Major", "Cygnus", "Cassiopeia", 
            "Orion", "Pisces", "Gemini", "Leo", "Virgo", "Libra", 
            "Scorpius", "Sagittarius", "Capricornus", "Aries", 
            "Taurus", "Bootes", "Hercules", "Perseus", "Auriga", 
            "Lynx", "Camelopardalis", "Cepheus", "Draco", "Andromeda",
             "Pegasus", "Ophiuchus", "Aquila", "Lepus", "Eridanus", 
            "Monoceras", "Canis Major", "Hydra", "Antila", "Vela", 
            "Puppis", "Carina", "Centaurus", "Columba", "Pictor", 
            "Volans", "Dorado", "Reticulum", "Horologium", "Hydrus", 
            "Octans", "Mensa", "Chamaeleon", "Crux", 
            "Triangulum Australe", "Ara", "Pavo", "Phoenix", 
            "Sculptor", "Indus", "Grus", "Piscis Austrinus", 
            "Microscopium", "Canis Minor", "Apus", "Caelum", 
            "Canes Venatici", "Circinus", "Coma Berenices", 
            "Corona Australis", "Corona Borealis", "Corvus", "Crater",
             "Delphinus", "Equuleus", "Fornax", "Lacerta", 
            "Leo Minor", "Lupus", "Lyra", "Musca", "Norma", "Pyxis", 
            "Sagitta", "Scutum", "Serpens", "Sextans", "Telescopium", 
            "Triangulum", "Vulpecula", "Aquarius"}], 
          "None"]); $CellContext`constellationFamily[
        "Ursa Major"] = ($CellContext`ursaMajorConstellationNames = {
         "Ursa Major", "Ursa Minor", "Draco", "Canes Venatici", 
          "Bootes", "Coma Berenices", "Corona Borealis", 
          "Camelopardalis", "Lynx", 
          "Leo Minor"}); $CellContext`constellationFamily[
        "Zodiac"] = ($CellContext`zodiacConstellationNames = {
         "Leo", "Virgo", "Libra", "Scorpius", "Sagittarius", 
          "Capricornus", "Aquarius", "Pisces", "Aries", "Taurus", 
          "Gemini", "Cancer"}); $CellContext`constellationFamily[
        "Perseus"] = ($CellContext`perseusConstellationNames = {
         "Cassiopeia", "Cepheus", "Andromeda", "Perseus", "Pegasus", 
          "Cetus", "Auriga", "Lacerta", 
          "Triangulum"}); $CellContext`constellationFamily[
        "Hercules"] = ($CellContext`herculesConstellationNames = {
         "Hercules", "Sagitta", "Aquila", "Lyra", "Cygnus", 
          "Vulpecula", "Hydra", "Sextans", "Crater", "Corvus", 
          "Ophiuchus", "Serpens", "Scutum", "Centaurus", "Lupus", 
          "Corona Australis", "Ara", "Triangulum Australe", 
          "Crux"}); $CellContext`constellationFamily[
        "Orion"] = ($CellContext`orionConstellationNames = {
         "Orion", "Canis Major", "Canis Minor", "Monoceras", 
          "Lepus"}); $CellContext`constellationFamily[
        "Heavenly Waters"] = \
($CellContext`heavenlyWatersConstellationNames = {
         "Delphinus", "Equuleus", "Eridanus", "Piscis Austrinus", 
          "Carina", "Puppis", "Vela", "Pyxis", 
          "Columba"}); $CellContext`constellationFamily[
        "Johann Bayer"] = ($CellContext`johannBayerConstellationNames = \
{"Hydrus", "Dorado", "Volans", "Apus", "Pavo", "Grus", "Phoenix", 
          "Tucana", "Indus", "Chamaeleon", 
          "Musca"}); $CellContext`constellationFamily[
        "Lacaille"] = ($CellContext`lacailleConstellationNames = {
         "Norma", "Circinus", "Telescopium", "Microscopium", 
          "Sculptor", "Fornax", "Caelum", "Horologium", "Octans", 
          "Mensa", "Reticulum", "Pictor", 
          "Antila"}); $CellContext`constellationFamilyNames = {
        "all", "none", "Ursa Major", "Zodiac", "Perseus", "Hercules", 
         "Orion", "Heavenly Waters", "Johann Bayer", 
         "Lacaille"}; $CellContext`stars = Take[
         AstronomicalData["NakedEyeStar"], 
         1000]; $CellContext`starCoords = Table[
         $CellContext`starToCartesian[$CellContext`star], \
{$CellContext`star, $CellContext`stars}]; $CellContext`toCartesian[
         Pattern[$CellContext`ra, 
          Blank[]], 
         Pattern[$CellContext`dec, 
          Blank[]]] := 
       Module[{$CellContext`x, $CellContext`y, $CellContext`z}, \
$CellContext`x = 
          Cos[(15 $CellContext`ra) Degree] 
           Sin[$CellContext`dec Degree + Pi/2]; $CellContext`y = 
          Sin[(15 $CellContext`ra) Degree] 
           Sin[$CellContext`dec Degree + Pi/2]; $CellContext`z = -
           Cos[$CellContext`dec Degree + 
             Pi/2]; {$CellContext`x, $CellContext`y, $CellContext`z}]; \
$CellContext`starToCartesian[
         Pattern[$CellContext`name, 
          Blank[]]] := $CellContext`toCartesian[
         AstronomicalData[$CellContext`name, "RightAscension"], 
         
         AstronomicalData[$CellContext`name, 
          "Declination"]]; $CellContext`plotStar[
         Pattern[$CellContext`name, 
          Blank[]]] := {White, 
         Sphere[
          $CellContext`starToCartesian[$CellContext`name], 
          0.02]}; \
$CellContext`plotStarCoords[$CellContext`starCoords] = 
       ListPointPlot3D[{$CellContext`starCoords}, 
         BoxRatios -> {1, 1, 1}, 
         PlotStyle -> {Blue}]; $CellContext`plotConstellation[
         Pattern[$CellContext`constellationName, 
          Blank[]]] := {
         Table[
          Line[
           Map[$CellContext`starToCartesian[#]& , 
            Part[
             $CellContext`constellation[$CellContext`\
constellationName], $CellContext`n]]], {$CellContext`n, 1, 
           Part[
            Dimensions[
             $CellContext`constellation[$CellContext`\
constellationName]], 1]}]}; $CellContext`plotConstellationFamily[
         Pattern[$CellContext`familyName, 
          Blank[]]] := {
         Table[
          $CellContext`plotConstellation[$CellContext`name], \
{$CellContext`name, 
           $CellContext`constellationFamily[$CellContext`familyName]}]\
}; $CellContext`celestialEquator = ParametricPlot3D[{
          Sin[$CellContext`t], 
          Cos[$CellContext`t], 0}, {$CellContext`t, 0, 2 Pi}, 
         MaxRecursion -> 0, PlotStyle -> {Thick, 
           ColorData[1, 1]}]; $CellContext`ecliptic = ParametricPlot3D[
         Dot[{
           Sin[$CellContext`t], 
           Cos[$CellContext`t], 0}, 
          RotationMatrix[23.5 Degree, {-1, 0, 0}]], {$CellContext`t, 
          0, 2 Pi}, MaxRecursion -> 0, PlotStyle -> {Thick, 
           ColorData[1, 2]}]; $CellContext`celestialSphere = 
       Graphics3D[{White, 
          Opacity[0.7], 
          Sphere[{0, 0, 0}, 0.99]}]; $CellContext`poles = {Black, 
         Cylinder[{{0, 0, -1.1}, {0, 0, 1.1}}, 0.01], 
         Text[
          Style["N", 18, Blue], {0, 0, 1.2}], 
         Text[
          Style["S", 18, Red], {0, 0, -1.2}]}; $CellContext`drawZenith[
         Pattern[$CellContext`ra, 
          Blank[]], 
         Pattern[$CellContext`dec, 
          Blank[]]] := {Black, 
         Cylinder[{{0, 0, 0}, 
           $CellContext`toCartesian[$CellContext`ra, \
$CellContext`dec]}, 0.01]}; $CellContext`firstPointOfAries = {
        Yellow, 
         Sphere[
          $CellContext`toCartesian[0, 0], 0.03]}; Null); 
     Typeset`initDone$$ = True),
    SynchronousInitialization->False,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.759759034341406*^9},
 CellID->20385800]
}, {2}]]