FlightsOverhead-1-1-0-definition.nb

Notebook[{

Cell[CellGroupData[{
Cell["FlightsOverhead", "Title",
 CellTags->{"Name", "TemplateCell", "Title"},
 CellID->732081500,ExpressionUUID->"947da24a-9c6b-45e7-b7c0-427fd9ee56f0"],

Cell["\<\
Determine the flights and flight paths of airplanes currently overhead at a \
location\
\>", "Text",
 CellTags->{"Description", "TemplateCell"},
 CellID->45471754,ExpressionUUID->"aa607bf6-19fc-481b-8855-f0e4d152dac8"],

Cell[CellGroupData[{

Cell[TextData[{
 "Definition",
 Cell[BoxData[
  PaneSelectorBox[{True->
   TemplateBox[{"Function", 
     Cell[
      BoxData[
       FrameBox[
        Cell[
        "Define your function using the name you gave in the Title line \
above. You can add input cells and extra code to define additional input \
cases or prerequisites. All definitions, including dependencies, will be \
included in the generated resource function.\n\nThis section should be \
evaluated before creating the Examples section below.", "MoreInfoText"], 
        Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> 
        GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> 
      True, CellTags -> {"SectionMoreInfoFunction"}, 
      CellMargins -> {{66, 66}, {15, 15}}]},
    "MoreInfoOpenerButtonTemplate"]}, Dynamic[
    CurrentValue[
     EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
   ImageSize->Automatic]],ExpressionUUID->
  "7aff2317-e313-43b0-b007-09978dc390c0"]
}], "Section",
 Editable->False,
 Deletable->False,
 DefaultNewCellStyle->"Input",
 CellTags->{"Definition", "Function", "TemplateCellGroup"},
 CellID->201182710,ExpressionUUID->"24701367-d136-4a27-a1b8-9b1dc3d5594c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "messages", "*)"}], 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"FlightsOverhead", "::", "notloc"}], "=", 
     "\"\<`1` is not a valid location.\>\""}], ";"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"FlightsOverhead", "::", "notair"}], "=", 
     "\"\<`1` is not an airline entity.\>\""}], ";"}], "\n", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", "UI", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FlightsOverhead", "[", "args___", "]"}], ":=", 
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"res", "=", 
        RowBox[{"iFlightsOverhead", "[", "args", "]"}]}], "}"}], ",", 
      RowBox[{"res", "/;", 
       RowBox[{"res", "=!=", "$Failed"}]}]}], "]"}]}], "\n", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"main", " ", "code"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"iFlightsOverhead", "[", "]"}], ":=", 
    RowBox[{"iFlightsOverhead", "[", 
     RowBox[{"Here", ",", "\"\<PropertyAssociation\>\"", ",", "All"}], 
     "]"}]}], "\n", 
   RowBox[{
    RowBox[{"iFlightsOverhead", "[", "\"\<Properties\>\"", "]"}], ":=", 
    RowBox[{"{", 
     RowBox[{"\"\<Flights\>\"", ",", "\"\<SkyMap\>\""}], "}"}]}], "\n", 
   RowBox[{
    RowBox[{"iFlightsOverhead", "[", "loc_", "]"}], ":=", 
    RowBox[{"iFlightsOverhead", "[", 
     RowBox[{"loc", ",", "\"\<PropertyAssociation\>\"", ",", "All"}], "]"}]}],
    "\n", 
   RowBox[{
    RowBox[{"iFlightsOverhead", "[", 
     RowBox[{"loc_", ",", "prop_"}], "]"}], ":=", 
    RowBox[{"iFlightsOverhead", "[", 
     RowBox[{"loc", ",", "prop", ",", "All"}], "]"}]}], "\n", 
   RowBox[{
    RowBox[{"iFlightsOverhead", "[", 
     RowBox[{"loc_", ",", "prop_", ",", "airline_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"pos", ",", "data", ",", 
        RowBox[{"a", "=", 
         RowBox[{"airline", "/.", 
          RowBox[{
           RowBox[{"Entity", "[", 
            RowBox[{"\"\<Airline\>\"", ",", "x_"}], "]"}], "\[RuleDelayed]", 
           "x"}]}]}], ",", "p"}], "}"}], ",", 
      RowBox[{
       RowBox[{"pos", "=", 
        RowBox[{"formatposition", "[", "loc", "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"pos", "===", "$Failed"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
           "ResourceFunction", "[", "\"\<ResourceFunctionMessage\>\"", "]"}], 
           "[", 
           RowBox[{
            RowBox[{"FlightsOverhead", "::", "notloc"}], ",", "loc"}], "]"}], 
          ";", 
          RowBox[{"Return", "[", "$Failed", "]"}]}]}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"!", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"StringQ", "[", "a", "]"}], "||", 
            RowBox[{"a", "===", "All"}]}], ")"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
           "ResourceFunction", "[", "\"\<ResourceFunctionMessage\>\"", "]"}], 
           "[", 
           RowBox[{
            RowBox[{"FlightsOverhead", "::", "notair"}], ",", "airline"}], 
           "]"}], ";", 
          RowBox[{"Return", "[", "$Failed", "]"}]}]}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"MemberQ", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
            "\"\<Flights\>\"", ",", "\"\<PropertyAssociation\>\"", ",", 
             "\"\<SkyMap\>\""}], "}"}], ",", "prop"}], "]"}], ",", 
         RowBox[{"p", "=", 
          RowBox[{"prop", "/.", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"\"\<SkyMap\>\"", "|", "\"\<PropertyAssociation\>\""}], 
              ")"}], "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
              "\"\<FlightId\>\"", ",", "\"\<Longitude\>\"", ",", 
               "\"\<Latitude\>\"", ",", "\"\<Altitude\>\""}], "}"}]}], 
            "}"}]}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
           "ResourceFunction", "[", "\"\<ResourceFunctionMessage\>\"", "]"}], 
           "[", 
           RowBox[{
            RowBox[{"General", "::", "notprop"}], ",", "prop", ",", 
            "FlightsOverhead"}], "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{"Return", "[", "$Failed", "]"}]}]}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"data", "=", 
        RowBox[{"iFlightOverheadBatchQuery", "[", 
         RowBox[{"pos", ",", "p", ",", "a"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"prop", "===", "\"\<PropertyAssociation\>\""}], ",", 
         RowBox[{"Association", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"#", "\[Rule]", 
             RowBox[{"formatprop", "[", 
              RowBox[{"data", ",", "#", ",", "pos"}], "]"}]}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{"\"\<Flights\>\"", ",", "\"\<SkyMap\>\""}], "}"}]}], 
          "]"}], ",", 
         RowBox[{"formatprop", "[", 
          RowBox[{"data", ",", "prop", ",", "pos"}], "]"}]}], "]"}]}]}], 
     "]"}]}], "\n", 
   RowBox[{
    RowBox[{"iFlightsOverhead", "[", "args___", "]"}], ":=", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{
       "ResourceFunction", "[", "\"\<ResourceFunctionMessage\>\"", "]"}], "[", 
       RowBox[{
        RowBox[{"General", "::", "argb"}], ",", "FlightsOverhead", ",", 
        RowBox[{"Length", "[", 
         RowBox[{"{", "args", "}"}], "]"}], ",", "0", ",", "3"}], "]"}], ";", 
      "$Failed"}], ")"}]}], "\n", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"formatposition", "[", 
     RowBox[{"{", 
      RowBox[{"lat_", ",", "long_", ",", "___"}], "}"}], "]"}], ":=", 
    RowBox[{"GeoPosition", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"lat", ",", "long"}], "}"}], "/.", 
      RowBox[{
       RowBox[{"Quantity", "[", 
        RowBox[{"a_", ",", "\"\<AngularDegrees\>\""}], "]"}], 
       "\[RuleDelayed]", "a"}]}], "]"}]}], "\n", 
   RowBox[{
    RowBox[{"formatposition", "[", 
     RowBox[{"GeoPosition", "[", 
      RowBox[{
       RowBox[{"coord", ":", 
        RowBox[{"{", 
         RowBox[{"_", ",", "_", ",", "___"}], "}"}]}], ",", "___"}], "]"}], 
     "]"}], ":=", 
    RowBox[{"GeoPosition", "[", 
     RowBox[{"coord", "/.", 
      RowBox[{
       RowBox[{"Quantity", "[", 
        RowBox[{"a_", ",", "\"\<AngularDegrees\>\""}], "]"}], 
       "\[RuleDelayed]", "a"}]}], "]"}]}], "\n", 
   RowBox[{
    RowBox[{"formatposition", "[", "e_Entity", "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"pos", "=", 
        RowBox[{"Quiet", "[", 
         RowBox[{
          RowBox[{"EntityValue", "[", 
           RowBox[{"e", ",", "\"\<Position\>\""}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Entity", "::", "etype"}], ",", 
            RowBox[{"EntityProperty", "::", "qname"}], ",", 
            RowBox[{"EntityProperty", "::", "pname"}], ",", 
            RowBox[{"EntityValue", "::", "pname"}]}], "}"}]}], "]"}]}], "}"}],
       ",", 
      RowBox[{"formatposition", "[", "pos", "]"}]}], "]"}]}], "\n", 
   RowBox[{
    RowBox[{"formatposition", "[", "__", "]"}], ":=", 
    "$Failed"}]}]}]], "Input",
 TaggingRules->{"AttachedInlineCell" -> CellObject[1369489]},
 CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9}, 
   3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9, 
   3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
   3.819118963612157*^9, 3.819118969505145*^9}, 3.819119131007401*^9},
 CellID->309325391,ExpressionUUID->"d1cfb5b1-7a66-493c-b17a-1de254263337"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"$batchnumber", "=", "10"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"iFlightOverheadBatchQuery", "[", 
   RowBox[{"e_", ",", "prop_", ",", "airline_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"p", "=", "prop"}], ",", "entities", ",", "input", ",", "data", 
      ",", 
      RowBox[{"dates", "=", 
       RowBox[{"DateList", "[", 
        RowBox[{"Now", ",", 
         RowBox[{"TimeZone", "\[Rule]", "\"\<UTC\>\""}]}], "]"}]}]}], "}"}], 
    ",", 
    RowBox[{
     RowBox[{"input", "=", 
      RowBox[{"Internal`MWASymbols`MWAFlightData", "[", 
       RowBox[{"e", ",", 
        RowBox[{"{", "\"\<StandardName\>\"", "}"}], ",", "airline", ",", 
        "All"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"entities", "=", 
      RowBox[{"Flatten", "[", 
       RowBox[{"flightAPI", "[", "input", "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"MatchQ", "[", 
        RowBox[{"entities", ",", 
         RowBox[{
          RowBox[{"{", "}"}], "|", "_Missing"}]}], "]"}], ",", 
       RowBox[{"Return", "[", 
        RowBox[{"Missing", "[", "\"\<NotAvailable\>\"", "]"}], "]"}]}], "]"}],
      ";", "\[IndentingNewLine]", 
     RowBox[{"dates", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"DatePlus", "[", 
         RowBox[{"dates", ",", 
          RowBox[{"Quantity", "[", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "\"\<Hours\>\""}], "]"}]}], "]"}], ",", 
        "dates"}], "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"prop", "===", "\"\<Flights\>\""}], ",", 
       RowBox[{"Return", "[", "entities", "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"entities", "=", 
      RowBox[{"Partition", "[", 
       RowBox[{"entities", ",", "$batchnumber", ",", "$batchnumber", ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "1"}], "}"}], ",", "Nothing"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"DynamicModule", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"progress", "=", "0"}], ",", "text"}], "}"}], ",", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"TrueQ", "[", "$Notebooks", "]"}], ",", 
          RowBox[{
           RowBox[{"text", "=", 
            RowBox[{"Row", "[", 
             RowBox[{"{", 
              RowBox[{"\"\<Downloading \>\"", ",", 
               RowBox[{"Dynamic", "[", "progress", "]"}], ",", "\"\< of \>\"",
                ",", 
               RowBox[{"ToString", "[", 
                RowBox[{"Length", "[", 
                 RowBox[{"Flatten", "[", "entities", "]"}], "]"}], "]"}], 
               ",", "\"\< flights....\>\""}], "}"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"PrintTemporary", "[", 
            RowBox[{"Internal`LoadingPanel", "[", "text", "]"}], "]"}]}]}], 
         "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"data", "=", 
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"progress", "=", 
               RowBox[{"progress", "+", 
                RowBox[{"Length", "[", "x", "]"}]}]}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"input", "=", 
               RowBox[{"Internal`MWASymbols`MWAFlightData", "[", 
                RowBox[{"x", ",", "p", ",", "airline", ",", "dates"}], 
                "]"}]}], ";", "\[IndentingNewLine]", 
              RowBox[{"input", "=", 
               RowBox[{"flightAPI", "[", "input", "]"}]}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"Which", "[", 
               RowBox[{
                RowBox[{"MatchQ", "[", 
                 RowBox[{"input", ",", "_Missing"}], "]"}], ",", 
                RowBox[{"Table", "[", 
                 RowBox[{
                  RowBox[{"Table", "[", 
                   RowBox[{
                    RowBox[{"Missing", "[", "\"\<NotAvailable\>\"", "]"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{"j", ",", 
                    RowBox[{"Length", "[", "p", "]"}]}], "}"}]}], "]"}], ",", 
                  
                  RowBox[{"{", 
                   RowBox[{"i", ",", 
                    RowBox[{"Length", "[", "x", "]"}]}], "}"}]}], "]"}], ",", 
                
                RowBox[{
                 RowBox[{"Length", "[", "x", "]"}], "===", "1"}], ",", 
                RowBox[{"{", "input", "}"}], ",", "True", ",", "input"}], 
               "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"x", ",", "entities"}], "}"}]}], "]"}], ",", "1"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"progress", "=", 
         RowBox[{"Length", "[", 
          RowBox[{"Flatten", "[", "entities", "]"}], "]"}]}], ";"}]}], "]"}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
      "sift", " ", "out", " ", "unneeded", " ", "entities", " ", "due", " ", 
       "to", " ", "specific", " ", "airline"}], "*)"}], 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"FreeQ", "[", 
        RowBox[{"data", ",", "None"}], "]"}], ",", 
       RowBox[{"Which", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Length", "[", 
            RowBox[{"Flatten", "[", "entities", "]"}], "]"}], "===", "1"}], "&&", 
          RowBox[{
           RowBox[{"Length", "[", "p", "]"}], "<", "2"}]}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Flatten", "[", "entities", "]"}], ",", 
           RowBox[{"{", "data", "}"}]}], "}"}], ",", "True", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Flatten", "[", "entities", "]"}], ",", "data"}], "}"}]}], 
        "]"}], ",", 
       RowBox[{"DeleteCases", "[", 
        RowBox[{
         RowBox[{"Transpose", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Flatten", "[", "entities", "]"}], ",", "data"}], "}"}], 
          "]"}], ",", 
         RowBox[{"_", "?", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"!", 
             RowBox[{"FreeQ", "[", 
              RowBox[{"#", ",", "None"}], "]"}]}], "&"}], ")"}]}]}], "]"}]}], 
      "]"}]}]}], "]"}]}]}], "Input",
 TaggingRules->{"AttachedInlineCell" -> CellObject[1467089]},
 CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9}, 
   3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9, 
   3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
   3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9, 
   3.8191191352715883`*^9}},
 CellID->339259382,ExpressionUUID->"c323fc28-68c2-452f-91b8-c2033d0510d3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"flightAPI", "[", "input_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"result", ",", "messages"}], "}"}], ",", 
     RowBox[{
      RowBox[{"result", "=", 
       RowBox[{"Internal`MWACompute", "[", 
        RowBox[{"\"\<MWAFlightData\>\"", ",", "input", ",", 
         RowBox[{"\"\<ContextPath\>\"", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
           "\"\<Internal`MWASymbols`\>\"", ",", "\"\<System`\>\"", ",", 
            "\"\<DataPaclets`FlightDataDump`\>\""}], "}"}]}], ",", 
         RowBox[{"\"\<MessageHead\>\"", "\[Rule]", "FlightData"}]}], "]"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"FreeQ", "[", 
         RowBox[{"result", ",", "$Failed"}], "]"}], ",", 
        RowBox[{
         RowBox[{"result", "=", 
          RowBox[{"ReleaseHold", "[", "result", "]"}]}], ";", 
         RowBox[{"messages", "=", 
          RowBox[{"\"\<Messages\>\"", "/.", "result"}]}]}], ",", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"Not", "[", 
            RowBox[{"FreeQ", "[", 
             RowBox[{"result", ",", "\"\<ComputationTimeout\>\""}], "]"}], 
            "]"}], ",", 
           RowBox[{
            RowBox[{
            "ResourceFunction", "[", "\"\<ResourceFunctionMessage\>\"", "]"}],
             "[", 
            RowBox[{
             RowBox[{"FlightsOverhead", "::", "timeout"}], ",", 
             "FlightsOverhead"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
         
         RowBox[{"result", "=", "$Failed"}]}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"messages", "=", 
       RowBox[{"Cases", "[", 
        RowBox[{"messages", ",", 
         RowBox[{"Hold", "[", 
          RowBox[{"Message", "[", 
           RowBox[{
            RowBox[{"MessageName", "[", 
             RowBox[{"FlightData", ",", "_"}], "]"}], ",", "___"}], "]"}], 
          "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"ReleaseHold", "[", "messages", "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"FreeQ", "[", 
         RowBox[{"result", ",", "\"\<Result\>\""}], "]"}], ",", 
        RowBox[{"result", "/.", 
         RowBox[{"$Failed", "\[Rule]", 
          RowBox[{"Missing", "[", "\"\<NotAvailable\>\"", "]"}]}]}], ",", 
        RowBox[{
         RowBox[{"\"\<Result\>\"", "/.", "result"}], "/.", 
         RowBox[{"$Failed", "\[Rule]", 
          RowBox[{"Missing", "[", "\"\<NotAvailable\>\"", "]"}]}]}]}], 
       "]"}]}]}], "]"}]}], "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{"formatprop", "[", 
   RowBox[{"_Missing", ",", "_", ",", "_"}], "]"}], ":=", 
  RowBox[{"Missing", "[", "\"\<NotAvailable\>\"", "]"}]}], "\n", 
 RowBox[{
  RowBox[{"formatprop", "[", 
   RowBox[{
    RowBox[{"f", ":", 
     RowBox[{"{", 
      RowBox[{"_Integer", ".."}], "}"}]}], ",", "\"\<Flights\>\"", ",", "_"}],
    "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"Entity", "[", 
     RowBox[{"\"\<Flight\>\"", ",", 
      RowBox[{"ToString", "[", "#", "]"}]}], "]"}], "&"}], "/@", 
   "f"}]}], "\n", 
 RowBox[{
  RowBox[{"formatprop", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"f", ":", 
       RowBox[{"{", 
        RowBox[{"_Integer", ".."}], "}"}]}], ",", "__"}], "}"}], ",", 
    "\"\<Flights\>\"", ",", "_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"Entity", "[", 
     RowBox[{"\"\<Flight\>\"", ",", 
      RowBox[{"ToString", "[", "#", "]"}]}], "]"}], "&"}], "/@", 
   "f"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"formatprop", "[", 
    RowBox[{"data_", ",", "\"\<SkyMap\>\"", ",", "pov_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"idate", "=", 
       RowBox[{"data", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "All", ",", "2", ",", "1", ",", "1"}], "]"}], 
        "]"}]}], "}"}], ",", 
     RowBox[{
      RowBox[{"idate", "=", 
       RowBox[{"Last", "[", 
        RowBox[{"SortBy", "[", 
         RowBox[{"idate", ",", "AbsoluteTime"}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"iFlightSkyMap", "[", 
       RowBox[{"data", ",", "idate", ",", "pov"}], "]"}]}]}], "]"}]}], 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{"formatprop", "[", "__", "]"}], ":=", 
  RowBox[{"Missing", "[", "\"\<NotAvailable\>\"", "]"}]}]}], "Input",
 TaggingRules->{"AttachedInlineCell" -> CellObject[1369489]},
 CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9}, 
   3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9, 
   3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
   3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9, 
   3.8191191398862057`*^9}, {3.837863992209158*^9, 3.837863993026555*^9}},
 CellID->963935420,ExpressionUUID->"b200b08d-f948-473d-af37-5f615349ecae"],

Cell[BoxData[
 RowBox[{
  RowBox[{"iFlightSkyMap", "[", 
   RowBox[{"data_", ",", "idate_", ",", "pov_GeoPosition"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"cleandata", "=", 
       RowBox[{"data", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "All", ",", 
          RowBox[{"2", ";;"}]}], "]"}], "]"}]}], ",", "id", ",", "arrow"}], 
     "}"}], ",", 
    RowBox[{
     RowBox[{"id", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"Entity", "[", 
         RowBox[{"\"\<Flight\>\"", ",", 
          RowBox[{"ToString", "[", "#", "]"}]}], "]"}], "&"}], "/@", 
       RowBox[{"data", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"cleandata", "=", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", 
           RowBox[{"With", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"avgAlt", "=", 
               RowBox[{"Replace", "[", 
                RowBox[{
                 RowBox[{"Mean", "@", 
                  RowBox[{"Cases", "[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "3", "]"}], "]"}], "[", 
                    RowBox[{"[", 
                    RowBox[{"All", ",", 
                    RowBox[{"-", "1"}]}], "]"}], "]"}], ",", 
                    RowBox[{"_", "?", "NumericQ"}]}], "]"}]}], ",", 
                 RowBox[{
                  RowBox[{"Except", "[", 
                   RowBox[{"_", "?", "NumericQ"}], "]"}], "\[Rule]", 
                  "10000"}]}], "]"}]}], "}"}], ",", 
             RowBox[{"Replace", "[", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "3", "]"}], "]"}], ",", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"t_", ",", "alt_Missing"}], "}"}], "\[RuleDelayed]", 
                
                RowBox[{"{", 
                 RowBox[{"t", ",", "avgAlt"}], "}"}]}], ",", 
               RowBox[{"{", "1", "}"}]}], "]"}]}], "]"}]}], "}"}], "&"}], ",",
         "cleandata"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"cleandata", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "3", ",", "All", ",", "2"}], "]"}], "]"}], "*=", 
      RowBox[{"(", 
       RowBox[{"381", "/", "1250"}], ")"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"cleandata", "=", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"MatchQ", "[", 
            RowBox[{"#", ",", 
             RowBox[{"{", "__List", "}"}]}], "]"}], ",", 
           RowBox[{"Transpose", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"#", "[", 
               RowBox[{"[", 
                RowBox[{"1", ",", "All", ",", "1"}], "]"}], "]"}], ",", 
              RowBox[{"Transpose", "[", 
               RowBox[{"#", "[", 
                RowBox[{"[", 
                 RowBox[{"All", ",", "All", ",", "2"}], "]"}], "]"}], "]"}]}],
              "}"}], "]"}], ",", "#"}], "]"}], "&"}], ",", "cleandata"}], 
       "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"With", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"pos", "=", 
         RowBox[{"Position", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"!", 
              RowBox[{"MemberQ", "[", 
               RowBox[{"#", ",", "_Missing", ",", "Infinity", ",", 
                RowBox[{"Heads", "\[Rule]", "True"}]}], "]"}]}], "&"}], "/@", 
            "cleandata"}], ",", "True"}], "]"}]}], "}"}], ",", 
       RowBox[{"cleandata", "=", 
        RowBox[{"Extract", "[", 
         RowBox[{"cleandata", ",", "pos"}], "]"}]}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"cleandata", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "All", ",", "1"}], "]"}], "]"}], "=", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Round", "[", 
         RowBox[{"AbsoluteTime", "[", "idate", "]"}], "]"}], "-", 
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Round", "[", 
            RowBox[{"AbsoluteTime", "[", "#", "]"}], "]"}], "&"}], ",", 
          RowBox[{"cleandata", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "All", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"{", "2", "}"}]}], "]"}]}], ")"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"cleandata", "=", 
      RowBox[{"Cases", "[", 
       RowBox[{"cleandata", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"_", "?", "NumericQ"}], ",", 
            RowBox[{"{", 
             RowBox[{"__", "?", "NumericQ"}], "}"}]}], "}"}], ".."}], "}"}]}],
        "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"cleandata", "===", 
        RowBox[{"{", "}"}]}], ",", 
       RowBox[{"Return", "[", 
        RowBox[{"Missing", "[", "\"\<NotAvailable\>\"", "]"}], "]"}]}], "]"}],
      ";", "\[IndentingNewLine]", 
     RowBox[{"cleandata", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"Quiet", "[", 
         RowBox[{
          RowBox[{"Interpolation", "[", 
           RowBox[{"#", ",", 
            RowBox[{"InterpolationOrder", "\[Rule]", "1"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"InterpolatingFunction", "::", "dmval"}], "}"}]}], "]"}], 
        "&"}], "/@", "cleandata"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Quiet", "[", 
      RowBox[{
       RowBox[{"With", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"ptrange", "=", 
            RowBox[{"Range", "[", 
             RowBox[{"0", ",", "500", ",", "25"}], "]"}]}], ",", 
           RowBox[{"blend", "=", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"Blend", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"0", ",", 
                    RowBox[{"GrayLevel", "[", "0.7", "]"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"1", ",", 
                    RowBox[{"GrayLevel", "[", "1", "]"}]}], "}"}]}], "}"}], 
                ",", "i"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", 
                RowBox[{
                 RowBox[{"Range", "[", 
                  RowBox[{"0", ",", "500", ",", "25"}], "]"}], "/", "500"}]}],
                "}"}]}], "]"}]}]}], "}"}], ",", 
         RowBox[{"arrow", "=", 
          RowBox[{"MapThread", "[", 
           RowBox[{
            RowBox[{"Function", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"if", ",", "name"}], "}"}], ",", 
              RowBox[{"With", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"pts", "=", 
                  RowBox[{"if", "/@", "ptrange"}]}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"Opacity", "[", ".5", "]"}], ",", "Thick", ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Opacity", "[", "1", "]"}], ",", 
                    RowBox[{"Thread", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Most", "[", "blend", "]"}], ",", 
                    RowBox[{"Line", "/@", 
                    RowBox[{"Partition", "[", 
                    RowBox[{"pts", ",", "2", ",", "1"}], "]"}]}]}], "}"}], 
                    "]"}]}], "}"}], ",", 
                  RowBox[{"Opacity", "[", "0", "]"}], ",", 
                  RowBox[{"Tooltip", "[", 
                   RowBox[{
                    RowBox[{"Arrow", "[", 
                    RowBox[{"pts", "[", 
                    RowBox[{"[", 
                    RowBox[{"{", 
                    RowBox[{"2", ",", "1"}], "}"}], "]"}], "]"}], "]"}], ",", 
                    "name"}], "]"}]}], "}"}]}], "]"}]}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"cleandata", ",", "id"}], "}"}]}], "]"}]}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"InterpolatingFunction", "::", "dmval"}], "}"}]}], "]"}], ";",
      "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
      "evaluate", " ", "the", " ", "star", " ", "chart", " ", "code"}], 
      "*)"}], 
     RowBox[{"SkyChart", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"PointSize", "[", "Large", "]"}], ",", 
         RowBox[{"FlightDataAirplane", "[", 
          RowBox[{"1", ",", "Red", ",", "1", ",", "True"}], "]"}], ",", 
         "arrow"}], "}"}], ",", "pov", ",", 
       RowBox[{"DateObject", "[", 
        RowBox[{"TimeZone", "\[Rule]", "\"\<GMT\>\""}], "]"}]}], "]"}]}]}], 
   "]"}]}]], "Input",
 TaggingRules->{"AttachedInlineCell" -> CellObject[1469857]},
 CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9}, 
   3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9, 
   3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
   3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9, 
   3.8191191483249493`*^9}, 3.8378639938350687`*^9},
 CellID->30876889,ExpressionUUID->"5a38b655-e7e1-4d7b-bca8-e7365df49f90"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FlightDataAirplane", "[", 
   RowBox[{"pos_", ",", 
    RowBox[{"color_", ":", "Red"}], ",", 
    RowBox[{"opacity_", ":", "1"}], ",", 
    RowBox[{"offsetq_", ":", "False"}]}], "]"}], ":=", 
  RowBox[{"Arrowheads", "[", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{".05", ",", 
      RowBox[{"Clip", "[", 
       RowBox[{"pos", ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}], "]"}], ",", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Opacity", "[", "opacity", "]"}], ",", 
         RowBox[{"Text", "[", 
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{"FromCharacterCode", "[", 
             RowBox[{"40", ",", "\"\<ZapfDingbats\>\""}], "]"}], ",", 
            RowBox[{"FontSize", "\[Rule]", 
             RowBox[{"Round", "[", 
              RowBox[{"1.6", " ", "14"}], "]"}]}], ",", 
            RowBox[{"FontColor", "\[Rule]", "color"}], ",", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"$OperatingSystem", "===", "\"\<Windows\>\""}], ",", 
              RowBox[{"FontFamily", "\[Rule]", "\"\<MS Mincho\>\""}], ",", 
              RowBox[{"Sequence", "@@", 
               RowBox[{"{", "}"}]}]}], "]"}]}], "]"}], "]"}]}], "}"}], 
       "]"}]}], "}"}], "}"}], "]"}]}]], "Input",
 TaggingRules->{"AttachedInlineCell" -> CellObject[1469297]},
 CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9}, 
   3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9, 
   3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
   3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9, 
   3.819119150673807*^9}},
 CellID->474413700,ExpressionUUID->"57da4425-233e-48c1-ab55-8408573a84d5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"deltaT0modern", "=", 
    RowBox[{"Interpolation", "[", 
     RowBox[{"N", "@", 
      RowBox[{"{", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{
         "Data", " ", "from", " ", "1620", " ", "to", " ", "2009", " ", 
          "taken", " ", "from", " ", 
          RowBox[{"https", ":"}]}], "//", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"webspace", ".", "science", ".", "uu", ".", "nl"}], "/", 
            RowBox[{"~", "gent0113"}]}], "/", "deltat"}], "/", 
          RowBox[{"deltat_modern", ".", "htm"}]}]}], "*)"}], 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1620", ",", "124"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1621", ",", "119"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1622", ",", "115"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1623", ",", "110"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1624", ",", "106"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1625", ",", "102"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1626", ",", "98"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1627", ",", "95"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1628", ",", "91"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1629", ",", "88"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1630", ",", "85"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1631", ",", "82"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1632", ",", "79"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1633", ",", "77"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1634", ",", "74"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1635", ",", "72"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1636", ",", "70"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1637", ",", "67"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1638", ",", "65"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1639", ",", "63"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1640", ",", "62"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1641", ",", "60"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1642", ",", "58"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1643", ",", "57"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1644", ",", "55"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1645", ",", "54"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1646", ",", "53"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1647", ",", "51"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1648", ",", "50"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1649", ",", "49"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1650", ",", "48"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1651", ",", "47"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1652", ",", "46"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1653", ",", "45"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1654", ",", "44"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1655", ",", "43"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1656", ",", "42"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1657", ",", "41"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1658", ",", "40"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1659", ",", "38"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1660", ",", "37"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1661", ",", "36"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1662", ",", "35"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1663", ",", "34"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1664", ",", "33"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1665", ",", "32"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1666", ",", "31"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1667", ",", "30"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1668", ",", "28"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1669", ",", "27"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1670", ",", "26"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1671", ",", "25"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1672", ",", "24"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1673", ",", "23"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1674", ",", "22"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1675", ",", "21"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1676", ",", "20"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1677", ",", "19"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1678", ",", "18"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1679", ",", "17"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1680", ",", "16"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1681", ",", "15"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1682", ",", "14"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1683", ",", "14"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1684", ",", "13"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1685", ",", "12"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1686", ",", "12"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1687", ",", "11"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1688", ",", "11"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1689", ",", "10"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1690", ",", "10"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1691", ",", "10"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1692", ",", "9"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1693", ",", "9"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1694", ",", "9"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1695", ",", "9"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1696", ",", "9"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1697", ",", "9"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1698", ",", "9"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1699", ",", "9"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1700", ",", "9"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1701", ",", "9"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1702", ",", "9"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1703", ",", "9"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1704", ",", "9"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1705", ",", "9"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1706", ",", "9"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1707", ",", "9"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1708", ",", "10"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1709", ",", "10"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1710", ",", "10"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1711", ",", "10"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1712", ",", "10"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1713", ",", "10"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1714", ",", "10"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1715", ",", "10"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1716", ",", "10"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1717", ",", "11"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1718", ",", "11"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1719", ",", "11"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1720", ",", "11"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1721", ",", "11"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1722", ",", "11"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1723", ",", "11"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1724", ",", "11"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1725", ",", "11"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1726", ",", "11"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1727", ",", "11"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1728", ",", "11"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1729", ",", "11"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1730", ",", "11"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1731", ",", "11"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1732", ",", "11"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1733", ",", "11"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1734", ",", "12"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1735", ",", "12"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1736", ",", "12"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1737", ",", "12"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1738", ",", "12"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1739", ",", "12"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1740", ",", "12"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1741", ",", "12"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1742", ",", "12"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1743", ",", "12"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1744", ",", "13"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1745", ",", "13"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1746", ",", "13"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1747", ",", "13"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1748", ",", "13"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1749", ",", "13"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1750", ",", "13"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1751", ",", "14"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1752", ",", "14"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1753", ",", "14"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1754", ",", "14"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1755", ",", "14"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1756", ",", "14"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1757", ",", "14"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1758", ",", "15"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1759", ",", "15"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1760", ",", "15"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1761", ",", "15"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1762", ",", "15"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1763", ",", "15"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1764", ",", "15"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1765", ",", "16"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1766", ",", "16"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1767", ",", "16"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1768", ",", "16"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1769", ",", "16"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1770", ",", "16"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1771", ",", "16"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1772", ",", "16"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1773", ",", "16"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1774", ",", "16"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1775", ",", "17"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1776", ",", "17"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1777", ",", "17"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1778", ",", "17"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1779", ",", "17"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1780", ",", "17"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1781", ",", "17"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1782", ",", "17"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1783", ",", "17"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1784", ",", "17"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1785", ",", "17"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1786", ",", "17"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1787", ",", "17"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1788", ",", "17"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1789", ",", "17"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1790", ",", "17"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1791", ",", "17"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1792", ",", "16"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1793", ",", "16"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1794", ",", "16"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1795", ",", "16"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1796", ",", "15"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1797", ",", "15"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1798", ",", "14"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1799", ",", "14"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1800", ",", "13.7"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1801", ",", "13.4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1802", ",", "13.1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1803", ",", "12.9"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1804", ",", "12.7"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1805", ",", "12.6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1806", ",", "12.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1807", ",", "12.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1808", ",", "12.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1809", ",", "12.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1810", ",", "12.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1811", ",", "12.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1812", ",", "12.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1813", ",", "12.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1814", ",", "12.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1815", ",", "12.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1816", ",", "12.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1817", ",", "12.4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1818", ",", "12.3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1819", ",", "12.2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1820", ",", "12.0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1821", ",", "11.7"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1822", ",", "11.4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1823", ",", "11.1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1824", ",", "10.6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1825", ",", "10.2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1826", ",", "9.6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1827", ",", "9.1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1828", ",", "8.6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1829", ",", "8.0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1830", ",", "7.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1831", ",", "7.0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1832", ",", "6.6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1833", ",", "6.3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1834", ",", "6.0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1835", ",", "5.8"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1836", ",", "5.7"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1837", ",", "5.6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1838", ",", "5.6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1839", ",", "5.6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1840", ",", "5.7"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1841", ",", "5.8"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1842", ",", "5.9"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1843", ",", "6.1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1844", ",", "6.2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1845", ",", "6.3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1846", ",", "6.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1847", ",", "6.6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1848", ",", "6.8"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1849", ",", "6.9"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1850", ",", "7.1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1851", ",", "7.2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1852", ",", "7.3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1853", ",", "7.4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1854", ",", "7.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1855", ",", "7.6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1856", ",", "7.7"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1857", ",", "7.7"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1858", ",", "7.8"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1859", ",", "7.8"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1860", ",", "7.88"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1861", ",", "7.82"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1862", ",", "7.54"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1863", ",", "6.97"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1864", ",", "6.40"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1865", ",", "6.02"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1866", ",", "5.41"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1867", ",", "4.10"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1868", ",", "2.92"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1869", ",", "1.82"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1870", ",", "1.61"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1871", ",", "0.10"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1872", ",", 
          RowBox[{"-", "1.02"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1873", ",", 
          RowBox[{"-", "1.28"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1874", ",", 
          RowBox[{"-", "2.69"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1875", ",", 
          RowBox[{"-", "3.24"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1876", ",", 
          RowBox[{"-", "3.64"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1877", ",", 
          RowBox[{"-", "4.54"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1878", ",", 
          RowBox[{"-", "4.71"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1879", ",", 
          RowBox[{"-", "5.11"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1880", ",", 
          RowBox[{"-", "5.40"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1881", ",", 
          RowBox[{"-", "5.42"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1882", ",", 
          RowBox[{"-", "5.20"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1883", ",", 
          RowBox[{"-", "5.46"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1884", ",", 
          RowBox[{"-", "5.46"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1885", ",", 
          RowBox[{"-", "5.79"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1886", ",", 
          RowBox[{"-", "5.63"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1887", ",", 
          RowBox[{"-", "5.64"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1888", ",", 
          RowBox[{"-", "5.80"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1889", ",", 
          RowBox[{"-", "5.66"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1890", ",", 
          RowBox[{"-", "5.87"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1891", ",", 
          RowBox[{"-", "6.01"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1892", ",", 
          RowBox[{"-", "6.19"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1893", ",", 
          RowBox[{"-", "6.64"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1894", ",", 
          RowBox[{"-", "6.44"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1895", ",", 
          RowBox[{"-", "6.47"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1896", ",", 
          RowBox[{"-", "6.09"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1897", ",", 
          RowBox[{"-", "5.76"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1898", ",", 
          RowBox[{"-", "4.66"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1899", ",", 
          RowBox[{"-", "3.74"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1900", ",", 
          RowBox[{"-", "2.72"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1901", ",", 
          RowBox[{"-", "1.54"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1902", ",", 
          RowBox[{"-", "0.02"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1903", ",", "1.24"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1904", ",", "2.64"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1905", ",", "3.86"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1906", ",", "5.37"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1907", ",", "6.14"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1908", ",", "7.75"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1909", ",", "9.13"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1910", ",", "10.46"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1911", ",", "11.53"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1912", ",", "13.36"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1913", ",", "14.65"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1914", ",", "16.01"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1915", ",", "17.20"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1916", ",", "18.24"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1917", ",", "19.06"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1918", ",", "20.25"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1919", ",", "20.95"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1920", ",", "21.16"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1921", ",", "22.25"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1922", ",", "22.41"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1923", ",", "23.03"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1924", ",", "23.49"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1925", ",", "23.62"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1926", ",", "23.86"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1927", ",", "24.49"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1928", ",", "24.34"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1929", ",", "24.08"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1930", ",", "24.02"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1931", ",", "24.00"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1932", ",", "23.87"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1933", ",", "23.95"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1934", ",", "23.86"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1935", ",", "23.93"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1936", ",", "23.73"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1937", ",", "23.92"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1938", ",", "23.96"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1939", ",", "24.02"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1940", ",", "24.33"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1941", ",", "24.83"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1942", ",", "25.30"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1943", ",", "25.70"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1944", ",", "26.24"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1945", ",", "26.77"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1946", ",", "27.28"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1947", ",", "27.78"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1948", ",", "28.25"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1949", ",", "28.71"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1950", ",", "29.15"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1951", ",", "29.57"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1952", ",", "29.97"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1953", ",", "30.36"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1954", ",", "30.72"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1955", ",", "31.07"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1956", ",", "31.35"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1957", ",", "31.68"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1958", ",", "32.18"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1959", ",", "32.68"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1960", ",", "33.15"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1961", ",", "33.59"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1962", ",", "34.00"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1963", ",", "34.47"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1964", ",", "35.03"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1965", ",", "35.73"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1966", ",", "36.54"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1967", ",", "37.43"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1968", ",", "38.29"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1969", ",", "39.20"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1970", ",", "40.18"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1971", ",", "41.17"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1972", ",", "42.23"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1973", ",", "43.37"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1974", ",", "44.49"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1975", ",", "45.48"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1976", ",", "46.46"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1977", ",", "47.52"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1978", ",", "48.53"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1979", ",", "49.59"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1980", ",", "50.54"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1981", ",", "51.38"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1982", ",", "52.17"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1983", ",", "52.96"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1984", ",", "53.79"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1985", ",", "54.34"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1986", ",", "54.87"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1987", ",", "55.32"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1988", ",", "55.82"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1989", ",", "56.30"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1990", ",", "56.86"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1991", ",", "57.57"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1992", ",", "58.31"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1993", ",", "59.12"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1994", ",", "59.99"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1995", ",", "60.78"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1996", ",", "61.63"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1997", ",", "62.30"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1998", ",", "62.97"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1999", ",", "63.47"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2000", ",", "63.83"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2001", ",", "64.09"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2002", ",", "64.30"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2003", ",", "64.47"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2004", ",", "64.57"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2005", ",", "64.69"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2006", ",", "64.85"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2007", ",", "65.15"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2008", ",", "65.46"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2009", ",", "65.78"}], "}"}], ",", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{
          "Data", " ", "from", " ", "2010", " ", "to", " ", "2019", " ", 
           "taken", " ", "from", " ", 
           RowBox[{"http", ":"}]}], "//", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"astro", ".", "ukho", ".", "gov", ".", "uk"}], "/", 
             "nao"}], "/", "lvm"}], "/"}]}], "*)"}], 
        RowBox[{"{", 
         RowBox[{"2010", ",", "66.06"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2011", ",", "66.33"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2012", ",", "66.60"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2013", ",", "66.92"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2014", ",", "67.30"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2015", ",", "67.69"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2016", ",", "68.04"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2017", ",", "68.60"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2018", ",", "68.97"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2019", ",", "69.20"}], "}"}], ",", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"Value", " ", "from", " ", 
           RowBox[{"https", ":"}]}], "//", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"en", ".", "wikipedia", ".", "org"}], "/", "wiki"}], "/",
             "DeltaT"}], " ", "for", " ", "January", " ", "2020"}]}], "*)"}], 
        
        RowBox[{"{", 
         RowBox[{"2020", ",", "69.361"}], "}"}]}], "}"}]}], "]"}]}], ";"}], 
  "\n", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "restricted", " ", "to", " ", "current", " ", "date", " ", "which", " ", 
    "allows", " ", "us", " ", "to", " ", "shrink", " ", "this"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"deltaT1", "[", "year_", "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"1620", "\[LessEqual]", "year", "\[LessEqual]", "2020"}], ",", 
    RowBox[{
     RowBox[{"deltaT0modern", "[", "year", "]"}], "/", "86400"}], ",", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"This", " ", "is", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "20"}], "+", 
          RowBox[{"32", " ", 
           RowBox[{"t", "^", "2"}]}]}], ")"}], "/", "86400"}]}], ",", 
      RowBox[{
       RowBox[{"with", " ", "t"}], "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"year", "-", "1820"}], ")"}], "/", "100"}]}], ",", 
      RowBox[{
      "to", " ", "compare", " ", "with", " ", "the", " ", "deltat", " ", 
       "NASA", " ", "webpage", " ", 
       RowBox[{"above", ".", "There"}], " ", "is", " ", "a", " ", "large", 
       " ", "discontinuity", " ", "of", " ", "about", " ", "32", " ", 
       "seconds", " ", "in", " ", "the", " ", "transition", " ", "from", " ", 
       "deltaT0", " ", "to", " ", "this", " ", "formula", " ", "around", " ", 
       "2020."}]}], "*)"}], 
    RowBox[{
     RowBox[{"2449", "/", "20000"}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"91", " ", "year"}], ")"}], "/", "675000"}], "+", 
     RowBox[{
      RowBox[{"year", "^", "2"}], "/", "27000000"}]}]}], "]"}]}]}], "Input",
 TaggingRules->{"AttachedInlineCell" -> CellObject[1369489]},
 CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9}, 
   3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9, 
   3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
   3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9, 
   3.819119156641815*^9}},
 CellID->691814216,ExpressionUUID->"f6bbf920-cddb-4241-94f5-088137507b58"],

Cell[BoxData[
 RowBox[{
  RowBox[{"JDToMeanSiderealRadians", "[", "jd_", "]"}], ":=", 
  RowBox[{"With", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"T", "=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"jd", "-", "2451545.0"}], ")"}], "/", "36525"}]}], "}"}], ",", 
    RowBox[{
     RowBox[{"-", "1.5445680047164863`*^7"}], "+", 
     RowBox[{"6.300388098984957", " ", 
      RowBox[{"(", 
       RowBox[{"jd", "-", 
        RowBox[{"deltaT1", "[", 
         RowBox[{"2000", "+", 
          RowBox[{"100", " ", "T"}]}], "]"}]}], ")"}]}], "+", 
     RowBox[{"6.770708127139162`*^-6", " ", 
      RowBox[{"T", "^", "2"}]}], "-", 
     RowBox[{"4.508729661571505`*^-10", " ", 
      RowBox[{"T", "^", "3"}]}]}]}], "]"}]}]], "Input",
 TaggingRules->{"AttachedInlineCell" -> CellObject[1369489]},
 CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9}, 
   3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9, 
   3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
   3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9, 
   3.819119163682767*^9}},
 CellID->296596398,ExpressionUUID->"ce09cc9f-c947-4786-b366-22c38251906b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"JDToMeanSiderealRadians", "[", "list_List", "]"}], ":=", 
   RowBox[{"JDToMeanSiderealRadians", "/@", "list"}]}], ";"}]], "Input",
 TaggingRules->{"AttachedInlineCell" -> CellObject[1369489]},
 CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9}, 
   3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9, 
   3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
   3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9, 
   3.819119165685954*^9}},
 CellID->607152602,ExpressionUUID->"9b9a5a8a-55d1-4dec-8726-371dff07a7ef"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SkyChart1", "[", 
   RowBox[{"{", 
    RowBox[{"x_", ",", "y_"}], "}"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", " ", 
      RowBox[{"y", "/", "Pi"}]}], "-", "1"}], ")"}], " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"Sin", "[", "x", "]"}]}], ",", 
     RowBox[{"Cos", "[", "x", "]"}]}], "}"}]}]}]], "Input",
 TaggingRules->{"AttachedInlineCell" -> CellObject[1369489]},
 CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9}, 
   3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9, 
   3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
   3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9, 
   3.819119167410833*^9}},
 CellID->308897624,ExpressionUUID->"24fc69f7-51b9-4da7-b495-907fc3b015ba"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SkyChart0", "[", 
    RowBox[{"Point", "[", "x_", "]"}], "]"}], ":=", 
   RowBox[{"Point", "[", 
    RowBox[{"SkyChart1", "[", "x", "]"}], "]"}]}], 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"SkyChart0", "[", 
    RowBox[{"Line", "[", 
     RowBox[{
      RowBox[{"{", "x___List", "}"}], ",", "args___"}], "]"}], "]"}], ":=", 
   RowBox[{"Line", "[", 
    RowBox[{
     RowBox[{"SkyChart1", "/@", 
      RowBox[{"{", "x", "}"}]}], ",", "args"}], "]"}]}], 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"SkyChart0", "[", 
    RowBox[{"Arrow", "[", 
     RowBox[{
      RowBox[{"{", "x___List", "}"}], ",", "args___"}], "]"}], "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"Arrow", "[", 
      RowBox[{
       RowBox[{"Prepend", "[", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"#", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], ",", "args"}], 
      "]"}], "&"}], "/@", 
    RowBox[{"Split", "[", 
     RowBox[{
      RowBox[{"Partition", "[", 
       RowBox[{
        RowBox[{"SkyChart1", "/@", 
         RowBox[{"{", "x", "}"}]}], ",", "2", ",", "1"}], "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", 
        RowBox[{"#2", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "&"}]}], "]"}]}]}], 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"SkyChart0", "[", 
    RowBox[{"Polygon", "[", 
     RowBox[{"{", "x___List", "}"}], "]"}], "]"}], ":=", 
   RowBox[{"Polygon", "/@", 
    RowBox[{"Select", "[", 
     RowBox[{
      RowBox[{"Split", "[", 
       RowBox[{
        RowBox[{"SkyChart1", "/@", 
         RowBox[{"{", "x", "}"}]}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"Min", "[", 
           RowBox[{"Norm", "/@", 
            RowBox[{"{", "##", "}"}]}], "]"}], "<", "1.5"}], "&"}]}], "]"}], 
      ",", 
      RowBox[{
       RowBox[{
        RowBox[{"Min", "[", 
         RowBox[{"Norm", "/@", "#1"}], "]"}], "<", "1.2"}], "&"}]}], 
     "]"}]}]}], "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"SkyChart0", "[", 
    RowBox[{"Circle", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"x_", ",", "y_"}], "}"}], ",", "r__"}], "]"}], "]"}], ":=", 
   RowBox[{"Circle", "[", 
    RowBox[{
     RowBox[{"SkyChart1", "[", 
      RowBox[{"{", 
       RowBox[{"x", ",", "y"}], "}"}], "]"}], ",", "r"}], "]"}]}], 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"SkyChart0", "[", 
    RowBox[{"Disk", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"x_", ",", "y_"}], "}"}], ",", "r__"}], "]"}], "]"}], ":=", 
   RowBox[{"Disk", "[", 
    RowBox[{
     RowBox[{"SkyChart1", "[", 
      RowBox[{"{", 
       RowBox[{"x", ",", "y"}], "}"}], "]"}], ",", "r"}], "]"}]}], 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"SkyChart0", "[", 
    RowBox[{"Text", "[", 
     RowBox[{"a_", ",", 
      RowBox[{"{", 
       RowBox[{"x_", ",", "y_"}], "}"}], ",", "b___"}], "]"}], "]"}], ":=", 
   RowBox[{"Text", "[", 
    RowBox[{"a", ",", 
     RowBox[{"SkyChart1", "[", 
      RowBox[{"{", 
       RowBox[{"x", ",", "y"}], "}"}], "]"}], ",", "b"}], "]"}]}], 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"SkyChart0", "[", 
    RowBox[{"Rotate", "[", 
     RowBox[{"a_", ",", "b_", ",", 
      RowBox[{"{", 
       RowBox[{"x_", ",", "y_"}], "}"}]}], "]"}], "]"}], ":=", 
   RowBox[{"Rotate", "[", 
    RowBox[{"a", ",", 
     RowBox[{"b", "+", "x"}], ",", 
     RowBox[{"SkyChart1", "[", 
      RowBox[{"{", 
       RowBox[{"x", ",", "y"}], "}"}], "]"}]}], "]"}]}], 
  "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SkyChart0", "[", "x_", "]"}], ":=", "x"}], ";"}]}], "Input",
 TaggingRules->{"AttachedInlineCell" -> CellObject[1369489]},
 CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9}, 
   3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9, 
   3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
   3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9, 
   3.819119173926447*^9}},
 CellID->401754060,ExpressionUUID->"35651aae-695d-4045-88c3-ff2673c637ef"],

Cell[BoxData[
 RowBox[{
  RowBox[{"circleIntercept", "[", 
   RowBox[{"p1_", ",", "p2_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"soln", "=", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"#", ".", "#"}], "&"}], "[", 
           RowBox[{
            RowBox[{"t", " ", 
             RowBox[{"(", 
              RowBox[{"p2", "-", "p1"}], ")"}]}], "+", "p1"}], "]"}], 
          "\[Equal]", "1"}], "&&", 
         RowBox[{"0", "\[LessEqual]", "t", "\[LessEqual]", "1"}]}], ",", 
        "t"}], "]"}]}], "}"}], ",", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"MatchQ", "[", 
       RowBox[{"soln", ",", 
        RowBox[{"{", 
         RowBox[{"{", "_Rule", "}"}], "}"}]}], "]"}], ",", 
      RowBox[{"p1", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"p2", "-", "p1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"t", "/.", 
          RowBox[{"First", "@", "soln"}]}], ")"}]}]}], ",", 
      RowBox[{"{", "}"}]}], "]"}]}], "]"}]}]], "Input",
 TaggingRules->{"AttachedInlineCell" -> CellObject[1369489]},
 CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9}, 
   3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9, 
   3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
   3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9, 
   3.8191191817314777`*^9}},
 CellID->49927783,ExpressionUUID->"cc1f3e33-eb31-4cbf-9d4b-a7098edbc62b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"cropPrimitive", "[", 
    RowBox[{"Line", "[", "a_", "]"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"signs", "=", 
        RowBox[{"Sign", "[", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{
            RowBox[{"a", "^", "2"}], ",", 
            RowBox[{"{", "2", "}"}]}], "]"}], "-", "1"}], "]"}]}], ",", "r"}],
       "}"}], ",", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Max", "@", "signs"}], "\[LessEqual]", "0"}], ",", 
       RowBox[{"Line", "[", "a", "]"}], ",", 
       RowBox[{
        RowBox[{"r", "=", 
         RowBox[{"Replace", "[", 
          RowBox[{
           RowBox[{"Partition", "[", 
            RowBox[{
             RowBox[{"Thread", "[", 
              RowBox[{"{", 
               RowBox[{"a", ",", "signs"}], "}"}], "]"}], ",", "2", ",", 
             "1"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"p1_", ",", "1"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"p2_", ",", 
                  RowBox[{"-", "1"}]}], "}"}]}], "}"}], "\[RuleDelayed]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"circleIntercept", "[", 
                   RowBox[{"p1", ",", "p2"}], "]"}], ",", "0"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"p2", ",", 
                  RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], ",", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"p1_", ",", 
                  RowBox[{"-", "1"}]}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"p2_", ",", "1"}], "}"}]}], "}"}], "\[RuleDelayed]", 
              
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"p1", ",", 
                  RowBox[{"-", "1"}]}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"circleIntercept", "[", 
                   RowBox[{"p1", ",", "p2"}], "]"}], ",", "0"}], "}"}]}], 
               "}"}]}]}], "}"}], ",", 
           RowBox[{"{", "1", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"ReplaceList", "[", 
         RowBox[{"r", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"q", ":", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"_", ",", 
                    RowBox[{"-", "1"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"_", ",", 
                    RowBox[{"-", "1"}]}], "}"}]}], "}"}], "..."}], ")"}]}], 
               ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"p1_", ",", 
                   RowBox[{"-", "1"}]}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"p2_", ",", "0"}], "}"}]}], "}"}], ",", "___"}], 
              "}"}], "\[RuleDelayed]", 
             RowBox[{"Line", "@", 
              RowBox[{"Join", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"{", "q", "}"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"All", ",", "1", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{"{", 
                 RowBox[{"p1", ",", "p2"}], "}"}]}], "]"}]}]}], ",", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"___", ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"p1_", ",", "0"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"_", ",", 
                   RowBox[{"-", "1"}]}], "}"}]}], "}"}], ",", 
               RowBox[{"Shortest", "[", "q___", "]"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"p2_", ",", 
                   RowBox[{"-", "1"}]}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"p3_", ",", "0"}], "}"}]}], "}"}], ",", "___"}], 
              "}"}], "\[RuleDelayed]", 
             RowBox[{"Line", "@", 
              RowBox[{"Join", "[", 
               RowBox[{
                RowBox[{"{", "p1", "}"}], ",", 
                RowBox[{
                 RowBox[{"{", "q", "}"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"All", ",", "1", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{"{", 
                 RowBox[{"p2", ",", "p3"}], "}"}]}], "]"}]}]}], ",", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"___", ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"p1_", ",", "0"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"p2_", ",", 
                   RowBox[{"-", "1"}]}], "}"}]}], "}"}], ",", 
               RowBox[{"q", ":", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"_", ",", 
                    RowBox[{"-", "1"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"_", ",", 
                    RowBox[{"-", "1"}]}], "}"}]}], "}"}], "..."}], ")"}]}]}], 
              "}"}], "\[RuleDelayed]", 
             RowBox[{"Line", "@", 
              RowBox[{"Join", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"p1", ",", "p2"}], "}"}], ",", 
                RowBox[{
                 RowBox[{"{", "q", "}"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"All", ",", "2", ",", "1"}], "]"}], "]"}]}], 
               "]"}]}]}]}], "}"}]}], "]"}]}]}], "]"}]}], "]"}]}], 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"cropPrimitive", "[", 
    RowBox[{"Polygon", "[", "a_", "]"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"signs", "=", 
        RowBox[{"Sign", "[", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{
            RowBox[{"a", "^", "2"}], ",", 
            RowBox[{"{", "2", "}"}]}], "]"}], "-", "1"}], "]"}]}], ",", "r"}],
       "}"}], ",", 
     RowBox[{
      RowBox[{"r", "=", 
       RowBox[{"Thread", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Range", "@", 
           RowBox[{"Length", "@", "a"}]}], ",", "a", ",", "signs"}], "}"}], 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Max", "@", "signs"}], "\[LessEqual]", "0"}], ",", 
        RowBox[{"Polygon", "[", "a", "]"}], ",", 
        RowBox[{
         RowBox[{"Replace", "[", 
          RowBox[{
           RowBox[{"Partition", "[", 
            RowBox[{"r", ",", "2", ",", "1", ",", "1"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"i_", ",", "p1_", ",", "1"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"_", ",", "p2_", ",", 
                  RowBox[{"-", "1"}]}], "}"}]}], "}"}], "\[RuleDelayed]", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"r", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", 
                   RowBox[{"{", 
                    RowBox[{"2", ",", "3"}], "}"}]}], "]"}], "]"}], "=", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"circleIntercept", "[", 
                   RowBox[{"p1", ",", "p2"}], "]"}], ",", "0"}], "}"}]}], 
               ")"}]}], ",", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"_", ",", "p1_", ",", 
                  RowBox[{"-", "1"}]}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"i_", ",", "p2_", ",", "1"}], "}"}]}], "}"}], 
              "\[RuleDelayed]", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"r", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", 
                   RowBox[{"{", 
                    RowBox[{"2", ",", "3"}], "}"}]}], "]"}], "]"}], "=", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"circleIntercept", "[", 
                   RowBox[{"p1", ",", "p2"}], "]"}], ",", "0"}], "}"}]}], 
               ")"}]}]}], "}"}], ",", 
           RowBox[{"{", "1", "}"}]}], "]"}], ";", "\[IndentingNewLine]", 
         RowBox[{"Polygon", "[", 
          RowBox[{"Pick", "[", 
           RowBox[{
            RowBox[{"r", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
            RowBox[{"r", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "3"}], "]"}], "]"}], ",", 
            RowBox[{"0", "|", 
             RowBox[{"-", "1"}]}]}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}], 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"cropPrimitive", "[", 
    RowBox[{"Disk", "[", 
     RowBox[{"a_", ",", 
      RowBox[{"r_", "?", "NumericQ"}]}], "]"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"d", "=", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"a", ".", "a"}], "]"}]}], ",", "s", ",", "t", ",", "q", ",", 
       
       RowBox[{"c", "=", 
        RowBox[{"ArcTan", "@@", "a"}]}]}], "}"}], ",", 
     RowBox[{"Which", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"r", "+", "d"}], "<", "1"}], ",", 
       RowBox[{"Disk", "[", 
        RowBox[{"a", ",", "r"}], "]"}], ",", 
       RowBox[{
        RowBox[{"r", "+", "1"}], "<", "d"}], ",", 
       RowBox[{"{", "}"}], ",", 
       RowBox[{"r", "<", 
        RowBox[{"d", "+", "1"}]}], ",", 
       RowBox[{
        RowBox[{"s", "=", 
         RowBox[{"Solve", "[", 
          RowBox[{
           RowBox[{"Thread", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Cos", "[", "t", "]"}], ",", 
               RowBox[{"Sin", "[", "t", "]"}]}], "}"}], "\[Equal]", 
             RowBox[{"a", "+", 
              RowBox[{"r", " ", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"Cos", "[", "q", "]"}], ",", 
                 RowBox[{"Sin", "[", "q", "]"}]}], "}"}]}]}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"t", ",", "q"}], "}"}], ",", 
           RowBox[{"InverseFunctions", "\[Rule]", "True"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"DiskSegment", "[", 
           RowBox[{"a", ",", "r", ",", 
            RowBox[{"Sort", "@", 
             RowBox[{"Mod", "[", 
              RowBox[{
               RowBox[{"q", "/.", "s"}], ",", 
               RowBox[{"2", " ", "Pi"}], ",", "c"}], "]"}]}]}], "]"}], ",", 
          RowBox[{"EdgeForm", "[", "None", "]"}], ",", 
          RowBox[{"DiskSegment", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0"}], "}"}], ",", "1", ",", 
            RowBox[{"Sort", "@", 
             RowBox[{"Mod", "[", 
              RowBox[{
               RowBox[{"t", "/.", "s"}], ",", 
               RowBox[{"2", " ", "Pi"}], ",", 
               RowBox[{"c", "-", "Pi"}]}], "]"}]}]}], "]"}]}], "}"}]}], ",", 
       "True", ",", 
       RowBox[{"{", "}"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]"}], "\n", 

 RowBox[{
  RowBox[{
   RowBox[{"cropPrimitive", "[", 
    RowBox[{"Circle", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], ",", "r__"}], "]"}], "]"}], ":=", 
   RowBox[{"Circle", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", "r"}], "]"}]}], 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"cropPrimitive", "[", 
    RowBox[{"Circle", "[", 
     RowBox[{"a_", ",", "r_"}], "]"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"d", "=", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"a", ".", "a"}], "]"}]}], ",", "s", ",", "t", ",", "q", ",", 
       
       RowBox[{"c", "=", 
        RowBox[{"ArcTan", "@@", "a"}]}]}], "}"}], ",", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Abs", "[", 
         RowBox[{"d", "-", "1"}], "]"}], "\[LessEqual]", "r", "<", 
        RowBox[{"d", "+", "1"}]}], ",", 
       RowBox[{
        RowBox[{"s", "=", 
         RowBox[{"Solve", "[", 
          RowBox[{
           RowBox[{"Thread", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Cos", "[", "t", "]"}], ",", 
               RowBox[{"Sin", "[", "t", "]"}]}], "}"}], "\[Equal]", 
             RowBox[{"a", "+", 
              RowBox[{"r", " ", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"Cos", "[", "q", "]"}], ",", 
                 RowBox[{"Sin", "[", "q", "]"}]}], "}"}]}]}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"t", ",", "q"}], "}"}], ",", 
           RowBox[{"InverseFunctions", "\[Rule]", "True"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Circle", "[", 
         RowBox[{"a", ",", "r", ",", 
          RowBox[{"Sort", "@", 
           RowBox[{"Mod", "[", 
            RowBox[{
             RowBox[{"q", "/.", "s"}], ",", 
             RowBox[{"2", " ", "Pi"}], ",", "c"}], "]"}]}]}], "]"}]}], ",", 
       RowBox[{"Circle", "[", 
        RowBox[{"a", ",", "r"}], "]"}]}], "]"}]}], "]"}]}], 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"cropPrimitive", "[", 
    RowBox[{"Rotate", "[", 
     RowBox[{"g_", ",", "a_", ",", "o_"}], "]"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "d", "}"}], ",", 
     RowBox[{
      RowBox[{"d", "=", 
       RowBox[{"g", "/.", 
        RowBox[{
         RowBox[{"Disk", "[", 
          RowBox[{"c_", ",", "r_", ",", 
           RowBox[{"q_", ":", 
            RowBox[{"{", 
             RowBox[{"0", ",", 
              RowBox[{"2", " ", "Pi"}]}], "}"}]}]}], "]"}], "\[RuleDelayed]", 
         
         RowBox[{"Polygon", "@", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"c", "+", 
             RowBox[{"r", " ", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Cos", "[", "t", "]"}], ",", 
                RowBox[{"Sin", "[", "t", "]"}]}], "}"}]}]}], ",", 
            RowBox[{"{", 
             RowBox[{"t", ",", 
              RowBox[{"Subdivide", "[", 
               RowBox[{
                RowBox[{"q", "[", 
                 RowBox[{"[", "1", "]"}], "]"}], ",", 
                RowBox[{"q", "[", 
                 RowBox[{"[", "2", "]"}], "]"}], ",", "20"}], "]"}]}], 
             "}"}]}], "]"}]}]}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"d", "/.", 
       RowBox[{
        RowBox[{"Polygon", "[", "pts_", "]"}], "\[RuleDelayed]", 
        RowBox[{"cropPrimitive", "@", 
         RowBox[{"Polygon", "@", 
          RowBox[{
           RowBox[{"RotationTransform", "[", 
            RowBox[{"a", ",", "o"}], "]"}], "[", "pts", "]"}]}]}]}]}]}]}], 
    "]"}]}], "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cropPrimitive", "[", "other_", "]"}], ":=", "other"}]}], "Input",
 TaggingRules->{"AttachedInlineCell" -> CellObject[1369489]},
 CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9}, 
   3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9, 
   3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
   3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9, 
   3.819119187203471*^9}},
 CellID->282618623,ExpressionUUID->"9133244b-36bf-48a9-b695-7cbb1e06b409"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"cropGraphic", "[", "g_", "]"}], ":=", 
   RowBox[{"g", "/.", 
    RowBox[{
     RowBox[{
     "l_Line", "|", "l_Polygon", "|", "l_Circle", "|", "l_Disk", "|", 
      "l_Rotate"}], "\[RuleDelayed]", 
     RowBox[{"cropPrimitive", "[", "l", "]"}]}]}]}], 
  "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"iSkyChart", "[", 
   RowBox[{"primitives_", ",", 
    RowBox[{"opts", ":", 
     RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", 
  RowBox[{"Labeled", "[", 
   RowBox[{
    RowBox[{"cropGraphic", "@", 
     RowBox[{"Graphics", "[", 
      RowBox[{
       RowBox[{"MapAll", "[", 
        RowBox[{"SkyChart0", ",", "primitives"}], "]"}], ",", 
       RowBox[{"Background", "\[Rule]", "None"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"PlotRangePadding", "\[Rule]", ".03"}]}], "]"}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"Text", "[", 
       RowBox[{"Style", "[", "#", "]"}], "]"}], "&"}], "/@", 
     RowBox[{"Replace", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "\"\<N\>\"", ",", "\"\<W\>\"", ",", "\"\<S\>\"", ",", "\"\<E\>\""}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"{", 
           RowBox[{"n_", ",", "w_", ",", "s_", ",", "e_"}], "}"}], 
          "\[RuleDelayed]", 
          RowBox[{"{", 
           RowBox[{"s", ",", "e", ",", "n", ",", "w"}], "}"}]}], ",", 
         RowBox[{"_", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
           "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\""}], 
           "}"}]}]}], "}"}]}], "]"}]}], ",", "All", ",", 
    RowBox[{"FrameMargins", "\[Rule]", "5"}]}], "]"}]}]}], "Input",
 TaggingRules->{"AttachedInlineCell" -> CellObject[1467329]},
 CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9}, 
   3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9, 
   3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
   3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9, 
   3.819119191233397*^9}},
 CellID->76137508,ExpressionUUID->"bca7384c-a54f-437f-bf5c-dc2743d6854c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LocalHorizon", "[", 
   RowBox[{"h_", ",", "dec_", ",", "lat_"}], "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"ArcTan", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", "h", "]"}], " ", 
        RowBox[{"Sin", "[", "lat", "]"}]}], "-", 
       RowBox[{
        RowBox[{"Tan", "[", "dec", "]"}], " ", 
        RowBox[{"Cos", "[", "lat", "]"}]}]}], ",", 
      RowBox[{"Sin", "[", "h", "]"}]}], "]"}], ",", 
    RowBox[{"ArcSin", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Sin", "[", "lat", "]"}], " ", 
       RowBox[{"Sin", "[", "dec", "]"}]}], "+", 
      RowBox[{
       RowBox[{"Cos", "[", "lat", "]"}], " ", 
       RowBox[{"Cos", "[", "dec", "]"}], " ", 
       RowBox[{"Cos", "[", "h", "]"}]}]}], "]"}]}], "}"}]}]], "Input",
 TaggingRules->{"AttachedInlineCell" -> CellObject[1369489]},
 CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9}, 
   3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9, 
   3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
   3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9, 
   3.819119194716185*^9}},
 CellID->31087761,ExpressionUUID->"898c167a-54a5-4585-8c47-882716e12d4c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"RADLPG0", "[", 
    RowBox[{"s_", ",", "l_", ",", 
     RowBox[{"Point", "[", 
      RowBox[{"{", 
       RowBox[{"x_", ",", "y_"}], "}"}], "]"}]}], "]"}], ":=", 
   RowBox[{"Point", "[", 
    RowBox[{"LocalHorizon", "[", 
     RowBox[{
      RowBox[{"s", "-", "x"}], ",", "y", ",", "l"}], "]"}], "]"}]}], 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"RADLPG0", "[", 
    RowBox[{"s_", ",", "l_", ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", "x___List", "}"}], "]"}]}], "]"}], ":=", 
   RowBox[{"Line", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"LocalHorizon", "[", 
       RowBox[{
        RowBox[{"s", "-", "#"}], ",", "#2", ",", "l"}], "]"}], "&"}], "@@@", 
     RowBox[{"{", "x", "}"}]}], "]"}]}], "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"RADLPG0", "[", 
    RowBox[{"s_", ",", "l_", ",", 
     RowBox[{"Polygon", "[", 
      RowBox[{"{", "x___List", "}"}], "]"}]}], "]"}], ":=", 
   RowBox[{"Polygon", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"LocalHorizon", "[", 
       RowBox[{
        RowBox[{"s", "-", "#"}], ",", "#2", ",", "l"}], "]"}], "&"}], "@@@", 
     RowBox[{"{", "x", "}"}]}], "]"}]}], "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"RADLPG0", "[", 
    RowBox[{"s_", ",", "l_", ",", 
     RowBox[{"Circle", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x_", ",", "y_"}], "}"}], ",", "r_"}], "]"}]}], "]"}], ":=", 
   RowBox[{"Circle", "[", 
    RowBox[{
     RowBox[{"LocalHorizon", "[", 
      RowBox[{
       RowBox[{"s", "-", "x"}], ",", "y", ",", "l"}], "]"}], ",", "r"}], 
    "]"}]}], "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"RADLPG0", "[", 
    RowBox[{"s_", ",", "l_", ",", 
     RowBox[{"Disk", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x_", ",", "y_"}], "}"}], ",", "r_"}], "]"}]}], "]"}], ":=", 
   RowBox[{"Disk", "[", 
    RowBox[{
     RowBox[{"LocalHorizon", "[", 
      RowBox[{
       RowBox[{"s", "-", "x"}], ",", "y", ",", "l"}], "]"}], ",", "r"}], 
    "]"}]}], "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"RADLPG0", "[", 
    RowBox[{"_", ",", "_", ",", "x_"}], "]"}], ":=", "x"}], 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{"RADToHorizonLPG", "[", 
   RowBox[{
   "jd_", ",", "longdegrees_", ",", "latdegrees_", ",", "primitives_"}], 
   "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"long", "=", 
       RowBox[{"longdegrees", " ", "Degree"}]}], ",", 
      RowBox[{"lat", "=", 
       RowBox[{"latdegrees", " ", "Degree"}]}], ",", "sid0"}], "}"}], ",", 
    RowBox[{
     RowBox[{"sid0", "=", 
      RowBox[{
       RowBox[{"JDToMeanSiderealRadians", "[", "jd", "]"}], "+", "long"}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"MapAll", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"RADLPG0", "[", 
         RowBox[{"sid0", ",", "lat", ",", "#"}], "]"}], "&"}], ",", 
       "primitives"}], "]"}]}]}], "]"}]}]}], "Input",
 TaggingRules->{"AttachedInlineCell" -> CellObject[1369489]},
 CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9}, 
   3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9, 
   3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
   3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9, 
   3.819119199969739*^9}},
 CellID->244375970,ExpressionUUID->"45e0e668-e56e-491e-a93f-26c39d0d300f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"EclipticPrimitive", "=", 
   RowBox[{"Line", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.", ",", "0."}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.1443048067321743", ",", "0.06226628412704956"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.28972010554252553", ",", "0.12323156388195372"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"0.4372952123921723", ",", "0.18158328140611446"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.5879493425009744", ",", "0.23599193925741163"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.7423901708726257", ",", "0.2851182448321868"}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"0.9010216757418265", ",", "0.32763895541385457"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1.0638534235319528", ",", "0.36229591352766216"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1.23043556606366", ",", "0.38796836716675726"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1.399851674117138", ",", "0.4037611834624364"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1.5707963267948966", ",", "0.4090928042223289"}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"1.741740979472655", ",", "0.4037611834624364"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1.9111570875261334", ",", "0.38796836716675726"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2.0777392300578406", ",", "0.36229591352766216"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2.2405709778479665", ",", "0.32763895541385457"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2.3992024827171674", ",", "0.2851182448321868"}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"2.553643311088819", ",", "0.23599193925741163"}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"2.704297441197621", ",", "0.18158328140611446"}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"2.8518725480472678", ",", "0.12323156388195372"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2.9972878468576187", ",", "0.06226628412704956"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3.141592653589793", ",", "0."}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "2.9972878468576187"}], ",", 
        RowBox[{"-", "0.06226628412704956"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "2.8518725480472678"}], ",", 
        RowBox[{"-", "0.12323156388195372"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "2.704297441197621"}], ",", 
        RowBox[{"-", "0.18158328140611446"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "2.553643311088819"}], ",", 
        RowBox[{"-", "0.23599193925741163"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "2.3992024827171674"}], ",", 
        RowBox[{"-", "0.2851182448321868"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "2.2405709778479665"}], ",", 
        RowBox[{"-", "0.32763895541385457"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "2.0777392300578406"}], ",", 
        RowBox[{"-", "0.36229591352766216"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.9111570875261334"}], ",", 
        RowBox[{"-", "0.38796836716675726"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.741740979472655"}], ",", 
        RowBox[{"-", "0.4037611834624364"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.5707963267948966"}], ",", 
        RowBox[{"-", "0.4090928042223289"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.399851674117138"}], ",", 
        RowBox[{"-", "0.4037611834624364"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.23043556606366"}], ",", 
        RowBox[{"-", "0.38796836716675726"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.0638534235319528"}], ",", 
        RowBox[{"-", "0.36229591352766216"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.9010216757418265"}], ",", 
        RowBox[{"-", "0.32763895541385457"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.7423901708726257"}], ",", 
        RowBox[{"-", "0.2851182448321868"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.5879493425009744"}], ",", 
        RowBox[{"-", "0.23599193925741163"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.4372952123921723"}], ",", 
        RowBox[{"-", "0.18158328140611446"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.28972010554252553"}], ",", 
        RowBox[{"-", "0.12323156388195372"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.1443048067321743"}], ",", 
        RowBox[{"-", "0.06226628412704956"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.", ",", "0."}], "}"}]}], "}"}], "]"}]}], ";"}]], "Input",
 TaggingRules->{"AttachedInlineCell" -> CellObject[1369489]},
 CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9}, 
   3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9, 
   3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
   3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9, 
   3.819119205615964*^9}},
 CellID->845360447,ExpressionUUID->"cab17d23-e5b3-4381-b193-37fd46deb7b3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"MG5", "[", 
   RowBox[{"angle_", ",", "rot_", ",", "pos_", ",", "size_", ",", 
    RowBox[{"col_", ":", "White"}]}], "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"GrayLevel", "[", ".75", "]"}], ",", 
    RowBox[{"Disk", "[", 
     RowBox[{"pos", ",", "size"}], "]"}], ",", 
    RowBox[{"Rotate", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"col", ",", 
        RowBox[{"Disk", "[", 
         RowBox[{"pos", ",", "size", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"3", " ", 
             RowBox[{"Pi", "/", "2"}]}], ",", 
            RowBox[{"5", " ", 
             RowBox[{"Pi", "/", "2"}]}]}], "}"}]}], "]"}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"1", "/", "4"}], "\[LessEqual]", "angle", "<", 
           RowBox[{"3", "/", "4"}]}], ",", "col", ",", 
          RowBox[{"GrayLevel", "[", ".75", "]"}]}], "]"}], ",", 
        RowBox[{"Disk", "[", 
         RowBox[{"pos", ",", 
          RowBox[{"size", " ", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{"Cos", "[", 
               RowBox[{"2", " ", "Pi", " ", "angle"}], "]"}], "]"}], ",", 
             "1"}], "}"}]}]}], "]"}]}], "}"}], ",", "rot", ",", "pos"}], 
     "]"}], ",", 
    RowBox[{"GrayLevel", "[", ".6", "]"}], ",", 
    RowBox[{"Circle", "[", 
     RowBox[{"pos", ",", "size"}], "]"}]}], "}"}]}]], "Input",
 TaggingRules->{"AttachedInlineCell" -> CellObject[1369489]},
 CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9}, 
   3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9, 
   3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
   3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9, 
   3.819119207812702*^9}},
 CellID->413871647,ExpressionUUID->"5338938f-64fb-4a3d-b91d-c24d65134828"],

Cell[BoxData[
 RowBox[{
  RowBox[{"CleanQ", "[", "arg_", "]"}], ":=", 
  RowBox[{"FreeQ", "[", 
   RowBox[{"arg", ",", 
    RowBox[{"_Missing", "|", "$Failed"}]}], "]"}]}]], "Input",
 TaggingRules->{"AttachedInlineCell" -> CellObject[1369489]},
 CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9}, 
   3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9, 
   3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
   3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9, 
   3.819119209631543*^9}},
 CellID->693073784,ExpressionUUID->"81d9d299-f8b1-4f6c-ba81-5d4163ec8142"],

Cell[BoxData[
 RowBox[{
  RowBox[{"EarthSunAngle", "[", 
   RowBox[{"entity_Entity", ",", "jd_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"tmp1", ",", "tmp2"}], "}"}], ",", 
    RowBox[{
     RowBox[{"tmp2", "=", 
      RowBox[{"-", 
       RowBox[{"QuantityMagnitude", "[", 
        RowBox[{
         RowBox[{"EntityValue", "[", 
          RowBox[{
           RowBox[{"Entity", "[", 
            RowBox[{"\"\<Planet\>\"", ",", "\"\<Earth\>\""}], "]"}], ",", 
           RowBox[{"Dated", "[", 
            RowBox[{"\"\<HelioCoordinates\>\"", ",", 
             RowBox[{"FromJulianDate", "[", "jd", "]"}]}], "]"}]}], "]"}], 
         ",", "\"\<AstronomicalUnit\>\""}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"tmp1", "=", 
      RowBox[{"tmp2", "+", 
       RowBox[{"QuantityMagnitude", "[", 
        RowBox[{
         RowBox[{"EntityValue", "[", 
          RowBox[{"entity", ",", 
           RowBox[{"Dated", "[", 
            RowBox[{"\"\<HelioCoordinates\>\"", ",", 
             RowBox[{"FromJulianDate", "[", "jd", "]"}]}], "]"}]}], "]"}], 
         ",", "\"\<AstronomicalUnit\>\""}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"entity", "===", 
        RowBox[{"Entity", "[", 
         RowBox[{"\"\<Planet\>\"", ",", "\"\<Earth\>\""}], "]"}]}], ",", 
       RowBox[{"Missing", "[", "\"\<NotAvailable\>\"", "]"}], ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"CleanQ", "[", 
          RowBox[{"{", 
           RowBox[{"tmp1", ",", "tmp2"}], "}"}], "]"}], ",", 
         RowBox[{"Mod", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Pi", "+", 
              RowBox[{
               RowBox[{"Sign", "[", 
                RowBox[{"Last", "[", 
                 RowBox[{"Cross", "[", 
                  RowBox[{"#", ",", "#2"}], "]"}], "]"}], "]"}], "*", 
               RowBox[{"ArcCos", "[", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"#", ".", "#"}], "+", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"#", ".", "#"}], "&"}], "[", 
                    RowBox[{"#", "-", "#2"}], "]"}], ")"}], "-", 
                   RowBox[{"#2", " ", ".", " ", "#2"}]}], ")"}], "/", 
                 RowBox[{"(", 
                  RowBox[{"2", " ", 
                   RowBox[{"Norm", "[", "#", "]"}], " ", 
                   RowBox[{"Norm", "[", 
                    RowBox[{"#", "-", "#2"}], "]"}]}], ")"}]}], "]"}]}]}], 
             "&"}], "[", 
            RowBox[{"tmp1", ",", "tmp2"}], "]"}], ",", 
           RowBox[{"2", " ", "Pi"}]}], "]"}], ",", "$Failed"}], "]"}]}], 
      "]"}]}]}], "]"}]}]], "Input",
 TaggingRules->{"AttachedInlineCell" -> CellObject[1467425]},
 CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9}, 
   3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9, 
   3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
   3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9, 
   3.819119214379817*^9}, {3.8191192760726624`*^9, 3.819119281757429*^9}},
 CellID->604930458,ExpressionUUID->"74e5a39a-e641-4ddf-a800-e1399a246f78"],

Cell[BoxData[
 RowBox[{
  RowBox[{"MoonTiltAngle", "[", 
   RowBox[{"jd_", ",", 
    RowBox[{"{", 
     RowBox[{"long_", ",", "lat_"}], "}"}]}], "]"}], ":=", 
  RowBox[{"Apply", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"With", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"v", "=", 
          RowBox[{"#", "-", "#2"}]}], ",", 
         RowBox[{"u", "=", 
          RowBox[{
           RowBox[{
            RowBox[{"#", "/", 
             RowBox[{"Norm", "[", "#", "]"}]}], "&"}], "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "1"}], "}"}], "-", 
            RowBox[{
             RowBox[{"#2", "[", 
              RowBox[{"[", "3", "]"}], "]"}], " ", "#2"}]}], "]"}]}], ",", 
         RowBox[{"r", "=", 
          RowBox[{
           RowBox[{
            RowBox[{"#", "/", 
             RowBox[{"Norm", "[", "#", "]"}]}], "&"}], "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"#2", "[", 
              RowBox[{"[", "2", "]"}], "]"}], ",", 
             RowBox[{"-", 
              RowBox[{"#2", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], ",", "0"}], "}"}], "]"}]}]}],
         "}"}], ",", 
       RowBox[{"ArcTan", "[", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"v", ".", "r"}]}], ",", 
         RowBox[{"v", ".", "u"}]}], "]"}]}], "]"}], "&"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"Cos", "[", "#", "]"}], " ", 
         RowBox[{"Cos", "[", "#2", "]"}]}], ",", 
        RowBox[{
         RowBox[{"Sin", "[", "#", "]"}], " ", 
         RowBox[{"Cos", "[", "#2", "]"}]}], ",", 
        RowBox[{"Sin", "[", "#2", "]"}]}], "}"}], "&"}], "@@@", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "-", 
            RowBox[{"Pi", "/", "2"}]}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "&"}], "@", 
        RowBox[{"QuantityMagnitude", "[", 
         RowBox[{
          RowBox[{"SunPosition", "[", 
           RowBox[{
            RowBox[{"GeoPosition", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"lat", "/", "Degree"}], ",", 
               RowBox[{"long", "/", "Degree"}]}], "}"}], "]"}], ",", 
            RowBox[{"FromJulianDate", "[", "jd", "]"}], ",", 
            RowBox[{
            "AltitudeMethod", "\[Rule]", "\"\<ApparentAltitude\>\""}]}], 
           "]"}], ",", "\"\<Radians\>\""}], "]"}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "-", 
            RowBox[{"Pi", "/", "2"}]}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "&"}], "@", 
        RowBox[{"QuantityMagnitude", "[", 
         RowBox[{
          RowBox[{"MoonPosition", "[", 
           RowBox[{
            RowBox[{"GeoPosition", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"lat", "/", "Degree"}], ",", 
               RowBox[{"long", "/", "Degree"}]}], "}"}], "]"}], ",", 
            RowBox[{"FromJulianDate", "[", "jd", "]"}], ",", 
            RowBox[{
            "AltitudeMethod", "\[Rule]", "\"\<ApparentAltitude\>\""}]}], 
           "]"}], ",", "\"\<Radians\>\""}], "]"}]}]}], "}"}]}]}], 
   "]"}]}]], "Input",
 TaggingRules->{"AttachedInlineCell" -> CellObject[1467505]},
 CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9}, 
   3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9, 
   3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
   3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9, 
   3.819119217645473*^9}},
 CellID->469943170,ExpressionUUID->"1316e25f-e61d-459b-82d1-baffa6d3b0f8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SkyChart", "[", 
   RowBox[{"flights_", ",", "location_GeoPosition", ",", 
    RowBox[{"time_", "?", "DateObjectQ"}]}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"jd", ",", 
      RowBox[{"sunradius", "=", "0.05"}], ",", "sunposition", ",", 
      "moonposition", ",", "long", ",", "lat", ",", 
      RowBox[{"edgethickness", "=", ".008"}], ",", 
      RowBox[{"se0", "=", "flights"}]}], "}"}], ",", 
    RowBox[{
     RowBox[{"jd", "=", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"MatchQ", "[", 
         RowBox[{"time", ",", "_Missing"}], "]"}], ",", 
        RowBox[{"Return", "[", 
         RowBox[{"Missing", "[", "\"\<NotAvailable\>\"", "]"}], "]"}], ",", 
        RowBox[{"JulianDate", "[", "time", "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"long", "=", 
      RowBox[{"QuantityMagnitude", "[", 
       RowBox[{
        RowBox[{"Longitude", "[", "location", "]"}], ",", "\"\<Radians\>\""}],
        "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"lat", "=", 
      RowBox[{"QuantityMagnitude", "[", 
       RowBox[{
        RowBox[{"Latitude", "[", "location", "]"}], ",", "\"\<Radians\>\""}], 
       "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"sunposition", "=", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"RADToHorizonLPG", "[", 
         RowBox[{"jd", ",", 
          RowBox[{"long", "/", "Degree"}], ",", 
          RowBox[{"lat", "/", "Degree"}], ",", 
          RowBox[{"{", 
           RowBox[{"Point", "[", 
            RowBox[{"QuantityMagnitude", "[", 
             RowBox[{
              RowBox[{"SunPosition", "[", 
               RowBox[{"time", ",", 
                RowBox[{
                "CelestialSystem", "\[Rule]", "\"\<Equatorial\>\""}]}], "]"}],
               ",", "\"\<Radians\>\""}], "]"}], "]"}], "}"}]}], "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}], ")"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"moonposition", "=", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"RADToHorizonLPG", "[", 
         RowBox[{"jd", ",", 
          RowBox[{"long", "/", "Degree"}], ",", 
          RowBox[{"lat", "/", "Degree"}], ",", 
          RowBox[{"{", 
           RowBox[{"Point", "[", 
            RowBox[{"QuantityMagnitude", "[", 
             RowBox[{
              RowBox[{"MoonPosition", "[", 
               RowBox[{"time", ",", 
                RowBox[{
                "CelestialSystem", "\[Rule]", "\"\<Equatorial\>\""}]}], "]"}],
               ",", "\"\<Radians\>\""}], "]"}], "]"}], "}"}]}], "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}], ")"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"se0", "=", 
      RowBox[{"With", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"fr", "=", 
          RowBox[{"EarthGeoidFrame", "[", 
           RowBox[{"2451545", ",", "long", ",", "lat", ",", "0"}], "]"}]}], 
         "}"}], ",", 
        RowBox[{"Flatten", "[", 
         RowBox[{"Map", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"#", "/.", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"g7", ":", 
                  RowBox[{"(", 
                   RowBox[{
                   "Point", "|", "Line", "|", "Arrow", "|", "_String"}], 
                   ")"}]}], ")"}], "[", 
                RowBox[{"g8_", ",", "g9___"}], "]"}], "\[RuleDelayed]", 
               RowBox[{"g7", "[", 
                RowBox[{
                 RowBox[{"g8", "/.", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"tlong_", "?", "NumberQ"}], ",", "tlat_", ",", 
                    "telev_"}], "}"}], "\[RuleDelayed]", 
                   RowBox[{"Apply", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Pi", "+", 
                    RowBox[{"ArcTan", "[", 
                    RowBox[{"#", ",", "#2"}], "]"}]}], ",", 
                    RowBox[{"ArcTan", "[", 
                    RowBox[{
                    RowBox[{"Norm", "[", 
                    RowBox[{"{", 
                    RowBox[{"#", ",", "#2"}], "}"}], "]"}], ",", "#3"}], 
                    "]"}]}], "}"}], "&"}], ",", 
                    RowBox[{
                    RowBox[{"fr", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], ".", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"EarthGeoidFrame", "[", 
                    RowBox[{"2451545", ",", 
                    RowBox[{"tlong", "*", "Degree"}], ",", 
                    RowBox[{"tlat", "*", "Degree"}], ",", "telev", ",", "1"}],
                     "]"}], "-", 
                    RowBox[{"fr", "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}]}], "]"}]}]}], 
                 ",", "g9"}], "]"}]}], "}"}]}], "&"}], ",", "se0"}], "]"}], 
         "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"iSkyChart", "[", 
      RowBox[{"{", 
       RowBox[{"(*", 
        RowBox[{"draw", " ", "the", " ", "ecliptic"}], "*)"}], 
       RowBox[{"Brown", ",", 
        RowBox[{"Thickness", "[", ".003", "]"}], ",", 
        RowBox[{"RADToHorizonLPG", "[", 
         RowBox[{"jd", ",", 
          RowBox[{"long", "/", "Degree"}], ",", 
          RowBox[{"lat", "/", "Degree"}], ",", "EclipticPrimitive"}], "]"}], 
        ",", 
        RowBox[{"(*", 
         RowBox[{"draw", " ", "the", " ", "Sun"}], "*)"}], 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"sunposition", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "<", "0"}], ",", 
          RowBox[{"{", "}"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Text", "[", 
               RowBox[{
                RowBox[{"Style", "[", 
                 RowBox[{"\"\<Sun\>\"", ",", "Gray"}], "]"}], ",", 
                RowBox[{"#", "+", 
                 RowBox[{"{", 
                  RowBox[{"0", ",", 
                   RowBox[{"4", " ", "sunradius"}]}], "}"}]}]}], "]"}], ",", 
              RowBox[{"RGBColor", "[", 
               RowBox[{"1.", ",", "0.8305", ",", "0.2606"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"EdgeForm", "[", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.91855", ",", "0.4613", ",", "0.0019"}], "]"}], 
                   ",", 
                   RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}], "]"}], 
                ",", 
                RowBox[{"Disk", "[", 
                 RowBox[{"#", ",", "sunradius"}], "]"}]}], "}"}]}], "}"}], 
            "&"}], "[", "sunposition", "]"}]}], "]"}], ",", 
        RowBox[{"(*", 
         RowBox[{"draw", " ", "the", " ", "Moon"}], "*)"}], 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"moonposition", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "<", "0"}], ",", 
          RowBox[{"{", "}"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Text", "[", 
               RowBox[{
                RowBox[{"Style", "[", 
                 RowBox[{"\"\<Moon\>\"", ",", "Gray"}], "]"}], ",", 
                RowBox[{"#", "+", 
                 RowBox[{"{", 
                  RowBox[{"0", ",", 
                   RowBox[{"4", " ", "sunradius"}]}], "}"}]}]}], "]"}], ",", 
              RowBox[{"MG5", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"EarthSunAngle", "[", 
                  RowBox[{
                   RowBox[{"Entity", "[", 
                    RowBox[{"\"\<PlanetaryMoon\>\"", ",", "\"\<Moon\>\""}], 
                    "]"}], ",", "jd"}], "]"}], "/", 
                 RowBox[{"(", 
                  RowBox[{"2", " ", "Pi"}], ")"}]}], ",", 
                RowBox[{"MoonTiltAngle", "[", 
                 RowBox[{"jd", ",", 
                  RowBox[{"{", 
                   RowBox[{"long", ",", "lat"}], "}"}]}], "]"}], ",", "#", 
                ",", "sunradius", ",", 
                RowBox[{"GrayLevel", "[", ".9", "]"}]}], "]"}]}], "}"}], 
            "&"}], "[", "moonposition", "]"}]}], "]"}], ",", "Black", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RGBColor", "[", 
           RowBox[{".84", ",", ".84", ",", ".84"}], "]"}], ",", 
          RowBox[{"Thickness", "[", "edgethickness", "]"}], ",", 
          RowBox[{"Circle", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", 
              RowBox[{"Pi", "/", "2"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], 
        ",", "se0"}], "}"}], "]"}]}]}], "]"}]}]], "Input",
 TaggingRules->{"AttachedInlineCell" -> CellObject[1470449]},
 CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9}, 
   3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9, 
   3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
   3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9, 
   3.8191192221766863`*^9}},
 CellID->365349366,ExpressionUUID->"b597ceb7-58ae-4b71-a8f4-3aa74d34a711"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"EarthGeoidFrame", "[", 
   RowBox[{"jd_", ",", "long_", ",", "lat_", ",", "elevationnmeters_"}], 
   "]"}], ":=", 
  RowBox[{"Apply", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{".00004263523", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "#", "]"}], " ", "#3"}], ",", 
          RowBox[{
           RowBox[{"Sin", "[", "#", "]"}], " ", "#3"}], ",", "#2"}], "}"}]}], 
       ",", 
       RowBox[{"Orthogonalize", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "#2"}], " ", 
             RowBox[{"Cos", "[", "#", "]"}]}], ",", 
            RowBox[{
             RowBox[{"-", "#2"}], " ", 
             RowBox[{"Sin", "[", "#", "]"}]}], ",", "#3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{"Sin", "[", "#", "]"}]}], ",", 
            RowBox[{"Cos", "[", "#", "]"}], ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"#3", " ", 
             RowBox[{"Cos", "[", "#", "]"}]}], ",", 
            RowBox[{"#3", " ", 
             RowBox[{"Sin", "[", "#", "]"}]}], ",", "#2"}], "}"}]}], "}"}], 
        "]"}]}], "}"}], "&"}], ",", 
    RowBox[{"Flatten", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"JDToMeanSiderealRadians", "[", "jd", "]"}], "+", "long"}], 
       ",", 
       RowBox[{"Earthsincos", "[", 
        RowBox[{"lat", ",", "elevationnmeters"}], "]"}]}], "}"}], "]"}]}], 
   "]"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"EarthGeoidFrame", "[", 
    RowBox[{
    "jd_", ",", "long_", ",", "lat_", ",", "elevationnmeters_", ",", "1"}], 
    "]"}], ":=", 
   RowBox[{"Apply", "[", 
    RowBox[{
     RowBox[{
      RowBox[{".00004263523", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"Cos", "[", "#", "]"}], " ", "#3"}], ",", 
         RowBox[{
          RowBox[{"Sin", "[", "#", "]"}], " ", "#3"}], ",", "#2"}], "}"}]}], 
      "&"}], ",", 
     RowBox[{"Flatten", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"JDToMeanSiderealRadians", "[", "jd", "]"}], "+", "long"}], 
        ",", 
        RowBox[{"Earthsincos", "[", 
         RowBox[{"lat", ",", "elevationnmeters"}], "]"}]}], "}"}], "]"}]}], 
    "]"}]}], "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{"Earthsincos", "[", 
   RowBox[{"lat_", ",", "h_"}], "]"}], ":=", 
  RowBox[{"With", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"a", "=", 
      RowBox[{"ArcTan", "[", 
       RowBox[{
        RowBox[{"Cos", "[", "lat", "]"}], ",", 
        RowBox[{".99664719", 
         RowBox[{"Sin", "[", "lat", "]"}]}]}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{".99664719", " ", 
        RowBox[{"Sin", "[", "a", "]"}]}], "+", 
       RowBox[{
        RowBox[{"h", "/", "6378140"}], " ", 
        RowBox[{"Sin", "[", "lat", "]"}]}]}], ",", 
      RowBox[{
       RowBox[{"Cos", "[", "a", "]"}], "+", 
       RowBox[{
        RowBox[{"h", "/", "6378140"}], " ", 
        RowBox[{"Cos", "[", "lat", "]"}]}]}]}], "}"}]}], "]"}]}]}], "Input",
 TaggingRules->{"AttachedInlineCell" -> CellObject[1369489]},
 CellChangeTimes->{{3.81228410639717*^9, 3.8122841095422773`*^9}, 
   3.812288738724616*^9, 3.8122889310245113`*^9, {3.8122897387500477`*^9, 
   3.8122897508510427`*^9}, {3.819118881435766*^9, 3.819118883368309*^9}, {
   3.819118963612157*^9, 3.819118969505145*^9}, {3.819119131007401*^9, 
   3.8191192236158752`*^9}},
 CellID->956736084,ExpressionUUID->"065062f0-8587-4efe-8a69-b395e8d073a8"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Documentation", "Section",
 Editable->False,
 Deletable->False,
 CellTags->{"Documentation", "TemplateSection"},
 CellID->94487535,ExpressionUUID->"2df88872-b01f-4c7e-8f43-558034a21810"],

Cell[CellGroupData[{

Cell[TextData[{
 "Usage",
 Cell[BoxData[
  PaneSelectorBox[{True->
   TemplateBox[{"Usage", 
     Cell[
      BoxData[
       FrameBox[
        Cell[
         TextData[{
          "Document input usage cases by first typing an input structure, \
then pressing ", 
           Cell[
            BoxData[
             StyleBox[
              DynamicBox[
               ToBoxes[
                
                If[$OperatingSystem === "MacOSX", "\[ReturnKey]", 
                 "\[EnterKey]"], StandardForm], SingleEvaluation -> True, 
               Evaluator -> "System"], ShowStringCharacters -> False]]], 
           " to add a brief explanation of the function\[CloseCurlyQuote]s \
behavior for that structure. Pressing ", 
           Cell[
            BoxData[
             StyleBox[
              DynamicBox[
               ToBoxes[
                
                If[$OperatingSystem === "MacOSX", "\[ReturnKey]", 
                 "\[EnterKey]"], StandardForm], SingleEvaluation -> True, 
               Evaluator -> "System"], ShowStringCharacters -> False]]], 
           " repeatedly will create new cases as needed. Every input usage \
case defined above should be demonstrated explicitly here.\n\nSee existing \
documentation pages for examples."}], "MoreInfoText"], Background -> 
        GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], 
        RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, 
      CellTags -> {"SectionMoreInfoUsage"}, 
      CellMargins -> {{66, 66}, {15, 15}}]},
    "MoreInfoOpenerButtonTemplate"]}, Dynamic[
    CurrentValue[
     EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
   ImageSize->Automatic]],ExpressionUUID->
  "00fed3fd-5ca0-4b3f-81a4-76e37573adb5"]
}], "Subsection",
 Editable->False,
 Deletable->False,
 DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"},
 CellTags->{"TemplateCellGroup", "Usage"},
 CellID->321985898,ExpressionUUID->"b720acee-a0a2-4859-86ee-19112c279522"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FlightsOverhead", "[", 
  StyleBox["pos", "TI"], "]"}]], "UsageInputs",
 FontFamily->"Source Sans Pro",
 CellID->764821153,ExpressionUUID->"a513c5da-46e4-4788-b87a-8573658149fb"],

Cell[TextData[{
 "returns the flights and sky map for the flights currently overhead at the \
location ",
 Cell[BoxData[
  StyleBox["pos", "TI"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "71178fd1-fe3c-404c-880f-5bd557b6f900"],
 "."
}], "UsageDescription",
 CellID->725045553,ExpressionUUID->"c4d480b3-ce22-4694-afe2-61aeadfe4b84"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FlightsOverhead", "[", 
  RowBox[{
   StyleBox["pos", "TI"], ",", 
   StyleBox["prop", "TI"]}], "]"}]], "UsageInputs",
 FontFamily->"Source Sans Pro",
 CellID->42960790,ExpressionUUID->"4f6a5401-0c20-4600-b609-4755410f8b95"],

Cell[TextData[{
 "returns the property ",
 Cell[BoxData[
  StyleBox["prop", "TI"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "ecc4bfa3-d3df-4753-8a6a-851273fbdc0c"],
 "."
}], "UsageDescription",
 CellID->197161732,ExpressionUUID->"16cffa3f-3bd3-42c1-95b4-7e7f566b0745"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Details & Options",
 Cell[BoxData[
  PaneSelectorBox[{True->
   TemplateBox[{"Notes", 
     Cell[
      BoxData[
       FrameBox[
        Cell[
        "Give a detailed explanation of how the function is used and \
configured (e.g. acceptable input types, result formats, options \
specifications, background information). This section may include multiple \
cells, bullet lists, tables, hyperlinks and additional styles/structures as \
needed.\n\nAdd any other information that may be relevant, such as when the \
function was first discovered or how and why it is used within a given field. \
Include all relevant background or contextual information related to the \
function, its development, and its usage.", "MoreInfoText"], Background -> 
        GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], 
        RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, 
      CellTags -> {"SectionMoreInfoNotes"}, 
      CellMargins -> {{66, 66}, {15, 15}}]},
    "MoreInfoOpenerButtonTemplate"]}, Dynamic[
    CurrentValue[
     EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
   ImageSize->Automatic]],ExpressionUUID->
  "946e6ec1-b304-4553-93ca-e68a67834769"]
}], "Subsection",
 Editable->False,
 Deletable->False,
 DefaultNewCellStyle->"Notes",
 CellTags->{"Details & Options", "Notes", "TemplateCellGroup"},
 CellID->892718828,ExpressionUUID->"69debc0c-05bf-464d-ba23-6dfc700e4915"],

Cell[TextData[{
 Cell[BoxData[
  RowBox[{"FlightsOverhead", "[", "]"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "7b9e97b1-4eb8-43f2-b80c-a7f8dc80f043"],
 " returns the flight information for flights overhead for the current \
location as defined by ",
 Cell[BoxData[
  TagBox[
   ButtonBox[
    StyleBox["Here", "SymbolsRefLink",
     ShowStringCharacters->True,
     FontFamily->"Source Sans Pro"],
    BaseStyle->Dynamic[
      FEPrivate`If[
       CurrentValue["MouseOver"], {
       "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, {
       "Link"}]],
    ButtonData->"paclet:ref/Here",
    ContentPadding->False],
   MouseAppearanceTag["LinkHand"]]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "d4d108a1-e444-4279-88d4-e9ebfe9d3974"],
 "."
}], "Notes",
 CellTags->"TabNext",
 CellID->349543592,ExpressionUUID->"edaac226-3803-4f26-a674-cb43f1025d1d"],

Cell[TextData[{
 "The argument ",
 Cell[BoxData[
  StyleBox["pos", "TI"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "e96173c4-b188-4120-ada4-793f48e813ba"],
 " should be a ",
 Cell[BoxData[
  TagBox[
   ButtonBox[
    StyleBox["GeoPosition", "SymbolsRefLink",
     ShowStringCharacters->True,
     FontFamily->"Source Sans Pro"],
    BaseStyle->Dynamic[
      FEPrivate`If[
       CurrentValue["MouseOver"], {
       "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, {
       "Link"}]],
    ButtonData->"paclet:ref/GeoPosition",
    ContentPadding->False],
   MouseAppearanceTag["LinkHand"]]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "4f1f8619-5d19-419b-a3fc-095eb36de673"],
 " or ",
 Cell[BoxData[
  TagBox[
   ButtonBox[
    StyleBox["Entity", "SymbolsRefLink",
     ShowStringCharacters->True,
     FontFamily->"Source Sans Pro"],
    BaseStyle->Dynamic[
      FEPrivate`If[
       CurrentValue["MouseOver"], {
       "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, {
       "Link"}]],
    ButtonData->"paclet:ref/Entity",
    ContentPadding->False],
   MouseAppearanceTag["LinkHand"]]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "2dd5c165-38e1-4707-a415-56acb5ec86a0"],
 " with a position."
}], "Notes",
 CellID->823009216,ExpressionUUID->"4d4f33b4-45e3-483d-90d7-8e609faf5bc4"],

Cell[TextData[{
 Cell[BoxData["FlightsOverhead"], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "af96e33c-8d20-457d-a083-329969aa4a57"],
 " supports the following properties:"
}], "Notes",
 CellID->409670135,ExpressionUUID->"5389f7b1-312a-4463-b62c-e87a9344f88e"],

Cell[BoxData[GridBox[{
   {Cell["\"Flights\"", "TableText",ExpressionUUID->
     "cf4333a8-4f48-4350-9c2f-e6a09d15caa4"], Cell[
    "list of the flights overhead", "TableText",ExpressionUUID->
     "00b4d09a-5d1a-44fa-a350-ac2abd87a8ec"]},
   {Cell["\"SkyMap\"", "TableText",ExpressionUUID->
     "c0a984b3-b0b2-47d5-a97b-60b376eb4bea"], Cell[
    "visualization of flight paths of flights overhead", "TableText",
     ExpressionUUID->"78a795cc-124c-48dd-a334-1b79a2b3f576"]}
  }]], "TableNotes",
 CellID->301361063,ExpressionUUID->"6608b21c-cd28-4863-a76d-9ded8d32a7b8"],

Cell[TextData[{
 Cell[BoxData["\<\"PropertyAssociation\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "d07e9b9e-8813-40f9-9a6d-1ee38d648dbb"],
 " can also be supplied to get an association of properties for the flights \
overhead."
}], "Notes",
 CellID->402689756,ExpressionUUID->"b7b9b9e5-d3ca-4c44-8798-a4c8ae984b7a"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Examples",
 Cell[BoxData[
  PaneSelectorBox[{True->
   TemplateBox[{"Examples", 
     Cell[
      BoxData[
       FrameBox[
        Cell[
         TextData[{
          "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \
the most basic use case and describing each example in a preceding text cell.\
\n\nWithin a group, individual examples can be delimited by inserting page \
breaks between them (either using ", 
           Cell[
            BoxData[
             StyleBox[
              TemplateBox[{
                StyleBox[
                "\"[Right-click]\"", FontFamily -> "Source Sans Pro", 
                 FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], 
                 FontSize -> 14, StripOnInput -> False], 
                StyleBox[
                "\" \[FilledRightTriangle] \"", FontFamily -> 
                 "Source Sans Pro", FontSize -> 13.86, FontColor -> 
                 GrayLevel[0.5], StripOnInput -> False], 
                StyleBox[
                "\"Insert Page Break\"", FontFamily -> "Source Sans Pro", 
                 FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], 
                 FontSize -> 14, StripOnInput -> False]}, "RowDefault"], 
              ShowStringCharacters -> False]]], 
           " between cells or through the menu using ", 
           Cell[
            BoxData[
             StyleBox[
              TemplateBox[{
                StyleBox[
                "\"Insert\"", FontFamily -> "Source Sans Pro", FontWeight -> 
                 "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14,
                  StripOnInput -> False], 
                StyleBox[
                "\" \[FilledRightTriangle] \"", FontFamily -> 
                 "Source Sans Pro", FontSize -> 13.86, FontColor -> 
                 GrayLevel[0.5], StripOnInput -> False], 
                StyleBox[
                "\"Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> 
                 "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14,
                  StripOnInput -> False]}, "RowDefault"], 
              ShowStringCharacters -> False]]], 
           ").\n\nExamples should be grouped into Subsection and \
Subsubsection cells similarly to existing documentation pages. Here are some \
typical Subsection names and the types of examples they normally contain:\n  \
", 
           Cell[
            BoxData[
             StyleBox[
              TemplateBox[{
                StyleBox[
                "\"\[FilledSmallSquare] \"", FontColor -> 
                 RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], 
                StyleBox[
                "\"Basic Examples: \"", FontFamily -> "Source Sans Pro", 
                 FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> 
                 False]}, "RowDefault"], ShowStringCharacters -> False]]], 
           "most basic function usage\n  ", 
           Cell[
            BoxData[
             StyleBox[
              TemplateBox[{
                StyleBox[
                "\"\[FilledSmallSquare] \"", FontColor -> 
                 RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], 
                StyleBox[
                "\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight -> 
                 "SemiBold", FontSize -> 14, StripOnInput -> False]}, 
               "RowDefault"], ShowStringCharacters -> False]]], 
           "input and display conventions, standard computational attributes \
(e.g. threading over lists)\n  ", 
           Cell[
            BoxData[
             StyleBox[
              TemplateBox[{
                StyleBox[
                "\"\[FilledSmallSquare] \"", FontColor -> 
                 RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], 
                StyleBox[
                "\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight -> 
                 "SemiBold", FontSize -> 14, StripOnInput -> False]}, 
               "RowDefault"], ShowStringCharacters -> False]]], 
           "available options and parameters for the function\n  ", 
           Cell[
            BoxData[
             StyleBox[
              TemplateBox[{
                StyleBox[
                "\"\[FilledSmallSquare] \"", FontColor -> 
                 RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], 
                StyleBox[
                "\"Applications: \"", FontFamily -> "Source Sans Pro", 
                 FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> 
                 False]}, "RowDefault"], ShowStringCharacters -> False]]], 
           "standard industry or academic applications\n  ", 
           Cell[
            BoxData[
             StyleBox[
              TemplateBox[{
                StyleBox[
                "\"\[FilledSmallSquare] \"", FontColor -> 
                 RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], 
                StyleBox[
                "\"Properties and Relations: \"", FontFamily -> 
                 "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, 
                 StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> 
              False]]], "how the function relates to other functions\n  ", 
           Cell[
            BoxData[
             StyleBox[
              TemplateBox[{
                StyleBox[
                "\"\[FilledSmallSquare] \"", FontColor -> 
                 RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], 
                StyleBox[
                "\"Possible Issues: \"", FontFamily -> "Source Sans Pro", 
                 FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> 
                 False]}, "RowDefault"], ShowStringCharacters -> False]]], 
           "limitations or unexpected behavior a user might experience\n  ", 
           Cell[
            BoxData[
             StyleBox[
              TemplateBox[{
                StyleBox[
                "\"\[FilledSmallSquare] \"", FontColor -> 
                 RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], 
                StyleBox[
                "\"Neat Examples: \"", FontFamily -> "Source Sans Pro", 
                 FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> 
                 False]}, "RowDefault"], ShowStringCharacters -> False]]], 
           "particularly interesting, unconventional, or otherwise unique \
usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, 
        FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", 
      Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, 
      CellMargins -> {{66, 66}, {15, 15}}]},
    "MoreInfoOpenerButtonTemplate"]}, Dynamic[
    CurrentValue[
     EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
   ImageSize->Automatic]],ExpressionUUID->
  "dc79c693-04d5-49c4-8a13-19235cba5ad3"]
}], "Section",
 Editable->False,
 Deletable->False,
 CellTags->{"Examples", "TemplateCellGroup"},
 CellID->677271657,ExpressionUUID->"d0f75db1-ea62-48c7-aef6-23ea0a0fae70"],

Cell[CellGroupData[{

Cell["Basic Examples", "Subsection",
 TaggingRules->{},
 CellID->904125756,ExpressionUUID->"a9526977-922f-40ac-955b-3f24274f51f0"],

Cell["\<\
Discover the flights currently overhead the current location:\
\>", "Text",
 TaggingRules->{},
 CellChangeTimes->{{3.812288845139318*^9, 3.812288856143364*^9}, {
  3.8203380780681324`*^9, 3.8203380836241026`*^9}},
 CellID->139905035,ExpressionUUID->"51304c0b-52ba-4ced-9394-8515b7837ba5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FlightsOverhead", "[", 
  RowBox[{"Here", ",", "\"\<Flights\>\""}], "]"}]], "Input",
 TaggingRules->{},
 CellChangeTimes->{3.812288842653101*^9},
 CellID->469096015,ExpressionUUID->"05b08a2d-23bd-4173-b45e-58eccff70c51"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{"\"NetJets flight 319\"", 
     RowBox[{"Entity", "[", 
       RowBox[{"\"FlightNumber\"", ",", "\"202101080000089378\""}], "]"}], 
     "\"Entity[\\\"FlightNumber\\\", \\\"202101080000089378\\\"]\"", 
     "\"flight\""},
    "Entity"], ",", 
   TemplateBox[{"\"American Airlines flight 2274\"", 
     RowBox[{"Entity", "[", 
       RowBox[{"\"FlightNumber\"", ",", "\"202101080000119606\""}], "]"}], 
     "\"Entity[\\\"FlightNumber\\\", \\\"202101080000119606\\\"]\"", 
     "\"flight\""},
    "Entity"], ",", 
   TemplateBox[{"\"JetBlue Airways flight 723\"", 
     RowBox[{"Entity", "[", 
       RowBox[{"\"FlightNumber\"", ",", "\"202101080000092816\""}], "]"}], 
     "\"Entity[\\\"FlightNumber\\\", \\\"202101080000092816\\\"]\"", 
     "\"flight\""},
    "Entity"], ",", 
   TemplateBox[{"\"202101080000110713\"", 
     RowBox[{"Entity", "[", 
       RowBox[{"\"FlightNumber\"", ",", "\"202101080000110713\""}], "]"}], 
     "\"Entity[\\\"FlightNumber\\\", \\\"202101080000110713\\\"]\"", 
     "\"flight\""},
    "Entity"], ",", 
   TemplateBox[{"\"Delta Air Lines flight 324\"", 
     RowBox[{"Entity", "[", 
       RowBox[{"\"FlightNumber\"", ",", "\"202101080000098710\""}], "]"}], 
     "\"Entity[\\\"FlightNumber\\\", \\\"202101080000098710\\\"]\"", 
     "\"flight\""},
    "Entity"], ",", 
   TemplateBox[{"\"GoJet Airlines flight 4603\"", 
     RowBox[{"Entity", "[", 
       RowBox[{"\"FlightNumber\"", ",", "\"202101080000108680\""}], "]"}], 
     "\"Entity[\\\"FlightNumber\\\", \\\"202101080000108680\\\"]\"", 
     "\"flight\""},
    "Entity"], ",", 
   TemplateBox[{"\"Frontier Airlines flight 2038\"", 
     RowBox[{"Entity", "[", 
       RowBox[{"\"FlightNumber\"", ",", "\"202101080000100854\""}], "]"}], 
     "\"Entity[\\\"FlightNumber\\\", \\\"202101080000100854\\\"]\"", 
     "\"flight\""},
    "Entity"], ",", 
   TemplateBox[{"\"Frontier Airlines flight 647\"", 
     RowBox[{"Entity", "[", 
       RowBox[{"\"FlightNumber\"", ",", "\"202101080000136189\""}], "]"}], 
     "\"Entity[\\\"FlightNumber\\\", \\\"202101080000136189\\\"]\"", 
     "\"flight\""},
    "Entity"], ",", 
   TemplateBox[{"\"Bombardier Aerospace flight 552\"", 
     RowBox[{"Entity", "[", 
       RowBox[{"\"FlightNumber\"", ",", "\"202101080000078344\""}], "]"}], 
     "\"Entity[\\\"FlightNumber\\\", \\\"202101080000078344\\\"]\"", 
     "\"flight\""},
    "Entity"]}], "}"}]], "Output",
 TaggingRules->{},
 CellChangeTimes->{3.812289771352116*^9, 3.819118657911673*^9},
 CellID->474714960,ExpressionUUID->"388febfb-36f7-4b7f-94f4-d9bd9c4112b7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "21f81879-c95b-4093-9435-9956be8aa279"],
  $Line = 0; Null]], "ExampleDelimiter",
 TaggingRules->{},
 CellID->14107562,ExpressionUUID->"0abf45d1-379c-40a7-886d-ed8f052fcdf7"],

Cell["\<\
Obtain a sky map showing the current positions and paths of flights overhead:\
\
\>", "Text",
 TaggingRules->{},
 CellChangeTimes->{{3.812288879218226*^9, 3.812288895694291*^9}},
 CellID->372405303,ExpressionUUID->"7eab8402-c87d-4d08-8262-78280429b540"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FlightsOverhead", "[", 
  RowBox[{"Here", ",", "\"\<SkyMap\>\""}], "]"}]], "Input",
 TaggingRules->{},
 CellChangeTimes->{{3.812288901029838*^9, 3.8122889029312696`*^9}},
 CellID->944237020,ExpressionUUID->"48d5163e-b9e1-4f41-a01a-e9615b746476"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{
     RGBColor[0.6, 0.4, 0.2], 
     Thickness[0.003], {
      LineBox[{{-0.7649170135898475, -0.2220867059664069}, \
{-0.8313461998104216, -0.11225413008311781`}, {-0.884514482087752, 
       0.00790643525167633}, {-0.9222251856409422, 
       0.13776919720003766`}, {-0.9419380627369955, 
       0.2763755156325892}, {-0.9414455578564849, 0.3371650361355579}}], 
      LineBox[{{0.9464071630357241, -0.32297597705506254`}, {
       0.8838684385602327, -0.39672805127551675`}, {
       0.7796434618003745, -0.4881864341435612}, {
       0.6674972414212306, -0.5618038782953734}, {
       0.5498802028472916, -0.6184329916249556}, {
       0.42879564826890804`, -0.6589497394860495}, {
       0.3059024818285322, -0.684189951230003}, {
       0.1826022578959954, -0.6949157667182003}, {
       0.06011144363365737, -0.6918006157783846}, {-0.06047862027905991, \
-0.6754254324869211}, {-0.17815116822386962`, -0.6462816743355391}, \
{-0.29192007697270833`, -0.6047786755427951}, {-0.4007900396018787, \
-0.5512542275568062}, {-0.5037186430182369, -0.4859883006664174}, \
{-0.5995784463488825, -0.4092206958168065}, {-0.6871174790083004, \
-0.32117430539764713`}, {-0.7649170135898475, -0.2220867059664069}}]}, {
      InsetBox[
       FormBox[
        StyleBox["\"Sun\"", 
         GrayLevel[0.5], StripOnInput -> False], TraditionalForm], {
       0.04144205046341833, -0.5640235294185127}], 
      RGBColor[1., 0.8305, 0.2606], {
       EdgeForm[{
         RGBColor[0.91855, 0.4613, 0.0019], 
         Thickness[0.002]}], 
       DiskBox[{0.050772122039337585`, -0.6910051782783471}, 0.05]}}, {
      InsetBox[
       FormBox[
        StyleBox["\"Moon\"", 
         GrayLevel[0.5], StripOnInput -> False], TraditionalForm], {
       0.7124820974452953, -0.3650691970953205}], {
       GrayLevel[0.75], 
       DiskBox[{0.8257969450074539, -0.42313067059314696`}, 0.05], {
        GrayLevel[0.9], 
        PolygonBox[CompressedData["
1:eJwBYQGe/iFib1JlAgAAABUAAAACAAAA5NGan8OF6T/zpw2gTXDYv98ssNe2
U+k/SaxeEfTA2L+hKD+3lijpPwYXIgpFINm/VNt8FnMF6T+dkB6154vZvw9z
+nUp6+g/4KKPlTUB2r8gBmSKX9roP4csCjxLfdq/Aur2J3/T6D9MOpF7Gv3a
v97hZ6ez1ug/ONIVrH1927+GQqbU6OPoP0Py+YBL+9u/cms2bsv66D/kAYr2
anPcv67MADLLGuk/yTbP2Obi3L/aTqlqHkPpP9OApGgAR92/OAQL58Zy6T9P
iYapQJ3dvwRBiTyYqOk/6CML64fj3b8mysEsP+PpP3T0DywbGN6/+A7//0kh
6j9RzjwDrznev92Vwp8xYeo/jQYXyG9H3r/S4QQ4Y6HqP9YWNckGQd6/1/F2
Ikrg6j+EVbhunCbev6f5Pt1ZHOs/rQOYO9f43b8alGHOF1TrPzNBA7TXuN2/
xRy2YA==
         "]], 
        GrayLevel[0.75], 
        PolygonBox[CompressedData["
1:eJwBYQGe/iFib1JlAgAAABUAAAACAAAAkpIBBbC+6T9Nkw6lzwLcv5Jyrjam
Duo/5Vj1NSHI3L+ICWv11mfqPz91ciHQYt2/mg4BOofB6j8oS6svuMPdv0nO
n4HvEus/DCj7/Vzh3b8alGHOF1TrPzNBA7TXuN2/62CUV59+6z+X/6u6H07d
vzJ6w11cjus/qwHtVqer3L+aPFx9xIHrPw4uHeNV4du/HrWySRNa6z9MJ6hG
+QLbv2zT+mgrG+s/2FUCr1Um2r9s8003NcvqP0CQGx4EYdm/dlyReARy6j/m
c54yVcbYv2RX+zNUGOo//p1lJG1l2L+1l1zs68bpPxnBFVbIR9i/5NGan8OF
6T/zpw2gTXDYvxMFaBY8W+k/julkmQXb2L/M6zgQf0vpP3vnI/19fdm/ZCmg
8BZY6T8Xu/Nwz0fav+CwSSTIf+k/2cFoDSwm27+SkgEFsL7pP02TDqXPAty/
S/OxDw==
         "]]}, 
       GrayLevel[0.6], 
       CircleBox[{0.8257969450074539, -0.42313067059314696`}, 0.05]}}, 
     GrayLevel[0], {
      RGBColor[0.84, 0.84, 0.84], 
      Thickness[0.008], 
      CircleBox[{0, 0}, 1]}, {
      PointSize[Large], 
      Arrowheads[{{0.05, 1, 
         GraphicsBox[{
           Opacity[1], 
           InsetBox[
            FormBox[
             StyleBox[
             "\"\:2708\"", FontSize -> 22, FontColor -> RGBColor[1, 0, 0], 
              StripOnInput -> False], TraditionalForm], {0, 0}]}]}}], 
      Opacity[0.5], 
      Thickness[Large], 
      Opacity[1], 
      GrayLevel[0.7], 
      LineBox[{{-0.9830317568688342, 
       0.008315865756721968}, {-0.983984859395465, 0.00989362677023096}}], 
      GrayLevel[0.715], 
      LineBox[{{-0.983984859395465, 
       0.00989362677023096}, {-0.9847223549130688, 0.011234251541582847`}}], 
      GrayLevel[0.73], 
      LineBox[{{-0.9847223549130688, 
       0.011234251541582847`}, {-0.9853202281995488, 0.01241938111648631}}], 
      GrayLevel[0.745], 
      LineBox[{{-0.9853202281995488, 
       0.01241938111648631}, {-0.9861290510103979, 0.013815374426615736`}}], 
      GrayLevel[0.76], 
      LineBox[{{-0.9861290510103979, 
       0.013815374426615736`}, {-0.986952809527829, 0.015033516863510019`}}], 
      
      GrayLevel[0.7749999999999999], 
      LineBox[{{-0.986952809527829, 
       0.015033516863510019`}, {-0.9877266018515858, 0.01627317690104443}}], 
      GrayLevel[0.7899999999999999], 
      LineBox[{{-0.9877266018515858, 
       0.01627317690104443}, {-0.988432269593878, 0.01748241424169457}}], 
      GrayLevel[0.8049999999999999], 
      LineBox[{{-0.988432269593878, 
       0.01748241424169457}, {-0.9891206495153086, 0.018495892587466343`}}], 
      GrayLevel[0.82], 
      LineBox[{{-0.9891206495153086, 
       0.018495892587466343`}, {-0.989702433157535, 0.01963594441067357}}], 
      GrayLevel[0.835], 
      LineBox[{{-0.989702433157535, 
       0.01963594441067357}, {-0.9904244471807903, 0.020685077964999545`}}], 
      GrayLevel[0.85], 
      LineBox[{{-0.9904244471807903, 
       0.020685077964999545`}, {-0.9910565503457667, 0.021577990028820045`}}], 
      GrayLevel[0.865], 
      LineBox[{{-0.9910565503457667, 
       0.021577990028820045`}, {-0.9916612155561282, 0.022438013398498224`}}], 
      GrayLevel[0.88], 
      LineBox[{{-0.9916612155561282, 
       0.022438013398498224`}, {-0.9923254967763998, 0.023422489518247352`}}], 
      GrayLevel[0.895], 
      LineBox[{{-0.9923254967763998, 
       0.023422489518247352`}, {-0.9930701004172584, 0.024579129364910864`}}], 
      GrayLevel[0.9099999999999999], 
      LineBox[{{-0.9930701004172584, 
       0.024579129364910864`}, {-0.9935620393800616, 0.025466227656114178`}}], 
      GrayLevel[0.925], 
      LineBox[{{-0.9935620393800616, 
       0.025466227656114178`}, {-0.9942216405488137, 0.02629321848716648}}], 
      GrayLevel[0.94], 
      LineBox[{{-0.9942216405488137, 
       0.02629321848716648}, {-0.9947734809204316, 0.02711374527607375}}], 
      GrayLevel[0.955], 
      LineBox[{{-0.9947734809204316, 
       0.02711374527607375}, {-0.9952614697545891, 0.027928781905533294`}}], 
      GrayLevel[0.97], 
      LineBox[{{-0.9952614697545891, 
       0.027928781905533294`}, {-0.9959080731433225, 0.028685458855279858`}}], 
      GrayLevel[0.985], 
      LineBox[{{-0.9959080731433225, 
       0.028685458855279858`}, {-0.996346387875531, 0.029486436878177737`}}], 
      
      Opacity[0], 
      TagBox[
       TooltipBox[{
         ArrowBox[{{-0.983984859395465, 
          0.00989362677023096}, {-0.9830317568688342, 
          0.008315865756721968}}]}, 
        TemplateBox[{"\"NetJets flight 319\"", 
          RowBox[{"Entity", "[", 
            RowBox[{"\"FlightNumber\"", ",", "\"202101080000089378\""}], 
            "]"}], "\"Entity[\\\"FlightNumber\\\", \
\\\"202101080000089378\\\"]\"", "\"flight\""}, "Entity"]], Annotation[#, 
        Entity["FlightNumber", "202101080000089378"], "Tooltip"]& ], 
      Opacity[0.5], 
      Thickness[Large], 
      Opacity[1], 
      GrayLevel[0.7], 
      LineBox[{{-0.9615116997722074, 
       0.18374794904197025`}, {-0.9638439347151142, 0.17714124572697051`}}], 
      GrayLevel[0.715], 
      LineBox[{{-0.9638439347151142, 
       0.17714124572697051`}, {-0.9661042177069071, 0.1706384557212983}}], 
      GrayLevel[0.73], 
      LineBox[{{-0.9661042177069071, 
       0.1706384557212983}, {-0.9682072381376178, 0.1645093354212026}}], 
      GrayLevel[0.745], 
      LineBox[{{-0.9682072381376178, 
       0.1645093354212026}, {-0.9700979602584999, 0.15893203200161526`}}], 
      GrayLevel[0.76], 
      LineBox[{{-0.9700979602584999, 
       0.15893203200161526`}, {-0.9718849805829212, 0.15360803169519346`}}], 
      GrayLevel[0.7749999999999999], 
      LineBox[{{-0.9718849805829212, 
       0.15360803169519346`}, {-0.9737442100105433, 0.1479305861545992}}], 
      GrayLevel[0.7899999999999999], 
      LineBox[{{-0.9737442100105433, 
       0.1479305861545992}, {-0.9752769906965314, 0.14322990921089288`}}], 
      GrayLevel[0.8049999999999999], 
      LineBox[{{-0.9752769906965314, 
       0.14322990921089288`}, {-0.9769114298300943, 0.13814556086458454`}}], 
      GrayLevel[0.82], 
      LineBox[{{-0.9769114298300943, 
       0.13814556086458454`}, {-0.978617514206516, 0.13280511456401287`}}], 
      GrayLevel[0.835], 
      LineBox[{{-0.978617514206516, 
       0.13280511456401287`}, {-0.9802221531037009, 0.12775284372947546`}}], 
      GrayLevel[0.85], 
      LineBox[{{-0.9802221531037009, 
       0.12775284372947546`}, {-0.9811050063098972, 0.12496964581534267`}}], 
      GrayLevel[0.865], 
      LineBox[{{-0.9811050063098972, 
       0.12496964581534267`}, {-0.9824256468771142, 0.12083981197666609`}}], 
      GrayLevel[0.88], 
      LineBox[{{-0.9824256468771142, 
       0.12083981197666609`}, {-0.9836714113560511, 0.11691003720098732`}}], 
      GrayLevel[0.895], 
      LineBox[{{-0.9836714113560511, 
       0.11691003720098732`}, {-0.9848444960556625, 0.11317119238298395`}}], 
      GrayLevel[0.9099999999999999], 
      LineBox[{{-0.9848444960556625, 
       0.11317119238298395`}, {-0.9860199815468015, 0.10941398272121997`}}], 
      GrayLevel[0.925], 
      LineBox[{{-0.9860199815468015, 
       0.10941398272121997`}, {-0.9873551791805794, 0.10497018999894356`}}], 
      GrayLevel[0.94], 
      LineBox[{{-0.9873551791805794, 
       0.10497018999894356`}, {-0.9882041248841731, 0.10207129028524328`}}], 
      GrayLevel[0.955], 
      LineBox[{{-0.9882041248841731, 
       0.10207129028524328`}, {-0.9895073299417543, 0.0978127603099891}}], 
      GrayLevel[0.97], 
      LineBox[{{-0.9895073299417543, 
       0.0978127603099891}, {-0.9902763181785553, 0.09529551919905595}}], 
      GrayLevel[0.985], 
      LineBox[{{-0.9902763181785553, 
       0.09529551919905595}, {-0.9910518172734454, 0.09276046989746675}}], 
      Opacity[0], 
      TagBox[
       TooltipBox[{
         ArrowBox[{{-0.9638439347151142, 
          0.17714124572697051`}, {-0.9615116997722074, 
          0.18374794904197025`}}]}, 
        TemplateBox[{"\"JetBlue Airways flight 723\"", 
          RowBox[{"Entity", "[", 
            RowBox[{"\"FlightNumber\"", ",", "\"202101080000092816\""}], 
            "]"}], "\"Entity[\\\"FlightNumber\\\", \
\\\"202101080000092816\\\"]\"", "\"flight\""}, "Entity"]], Annotation[#, 
        Entity["FlightNumber", "202101080000092816"], "Tooltip"]& ], 
      Opacity[0.5], 
      Thickness[Large], 
      Opacity[1], 
      GrayLevel[0.7], 
      LineBox[{{0.7918149508978292, -0.5647730102512205}, {
       0.7940728497877152, -0.5641969755624017}}], 
      GrayLevel[0.715], 
      LineBox[{{0.7940728497877152, -0.5641969755624017}, {
       0.7959079930887957, -0.5638349562906609}}], 
      GrayLevel[0.73], 
      LineBox[{{0.7959079930887957, -0.5638349562906609}, {
       0.7971076996015283, -0.5637734072965243}}], 
      GrayLevel[0.745], 
      LineBox[{{0.7971076996015283, -0.5637734072965243}, {
       0.799047197137471, -0.5631953448008814}}], 
      GrayLevel[0.76], 
      LineBox[{{0.799047197137471, -0.5631953448008814}, {
       0.8006392111560083, -0.5631921805566369}}], 
      GrayLevel[0.7749999999999999], 
      LineBox[{{0.8006392111560083, -0.5631921805566369}, {
       0.8017834778087035, -0.5631302949016659}}], 
      GrayLevel[0.7899999999999999], 
      LineBox[{{0.8017834778087035, -0.5631302949016659}, {
       0.8026322057728958, -0.5634862614408301}}], 
      GrayLevel[0.8049999999999999], 
      LineBox[{{0.8026322057728958, -0.5634862614408301}, {
       0.8026405336092112, -0.5651263937666904}}], 
      GrayLevel[0.82], 
      LineBox[{{0.8026405336092112, -0.5651263937666904}, {
       0.8026652474977687, -0.5666892614345949}}], 
      GrayLevel[0.835], 
      LineBox[{{0.8026652474977687, -0.5666892614345949}, {
       0.8022214392831597, -0.5686579347188089}}], 
      GrayLevel[0.85], 
      LineBox[{{0.8022214392831597, -0.5686579347188089}, {
       0.8022681712876194, -0.5703942433944418}}], 
      GrayLevel[0.865], 
      LineBox[{{0.8022681712876194, -0.5703942433944418}, {
       0.8020592774204274, -0.571878138756919}}], 
      GrayLevel[0.88], 
      LineBox[{{0.8020592774204274, -0.571878138756919}, {
       0.8019466736110511, -0.5735738636263017}}], 
      GrayLevel[0.895], 
      LineBox[{{0.8019466736110511, -0.5735738636263017}, {
       0.8019074409748368, -0.5752318569107009}}], 
      GrayLevel[0.9099999999999999], 
      LineBox[{{0.8019074409748368, -0.5752318569107009}, {
       0.8017855870401899, -0.5767610000004699}}], 
      GrayLevel[0.925], 
      LineBox[{{0.8017855870401899, -0.5767610000004699}, {
       0.8016744674949545, -0.5782223482348766}}], 
      GrayLevel[0.94], 
      LineBox[{{0.8016744674949545, -0.5782223482348766}, {
       0.8015706697268888, -0.5796308986441461}}], 
      GrayLevel[0.955], 
      LineBox[{{0.8015706697268888, -0.5796308986441461}, {
       0.8014725465955016, -0.5809907870580399}}], 
      GrayLevel[0.97], 
      LineBox[{{0.8014725465955016, -0.5809907870580399}, {
       0.8013884686228624, -0.5823023659662703}}], 
      GrayLevel[0.985], 
      LineBox[{{0.8013884686228624, -0.5823023659662703}, {
       0.8012416220170774, -0.5836712791125508}}], 
      Opacity[0], 
      TagBox[
       TooltipBox[{
         ArrowBox[{{0.7940728497877152, -0.5641969755624017}, {
          0.7918149508978292, -0.5647730102512205}}]}, 
        TemplateBox[{"\"202101080000110713\"", 
          RowBox[{"Entity", "[", 
            RowBox[{"\"FlightNumber\"", ",", "\"202101080000110713\""}], 
            "]"}], "\"Entity[\\\"FlightNumber\\\", \
\\\"202101080000110713\\\"]\"", "\"flight\""}, "Entity"]], Annotation[#, 
        Entity["FlightNumber", "202101080000110713"], "Tooltip"]& ], 
      Opacity[0.5], 
      Thickness[Large], 
      Opacity[1], 
      GrayLevel[0.7], 
      LineBox[{{-0.6528640572418262, -0.6524013609730759}, \
{-0.6647381455387322, -0.6476378750988433}}], 
      GrayLevel[0.715], 
      LineBox[{{-0.6647381455387322, -0.6476378750988433}, \
{-0.6756578818249679, -0.6429402706750914}}], 
      GrayLevel[0.73], 
      LineBox[{{-0.6756578818249679, -0.6429402706750914}, \
{-0.684308141301959, -0.6390535063728646}}], 
      GrayLevel[0.745], 
      LineBox[{{-0.684308141301959, -0.6390535063728646}, \
{-0.6912964894062034, -0.6358644172824734}}], 
      GrayLevel[0.76], 
      LineBox[{{-0.6912964894062034, -0.6358644172824734}, \
{-0.7008139109392733, -0.6316645090458064}}], 
      GrayLevel[0.7749999999999999], 
      LineBox[{{-0.7008139109392733, -0.6316645090458064}, \
{-0.7089327161891389, -0.6279888138623487}}], 
      GrayLevel[0.7899999999999999], 
      LineBox[{{-0.7089327161891389, -0.6279888138623487}, \
{-0.7132614999115227, -0.6262746083557972}}], 
      GrayLevel[0.8049999999999999], 
      LineBox[{{-0.7132614999115227, -0.6262746083557972}, \
{-0.7203446954704582, -0.6228962630187851}}], 
      GrayLevel[0.82], 
      LineBox[{{-0.7203446954704582, -0.6228962630187851}, \
{-0.7257868146886943, -0.620263361152084}}], 
      GrayLevel[0.835], 
      LineBox[{{-0.7257868146886943, -0.620263361152084}, \
{-0.7300187679871776, -0.6183134348390359}}], 
      GrayLevel[0.85], 
      LineBox[{{-0.7300187679871776, -0.6183134348390359}, \
{-0.7362895634427274, -0.6152953400044845}}], 
      GrayLevel[0.865], 
      LineBox[{{-0.7362895634427274, -0.6152953400044845}, \
{-0.7387683499679356, -0.614235006281102}}], 
      GrayLevel[0.88], 
      LineBox[{{-0.7387683499679356, -0.614235006281102}, \
{-0.7439396457089057, -0.6116979940079351}}], 
      GrayLevel[0.895], 
      LineBox[{{-0.7439396457089057, -0.6116979940079351}, \
{-0.7476786951376986, -0.6098424918175268}}], 
      GrayLevel[0.9099999999999999], 
      LineBox[{{-0.7476786951376986, -0.6098424918175268}, \
{-0.7508580373841804, -0.6082809331257856}}], 
      GrayLevel[0.925], 
      LineBox[{{-0.7508580373841804, -0.6082809331257856}, \
{-0.7551705873311424, -0.6057627070000906}}], 
      GrayLevel[0.94], 
      LineBox[{{-0.7551705873311424, -0.6057627070000906}, \
{-0.7569098516727025, -0.6056880420476919}}], 
      GrayLevel[0.955], 
      LineBox[{{-0.7569098516727025, -0.6056880420476919}, \
{-0.7584666350463798, -0.6063682683871172}}], 
      GrayLevel[0.97], 
      LineBox[{{-0.7584666350463798, -0.6063682683871172}, \
{-0.7595666446935205, -0.6070001214555931}}], 
      GrayLevel[0.985], 
      LineBox[{{-0.7595666446935205, -0.6070001214555931}, \
{-0.7605274814062944, -0.6079381267065838}}], 
      Opacity[0], 
      TagBox[
       TooltipBox[{
         ArrowBox[{{-0.6647381455387322, -0.6476378750988433}, \
{-0.6528640572418262, -0.6524013609730759}}]}, 
        TemplateBox[{"\"American Airlines flight 2274\"", 
          RowBox[{"Entity", "[", 
            RowBox[{"\"FlightNumber\"", ",", "\"202101080000119606\""}], 
            "]"}], "\"Entity[\\\"FlightNumber\\\", \
\\\"202101080000119606\\\"]\"", "\"flight\""}, "Entity"]], Annotation[#, 
        Entity["FlightNumber", "202101080000119606"], "Tooltip"]& ], 
      Opacity[0.5], 
      Thickness[Large], 
      Opacity[1], 
      GrayLevel[0.7], 
      LineBox[{{0.9934403993354802, -0.07826841149362669}, {
       0.9939349179620092, -0.08079473807811827}}], 
      GrayLevel[0.715], 
      LineBox[{{0.9939349179620092, -0.08079473807811827}, {
       0.9943410079519426, -0.082473376325894}}], 
      GrayLevel[0.73], 
      LineBox[{{0.9943410079519426, -0.082473376325894}, {
       0.9948034922882618, -0.08479064818473923}}], 
      GrayLevel[0.745], 
      LineBox[{{0.9948034922882618, -0.08479064818473923}, {
       0.9952374293911685, -0.08696489363598285}}], 
      GrayLevel[0.76], 
      LineBox[{{0.9952374293911685, -0.08696489363598285}, {
       0.9955978156001776, -0.08861994678391848}}], 
      GrayLevel[0.7749999999999999], {
       LineBox[{{0.9955978156001776, -0.08861994678391848}, {
        0.99593355318411, -0.09009082995551547}}]}, 
      GrayLevel[0.7899999999999999], {}, 
      GrayLevel[0.8049999999999999], {}, 
      GrayLevel[0.82], {}, 
      GrayLevel[0.835], {}, 
      GrayLevel[0.85], {}, 
      GrayLevel[0.865], {}, 
      GrayLevel[0.88], {}, 
      GrayLevel[0.895], {}, 
      GrayLevel[0.9099999999999999], {}, 
      GrayLevel[0.925], {}, 
      GrayLevel[0.94], {}, 
      GrayLevel[0.955], {}, 
      GrayLevel[0.97], {}, 
      GrayLevel[0.985], {}, 
      Opacity[0], 
      TagBox[
       TooltipBox[{
         ArrowBox[{{0.9939349179620092, -0.08079473807811827}, {
          0.9934403993354802, -0.07826841149362669}}]}, 
        TemplateBox[{"\"Delta Air Lines flight 324\"", 
          RowBox[{"Entity", "[", 
            RowBox[{"\"FlightNumber\"", ",", "\"202101080000098710\""}], 
            "]"}], "\"Entity[\\\"FlightNumber\\\", \
\\\"202101080000098710\\\"]\"", "\"flight\""}, "Entity"]], Annotation[#, 
        Entity["FlightNumber", "202101080000098710"], "Tooltip"]& ], 
      Opacity[0.5], 
      Thickness[Large], 
      Opacity[1], 
      GrayLevel[0.7], 
      LineBox[{{0.8042742936079625, -0.5705224894101907}, {
       0.797830062747297, -0.5804435119071173}}], 
      GrayLevel[0.715], 
      LineBox[{{0.797830062747297, -0.5804435119071173}, {
       0.791529184469902, -0.5899038548235992}}], 
      GrayLevel[0.73], 
      LineBox[{{0.791529184469902, -0.5899038548235992}, {
       0.7853542817452553, -0.5988197707173081}}], 
      GrayLevel[0.745], 
      LineBox[{{0.7853542817452553, -0.5988197707173081}, {
       0.7792889320984576, -0.6073981141900419}}], 
      GrayLevel[0.76], 
      LineBox[{{0.7792889320984576, -0.6073981141900419}, {
       0.7726010169924988, -0.6167682178687094}}], 
      GrayLevel[0.7749999999999999], 
      LineBox[{{0.7726010169924988, -0.6167682178687094}, {
       0.7656898749133269, -0.6262805075803637}}], 
      GrayLevel[0.7899999999999999], 
      LineBox[{{0.7656898749133269, -0.6262805075803637}, {
       0.7589305743833542, -0.6353772626749377}}], 
      GrayLevel[0.8049999999999999], 
      LineBox[{{0.7589305743833542, -0.6353772626749377}, {
       0.7523765453626663, -0.6440041426450078}}], 
      GrayLevel[0.82], 
      LineBox[{{0.7523765453626663, -0.6440041426450078}, {
       0.745943629518335, -0.6523039242371106}}], 
      GrayLevel[0.835], 
      LineBox[{{0.745943629518335, -0.6523039242371106}, {
       0.738849485672983, -0.6611458547107207}}], 
      GrayLevel[0.85], 
      LineBox[{{0.738849485672983, -0.6611458547107207}, {
       0.731681502585262, -0.6698651108987207}}], 
      GrayLevel[0.865], 
      LineBox[{{0.731681502585262, -0.6698651108987207}, {
       0.7235887059635566, -0.6792740967574551}}], 
      GrayLevel[0.88], 
      LineBox[{{0.7235887059635566, -0.6792740967574551}, {
       0.713694377868464, -0.6901494335846058}}], 
      GrayLevel[0.895], 
      LineBox[{{0.713694377868464, -0.6901494335846058}, {
       0.7038400650009639, -0.7006825106948591}}], 
      GrayLevel[0.9099999999999999], 
      LineBox[{{0.7038400650009639, -0.7006825106948591}, {
       0.6918917185804266, -0.7130194084571085}}], 
      GrayLevel[0.925], 
      LineBox[{{0.6918917185804266, -0.7130194084571085}, {
       0.6798201493856824, -0.7250785002547308}}], 
      GrayLevel[0.94], 
      LineBox[{{0.6798201493856824, -0.7250785002547308}, {
       0.6686947001914234, -0.7358533185107179}}], 
      GrayLevel[0.955], 
      LineBox[{{0.6686947001914234, -0.7358533185107179}, {
       0.6585814017480958, -0.745378177921703}}], 
      GrayLevel[0.97], 
      LineBox[{{0.6585814017480958, -0.745378177921703}, {
       0.6485593881090526, -0.7545726664851482}}], 
      GrayLevel[0.985], 
      LineBox[{{0.6485593881090526, -0.7545726664851482}, {
       0.6390668443783559, -0.7630634411142413}}], 
      Opacity[0], 
      TagBox[
       TooltipBox[{
         ArrowBox[{{0.797830062747297, -0.5804435119071173}, {
          0.8042742936079625, -0.5705224894101907}}]}, 
        TemplateBox[{"\"GoJet Airlines flight 4603\"", 
          RowBox[{"Entity", "[", 
            RowBox[{"\"FlightNumber\"", ",", "\"202101080000108680\""}], 
            "]"}], "\"Entity[\\\"FlightNumber\\\", \
\\\"202101080000108680\\\"]\"", "\"flight\""}, "Entity"]], Annotation[#, 
        Entity["FlightNumber", "202101080000108680"], "Tooltip"]& ], 
      Opacity[0.5], 
      Thickness[Large], 
      Opacity[1], 
      GrayLevel[0.7], 
      LineBox[{{0.965404534543337, -0.16870874702773117`}, {
       0.9667911214069143, -0.1669310366986546}}], 
      GrayLevel[0.715], 
      LineBox[{{0.9667911214069143, -0.1669310366986546}, {
       0.9683122813206648, -0.16513593724704023`}}], 
      GrayLevel[0.73], 
      LineBox[{{0.9683122813206648, -0.16513593724704023`}, {
       0.9697683187449322, -0.16341506486869903`}}], 
      GrayLevel[0.745], 
      LineBox[{{0.9697683187449322, -0.16341506486869903`}, {
       0.9710267679510874, -0.16195766513297383`}}], 
      GrayLevel[0.76], 
      LineBox[{{0.9710267679510874, -0.16195766513297383`}, {
       0.9721653200616083, -0.16065710513410492`}}], 
      GrayLevel[0.7749999999999999], 
      LineBox[{{0.9721653200616083, -0.16065710513410492`}, {
       0.9732671551327874, -0.1593971006877202}}], 
      GrayLevel[0.7899999999999999], 
      LineBox[{{0.9732671551327874, -0.1593971006877202}, {
       0.9743346948052667, -0.15817510238060126`}}], 
      GrayLevel[0.8049999999999999], 
      LineBox[{{0.9743346948052667, -0.15817510238060126`}, {
       0.9753701523008771, -0.15698876858506536`}}], 
      GrayLevel[0.82], 
      LineBox[{{0.9753701523008771, -0.15698876858506536`}, {
       0.9763749810649156, -0.1558020763183471}}], 
      GrayLevel[0.835], 
      LineBox[{{0.9763749810649156, -0.1558020763183471}, {
       0.9773514749349608, -0.1546375668755422}}], 
      GrayLevel[0.85], 
      LineBox[{{0.9773514749349608, -0.1546375668755422}, {
       0.9782962812032635, -0.1535185958904739}}], 
      GrayLevel[0.865], 
      LineBox[{{0.9782962812032635, -0.1535185958904739}, {
       0.9792056256304049, -0.15245836293659923`}}], 
      GrayLevel[0.88], 
      LineBox[{{0.9792056256304049, -0.15245836293659923`}, {
       0.9800923072798953, -0.15142416034354175`}}], 
      GrayLevel[0.895], 
      LineBox[{{0.9800923072798953, -0.15142416034354175`}, {
       0.9809521124869804, -0.15050461482710484`}}], 
      GrayLevel[0.9099999999999999], 
      LineBox[{{0.9809521124869804, -0.15050461482710484`}, {
       0.9817912649499143, -0.14961744046375458`}}], 
      GrayLevel[0.925], 
      LineBox[{{0.9817912649499143, -0.14961744046375458`}, {
       0.9826084547298997, -0.14875791725782458`}}], 
      GrayLevel[0.94], 
      LineBox[{{0.9826084547298997, -0.14875791725782458`}, {
       0.9834040501057499, -0.1479269607709803}}], 
      GrayLevel[0.955], 
      LineBox[{{0.9834040501057499, -0.1479269607709803}, {
       0.9841830755517202, -0.14711226370154482`}}], 
      GrayLevel[0.97], 
      LineBox[{{0.9841830755517202, -0.14711226370154482`}, {
       0.9849272005071038, -0.14644651313461607`}}], 
      GrayLevel[0.985], 
      LineBox[{{0.9849272005071038, -0.14644651313461607`}, {
       0.9856572245437006, -0.14579117682799436`}}], 
      Opacity[0], 
      TagBox[
       TooltipBox[{
         ArrowBox[{{0.9667911214069143, -0.1669310366986546}, {
          0.965404534543337, -0.16870874702773117`}}]}, 
        TemplateBox[{"\"Frontier Airlines flight 2038\"", 
          RowBox[{"Entity", "[", 
            RowBox[{"\"FlightNumber\"", ",", "\"202101080000100854\""}], 
            "]"}], "\"Entity[\\\"FlightNumber\\\", \
\\\"202101080000100854\\\"]\"", "\"flight\""}, "Entity"]], Annotation[#, 
        Entity["FlightNumber", "202101080000100854"], "Tooltip"]& ], 
      Opacity[0.5], 
      Thickness[Large], 
      Opacity[1], 
      GrayLevel[0.7], {}, 
      GrayLevel[0.715], {}, 
      GrayLevel[0.73], {}, 
      GrayLevel[0.745], {}, 
      GrayLevel[0.76], {}, 
      GrayLevel[0.7749999999999999], {}, 
      GrayLevel[0.7899999999999999], {}, 
      GrayLevel[0.8049999999999999], {}, 
      GrayLevel[0.82], {}, 
      GrayLevel[0.835], {}, 
      GrayLevel[0.85], {}, 
      GrayLevel[0.865], {}, 
      GrayLevel[0.88], {}, 
      GrayLevel[0.895], {}, 
      GrayLevel[0.9099999999999999], {}, 
      GrayLevel[0.925], {}, 
      GrayLevel[0.94], {}, 
      GrayLevel[0.955], {}, 
      GrayLevel[0.97], {}, 
      GrayLevel[0.985], {}, 
      Opacity[0], 
      TagBox[
       TooltipBox[{
         ArrowBox[{{-0.9558451402516102, -0.34272246049396904`}, \
{-0.953915722984922, -0.3458084898298888}}]}, 
        TemplateBox[{"\"Frontier Airlines flight 647\"", 
          RowBox[{"Entity", "[", 
            RowBox[{"\"FlightNumber\"", ",", "\"202101080000136189\""}], 
            "]"}], "\"Entity[\\\"FlightNumber\\\", \
\\\"202101080000136189\\\"]\"", "\"flight\""}, "Entity"]], Annotation[#, 
        Entity["FlightNumber", "202101080000136189"], "Tooltip"]& ], 
      Opacity[0.5], 
      Thickness[Large], 
      Opacity[1], 
      GrayLevel[0.7], 
      LineBox[{{0.9520493052671741, 0.30015244955735804`}, {
       0.9539589407085695, 0.2960538918188427}}], 
      GrayLevel[0.715], 
      LineBox[{{0.9539589407085695, 0.2960538918188427}, {0.9559499405122347, 
       0.29180714405628905`}}], 
      GrayLevel[0.73], 
      LineBox[{{0.9559499405122347, 0.29180714405628905`}, {
       0.9574280146298928, 0.2886315343756861}}], 
      GrayLevel[0.745], {
       LineBox[{{0.9574280146298928, 0.2886315343756861}, {0.9574636439108246,
         0.2885539301222661}}]}, 
      GrayLevel[0.76], {}, 
      GrayLevel[0.7749999999999999], {}, 
      GrayLevel[0.7899999999999999], {}, 
      GrayLevel[0.8049999999999999], {}, 
      GrayLevel[0.82], {}, 
      GrayLevel[0.835], {}, 
      GrayLevel[0.85], {}, 
      GrayLevel[0.865], {}, 
      GrayLevel[0.88], {}, 
      GrayLevel[0.895], {}, 
      GrayLevel[0.9099999999999999], {}, 
      GrayLevel[0.925], {}, 
      GrayLevel[0.94], {}, 
      GrayLevel[0.955], {}, 
      GrayLevel[0.97], {}, 
      GrayLevel[0.985], {}, 
      Opacity[0], 
      TagBox[
       TooltipBox[{
         ArrowBox[{{0.9539589407085695, 0.2960538918188427}, {
          0.9520493052671741, 0.30015244955735804`}}]}, 
        TemplateBox[{"\"Bombardier Aerospace flight 552\"", 
          RowBox[{"Entity", "[", 
            RowBox[{"\"FlightNumber\"", ",", "\"202101080000078344\""}], 
            "]"}], "\"Entity[\\\"FlightNumber\\\", \
\\\"202101080000078344\\\"]\"", "\"flight\""}, "Entity"]], Annotation[#, 
        Entity["FlightNumber", "202101080000078344"], "Tooltip"]& ], 
      Opacity[0.5], 
      Thickness[Large], 
      Opacity[1], 
      GrayLevel[0.7], 
      LineBox[{{0.37091295376190725`, 0.8942612754202101}, {
       0.3769333871706467, 0.893204975026038}}], 
      GrayLevel[0.715], 
      LineBox[{{0.3769333871706467, 0.893204975026038}, {0.3840906026123786, 
       0.892125607434867}}], 
      GrayLevel[0.73], 
      LineBox[{{0.3840906026123786, 0.892125607434867}, {0.3891565036023018, 
       0.8913635158985953}}], 
      GrayLevel[0.745], 
      LineBox[{{0.3891565036023018, 0.8913635158985953}, {0.3950933998063699, 
       0.8904426136542968}}], 
      GrayLevel[0.76], 
      LineBox[{{0.3950933998063699, 0.8904426136542968}, {
       0.40091401503887397`, 0.8895286255634144}}], 
      GrayLevel[0.7749999999999999], 
      LineBox[{{0.40091401503887397`, 0.8895286255634144}, {
       0.4067977532074534, 0.8884412035125167}}], 
      GrayLevel[0.7899999999999999], 
      LineBox[{{0.4067977532074534, 0.8884412035125167}, {
       0.41113707719045517`, 0.8877476792157447}}], 
      GrayLevel[0.8049999999999999], 
      LineBox[{{0.41113707719045517`, 0.8877476792157447}, {0.415281689427243,
        0.8870908277466724}}], 
      GrayLevel[0.82], 
      LineBox[{{0.415281689427243, 0.8870908277466724}, {0.419284118352308, 
       0.8864691998271106}}], 
      GrayLevel[0.835], 
      LineBox[{{0.419284118352308, 0.8864691998271106}, {0.4230705309941937, 
       0.8858852487479405}}], 
      GrayLevel[0.85], 
      LineBox[{{0.4230705309941937, 0.8858852487479405}, {
       0.42751571523502496`, 0.8849720252654923}}], 
      GrayLevel[0.865], 
      LineBox[{{0.42751571523502496`, 0.8849720252654923}, {
       0.43084539181599935`, 0.8844546075360892}}], 
      GrayLevel[0.88], 
      LineBox[{{0.43084539181599935`, 0.8844546075360892}, {
       0.4341534199914185, 0.883911339093024}}], 
      GrayLevel[0.895], 
      LineBox[{{0.4341534199914185, 0.883911339093024}, {0.4374754866924998, 
       0.8833291557013278}}], 
      GrayLevel[0.9099999999999999], 
      LineBox[{{0.4374754866924998, 0.8833291557013278}, {
       0.44073419598291935`, 0.8827604749071198}}], 
      GrayLevel[0.925], 
      LineBox[{{0.44073419598291935`, 0.8827604749071198}, {
       0.4444232826765714, 0.8820978952590075}}], 
      GrayLevel[0.94], 
      LineBox[{{0.4444232826765714, 0.8820978952590075}, {
       0.44718275292529647`, 0.8816386120180484}}], 
      GrayLevel[0.955], 
      LineBox[{{0.44718275292529647`, 0.8816386120180484}, {
       0.4498521212359563, 0.8811941989136336}}], 
      GrayLevel[0.97], 
      LineBox[{{0.4498521212359563, 0.8811941989136336}, {0.452503819847834, 
       0.8807355201193819}}], 
      GrayLevel[0.985], 
      LineBox[{{0.452503819847834, 0.8807355201193819}, {0.4550407601383875, 
       0.8803051532013801}}], 
      Opacity[0], 
      TagBox[
       TooltipBox[{
         ArrowBox[{{0.3769333871706467, 0.893204975026038}, {
          0.37091295376190725`, 0.8942612754202101}}]}, 
        TemplateBox[{"\"SkyWest Airlines flight 4033\"", 
          RowBox[{"Entity", "[", 
            RowBox[{"\"FlightNumber\"", ",", "\"202101080000141548\""}], 
            "]"}], "\"Entity[\\\"FlightNumber\\\", \
\\\"202101080000141548\\\"]\"", "\"flight\""}, "Entity"]], Annotation[#, 
        Entity["FlightNumber", "202101080000141548"], "Tooltip"]& ]}}, 
    Background -> None, PlotRange -> {{-1, 1}, {-1, 1}}, PlotRangePadding -> 
    0.03], 
   InterpretationBox[
    Cell[
     BoxData[
      FormBox[
       StyleBox["\"S\"", StripOnInput -> False], TextForm]], "InlineText"], 
    Text[
     Style["S"]]], 
   InterpretationBox[
    Cell[
     BoxData[
      FormBox[
       StyleBox["\"E\"", StripOnInput -> False], TextForm]], "InlineText"], 
    Text[
     Style["E"]]], 
   InterpretationBox[
    Cell[
     BoxData[
      FormBox[
       StyleBox["\"N\"", StripOnInput -> False], TextForm]], "InlineText"], 
    Text[
     Style["N"]]], 
   InterpretationBox[
    Cell[
     BoxData[
      FormBox[
       StyleBox["\"W\"", StripOnInput -> False], TextForm]], "InlineText"], 
    Text[
     Style["W"]]]},
  "Labeled",
  DisplayFunction->(GridBox[{{"", 
      ItemBox[#4, DefaultBaseStyle -> "LabeledLabel"], ""}, {
      ItemBox[#3, DefaultBaseStyle -> "LabeledLabel"], 
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline, ImageMargins -> 5], DefaultBaseStyle -> 
        "Labeled"], "SkipImageSizeLevel"], 
      ItemBox[#5, DefaultBaseStyle -> "LabeledLabel"]}, {"", 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"], ""}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, 
    GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
    BaselinePosition -> {2, 2}]& ),
  InterpretationFunction->(RowBox[{"Labeled", "[", 
     RowBox[{#, ",", 
       RowBox[{"{", 
         RowBox[{#2, ",", #3, ",", #4, ",", #5}], "}"}], ",", "All", ",", 
       RowBox[{"FrameMargins", "\[Rule]", "5"}]}], "]"}]& )]], "Output",
 TaggingRules->{},
 CellChangeTimes->{3.812288906787575*^9, 3.8122889404797497`*^9, 
  3.8122897737250137`*^9, 3.819118669355925*^9},
 CellID->387957271,ExpressionUUID->"c91c443f-99ce-4dcc-8b2b-edcef6b061bb"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Scope", "Subsection",
 TaggingRules->{},
 CellID->204653245,ExpressionUUID->"00b16fe3-8a8a-42a8-98a1-058d555fc94a"],

Cell[TextData[{
 Cell[BoxData["FlightsOverhead"], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "d91339b2-4538-499c-853c-0f35f748e5eb"],
 " has two properties:"
}], "Text",
 TaggingRules->{"AttachedInlineCell" -> CellObject[1353985]},
 CellChangeTimes->{{3.812288823597578*^9, 3.812288830959038*^9}, 
   3.819118805016245*^9},
 CellID->89314876,ExpressionUUID->"5feb10bd-0e64-443d-9b9c-ee98ddbcbdf2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FlightsOverhead", "[", "\"\<Properties\>\"", "]"}]], "Input",
 TaggingRules->{},
 CellChangeTimes->{3.812288814395587*^9},
 CellID->7276340,ExpressionUUID->"8f775f52-f997-4dae-b009-45ebe742f41d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Flights\"\>", ",", "\<\"SkyMap\"\>"}], "}"}]], "Output",
 TaggingRules->{},
 CellChangeTimes->{3.812288815086289*^9, 3.8122897738390903`*^9, 
  3.819118720407785*^9},
 CellID->946850890,ExpressionUUID->"a510fb90-98d3-42a3-91ac-0d12f88174ff"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "af14aa05-4310-47f1-9848-395b498f7bad"],
  $Line = 0; Null]], "ExampleDelimiter",
 TaggingRules->{},
 CellID->14107563,ExpressionUUID->"845b24b1-65ce-4629-991f-5e210364b9f6"],

Cell[TextData[{
 "Get an ",
 Cell[BoxData[
  TagBox[
   ButtonBox[
    StyleBox["Association", "SymbolsRefLink",
     ShowStringCharacters->True,
     FontFamily->"Source Sans Pro"],
    BaseStyle->Dynamic[
      FEPrivate`If[
       CurrentValue["MouseOver"], {
       "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, {
       "Link"}]],
    ButtonData->"paclet:ref/Association",
    ContentPadding->False],
   MouseAppearanceTag["LinkHand"]]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "04ebcc3e-c438-410b-b56e-6496991a7fd3"],
 " of properties for flights over JFK airport:"
}], "Text",
 TaggingRules->{"AttachedInlineCell" -> CellObject[225073]},
 CellChangeTimes->{{3.812289609192232*^9, 3.8122896332700663`*^9}, 
   3.81228994669527*^9},
 CellID->419067492,ExpressionUUID->"0f36f4f3-68c4-4dfb-916f-057c1b6aa7e7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FlightsOverhead", "[", 
  TemplateBox[{"\"John F. Kennedy International Airport\"", 
    RowBox[{"Entity", "[", 
      RowBox[{"\"Airport\"", ",", "\"KJFK\""}], "]"}], 
    "\"Entity[\\\"Airport\\\", \\\"KJFK\\\"]\"", "\"airport\""},
   "Entity"], "]"}]], "Input",
 TaggingRules->{},
 CellChangeTimes->{{3.8122896410686617`*^9, 3.8122896739696903`*^9}, {
  3.8122897824341*^9, 3.812289784580381*^9}},
 CellID->180187369,ExpressionUUID->"3f9a8648-13d5-4b3e-acf3-3524e0f7f3ac"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"Flights\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      TemplateBox[{"\"PSA Airlines flight 5513\"", 
        RowBox[{"Entity", "[", 
          RowBox[{"\"FlightNumber\"", ",", "\"202101080000132763\""}], "]"}], 
        "\"Entity[\\\"FlightNumber\\\", \\\"202101080000132763\\\"]\"", 
        "\"flight\""},
       "Entity"], ",", 
      TemplateBox[{"\"American Airlines flight 2387\"", 
        RowBox[{"Entity", "[", 
          RowBox[{"\"FlightNumber\"", ",", "\"202101080000130577\""}], "]"}], 
        "\"Entity[\\\"FlightNumber\\\", \\\"202101080000130577\\\"]\"", 
        "\"flight\""},
       "Entity"], ",", 
      TemplateBox[{"\"Corporate Flight Management flight 154\"", 
        RowBox[{"Entity", "[", 
          RowBox[{"\"FlightNumber\"", ",", "\"202101080000116380\""}], "]"}], 
        "\"Entity[\\\"FlightNumber\\\", \\\"202101080000116380\\\"]\"", 
        "\"flight\""},
       "Entity"], ",", 
      TemplateBox[{"\"202101080000066674\"", 
        RowBox[{"Entity", "[", 
          RowBox[{"\"FlightNumber\"", ",", "\"202101080000066674\""}], "]"}], 
        "\"Entity[\\\"FlightNumber\\\", \\\"202101080000066674\\\"]\"", 
        "\"flight\""},
       "Entity"], ",", 
      TemplateBox[{"\"202101080000107002\"", 
        RowBox[{"Entity", "[", 
          RowBox[{"\"FlightNumber\"", ",", "\"202101080000107002\""}], "]"}], 
        "\"Entity[\\\"FlightNumber\\\", \\\"202101080000107002\\\"]\"", 
        "\"flight\""},
       "Entity"], ",", 
      TemplateBox[{"\"CommutAir flight 4825\"", 
        RowBox[{"Entity", "[", 
          RowBox[{"\"FlightNumber\"", ",", "\"202101080000109141\""}], "]"}], 
        "\"Entity[\\\"FlightNumber\\\", \\\"202101080000109141\\\"]\"", 
        "\"flight\""},
       "Entity"], ",", 
      TemplateBox[{"\"Southwest Airlines flight 6003\"", 
        RowBox[{"Entity", "[", 
          RowBox[{"\"FlightNumber\"", ",", "\"202101080000089107\""}], "]"}], 
        "\"Entity[\\\"FlightNumber\\\", \\\"202101080000089107\\\"]\"", 
        "\"flight\""},
       "Entity"]}], "}"}]}], ",", 
   RowBox[{"\<\"SkyMap\"\>", "\[Rule]", 
    TemplateBox[{
      GraphicsBox[{
        RGBColor[0.6, 0.4, 0.2], 
        Thickness[0.003], {
         LineBox[{{-0.6044336834817061, -0.31852641149263455`}, \
{-0.6823504284913076, -0.22642281781299578`}, {-0.750604165979464, \
-0.12497999772071798`}, {-0.8077734063656732, -0.01446375642243362}, \
{-0.8521742629786632, 0.10477455710621872`}, {-0.8818047130394804, 
          0.23222101461592407`}, {-0.8942891263581013, 
          0.36708712880735084`}, {-0.8895455853474291, 0.4568464201336152}}], 
         
         LineBox[{{0.8954488655393009, -0.4451643844742962}, {
          0.8484828330291302, -0.4861728759026299}, {
          0.7336087594379604, -0.5599285165997686}, {
          0.6140665553047239, -0.6151717731250679}, {
          0.49200688053355696`, -0.6533708950373281}, {
          0.3691089697380114, -0.6758643447896954}, {
          0.24671009234430882`, -0.6838329765529594}, {
          0.12590579094078364`, -0.6782960721767974}, {
          
          0.0076271876030937005`, -0.6601194807620119}, {-0.1072986885246337, \
-0.630029283698265}, {-0.21810052917107295`, -0.5886275479556907}, \
{-0.32402227051556276`, -0.53640861658521}, {-0.42428724961149505`, \
-0.4737755492686544}, {-0.5180643222469016, -0.40105711720774734`}, \
{-0.6044336834817061, -0.31852641149263455`}}]}, {
         InsetBox[
          FormBox[
           StyleBox["\"Sun\"", 
            GrayLevel[0.5], StripOnInput -> False], TraditionalForm], {
          0.19560801343933598`, -0.5635881754872529}], 
         RGBColor[1., 0.8305, 0.2606], {
          EdgeForm[{
            RGBColor[0.91855, 0.4613, 0.0019], 
            Thickness[0.002]}], 
          DiskBox[{0.23735607842189183`, -0.6838732055325014}, 0.05]}}, {}, 
        GrayLevel[0], {
         RGBColor[0.84, 0.84, 0.84], 
         Thickness[0.008], 
         CircleBox[{0, 0}, 1]}, {
         PointSize[Large], 
         Arrowheads[{{0.05, 1, 
            GraphicsBox[{
              Opacity[1], 
              InsetBox[
               FormBox[
                StyleBox[
                "\"\:2708\"", FontSize -> 22, FontColor -> RGBColor[1, 0, 0], 
                 StripOnInput -> False], TraditionalForm], {0, 0}]}]}}], 
         Opacity[0.5], 
         Thickness[Large], 
         Opacity[1], 
         GrayLevel[0.7], 
         LineBox[{{0.12198316262693532`, 0.9461968677858349}, {
          0.10445812356183469`, 0.9506964249116481}}], 
         GrayLevel[0.715], 
         LineBox[{{0.10445812356183469`, 0.9506964249116481}, {
          0.08918923326316291, 0.9543747304149963}}], 
         GrayLevel[0.73], 
         LineBox[{{0.08918923326316291, 0.9543747304149963}, {
          0.07662368724143559, 0.9572461969232303}}], 
         GrayLevel[0.745], 
         LineBox[{{0.07662368724143559, 0.9572461969232303}, {
          0.062299883284997574`, 0.9603329723477704}}], 
         GrayLevel[0.76], 
         LineBox[{{0.062299883284997574`, 0.9603329723477704}, {
          0.05013974707372424, 0.9628216699305886}}], 
         GrayLevel[0.7749999999999999], 
         LineBox[{{0.05013974707372424, 0.9628216699305886}, {
          0.03980557614151921, 0.9648341794183125}}], 
         GrayLevel[0.7899999999999999], 
         LineBox[{{0.03980557614151921, 0.9648341794183125}, {
          0.02674038567701351, 0.9671467068213669}}], 
         GrayLevel[0.8049999999999999], 
         LineBox[{{0.02674038567701351, 0.9671467068213669}, {
          0.01746521064423924, 0.9687519334913187}}], 
         GrayLevel[0.82], 
         LineBox[{{0.01746521064423924, 0.9687519334913187}, {
          0.0063036545028471915`, 0.9705834047978414}}], 
         GrayLevel[0.835], 
         LineBox[{{0.0063036545028471915`, 
          0.9705834047978414}, {-0.0019296266204575415`, 
          0.9718979486983124}}], 
         GrayLevel[0.85], 
         LineBox[{{-0.0019296266204575415`, 
          0.9718979486983124}, {-0.009748067080400253, 0.9730956639399743}}], 
         
         GrayLevel[0.865], 
         LineBox[{{-0.009748067080400253, 
          0.9730956639399743}, {-0.01108979473140853, 0.974588156318954}}], 
         GrayLevel[0.88], 
         LineBox[{{-0.01108979473140853, 
          0.974588156318954}, {-0.009609548075638113, 0.9758205769216636}}], 
         GrayLevel[0.895], 
         LineBox[{{-0.009609548075638113, 
          0.9758205769216636}, {-0.0066196255552361735`, 
          0.9772012889301989}}], 
         GrayLevel[0.9099999999999999], 
         LineBox[{{-0.0066196255552361735`, 
          0.9772012889301989}, {-0.0035724778918630818`, 
          0.9783303978304023}}], 
         GrayLevel[0.925], 
         LineBox[{{-0.0035724778918630818`, 
          0.9783303978304023}, {-0.00043880122558025803`, 
          0.9794971182733424}}], 
         GrayLevel[0.94], 
         LineBox[{{-0.00043880122558025803`, 0.9794971182733424}, {
          0.0027389334095468142`, 0.9809195800554066}}], 
         GrayLevel[0.955], 
         LineBox[{{0.0027389334095468142`, 0.9809195800554066}, {
          0.005534718936930105, 0.9822464274944738}}], 
         GrayLevel[0.97], 
         LineBox[{{0.005534718936930105, 0.9822464274944738}, {
          0.007154115012144473, 0.983552478076507}}], 
         GrayLevel[0.985], 
         LineBox[{{0.007154115012144473, 0.983552478076507}, {
          0.00837649285787918, 0.9848198314455142}}], 
         Opacity[0], 
         TagBox[
          TooltipBox[{
            
            ArrowBox[{{0.10445812356183469`, 0.9506964249116481}, {
             0.12198316262693532`, 0.9461968677858349}}]}, 
           TemplateBox[{"\"PSA Airlines flight 5513\"", 
             RowBox[{"Entity", "[", 
               RowBox[{"\"FlightNumber\"", ",", "\"202101080000132763\""}], 
               "]"}], "\"Entity[\\\"FlightNumber\\\", \
\\\"202101080000132763\\\"]\"", "\"flight\""}, "Entity"]], Annotation[#, 
           Entity["FlightNumber", "202101080000132763"], "Tooltip"]& ], 
         Opacity[0.5], 
         Thickness[Large], 
         Opacity[1], 
         GrayLevel[0.7], 
         LineBox[{{-0.6255356659798545, 
          0.7563329164109285}, {-0.6312384433108216, 0.7533853455575679}}], 
         GrayLevel[0.715], 
         LineBox[{{-0.6312384433108216, 
          0.7533853455575679}, {-0.6366659248678894, 0.7505517224614727}}], 
         GrayLevel[0.73], 
         LineBox[{{-0.6366659248678894, 
          0.7505517224614727}, {-0.6427178678847286, 0.7474753595147309}}], 
         GrayLevel[0.745], 
         LineBox[{{-0.6427178678847286, 
          0.7474753595147309}, {-0.6477445829218761, 0.744918588090168}}], 
         GrayLevel[0.76], 
         LineBox[{{-0.6477445829218761, 
          0.744918588090168}, {-0.6541730976677131, 0.7417017835248024}}], 
         GrayLevel[0.7749999999999999], 
         LineBox[{{-0.6541730976677131, 
          0.7417017835248024}, {-0.6589903143637498, 0.7393811688197385}}], 
         GrayLevel[0.7899999999999999], 
         LineBox[{{-0.6589903143637498, 
          0.7393811688197385}, {-0.663597909467423, 0.7371460025334275}}], 
         GrayLevel[0.8049999999999999], 
         LineBox[{{-0.663597909467423, 
          0.7371460025334275}, {-0.6681832551675692, 0.7348715718738295}}], 
         GrayLevel[0.82], 
         LineBox[{{-0.6681832551675692, 
          0.7348715718738295}, {-0.6726023101041841, 0.7326598428535314}}], 
         GrayLevel[0.835], 
         LineBox[{{-0.6726023101041841, 
          0.7326598428535314}, {-0.6774334577918325, 0.7299916724207511}}], 
         GrayLevel[0.85], 
         LineBox[{{-0.6774334577918325, 
          0.7299916724207511}, {-0.6825262910224965, 0.7269956226604264}}], 
         GrayLevel[0.865], 
         LineBox[{{-0.6825262910224965, 
          0.7269956226604264}, {-0.6877559995435276, 0.7237571218911792}}], 
         GrayLevel[0.88], 
         LineBox[{{-0.6877559995435276, 
          0.7237571218911792}, {-0.6945848917091301, 0.7188195712367567}}], 
         GrayLevel[0.895], {
          
          LineBox[{{-0.6945848917091301, 
           0.7188195712367567}, {-0.6971010430426134, 0.7169728975274452}}]}, 
         
         GrayLevel[0.9099999999999999], {}, 
         GrayLevel[0.925], {}, 
         GrayLevel[0.94], {}, 
         GrayLevel[0.955], {}, 
         GrayLevel[0.97], {}, 
         GrayLevel[0.985], {}, 
         Opacity[0], 
         TagBox[
          TooltipBox[{
            
            ArrowBox[{{-0.6312384433108216, 
             0.7533853455575679}, {-0.6255356659798545, 
             0.7563329164109285}}]}, 
           TemplateBox[{"\"American Airlines flight 2387\"", 
             RowBox[{"Entity", "[", 
               RowBox[{"\"FlightNumber\"", ",", "\"202101080000130577\""}], 
               "]"}], "\"Entity[\\\"FlightNumber\\\", \
\\\"202101080000130577\\\"]\"", "\"flight\""}, "Entity"]], Annotation[#, 
           Entity["FlightNumber", "202101080000130577"], "Tooltip"]& ], 
         Opacity[0.5], 
         Thickness[Large], 
         Opacity[1], 
         GrayLevel[0.7], {}, 
         GrayLevel[0.715], {}, 
         GrayLevel[0.73], {}, 
         GrayLevel[0.745], {}, 
         GrayLevel[0.76], {}, 
         GrayLevel[0.7749999999999999], {}, 
         GrayLevel[0.7899999999999999], {}, 
         GrayLevel[0.8049999999999999], {}, 
         GrayLevel[0.82], {}, 
         GrayLevel[0.835], {}, 
         GrayLevel[0.85], {}, 
         GrayLevel[0.865], {}, 
         GrayLevel[0.88], {}, 
         GrayLevel[0.895], {}, 
         GrayLevel[0.9099999999999999], {}, 
         GrayLevel[0.925], {}, 
         GrayLevel[0.94], {}, 
         GrayLevel[0.955], {}, 
         GrayLevel[0.97], {}, 
         GrayLevel[0.985], {}, 
         Opacity[0], 
         TagBox[
          TooltipBox[{
            
            ArrowBox[{{-0.1429585212549902, 
             0.994407813383579}, {-0.10518797426036956`, 
             0.9951128798617527}}]}, 
           TemplateBox[{"\"Corporate Flight Management flight 154\"", 
             RowBox[{"Entity", "[", 
               RowBox[{"\"FlightNumber\"", ",", "\"202101080000116380\""}], 
               "]"}], "\"Entity[\\\"FlightNumber\\\", \
\\\"202101080000116380\\\"]\"", "\"flight\""}, "Entity"]], Annotation[#, 
           Entity["FlightNumber", "202101080000116380"], "Tooltip"]& ], 
         Opacity[0.5], 
         Thickness[Large], 
         Opacity[1], 
         GrayLevel[0.7], 
         LineBox[{{0.0036943984312175714`, 0.33997951706630514`}, {
          0.0116218860038321, 0.34547028145921127`}}], 
         GrayLevel[0.715], 
         LineBox[{{0.0116218860038321, 0.34547028145921127`}, {
          0.0201377049218388, 0.35132360272765556`}}], 
         GrayLevel[0.73], 
         LineBox[{{0.0201377049218388, 0.35132360272765556`}, {
          0.02930563625995606, 0.35757210101710485`}}], 
         GrayLevel[0.745], 
         LineBox[{{0.02930563625995606, 0.35757210101710485`}, {
          0.03919819069646914, 0.364251717595977}}], 
         GrayLevel[0.76], 
         LineBox[{{0.03919819069646914, 0.364251717595977}, {
          0.04989796454536635, 0.37140196756748567`}}], 
         GrayLevel[0.7749999999999999], 
         LineBox[{{0.04989796454536635, 0.37140196756748567`}, {
          0.06149920084493951, 0.3790661490271031}}], 
         GrayLevel[0.7899999999999999], 
         LineBox[{{0.06149920084493951, 0.3790661490271031}, {
          0.07410957122370035, 0.3872914676441149}}], 
         GrayLevel[0.8049999999999999], 
         LineBox[{{0.07410957122370035, 0.3872914676441149}, {
          0.08785218382600236, 0.39612901468608114`}}], 
         GrayLevel[0.82], 
         LineBox[{{0.08785218382600236, 0.39612901468608114`}, {
          0.1028678026435963, 0.40563350650808555`}}], 
         GrayLevel[0.835], 
         LineBox[{{0.1028678026435963, 0.40563350650808555`}, {
          0.11931722855406915`, 0.41586265132725214`}}], 
         GrayLevel[0.85], 
         LineBox[{{0.11931722855406915`, 0.41586265132725214`}, {
          0.13738373399566786`, 0.426875951076049}}], 
         GrayLevel[0.865], 
         LineBox[{{0.13738373399566786`, 0.426875951076049}, {
          0.15727535001751136`, 0.43873266889665874`}}], 
         GrayLevel[0.88], 
         LineBox[{{0.15727535001751136`, 0.43873266889665874`}, {
          0.17922666144074145`, 0.4514885949984156}}], 
         GrayLevel[0.895], 
         LineBox[{{0.17922666144074145`, 0.4514885949984156}, {
          0.20349955578366616`, 0.46519112934276646`}}], 
         GrayLevel[0.9099999999999999], 
         LineBox[{{0.20349955578366616`, 0.46519112934276646`}, {
          0.23038207953140957`, 0.4798720855556284}}], 
         GrayLevel[0.925], 
         LineBox[{{0.23038207953140957`, 0.4798720855556284}, {
          0.2601841801932917, 0.49553754693335095`}}], 
         GrayLevel[0.94], 
         LineBox[{{0.2601841801932917, 0.49553754693335095`}, {
          0.29322869028215487`, 0.5121541524580733}}], 
         GrayLevel[0.955], 
         LineBox[{{0.29322869028215487`, 0.5121541524580733}, {
          0.32983555170694556`, 0.5296314943353172}}], 
         GrayLevel[0.97], 
         LineBox[{{0.32983555170694556`, 0.5296314943353172}, {
          0.3702972249303341, 0.5478010616551443}}], 
         GrayLevel[0.985], 
         LineBox[{{0.3702972249303341, 0.5478010616551443}, {
          0.4148438783190476, 0.5663935692200841}}], 
         Opacity[0], 
         TagBox[
          TooltipBox[{
            
            ArrowBox[{{0.0116218860038321, 0.34547028145921127`}, {
             0.0036943984312175714`, 0.33997951706630514`}}]}, 
           TemplateBox[{"\"202101080000066674\"", 
             RowBox[{"Entity", "[", 
               RowBox[{"\"FlightNumber\"", ",", "\"202101080000066674\""}], 
               "]"}], "\"Entity[\\\"FlightNumber\\\", \
\\\"202101080000066674\\\"]\"", "\"flight\""}, "Entity"]], Annotation[#, 
           Entity["FlightNumber", "202101080000066674"], "Tooltip"]& ], 
         Opacity[0.5], 
         Thickness[Large], 
         Opacity[1], 
         GrayLevel[0.7], 
         LineBox[{{-0.6909165121406555, 
          0.7142557360140581}, {-0.6949879671618551, 0.7120968602844366}}], 
         GrayLevel[0.715], 
         LineBox[{{-0.6949879671618551, 
          0.7120968602844366}, {-0.6991679499094458, 0.7096715407060893}}], 
         GrayLevel[0.73], 
         LineBox[{{-0.6991679499094458, 
          0.7096715407060893}, {-0.7032365184280576, 0.7075591579044892}}], 
         GrayLevel[0.745], 
         LineBox[{{-0.7032365184280576, 
          0.7075591579044892}, {-0.7069718735038776, 0.7055603135797714}}], 
         GrayLevel[0.76], {
          
          LineBox[{{-0.7069718735038776, 
           0.7055603135797714}, {-0.7101601474786262, 0.7040401728119894}}]}, 
         
         GrayLevel[0.7749999999999999], {}, 
         GrayLevel[0.7899999999999999], {}, 
         GrayLevel[0.8049999999999999], {}, 
         GrayLevel[0.82], {}, 
         GrayLevel[0.835], {}, 
         GrayLevel[0.85], {}, 
         GrayLevel[0.865], {}, 
         GrayLevel[0.88], {}, 
         GrayLevel[0.895], {}, 
         GrayLevel[0.9099999999999999], {}, 
         GrayLevel[0.925], {}, 
         GrayLevel[0.94], {}, 
         GrayLevel[0.955], {}, 
         GrayLevel[0.97], {}, 
         GrayLevel[0.985], {}, 
         Opacity[0], 
         TagBox[
          TooltipBox[{
            
            ArrowBox[{{-0.6949879671618551, 
             0.7120968602844366}, {-0.6909165121406555, 
             0.7142557360140581}}]}, 
           TemplateBox[{"\"202101080000107002\"", 
             RowBox[{"Entity", "[", 
               RowBox[{"\"FlightNumber\"", ",", "\"202101080000107002\""}], 
               "]"}], "\"Entity[\\\"FlightNumber\\\", \
\\\"202101080000107002\\\"]\"", "\"flight\""}, "Entity"]], Annotation[#, 
           Entity["FlightNumber", "202101080000107002"], "Tooltip"]& ], 
         Opacity[0.5], 
         Thickness[Large], 
         Opacity[1], 
         GrayLevel[0.7], 
         LineBox[{{0.21330264491883918`, 0.47822896303172113`}, {
          0.22966702918050083`, 0.47648931725697447`}}], 
         GrayLevel[0.715], 
         LineBox[{{0.22966702918050083`, 0.47648931725697447`}, {
          0.24719114018803548`, 0.4744167958597209}}], 
         GrayLevel[0.73], 
         LineBox[{{0.24719114018803548`, 0.4744167958597209}, {
          0.2659762452885939, 0.4719509323106808}}], 
         GrayLevel[0.745], 
         LineBox[{{0.2659762452885939, 0.4719509323106808}, {
          0.2861306565837116, 0.4690199710630513}}], 
         GrayLevel[0.76], 
         LineBox[{{0.2861306565837116, 0.4690199710630513}, {
          0.30776891910140497`, 0.4655388633938832}}], 
         GrayLevel[0.7749999999999999], 
         LineBox[{{0.30776891910140497`, 0.4655388633938832}, {
          0.33101030977804324`, 0.46140702832402936`}}], 
         GrayLevel[0.7899999999999999], 
         LineBox[{{0.33101030977804324`, 0.46140702832402936`}, {
          0.35597638834619766`, 0.45650593158032915`}}], 
         GrayLevel[0.8049999999999999], 
         LineBox[{{0.35597638834619766`, 0.45650593158032915`}, {
          0.3827872839234793, 0.4506965952006736}}], 
         GrayLevel[0.82], 
         LineBox[{{0.3827872839234793, 0.4506965952006736}, {
          0.41155635355286124`, 0.4438172389212944}}], 
         GrayLevel[0.835], 
         LineBox[{{0.41155635355286124`, 0.4438172389212944}, {
          0.44238283170420756`, 0.4356813779051933}}], 
         GrayLevel[0.85], 
         LineBox[{{0.44238283170420756`, 0.4356813779051933}, {
          0.47534213561016614`, 0.4260768608397522}}], 
         GrayLevel[0.865], 
         LineBox[{{0.47534213561016614`, 0.4260768608397522}, {
          0.5104736464501216, 0.4147665178918261}}], 
         GrayLevel[0.88], 
         LineBox[{{0.5104736464501216, 0.4147665178918261}, {
          0.5477661058309488, 0.4014912688851216}}], 
         GrayLevel[0.895], 
         LineBox[{{0.5477661058309488, 0.4014912688851216}, {
          0.5871412989393151, 0.38597665707102785`}}], 
         GrayLevel[0.9099999999999999], 
         LineBox[{{0.5871412989393151, 0.38597665707102785`}, {
          0.6284374493872564, 0.36794372576808093`}}], 
         GrayLevel[0.925], 
         LineBox[{{0.6284374493872564, 0.36794372576808093`}, {
          0.6713946481783772, 0.34712482167384634`}}], 
         GrayLevel[0.94], 
         LineBox[{{0.6713946481783772, 0.34712482167384634`}, {
          0.7156454666183368, 0.3232841832782318}}], 
         GrayLevel[0.955], 
         LineBox[{{0.7156454666183368, 0.3232841832782318}, {
          0.7607143003921734, 0.2962420412511966}}], 
         GrayLevel[0.97], 
         LineBox[{{0.7607143003921734, 0.2962420412511966}, {
          0.8060285343874342, 0.2658995893022444}}], 
         GrayLevel[0.985], 
         LineBox[{{0.8060285343874342, 0.2658995893022444}, {
          0.8509430159485443, 0.23226097739392995`}}], 
         Opacity[0], 
         TagBox[
          TooltipBox[{
            
            ArrowBox[{{0.22966702918050083`, 0.47648931725697447`}, {
             0.21330264491883918`, 0.47822896303172113`}}]}, 
           TemplateBox[{"\"CommutAir flight 4825\"", 
             RowBox[{"Entity", "[", 
               RowBox[{"\"FlightNumber\"", ",", "\"202101080000109141\""}], 
               "]"}], "\"Entity[\\\"FlightNumber\\\", \
\\\"202101080000109141\\\"]\"", "\"flight\""}, "Entity"]], Annotation[#, 
           Entity["FlightNumber", "202101080000109141"], "Tooltip"]& ], 
         Opacity[0.5], 
         Thickness[Large], 
         Opacity[1], 
         GrayLevel[0.7], 
         LineBox[{{0.7850505010895763, -0.5776757261274809}, {
          0.7766811826844557, -0.5895772443460977}}], 
         GrayLevel[0.715], 
         LineBox[{{0.7766811826844557, -0.5895772443460977}, {
          0.7719626657717864, -0.5969642424056087}}], 
         GrayLevel[0.73], 
         LineBox[{{0.7719626657717864, -0.5969642424056087}, {
          0.7626968174038777, -0.610897872841843}}], 
         GrayLevel[0.745], 
         LineBox[{{0.7626968174038777, -0.610897872841843}, {
          0.7655044769159304, -0.6097810347909465}}], 
         GrayLevel[0.76], 
         LineBox[{{0.7655044769159304, -0.6097810347909465}, {
          0.7653359004885347, -0.6124156261694087}}], 
         GrayLevel[0.7749999999999999], 
         LineBox[{{0.7653359004885347, -0.6124156261694087}, {
          0.7646889952748818, -0.6153538325062093}}], 
         GrayLevel[0.7899999999999999], 
         LineBox[{{0.7646889952748818, -0.6153538325062093}, {
          0.7658794032154368, -0.6151146187515867}}], 
         GrayLevel[0.8049999999999999], 
         LineBox[{{0.7658794032154368, -0.6151146187515867}, {
          0.7683269956482007, -0.6126678141366699}}], 
         GrayLevel[0.82], 
         LineBox[{{0.7683269956482007, -0.6126678141366699}, {
          0.7617081712097262, -0.620468369210446}}], 
         GrayLevel[0.835], 
         LineBox[{{0.7617081712097262, -0.620468369210446}, {
          0.7612104083850162, -0.6198408276018178}}], 
         GrayLevel[0.85], 
         LineBox[{{0.7612104083850162, -0.6198408276018178}, {
          0.7597020418818704, -0.6207580882478032}}], 
         GrayLevel[0.865], 
         LineBox[{{0.7597020418818704, -0.6207580882478032}, {
          0.7583708835187732, -0.6218728482145284}}], 
         GrayLevel[0.88], 
         LineBox[{{0.7583708835187732, -0.6218728482145284}, {
          0.7588962473460716, -0.6206040432680545}}], 
         GrayLevel[0.895], 
         LineBox[{{0.7588962473460716, -0.6206040432680545}, {
          0.7539665654423462, -0.6265206782680958}}], 
         GrayLevel[0.9099999999999999], 
         LineBox[{{0.7539665654423462, -0.6265206782680958}, {
          0.7478055181263178, -0.6331473389784673}}], 
         GrayLevel[0.925], 
         LineBox[{{0.7478055181263178, -0.6331473389784673}, {
          0.7416617760476606, -0.6397351084064624}}], 
         GrayLevel[0.94], 
         LineBox[{{0.7416617760476606, -0.6397351084064624}, {
          0.7358119248532695, -0.6461707021896832}}], 
         GrayLevel[0.955], 
         LineBox[{{0.7358119248532695, -0.6461707021896832}, {
          0.7303102880459064, -0.6521410159507688}}], 
         GrayLevel[0.97], 
         LineBox[{{0.7303102880459064, -0.6521410159507688}, {
          0.7242482518201531, -0.6583009721029839}}], 
         GrayLevel[0.985], 
         LineBox[{{0.7242482518201531, -0.6583009721029839}, {
          0.7182780103550962, -0.6636871936947107}}], 
         Opacity[0], 
         TagBox[
          TooltipBox[{
            
            ArrowBox[{{0.7766811826844557, -0.5895772443460977}, {
             0.7850505010895763, -0.5776757261274809}}]}, 
           TemplateBox[{"\"Southwest Airlines flight 6003\"", 
             RowBox[{"Entity", "[", 
               RowBox[{"\"FlightNumber\"", ",", "\"202101080000089107\""}], 
               "]"}], "\"Entity[\\\"FlightNumber\\\", \
\\\"202101080000089107\\\"]\"", "\"flight\""}, "Entity"]], Annotation[#, 
           Entity["FlightNumber", "202101080000089107"], "Tooltip"]& ]}}, 
       Background -> None, PlotRange -> {{-1, 1}, {-1, 1}}, PlotRangePadding -> 
       0.03], 
      InterpretationBox[
       Cell[
        BoxData[
         FormBox[
          StyleBox["\"S\"", StripOnInput -> False], TextForm]], "InlineText"], 
       Text[
        Style["S"]]], 
      InterpretationBox[
       Cell[
        BoxData[
         FormBox[
          StyleBox["\"E\"", StripOnInput -> False], TextForm]], "InlineText"], 
       Text[
        Style["E"]]], 
      InterpretationBox[
       Cell[
        BoxData[
         FormBox[
          StyleBox["\"N\"", StripOnInput -> False], TextForm]], "InlineText"], 
       Text[
        Style["N"]]], 
      InterpretationBox[
       Cell[
        BoxData[
         FormBox[
          StyleBox["\"W\"", StripOnInput -> False], TextForm]], "InlineText"], 
       Text[
        Style["W"]]]},
     "Labeled",
     DisplayFunction->(GridBox[{{"", 
         ItemBox[#4, DefaultBaseStyle -> "LabeledLabel"], ""}, {
         ItemBox[#3, DefaultBaseStyle -> "LabeledLabel"], 
         TagBox[
          ItemBox[
           PaneBox[
            TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
            BaselinePosition -> Baseline, ImageMargins -> 5], 
           DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], 
         ItemBox[#5, DefaultBaseStyle -> "LabeledLabel"]}, {"", 
         ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"], ""}}, 
       GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
       AutoDelete -> False, 
       GridBoxItemSize -> {
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
       BaselinePosition -> {2, 2}]& ),
     InterpretationFunction->(RowBox[{"Labeled", "[", 
        RowBox[{#, ",", 
          RowBox[{"{", 
            RowBox[{#2, ",", #3, ",", #4, ",", #5}], "}"}], ",", "All", ",", 
          RowBox[{"FrameMargins", "\[Rule]", "5"}]}], "]"}]& )]}]}], 
  "\[RightAssociation]"}]], "Output",
 TaggingRules->{},
 CellChangeTimes->{{3.812289661460073*^9, 3.812289677954986*^9}, {
   3.81228977864431*^9, 3.812289789882815*^9}, 3.819118727805327*^9},
 CellID->235889243,ExpressionUUID->"ff299a4c-a073-44e4-80cc-f5b5ac99c36f"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Source & Additional Information", "Section",
 Editable->False,
 Deletable->False,
 CellTags->{"Source & Additional Information", "TemplateSection"},
 CellID->122838224,ExpressionUUID->"776683c7-4b3e-4df2-bb6a-46fd27ce7fdc"],

Cell[CellGroupData[{

Cell[TextData[{
 "Contributed By",
 Cell[BoxData[
  PaneSelectorBox[{True->
   TemplateBox[{"Contributed By", 
     Cell[
      BoxData[
       FrameBox[
        Cell[
        "Enter the name of the person, people or organization that should be \
publicly credited with contributing this function.", "MoreInfoText"], 
        Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> 
        GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> 
      True, CellTags -> {"SectionMoreInfoContributedBy"}, 
      CellMargins -> {{66, 66}, {15, 15}}]},
    "MoreInfoOpenerButtonTemplate"]}, Dynamic[
    CurrentValue[
     EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
   ImageSize->Automatic]],ExpressionUUID->
  "34bc7dd5-e887-4262-bc11-639aac60d2ab"]
}], "Subsection",
 Editable->False,
 Deletable->False,
 DefaultNewCellStyle->"Text",
 CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"},
 CellID->340488457,ExpressionUUID->"ad6681da-6699-4320-8c6c-1609ed1e37cb"],

Cell["Jason Martinez", "Text",
 CellID->360498248,ExpressionUUID->"d8ce0f1c-b3b8-4753-af7b-1b2b97e1284e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Keywords",
 Cell[BoxData[
  PaneSelectorBox[{True->
   TemplateBox[{"Keywords", 
     Cell[
      BoxData[
       FrameBox[
        Cell[
        "List relevant terms (e.g. functional areas, algorithm names, related \
concepts) that should be used to include the function in search results.", 
         "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, 
        FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", 
      Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, 
      CellMargins -> {{66, 66}, {15, 15}}]},
    "MoreInfoOpenerButtonTemplate"]}, Dynamic[
    CurrentValue[
     EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
   ImageSize->Automatic]],ExpressionUUID->
  "06bea301-8da9-41da-a28e-7c7546810ea2"]
}], "Subsection",
 Editable->False,
 Deletable->False,
 DefaultNewCellStyle->"Item",
 CellTags->{"Keywords", "TemplateCellGroup"},
 CellID->888841136,ExpressionUUID->"24cbffba-4a63-4629-88a5-e8078fc957df"],

Cell["flights", "Item",
 CellID->790269111,ExpressionUUID->"bf382118-e082-4a82-a350-4a60c5db1c54"],

Cell["airplane", "Item",
 CellID->720224362,ExpressionUUID->"01cb9d39-32d7-425e-8a6b-869f9e3f9289"],

Cell["sky map", "Item",
 CellID->434074531,ExpressionUUID->"88c17150-eb3a-4ad6-8b64-99665d77e15d"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Categories", "Subsection",
 Editable->False,
 Deletable->False,
 DefaultNewCellStyle->"Item",
 CellTags->{"Categories", "TemplateCellGroup"},
 CellID->841175420,ExpressionUUID->"331f8708-6ea1-4e8f-8f1b-23e73e453d68"],

Cell["Geographic Data & Computation", "Item",
 CellID->932605831,ExpressionUUID->"d61ac25b-eaf4-44ff-9725-3eed5a522e22"],

Cell["Just For Fun", "Item",
 CellID->732882047,ExpressionUUID->"0a47a06c-a6cc-4d68-bf8b-1d5cda1d33b4"],

Cell["Social, Cultural & Linguistic Data", "Item",
 CellID->601946190,ExpressionUUID->"b177e321-93ae-4a85-a865-7d22d89c40d5"],

Cell["Time-Related Computation", "Item",
 CellID->452571848,ExpressionUUID->"95551ccf-d9d6-4985-9a6b-f627e0e0287b"],

Cell["Visualization & Graphics", "Item",
 CellID->891139041,ExpressionUUID->"01965e78-5807-48d9-8f59-3589ae87a201"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Related Symbols",
 Cell[BoxData[
  PaneSelectorBox[{True->
   TemplateBox[{"Related Symbols", 
     Cell[
      BoxData[
       FrameBox[
        Cell[
        "List up to twenty documented, system-level Wolfram Language symbols \
related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], 
        FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 
        5]], "MoreInfoText", Deletable -> True, 
      CellTags -> {"SectionMoreInfoRelatedSymbols"}, 
      CellMargins -> {{66, 66}, {15, 15}}]},
    "MoreInfoOpenerButtonTemplate"]}, Dynamic[
    CurrentValue[
     EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
   ImageSize->Automatic]],ExpressionUUID->
  "f5846489-f98d-4e90-9cac-0a078b18204f"]
}], "Subsection",
 Editable->False,
 Deletable->False,
 DefaultNewCellStyle->"Item",
 CellTags->{"Related Symbols", "TemplateCellGroup"},
 CellID->819464728,ExpressionUUID->"d1d7d509-9085-4b64-951f-1c0f0189f45f"],

Cell["AircraftData", "Item",
 CellID->56362438,ExpressionUUID->"2b5dd2e9-454e-4c0b-9aaa-8681fb0f09ae"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Related Resource Objects",
 Cell[BoxData[
  PaneSelectorBox[{True->
   TemplateBox[{"Related Resource Objects", 
     Cell[
      BoxData[
       FrameBox[
        Cell[
        "List the names of published resource objects from any Wolfram \
repository that are related to this function.", "MoreInfoText"], Background -> 
        GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], 
        RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, 
      CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, 
      CellMargins -> {{66, 66}, {15, 15}}]},
    "MoreInfoOpenerButtonTemplate"]}, Dynamic[
    CurrentValue[
     EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
   ImageSize->Automatic]],ExpressionUUID->
  "cf53fb90-46bc-45ee-93eb-d9e08828685b"]
}], "Subsection",
 Editable->False,
 Deletable->False,
 DefaultNewCellStyle->"Item",
 CellTags->{"Related Resource Objects", "TemplateCellGroup"},
 CellID->58300769,ExpressionUUID->"a4f060c5-8840-4c21-8618-233101507341"],

Cell["SkyChart", "Item",
 CellID->593745188,ExpressionUUID->"e2ff2895-0444-4883-92d8-ad9dbbfbd431"],

Cell["SkyPositionChart", "Item",
 CellID->497576271,ExpressionUUID->"852ab82b-7e7d-4e15-b1df-f82290a69ce0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Source/Reference Citation",
 Cell[BoxData[
  PaneSelectorBox[{True->
   TemplateBox[{"Source/Reference Citation", 
     Cell[
      BoxData[
       FrameBox[
        Cell[
        "Give a bibliographic-style citation for the original source of the \
function and/or its components (e.g. a published paper, algorithm, or code \
repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 
        20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], 
      "MoreInfoText", Deletable -> True, 
      CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, 
      CellMargins -> {{66, 66}, {15, 15}}]},
    "MoreInfoOpenerButtonTemplate"]}, Dynamic[
    CurrentValue[
     EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
   ImageSize->Automatic]],ExpressionUUID->
  "31233df2-7053-4cc7-ad27-d48768900bb6"]
}], "Subsection",
 Editable->False,
 Deletable->False,
 DefaultNewCellStyle->"Text",
 CellTags->{"Source/Reference Citation", "TemplateCellGroup"},
 CellID->218541429,ExpressionUUID->"4665c337-2466-4bee-85cc-a3c0fa396e49"],

Cell["Source, reference or citation information", "Text",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellTags->"TabNext",
 CellID->91842863,ExpressionUUID->"6ad0b06e-12b6-4816-9f41-2d79bd27c2ca"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Links",
 Cell[BoxData[
  PaneSelectorBox[{True->
   TemplateBox[{"Links", 
     Cell[
      BoxData[
       FrameBox[
        Cell[
        "List additional URLs or hyperlinks for external information related \
to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], 
        FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 
        5]], "MoreInfoText", Deletable -> True, 
      CellTags -> {"SectionMoreInfoLinks"}, 
      CellMargins -> {{66, 66}, {15, 15}}]},
    "MoreInfoOpenerButtonTemplate"]}, Dynamic[
    CurrentValue[
     EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
   ImageSize->Automatic]],ExpressionUUID->
  "824bec9a-46ce-4e50-9ede-cd95609aca66"]
}], "Subsection",
 Editable->False,
 Deletable->False,
 DefaultNewCellStyle->"Item",
 CellTags->{"Links", "TemplateCellGroup"},
 CellID->280139842,ExpressionUUID->"7530b811-9155-432b-aa7d-623469d606d0"],

Cell["Link to other related material", "Item",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellTags->"TabNext",
 CellID->515049506,ExpressionUUID->"7bd5c4d3-0ab7-4db0-84e2-53ba0285c1f0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Tests",
 Cell[BoxData[
  PaneSelectorBox[{True->
   TemplateBox[{"VerificationTests", 
     Cell[
      BoxData[
       FrameBox[
        Cell[
         TextData[{
          "Specify an optional list of tests for verifying that the function \
is working properly in any environment. Tests can be specified as \
Input/Output cell pairs or as symbolic ", 
           Cell[
            BoxData[
             StyleBox[
              TagBox[
               ButtonBox[
                StyleBox[
                "VerificationTest", "SymbolsRefLink", ShowStringCharacters -> 
                 True, FontFamily -> "Source Sans Pro"], BaseStyle -> 
                Dynamic[
                  FEPrivate`If[
                   CurrentValue["MouseOver"], {
                   "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {
                   "Link"}]], ButtonData -> "paclet:ref/VerificationTest", 
                ContentPadding -> False], 
               MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, 
              FontFamily -> "Source Sans Pro"]]], 
           " expressions for including additional options."}], 
         "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, 
        FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", 
      Deletable -> True, CellTags -> {"SectionMoreInfoVerificationTests"}, 
      CellMargins -> {{66, 66}, {15, 15}}]},
    "MoreInfoOpenerButtonTemplate"]}, Dynamic[
    CurrentValue[
     EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
   ImageSize->Automatic]],ExpressionUUID->
  "6b42c974-5c5d-47a5-b2f0-9457836f71a7"]
}], "Subsection",
 Editable->False,
 Deletable->False,
 DefaultNewCellStyle->"Input",
 CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"},
 CellID->539954343,ExpressionUUID->"039137e6-9322-4e1a-a8ff-b84b79a15952"],

Cell[BoxData[
 RowBox[{"MyFunction", "[", 
  RowBox[{"x", ",", "y"}], "]"}]], "Output",
 TaggingRules->{},
 CellChangeTimes->{3.812288862107193*^9, 3.812289778843124*^9},
 CellID->660885038,ExpressionUUID->"32defb15-0c07-463d-bcd1-8f9592f0d062"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Author Notes",
 Cell[BoxData[
  PaneSelectorBox[{True->
   TemplateBox[{"Author Notes", 
     Cell[
      BoxData[
       FrameBox[
        Cell[
        "This section, when used, will appear near the bottom of the \
published resource. Content displayed in this section can include background, \
possible improvements, additional information and/or implementation details \
that are otherwise beyond the scope of the function documentation.", 
         "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, 
        FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", 
      Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, 
      CellMargins -> {{66, 66}, {15, 15}}]},
    "MoreInfoOpenerButtonTemplate"]}, Dynamic[
    CurrentValue[
     EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
   ImageSize->Automatic]],ExpressionUUID->
  "a6a07f6f-1cbd-4b44-8375-b446d6c982ce"]
}], "Section",
 Editable->False,
 Deletable->False,
 DefaultNewCellStyle->"Text",
 CellTags->{"Author Notes", "TemplateCellGroup"},
 CellID->720474325,ExpressionUUID->"13f02520-079f-41d7-b045-a72f1b0ff67a"],

Cell["\<\
This will be referenced by FlightData (once that gets approved for 13.0). It \
should also reference that function at that point.\
\>", "Text",
 TaggingRules->{},
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellChangeTimes->{{3.8122898553155317`*^9, 3.812289904852716*^9}, {
  3.8378640125058317`*^9, 3.83786402282148*^9}},
 CellTags->"TabNext",
 CellID->975483168,ExpressionUUID->"133768a8-336a-4d69-8b57-1c95a291bd5e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Submission Notes",
 Cell[BoxData[
  PaneSelectorBox[{True->
   TemplateBox[{"Submission Notes", 
     Cell[
      BoxData[
       FrameBox[
        Cell[
        "Enter any additional information that you would like to communicate \
to the reviewer here. This section will not be included in the published \
resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 
        20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], 
      "MoreInfoText", Deletable -> True, 
      CellTags -> {"SectionMoreInfoSubmissionNotes"}, 
      CellMargins -> {{66, 66}, {15, 15}}]},
    "MoreInfoOpenerButtonTemplate"]}, Dynamic[
    CurrentValue[
     EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
   ImageSize->Automatic]],ExpressionUUID->
  "c0456098-b813-40fa-bee7-3266a43718c8"]
}], "Section",
 Editable->False,
 Deletable->False,
 DefaultNewCellStyle->"Text",
 CellTags->{"Submission Notes", "TemplateCellGroup"},
 CellID->577229082,ExpressionUUID->"997fc09a-62ce-4548-9101-0609b7a5bfb8"],

Cell["Additional information for the reviewer.", "Text",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellTags->"TabNext",
 CellID->932041030,ExpressionUUID->"28130abe-2256-46ea-b287-af5d2017c011"]
}, Open  ]]
}, Open  ]]
},
WindowSize->Automatic,
WindowMargins->{{
  Automatic, -5.399999999999864}, {-5.399999999999977, Automatic}},
WindowTitle->"FlightsOverhead | Definition Notebook",
TaggingRules->{"CompatibilityTest" -> HoldComplete[
    BinaryDeserialize[
     BaseDecode[
     "OEM6eJzVWVtT20YUrjEQBhxaMulMkyc98EAyadJpO9NL2iauDcQdIMCa9JW1dGQ0rHeV3RWg\
X9a/17MrydhGciTbTFNPJsja1XfOnut3LH9JPWqJQSgi7u3ehBKUCgT3a2rlJApA+/nLS2qp4+P/\
9Sb38M/K7seIMrW5/QGkWT+KBj2Q0refnbdmB6EDOMGLRiuSErj+QFkE/\
hfq0e4VXlFtnhIaekJc4q7lg0Bp1ejSfj/g/dOIgSKNU1Aiki504xDIcptqimouv+\
cuFGq58icT7qXZlgButwTXcKOPqb7w60UnPwLwFNnJ5JFYaRi0WIBqn7fBD3gwqu757SOOUSp7LG+\
rWj6KGEPFXt5dTAWcQh9VBYma+kE/ktY0w+O+KavUKYRCBVrIOAFMcFQKVLf+\
q6m1PRqwSKJnaurhMXUZ6A5XmjJGvinS0F+\
dxdgzmbXRFWOeWSdaYjz8JQIjr35IQ3uGiLvmSX8lkUyeFBrXKkeVCeuNBIuELNDmNmFCt2qkdk6Wf\
v195MbS63WrPMavIs/KKv/\
cXy6wUp2AkbfeFtfcJoFSv5RFzS7eRxrdCJ5JqHX0NKMuNDGuFgi7YZKuDYzG4CHuxjvBPHQkBiZXf\
5QFPpbBFQKeXyVlYV8CfpPqwRlXaTnIsUa7KjoNQ+DeGb+\
g3GPgtYAxNdUwi5IwxUb4tbKVXITFipcikK0uDPAAGoy4fSmicH5QzN1Gk5krLAdXGNBft3BTX8gA1\
LetC3Ave+IGb2/e3jbSSSNbs982UR6NmLb5zXWOpuTL7BaBJDdzXV26mg0doS674iz08Dqt+\
8VeXgD4mIPreONBlgJr+0z0KDu/MC1t1KLqp7Ji90G/\
CzwPeFKIyqfrHuVu3LoQgQvtgDLRH1WskSomNXZJ7K9YlCm/\
zFOd4uqWXTU9icDHCPDU5FFqAeZlAk+\
wXQzPOy5gBCxrKStdGdnUnrNKVGl22UUWdCkNUd9XVYH3quRYSmUmpY5ZKLPnEVwP7Zlr4yRB1GFVl\
bcjBQfQp27c6XMhk+qU+VotG2/kJ9/rspJycCcSb1oazilmWo1dUqsH+\
KQtjHtV7dYHnZWxcYkLSyVMiQ3UHLAuUgXqPtQtzEak0JY1r5rdnbbJS6ufetDBmt3HSF3rcCss/\
oSR60OtCw6eApeue9mJ1LAz3IHt3Vp7KH5EZk3tVm6DlAseuJQdSxECWsvyuVl1HlE0f4hYSotho6m\
UcAPLvU9Us3Juh6m2JEb144GJobWmJSNdsRg4GyZkk1igQ9DUM/\
NBOoGRtVagkwHkSbLj1Sn4IE10O9nSbXVZjFdGhE6olUxPwxkqGUGXD9Dmd0bPL+zn+\
VucCeYZVqZMEhX4/fNClGqEvhrONAb/YyESDoGXtA/ERYdU4+1nhZhJt8uLg0TYzET+3kROZ/\
YlrVeGz88E9Zmx+OP5vVCB1t+HtFl4/k6hHpPEvjht/ydMfqZqgQDffbJeTVLn1tzOtQz+\
VSHMfVD2YqXHzDMzUX9RiD8fM6+KW5aK/1bOHv8tAZ9Lyc+Idv9ceA7iShpi/ZnMkHl49+\
uS7SqXbc+s6ox0uzPlN/bsx3HMtiicFDuddi8UdpH0ex7nlCTdtbHf2yfeAuUz8R/sZ+etcc9oqyP/\
1LoXgXJ4qqpjqBiVytHC6YHj2i7iOb4UA4c6HK5BOmmHeeEogf8G4Pi4KcIocAY0NkjOtZCIpBy4CT\
F2wHvptIUTi8i5DtSFgdYydmikxQAPizZgseMKjrgaw8/RYwrhboqrgxC39hhk0t/cTg/\
1dHpYy6aH8TlCbaLrk2YjJJVx4TBiHTj5bmz4CqLgfdhDgg6L1CGioG9x+\
xY6tG9AO9zDs2EcDuvRetMalxpasHaEJNB0BOvNVRIPeoKRp8nbn0PKEUyeJ9+Snkce5811pZ/+\
KouXDOV2vNqeXMp9D7QyIujZnSeKiMG4/\
WyabbVsUI30dbWyR5mC4Y6npzAQV7A7CHW8e0ORJGTUV01ufdzMGR2GbTwVmCj3d8A9cd0NNHoiRcl\
98fkvn3IKDA=="]]], "CreationTimestamp" -> 
  3.850822034109034`16.338128437309987*^9, "DefinitionNotebookFramework" -> 
  "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, 
  "ResourceType" -> "Function", 
  "RuntimeConfiguration" -> {
   "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", 
    "Contexts" -> {
     "FunctionResource`", "FunctionResource`DefinitionNotebook`"}}, 
  "ToolsOpen" -> False, "UpdatedTimestamp" -> 
  3.85082203415992`16.338128437315728*^9, 
  "VersionInformation" -> {"ResourceVersion" -> "1.1.0"}, "TemplateVersion" -> 
  "1.6.3", "StatusMessage" -> "", 
  "SubmissionReviewData" -> {"Review" -> False}},
CreateCellID->True,
FrontEndVersion->"13.1 for Microsoft Windows (64-bit) (June 16, 2022)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]], 
   Cell[
    StyleData[All, "Working"], DockedCells -> {
      Cell[
       BoxData[
        TemplateBox[{}, "MainGridTemplate"]], "DockedCell", 
       CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> 
       RGBColor[0.921569, 0.341176, 0.105882], CellTags -> {"MainDockedCell"},
        CacheGraphics -> False], 
      Cell[
       BoxData[
        TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", 
       TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, 
       CellFrameMargins -> {{0, 0}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, 
       CacheGraphics -> False, CellOpen -> Dynamic[
         CurrentValue[
          EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, 
    PrivateNotebookOptions -> {
     "FileOutlineCache" -> False, "SafeFileOpen" -> "IgnoreCache"}, 
    CellLabelAutoDelete -> False, 
    CodeAssistOptions -> {"AutoDetectHyperlinks" -> False}, 
    AutoQuoteCharacters -> {}], 
   Cell["Hint Styles", "Section"], 
   Cell[
    StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], 
    FontColor -> GrayLevel[0.25]], 
   Cell[
    StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], 
    ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, 
    CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, 
    FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], 
   Cell[
    StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], 
    ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 
    14, GridBoxOptions -> {BaseStyle -> {}}], 
   Cell["Template Boxes", "Section"], 
   Cell[
    StyleData["MoreInfoOpenerIconTemplate"], 
    TemplateBoxOptions -> {
     DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{
            Thickness[0.09090909090909091], 
            StyleBox[{
              
              JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
                3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky
Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E
QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L
Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3
NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf
raY=
               "], CurveClosed -> {1}]}, {
              JoinForm[{"Miter", 3.25}], 
              Thickness[0.04581818181818182], 
              RGBColor[0.627441, 0.627441, 0.627441, 1.]}, StripOnInput -> 
             False], 
            StyleBox[{
              
              FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
                 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 
                0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1,
                 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 
                0}}}, {CompressedData["
1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m
N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4
1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j
1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/
oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP
Mx8WPjD7YeEHcx8sfNHDHwBu/qSR
                "], CompressedData["
1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/
8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D
W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN
DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL
wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef
X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+
5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67
                "]}]}, {
              FaceForm[
               RGBColor[0.627441, 0.627441, 0.627441, 1.]]}, StripOnInput -> 
             False]}, ImageSize -> {11., 11.}, 
           PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], 
         True -> GraphicsBox[{
            Thickness[0.09090909090909091], 
            StyleBox[{
              
              JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
                3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky
Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E
QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L
Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3
NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf
raY=
               "], CurveClosed -> {1}]}, {
              JoinForm[{"Miter", 3.25}], 
              Thickness[0.04581818181818182], 
              RGBColor[0.5, 0.5, 0.5, 1.]}, StripOnInput -> False], 
            StyleBox[{
              
              FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
                3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky
Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E
QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L
Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3
NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf
raY=
               "]]}, {
              FaceForm[
               RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], 
            StyleBox[{
              
              FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
                 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 
                0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1,
                 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 
                0}}}, {CompressedData["
1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m
N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4
1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j
1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/
oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP
Mx8WPjD7YeEHcx8sfNHDHwBu/qSR
                "], CompressedData["
1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/
8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D
W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN
DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL
wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef
X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+
5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67
                "]}]}, {
              FaceForm[
               RGBColor[0.999985, 0.999985, 0.999985, 1.]]}, StripOnInput -> 
             False]}, ImageSize -> {11., 11.}, 
           PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, 
        Dynamic[
         CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 
        0]& )}], 
   Cell[
    StyleData["MoreInfoOpenerButtonTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[
        ButtonBox[
         TemplateBox[{
           TemplateBox[{}, "MoreInfoOpenerIconTemplate"], 
           "\"Click for more information\""}, "PrettyTooltipTemplate"], 
         ButtonFunction :> (NotebookDelete[
            CurrentValue[
             ParentCell[
              EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}]]; 
          If[
            And[
             MatchQ[
              CurrentValue[
               ParentCell[
                EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}], 
              Blank[CellObject]], CurrentValue[
               ParentCell[
                EvaluationCell[]], {
               TaggingRules, "AttachedMoreInfoTag"}] === #], CurrentValue[
               ParentCell[
                EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = 
             Inherited; CurrentValue[
               ParentCell[
                EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = 
             Inherited; Null, CurrentValue[
               ParentCell[
                EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = #; 
            CurrentValue[
               ParentCell[
                EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = 
             MathLink`CallFrontEnd[
               FrontEnd`AttachCell[
                ParentCell[
                 EvaluationCell[]], #2, "Inline", 
                "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), 
         Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], 
        BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], 
   Cell[
    StyleData["InlineMoreInfoOpenerButtonTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[
        ButtonBox[
         TemplateBox[{
           TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, 
          "PrettyTooltipTemplate"], ButtonFunction :> (NotebookDelete[
            CurrentValue[
             ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}]]; If[
            And[
             MatchQ[
              CurrentValue[
               ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}], 
              Blank[CellObject]], CurrentValue[
               ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] === #],
             CurrentValue[
               ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = 
             Inherited; CurrentValue[
               ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = 
             Inherited; Null, CurrentValue[
               ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = #; 
            CurrentValue[
               ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = 
             MathLink`CallFrontEnd[
               FrontEnd`AttachCell[
                ReleaseHold[#3], #2, "Inline", 
                "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), 
         Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], 
        BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], 
   Cell[
    StyleData["ClickToCopyTemplate"], 
    TemplateBoxOptions -> {
     DisplayFunction -> (PaneSelectorBox[{False -> TagBox[
           GridBox[{{#, 
              ButtonBox[
               GraphicsBox[{
                 GrayLevel[0.85], 
                 Thickness[
                  NCache[2/45, 0.044444444444444446`]], 
                 
                 FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                   0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 
                   0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                   0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                   0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {
                   9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 
                   18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, {
                   16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, {
                   15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {
                   8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 
                   16.5}, {9.75, 16.5}}}], 
                 
                 FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                  0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                  0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {
                  14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, {
                  14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 
                  9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 
                  7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, 
                ImageSize -> 12], ButtonFunction :> Null, 
               Appearance -> {
                "Default" -> None, "Hover" -> None, "Pressed" -> None}, 
               Evaluator -> Automatic, Method -> "Preemptive"]}}, 
            GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}},
             AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> 
         DynamicModuleBox[{RSNB`clickTime$$ = 0., RSNB`timeout$$ = 3.}, 
           TagBox[
            GridBox[{{#, 
               TagBox[
                ButtonBox[
                 DynamicBox[
                  ToBoxes[
                   Refresh[
                    If[AbsoluteTime[] - RSNB`clickTime$$ > RSNB`timeout$$, 
                    (RawBoxes[
                    TemplateBox[{
                    ToBoxes[#], 
                    ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[
                    Mouseover[
                    Graphics[{
                    GrayLevel[0.65], 
                    Thickness[2/45], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 
                    18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 
                    18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {
                    16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {
                    15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 
                    17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, {
                    12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 
                    14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{
                    8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 
                    11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25,
                     9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 
                    6.75}}}]}, ImageSize -> 12], 
                    Graphics[{
                    RGBColor[0.988235, 0.419608, 0.203922], 
                    Thickness[2/45], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 
                    18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 
                    18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {
                    16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {
                    15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 
                    17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, {
                    12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 
                    14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{
                    8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 
                    11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25,
                     9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 
                    6.75}}}]}, ImageSize -> 12]], 
                    "Click to copy to the clipboard"], 
                    (RawBoxes[
                    TemplateBox[{
                    ToBoxes[#], 
                    ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[
                    Graphics[{
                    RGBColor[0, 2/3, 0], 
                    Thickness[2/45], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 
                    18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 
                    18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {
                    16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {
                    15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 
                    17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, {
                    12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 
                    14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{
                    8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 
                    11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25,
                     9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 
                    6.75}}}]}, ImageSize -> 12], "Copied"]], UpdateInterval -> 
                    1, TrackedSymbols :> {RSNB`clickTime$$}], StandardForm], 
                  Evaluator -> "System"], 
                 ButtonFunction :> (RSNB`clickTime$$ = AbsoluteTime[]; 
                  CopyToClipboard[
                    BinaryDeserialize[
                    BaseDecode[#2], Defer]]), 
                 Appearance -> {
                  "Default" -> None, "Hover" -> None, "Pressed" -> None}, 
                 Method -> "Queued", Evaluator -> "System"], 
                MouseAppearanceTag["LinkHand"]]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], 
           DynamicModuleValues :> {}]}, 
        Dynamic[
         CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 
        0]& )}], 
   Cell[
    StyleData["PrettyTooltipTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (TagBox[
        TooltipBox[#, 
         FrameBox[
          
          StyleBox[#2, "Text", FontColor -> 
           RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> 
           "Plain", FontTracking -> "Plain", StripOnInput -> False], 
          Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> 
          RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, 
          StripOnInput -> False], TooltipDelay -> 0.1, 
         TooltipStyle -> {Background -> None, CellFrame -> 0}], 
        Annotation[#, 
         Framed[
          Style[
          RSNB`$$tooltip, "Text", FontColor -> 
           RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> 
           "Plain", FontTracking -> "Plain"], Background -> 
          RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> 
          RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], 
         "Tooltip"]& ]& )}], 
   Cell[
    StyleData["ToolsGridTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (StyleBox[
        TagBox[
         GridBox[{{
            ButtonBox[
             TemplateBox[{
               StyleBox[
               "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", 
                FontSize -> 11, StripOnInput -> False], 
               "\"Format selection automatically using appropriate \
documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> 
             With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = RSNB`$cp$, 
                  ResourceSystemClient`$AsyncronousResourceInformationUpdates = 
                  False}, 
                 Internal`WithLocalSettings[
                  DefinitionNotebookClient`$ButtonsDisabled = True; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; Needs["DefinitionNotebookClient`"], 
                   DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, 
                    ReleaseHold[
                    DefinitionNotebookClient`$ButtonCode = 
                    HoldForm[
                    DefinitionNotebookClient`$ClickedButton = 
                    "Template Input"; 
                    DefinitionNotebookClient`TemplateInput[]]]], 
                   DefinitionNotebookClient`$ButtonsDisabled = False; Null]; 
                 Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> 
             Dynamic[
               FEPrivate`If[
                CurrentValue[Enabled], 
                FEPrivate`If[
                 CurrentValue["MouseOver"], {
                 FontColor -> GrayLevel[1], 
                  TaggingRules -> {"ButtonHovering" -> True}}, {
                 FontColor -> 
                  RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], 
                  TaggingRules -> {"ButtonHovering" -> False}}], {
                FontColor -> 
                 RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], 
                 TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> 
               "System"], Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC
1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL
AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
               "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7
qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB
IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw==
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
               "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/
m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg
oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
             Background -> GrayLevel[0.9], Method -> "Queued", 
             ImageSize -> {All, 20}, Evaluator -> Automatic], 
            ButtonBox[
             TemplateBox[{
               StyleBox[
               "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", 
                FontSize -> 11, StripOnInput -> False], 
               "\"Format selection as literal Wolfram Language code\""}, 
              "PrettyTooltipTemplate"], ButtonFunction :> 
             With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = RSNB`$cp$, 
                  ResourceSystemClient`$AsyncronousResourceInformationUpdates = 
                  False}, 
                 Internal`WithLocalSettings[
                  DefinitionNotebookClient`$ButtonsDisabled = True; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; Needs["DefinitionNotebookClient`"], 
                   DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, 
                    ReleaseHold[
                    DefinitionNotebookClient`$ButtonCode = 
                    HoldForm[
                    DefinitionNotebookClient`$ClickedButton = "Literal Input"; 
                    DefinitionNotebookClient`LiteralInput[]]]], 
                   DefinitionNotebookClient`$ButtonsDisabled = False; Null]; 
                 Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> 
             Dynamic[
               FEPrivate`If[
                CurrentValue[Enabled], 
                FEPrivate`If[
                 CurrentValue["MouseOver"], {
                 FontColor -> GrayLevel[1], 
                  TaggingRules -> {"ButtonHovering" -> True}}, {
                 FontColor -> 
                  RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], 
                  TaggingRules -> {"ButtonHovering" -> False}}], {
                FontColor -> 
                 RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], 
                 TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> 
               "System"], Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC
1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL
AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
               "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7
qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB
IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw==
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
               "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/
m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg
oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
             Background -> GrayLevel[0.9], Method -> "Queued", 
             ImageSize -> {All, 20}, Evaluator -> Automatic], 
            ButtonBox[
             TemplateBox[{
               StyleBox[
               "\"Insert Delimiter\"", "Text", FontFamily -> 
                "Source Sans Pro", FontSize -> 11, StripOnInput -> False], 
               "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], 
             ButtonFunction :> 
             With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = RSNB`$cp$, 
                  ResourceSystemClient`$AsyncronousResourceInformationUpdates = 
                  False}, 
                 Internal`WithLocalSettings[
                  DefinitionNotebookClient`$ButtonsDisabled = True; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; Needs["DefinitionNotebookClient`"], 
                   DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, 
                    ReleaseHold[
                    DefinitionNotebookClient`$ButtonCode = 
                    HoldForm[
                    DefinitionNotebookClient`$ClickedButton = 
                    "Insert Delimiter"; 
                    DefinitionNotebookClient`DelimiterInsert[]]]], 
                   DefinitionNotebookClient`$ButtonsDisabled = False; Null]; 
                 Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> 
             Dynamic[
               FEPrivate`If[
                CurrentValue[Enabled], 
                FEPrivate`If[
                 CurrentValue["MouseOver"], {
                 FontColor -> GrayLevel[1], 
                  TaggingRules -> {"ButtonHovering" -> True}}, {
                 FontColor -> 
                  RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], 
                  TaggingRules -> {"ButtonHovering" -> False}}], {
                FontColor -> 
                 RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], 
                 TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> 
               "System"], Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC
1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL
AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
               "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7
qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB
IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw==
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
               "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/
m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg
oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
             Background -> GrayLevel[0.9], Method -> "Queued", 
             ImageSize -> {All, 20}, Evaluator -> Automatic], 
            ButtonBox[
             TemplateBox[{
               StyleBox[
               "\"Subscripted Variable\"", "Text", FontFamily -> 
                "Source Sans Pro", FontSize -> 11, StripOnInput -> False], 
               "\"Insert subscripted variable placeholder\""}, 
              "PrettyTooltipTemplate"], ButtonFunction :> 
             With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = RSNB`$cp$, 
                  ResourceSystemClient`$AsyncronousResourceInformationUpdates = 
                  False}, 
                 Internal`WithLocalSettings[
                  DefinitionNotebookClient`$ButtonsDisabled = True; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; Needs["DefinitionNotebookClient`"], 
                   DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, 
                    ReleaseHold[
                    DefinitionNotebookClient`$ButtonCode = 
                    HoldForm[
                    DefinitionNotebookClient`$ClickedButton = 
                    "Subscripted Variable"; 
                    DefinitionNotebookClient`SubscriptInsert[]]]], 
                   DefinitionNotebookClient`$ButtonsDisabled = False; Null]; 
                 Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> 
             Dynamic[
               FEPrivate`If[
                CurrentValue[Enabled], 
                FEPrivate`If[
                 CurrentValue["MouseOver"], {
                 FontColor -> GrayLevel[1], 
                  TaggingRules -> {"ButtonHovering" -> True}}, {
                 FontColor -> 
                  RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], 
                  TaggingRules -> {"ButtonHovering" -> False}}], {
                FontColor -> 
                 RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], 
                 TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> 
               "System"], Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC
1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL
AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
               "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7
qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB
IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw==
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
               "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/
m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg
oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
             Background -> GrayLevel[0.9], Method -> "Queued", 
             ImageSize -> {All, 20}, Evaluator -> Automatic], 
            ActionMenuBox[
             ButtonBox[
              TemplateBox[{
                StyleBox[
                 
                 TemplateBox[{
                  "\"Tables\"", 
                   "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\
\[FilledDownTriangle]\""}, "RowDefault"], "Text", FontFamily -> 
                 "Source Sans Pro", FontSize -> 11, StripOnInput -> False], 
                "\"Table functions\""}, "PrettyTooltipTemplate"], 
              ButtonFunction :> 
              With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, 
                Quiet[
                 
                 Block[{$ContextPath = RSNB`$cp$, 
                   ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False}, 
                  Internal`WithLocalSettings[
                   DefinitionNotebookClient`$ButtonsDisabled = True; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; Needs["DefinitionNotebookClient`"], 
                    DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, 
                    ReleaseHold[
                    DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], 
                    DefinitionNotebookClient`$ButtonsDisabled = False; Null]; 
                  Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> 
              Dynamic[
                FEPrivate`If[
                 CurrentValue[Enabled], 
                 FEPrivate`If[
                  CurrentValue["MouseOver"], {
                  FontColor -> GrayLevel[1], 
                   TaggingRules -> {"ButtonHovering" -> True}}, {
                  FontColor -> 
                   RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], 
                   TaggingRules -> {"ButtonHovering" -> False}}], {
                 FontColor -> 
                  RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], 
                  TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> 
                "System"], Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC
1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL
AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x
                  "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
                "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7
qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB
IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw==
                  "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
                "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/
m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg
oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg
                  "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
              Background -> GrayLevel[0.9], Method -> "Queued", 
              ImageSize -> {All, 20}, Evaluator -> Automatic], {
             "\"Insert table with two columns\"" :> 
              With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, 
                Quiet[
                 
                 Block[{$ContextPath = RSNB`$cp$, 
                   ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False}, 
                  Internal`WithLocalSettings[
                   DefinitionNotebookClient`$ButtonsDisabled = True; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; Needs["DefinitionNotebookClient`"], 
                    DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, 
                    ReleaseHold[
                    DefinitionNotebookClient`$ButtonCode = 
                    HoldForm[
                    DefinitionNotebookClient`$ClickedButton = "Tables"; 
                    DefinitionNotebookClient`$ClickedAction = 
                    "Insert table with two columns"; 
                    DefinitionNotebookClient`TableInsert[2]]]], 
                    DefinitionNotebookClient`$ButtonsDisabled = False; Null]; 
                  Null]]], "\"Insert table with three columns\"" :> 
              With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, 
                Quiet[
                 
                 Block[{$ContextPath = RSNB`$cp$, 
                   ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False}, 
                  Internal`WithLocalSettings[
                   DefinitionNotebookClient`$ButtonsDisabled = True; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; Needs["DefinitionNotebookClient`"], 
                    DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, 
                    ReleaseHold[
                    DefinitionNotebookClient`$ButtonCode = 
                    HoldForm[
                    DefinitionNotebookClient`$ClickedButton = "Tables"; 
                    DefinitionNotebookClient`$ClickedAction = 
                    "Insert table with three columns"; 
                    DefinitionNotebookClient`TableInsert[3]]]], 
                    DefinitionNotebookClient`$ButtonsDisabled = False; Null]; 
                  Null]]], "\"Add a row to the selected table\"" :> 
              With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, 
                Quiet[
                 
                 Block[{$ContextPath = RSNB`$cp$, 
                   ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False}, 
                  Internal`WithLocalSettings[
                   DefinitionNotebookClient`$ButtonsDisabled = True; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; Needs["DefinitionNotebookClient`"], 
                    DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, 
                    ReleaseHold[
                    DefinitionNotebookClient`$ButtonCode = 
                    HoldForm[
                    DefinitionNotebookClient`$ClickedButton = "Tables"; 
                    DefinitionNotebookClient`$ClickedAction = 
                    "Add a row to the selected table"; 
                    DefinitionNotebookClient`TableRowInsert[]]]], 
                    DefinitionNotebookClient`$ButtonsDisabled = False; Null]; 
                  Null]]], "\"Sort the selected table\"" :> 
              With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, 
                Quiet[
                 
                 Block[{$ContextPath = RSNB`$cp$, 
                   ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False}, 
                  Internal`WithLocalSettings[
                   DefinitionNotebookClient`$ButtonsDisabled = True; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; Needs["DefinitionNotebookClient`"], 
                    DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, 
                    ReleaseHold[
                    DefinitionNotebookClient`$ButtonCode = 
                    HoldForm[
                    DefinitionNotebookClient`$ClickedButton = "Tables"; 
                    DefinitionNotebookClient`$ClickedAction = 
                    "Sort the selected table"; 
                    DefinitionNotebookClient`TableSort[]]]], 
                    DefinitionNotebookClient`$ButtonsDisabled = False; Null]; 
                  Null]]], "\"Merge selected tables\"" :> 
              With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, 
                Quiet[
                 
                 Block[{$ContextPath = RSNB`$cp$, 
                   ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False}, 
                  Internal`WithLocalSettings[
                   DefinitionNotebookClient`$ButtonsDisabled = True; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; Needs["DefinitionNotebookClient`"], 
                    DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, 
                    ReleaseHold[
                    DefinitionNotebookClient`$ButtonCode = 
                    HoldForm[
                    DefinitionNotebookClient`$ClickedButton = "Tables"; 
                    DefinitionNotebookClient`$ClickedAction = 
                    "Merge selected tables"; 
                    DefinitionNotebookClient`TableMerge[]]]], 
                    DefinitionNotebookClient`$ButtonsDisabled = False; Null]; 
                  Null]]]}, Appearance -> None, Method -> "Queued"], 
            ActionMenuBox[
             ButtonBox[
              StyleBox[
               
               TemplateBox[{
                "\"Cells\"", 
                 "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\
\""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, 
               StripOnInput -> False], ButtonFunction :> 
              With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, 
                Quiet[
                 
                 Block[{$ContextPath = RSNB`$cp$, 
                   ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False}, 
                  Internal`WithLocalSettings[
                   DefinitionNotebookClient`$ButtonsDisabled = True; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; Needs["DefinitionNotebookClient`"], 
                    DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, 
                    ReleaseHold[
                    DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], 
                    DefinitionNotebookClient`$ButtonsDisabled = False; Null]; 
                  Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> 
              Dynamic[
                FEPrivate`If[
                 CurrentValue[Enabled], 
                 FEPrivate`If[
                  CurrentValue["MouseOver"], {
                  FontColor -> GrayLevel[1], 
                   TaggingRules -> {"ButtonHovering" -> True}}, {
                  FontColor -> 
                   RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], 
                   TaggingRules -> {"ButtonHovering" -> False}}], {
                 FontColor -> 
                  RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], 
                  TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> 
                "System"], Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC
1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL
AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x
                  "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
                "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7
qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB
IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw==
                  "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
                "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/
m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg
oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg
                  "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
              Background -> GrayLevel[0.9], Method -> "Queued", 
              ImageSize -> {All, 20}, Evaluator -> Automatic], {
             "\"Insert comment for reviewer\"" :> 
              With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, 
                Quiet[
                 
                 Block[{$ContextPath = RSNB`$cp$, 
                   ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False}, 
                  Internal`WithLocalSettings[
                   DefinitionNotebookClient`$ButtonsDisabled = True; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; Needs["DefinitionNotebookClient`"], 
                    DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, 
                    ReleaseHold[
                    DefinitionNotebookClient`$ButtonCode = 
                    HoldForm[
                    DefinitionNotebookClient`$ClickedButton = "Cells"; 
                    DefinitionNotebookClient`$ClickedAction = 
                    "Insert comment for reviewer"; 
                    DefinitionNotebookClient`CommentInsert[]]]], 
                    DefinitionNotebookClient`$ButtonsDisabled = False; Null]; 
                  Null]]], "\"Mark/unmark selected cells as comments\"" :> 
              With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, 
                Quiet[
                 
                 Block[{$ContextPath = RSNB`$cp$, 
                   ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False}, 
                  Internal`WithLocalSettings[
                   DefinitionNotebookClient`$ButtonsDisabled = True; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; Needs["DefinitionNotebookClient`"], 
                    DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, 
                    ReleaseHold[
                    DefinitionNotebookClient`$ButtonCode = 
                    HoldForm[
                    DefinitionNotebookClient`$ClickedButton = "Cells"; 
                    DefinitionNotebookClient`$ClickedAction = 
                    "Mark/unmark selected cells as comments"; 
                    DefinitionNotebookClient`CommentToggle[]]]], 
                    DefinitionNotebookClient`$ButtonsDisabled = False; Null]; 
                  Null]]], "\"Mark/unmark selected cells as excluded\"" :> 
              With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, 
                Quiet[
                 
                 Block[{$ContextPath = RSNB`$cp$, 
                   ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False}, 
                  Internal`WithLocalSettings[
                   DefinitionNotebookClient`$ButtonsDisabled = True; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; Needs["DefinitionNotebookClient`"], 
                    DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, 
                    ReleaseHold[
                    DefinitionNotebookClient`$ButtonCode = 
                    HoldForm[
                    DefinitionNotebookClient`$ClickedButton = "Cells"; 
                    DefinitionNotebookClient`$ClickedAction = 
                    "Mark/unmark selected cells as excluded"; 
                    DefinitionNotebookClient`ExclusionToggle[]]]], 
                    DefinitionNotebookClient`$ButtonsDisabled = False; Null]; 
                  Null]]]}, Appearance -> None, Method -> "Queued"]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, 
          AutoDelete -> False, 
          GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> {
              GrayLevel[0.9]}}, 
          GridBoxFrame -> {
           "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          GridBoxSpacings -> {
           "Columns" -> {5, {0.5}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> 
          GrayLevel[0.75]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[
            Not[
             TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], 
            TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, 
        StripOnInput -> False]& )}], 
   Cell[
    StyleData["MainGridTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (StyleBox[
        TagBox[
         GridBox[{{
            TagBox[
             GridBox[{{
                GraphicsBox[{
                  Thickness[0.022222222222222223`], {
                   FaceForm[{
                    RGBColor[0.87451, 0.278431, 0.03137260000000001], 
                    Opacity[1.]}], 
                   
                   FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
                    3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 
                    0.}, {22.5, 0.}, {10.074, 0.}, {0., 
                    10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074, 
                    45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 
                    22.5}}}]}, {
                   FaceForm[{
                    RGBColor[1., 1., 1.], 
                    Opacity[1.]}], 
                   
                   FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
                    3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
                    3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 
                    3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 
                    3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 
                    3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 
                    0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 
                    3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData["
1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e
ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa
4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB
9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2
cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1
2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh
Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e
PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx
71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP
iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h
I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A
peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8=
                    "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 
                    27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 
                    26.308999999999997`}, {21.375, 26.258000000000003`}, {
                    21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 
                    15.602}, {21.426, 15.547}, {23.828, 
                    15.315999999999999`}, {23.828, 14.242}}, {{24.578, 
                    18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {
                    24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, {
                    30.203, 23.91}, {30.578, 23.539}, {30.578, 
                    23.078000000000003`}, {30.578, 18.75}, {
                    30.581999999999997`, 18.288999999999998`}, {30.207, 
                    17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 
                    17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 
                    14.242}, {31.328, 15.315999999999999`}, {33.684, 
                    15.539000000000001`}, {33.789, 15.602}, {33.789, 
                    17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 
                    26.281}, {31.328, 26.512000000000004`}, {31.328, 
                    27.586}, {36.113, 27.586}, {36.113, 
                    14.234000000000002`}}}]}}, {
                 ImageSize -> {Automatic, 32}, 
                  ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> 
                  Scaled[0.25], AspectRatio -> Automatic, Background -> 
                  RGBColor[0.988235, 0.419608, 0.203922], 
                  ImageSize -> {45., 45.}, 
                  PlotRange -> {{0., 45.}, {0., 45.}}}], 
                StyleBox[
                 TagBox[
                  GridBox[{{
                    StyleBox[
                    "\"Function Resource\"", FontFamily -> "Source Sans Pro", 
                    FontWeight -> "SemiBold", StripOnInput -> False], 
                    StyleBox[
                    "\"DEFINITION NOTEBOOK\"", FontFamily -> 
                    "Source Sans Pro", FontTracking -> "SemiCondensed", 
                    FontVariations -> {"CapsType" -> "AllSmallCaps"}, 
                    StripOnInput -> False]}}, 
                   GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, 
                   AutoDelete -> False, 
                   GridBoxDividers -> {
                    "ColumnsIndexed" -> {2 -> RGBColor[1., 1., 1.]}, 
                    "Rows" -> {{None}}}, 
                   GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                  "Grid"], FontSize -> 24, FontColor -> RGBColor[1., 1., 1.], 
                 StripOnInput -> False]}}, 
              GridBoxAlignment -> {
               "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> 
              False, GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", 
            "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", 
            "\[SpanFromLeft]", 
            ItemBox[
             TemplateBox[{
               StyleBox[
                
                TemplateBox[{
                 "\"Function Repository\"", "\" \[RightGuillemet]  \""}, 
                 "RowDefault"], "Text", FontColor -> RGBColor[1., 1., 1.], 
                StripOnInput -> False], 
               "https://resources.wolframcloud.com/FunctionRepository"}, 
              "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> 
             False]}, {
            TemplateBox[{
              
              TemplateBox[{
               "\"Open Sample\"", 
                "\"View a completed sample definition notebook\""}, 
               "PrettyTooltipTemplate"], (
              DefinitionNotebookClient`$ClickedButton = "Open Sample"; 
              DefinitionNotebookClient`ViewExampleNotebook[
                ButtonNotebook[]])& , 
              "\"View a completed sample definition notebook\"", False}, 
             "OrangeButtonTemplate"], 
            TemplateBox[{
              
              TemplateBox[{
               "\"Style Guidelines\"", 
                "\"View general guidelines for authoring resource \
functions\""}, "PrettyTooltipTemplate"], (
              DefinitionNotebookClient`$ClickedButton = "Style Guidelines"; 
              DefinitionNotebookClient`ViewStyleGuidelines[
                ButtonNotebook[]])& , 
              "\"View general guidelines for authoring resource functions\"", 
              False}, "OrangeButtonTemplate"], 
            TemplateBox[{
              TemplateBox[{
                TagBox[
                 GridBox[{{"\"Tools\"", 
                    PaneSelectorBox[{False -> GraphicsBox[{
                    RGBColor[1., 1., 1.], 
                    AbsoluteThickness[1.], 
                    LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], 
                    LineBox[{{5, 2.5}, {5, 7.5}}], 
                    LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, 
                    PlotRangePadding -> 1.5], True -> GraphicsBox[{
                    RGBColor[1., 1., 1.], 
                    AbsoluteThickness[1.], 
                    LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], 
                    LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, 
                    PlotRangePadding -> 1.5]}, 
                    Dynamic[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]],
                     BaselinePosition -> Scaled[0]]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], 
                "\"Toggle documentation toolbar\""}, 
               "PrettyTooltipTemplate"], (
              DefinitionNotebookClient`$ClickedButton = "Tools"; 
              DefinitionNotebookClient`ToggleToolbar[
                ButtonNotebook[]])& , "\"Toggle documentation toolbar\"", 
              False}, "OrangeButtonTemplate"], 
            TagBox[
             
             GridBox[{{"\"\"", "\"\""}}, 
              GridBoxAlignment -> {
               "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
              False, GridBoxDividers -> {
               "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, 
              GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> 
              RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], 
            TemplateBox[{
              
              TemplateBox[{
               "\"Check\"", "\"Check notebook for potential errors\""}, 
               "PrettyTooltipTemplate"], (
              DefinitionNotebookClient`$ClickedButton = "Check"; 
              DefinitionNotebookClient`CheckDefinitionNotebook[
                ButtonNotebook[]])& , 
              "\"Check notebook for potential errors\"", False}, 
             "OrangeButtonTemplate"], 
            ActionMenuBox[
             TemplateBox[{
               TemplateBox[{"\"Preview\"", 
                 TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, 
                "RowDefault"], Null& , "\"\"", True}, 
              "OrangeButtonTemplate"], {
             "\"In a notebook\"" :> 
              With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, 
                Quiet[
                 
                 Block[{$ContextPath = RSNB`$cp$, 
                   ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False, 
                   DefinitionNotebookClient`$SuppressDynamicEvents = True}, 
                  Internal`WithLocalSettings[
                   DefinitionNotebookClient`$ButtonsDisabled = True; 
                    CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = 
                    ProgressIndicator[Appearance -> "Necklace"]; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; Needs["DefinitionNotebookClient`"], 
                    DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, 
                    ReleaseHold[
                    DefinitionNotebookClient`$ButtonCode = 
                    HoldForm[
                    DefinitionNotebookClient`$ClickedButton = "Preview"; 
                    DefinitionNotebookClient`$ClickedAction = "In a notebook"; 
                    DefinitionNotebookClient`PreviewResource[
                    ButtonNotebook[], "Notebook"]]]], 
                    CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = 
                    ""; DefinitionNotebookClient`$ButtonsDisabled = False; 
                    Null]; Null]]], "\"On the cloud\"" :> 
              With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, 
                Quiet[
                 
                 Block[{$ContextPath = RSNB`$cp$, 
                   ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False, 
                   DefinitionNotebookClient`$SuppressDynamicEvents = True}, 
                  Internal`WithLocalSettings[
                   DefinitionNotebookClient`$ButtonsDisabled = True; 
                    CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = 
                    ProgressIndicator[Appearance -> "Necklace"]; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; Needs["DefinitionNotebookClient`"], 
                    DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, 
                    ReleaseHold[
                    DefinitionNotebookClient`$ButtonCode = 
                    HoldForm[
                    DefinitionNotebookClient`$ClickedButton = "Preview"; 
                    DefinitionNotebookClient`$ClickedAction = "On the cloud"; 
                    DefinitionNotebookClient`PreviewResource[
                    ButtonNotebook[], "Cloud"]]]], 
                    CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = 
                    ""; DefinitionNotebookClient`$ButtonsDisabled = False; 
                    Null]; Null]]]}, Appearance -> None, Method -> "Queued"], 
            
            ActionMenuBox[
             TemplateBox[{
               TemplateBox[{"\"Deploy\"", 
                 TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, 
                "RowDefault"], Null& , "\"\"", True}, 
              "OrangeButtonTemplate"], {
             "\"Locally on this computer\"" :> 
              With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, 
                Quiet[
                 
                 Block[{$ContextPath = RSNB`$cp$, 
                   ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False, 
                   DefinitionNotebookClient`$SuppressDynamicEvents = True}, 
                  Internal`WithLocalSettings[
                   DefinitionNotebookClient`$ButtonsDisabled = True; 
                    CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = 
                    ProgressIndicator[Appearance -> "Necklace"]; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; Needs["DefinitionNotebookClient`"], 
                    DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, 
                    ReleaseHold[
                    DefinitionNotebookClient`$ButtonCode = 
                    HoldForm[
                    DefinitionNotebookClient`$ClickedButton = "Deploy"; 
                    DefinitionNotebookClient`$ClickedAction = 
                    "Locally on this computer"; 
                    DefinitionNotebookClient`DisplayStripe[
                    ButtonNotebook[], 
                    DefinitionNotebookClient`DeployResource[
                    ButtonNotebook[], "Local"]]]]], 
                    CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = 
                    ""; DefinitionNotebookClient`$ButtonsDisabled = False; 
                    Null]; Null]]], "\"For my cloud account\"" :> 
              With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, 
                Quiet[
                 
                 Block[{$ContextPath = RSNB`$cp$, 
                   ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False, 
                   DefinitionNotebookClient`$SuppressDynamicEvents = True}, 
                  Internal`WithLocalSettings[
                   DefinitionNotebookClient`$ButtonsDisabled = True; 
                    CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = 
                    ProgressIndicator[Appearance -> "Necklace"]; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; Needs["DefinitionNotebookClient`"], 
                    DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, 
                    ReleaseHold[
                    DefinitionNotebookClient`$ButtonCode = 
                    HoldForm[
                    DefinitionNotebookClient`$ClickedButton = "Deploy"; 
                    DefinitionNotebookClient`$ClickedAction = 
                    "For my cloud account"; 
                    DefinitionNotebookClient`DisplayStripe[
                    ButtonNotebook[], 
                    DefinitionNotebookClient`DeployResource[
                    ButtonNotebook[], "CloudPrivate"]]]]], 
                    CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = 
                    ""; DefinitionNotebookClient`$ButtonsDisabled = False; 
                    Null]; Null]]], "\"Publicly in the cloud\"" :> 
              With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, 
                Quiet[
                 
                 Block[{$ContextPath = RSNB`$cp$, 
                   ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False, 
                   DefinitionNotebookClient`$SuppressDynamicEvents = True}, 
                  Internal`WithLocalSettings[
                   DefinitionNotebookClient`$ButtonsDisabled = True; 
                    CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = 
                    ProgressIndicator[Appearance -> "Necklace"]; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; Needs["DefinitionNotebookClient`"], 
                    DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, 
                    ReleaseHold[
                    DefinitionNotebookClient`$ButtonCode = 
                    HoldForm[
                    DefinitionNotebookClient`$ClickedButton = "Deploy"; 
                    DefinitionNotebookClient`$ClickedAction = 
                    "Publicly in the cloud"; 
                    DefinitionNotebookClient`DisplayStripe[
                    ButtonNotebook[], 
                    DefinitionNotebookClient`DeployResource[
                    ButtonNotebook[], "CloudPublic"]]]]], 
                    CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = 
                    ""; DefinitionNotebookClient`$ButtonsDisabled = False; 
                    Null]; Null]]], 
              "\"In this session only (without documentation)\"" :> 
              With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, 
                Quiet[
                 
                 Block[{$ContextPath = RSNB`$cp$, 
                   ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False, 
                   DefinitionNotebookClient`$SuppressDynamicEvents = True}, 
                  Internal`WithLocalSettings[
                   DefinitionNotebookClient`$ButtonsDisabled = True; 
                    CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = 
                    ProgressIndicator[Appearance -> "Necklace"]; Once[
                    ReleaseHold[
                    CurrentValue[
                    RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                    "KernelSession"]; Needs["DefinitionNotebookClient`"], 
                    DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, 
                    ReleaseHold[
                    DefinitionNotebookClient`$ButtonCode = 
                    HoldForm[
                    DefinitionNotebookClient`$ClickedButton = "Deploy"; 
                    DefinitionNotebookClient`$ClickedAction = 
                    "In this session only (without documentation)"; 
                    DefinitionNotebookClient`DisplayStripe[
                    ButtonNotebook[], 
                    DefinitionNotebookClient`DeployResource[
                    ButtonNotebook[], "KernelSession"]]]]], 
                    CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = 
                    ""; DefinitionNotebookClient`$ButtonsDisabled = False; 
                    Null]; Null]]]}, Appearance -> None, Method -> "Queued"], 
            
            ItemBox[
             StyleBox[
              DynamicBox[
               ToBoxes[
                CurrentValue[
                 EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], 
                StandardForm], Initialization :> (CurrentValue[
                  EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = 
                "")], "Text", 
              GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, 
             StripOnInput -> False], 
            DynamicBox[
             ToBoxes[
              If[
               CurrentValue[
                EvaluationNotebook[], {
                TaggingRules, "SubmissionReviewData", "Review"}, False], 
               RawBoxes[
                TemplateBox[{
                  TemplateBox[{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    Thickness[0.06349], 
                    StyleBox[{
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
                     0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP
p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4=

                    "]]}, {
                    FaceForm[
                    RGBColor[1., 1., 1.]]}, StripOnInput -> False], 
                    StyleBox[{
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
                     0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 
                    2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+
Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG
QUPVNSjgp+HmIWgAG/wcEg==
                    "]], 
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
                     0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 
                    2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 
                    1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0,
                     1, 0}, {0, 1, 0}}}, CompressedData["
1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO
u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H
eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw==
                    "]]}, {
                    FaceForm[
                    RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, 
                    ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, 
                    AspectRatio -> 1.15], "\"Submit Update\""}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, 
                    "Rows" -> {{0}}}], "Grid"], 
                    "\"Submit changes to update your resource submission\""}, 
                   "PrettyTooltipTemplate"], (
                  DefinitionNotebookClient`$ClickedButton = "SubmitUpdate"; 
                  With[{RSNB`nb = ButtonNotebook[]}, 
                    DefinitionNotebookClient`DisplayStripe[RSNB`nb, 
                    DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb], 
                    "ShowProgress" -> True]])& , 
                  "\"Submit changes to update your resource submission\"", 
                  True}, "OrangeButtonTemplate"]], 
               RawBoxes[
                TemplateBox[{
                  TemplateBox[{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    Thickness[0.06349], 
                    StyleBox[{
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
                     0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP
p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4=

                    "]]}, {
                    FaceForm[
                    RGBColor[1., 1., 1.]]}, StripOnInput -> False], 
                    StyleBox[{
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
                     0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 
                    2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+
Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG
QUPVNSjgp+HmIWgAG/wcEg==
                    "]], 
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
                     0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 
                    2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 
                    1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0,
                     1, 0}, {0, 1, 0}}}, CompressedData["
1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO
u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H
eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw==
                    "]]}, {
                    FaceForm[
                    RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, 
                    ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, 
                    AspectRatio -> 1.15], "\"Submit to Repository\""}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, 
                    "Rows" -> {{0}}}], "Grid"], 
                    "\"Submit your function to the Wolfram Function \
Repository\""}, "PrettyTooltipTemplate"], (
                  DefinitionNotebookClient`$ClickedButton = "Submit"; 
                  With[{RSNB`nb = ButtonNotebook[]}, 
                    DefinitionNotebookClient`DisplayStripe[RSNB`nb, 
                    DefinitionNotebookClient`SubmitRepository[RSNB`nb], 
                    "ShowProgress" -> True]])& , 
                  "\"Submit your function to the Wolfram Function \
Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> 
             "System", SingleEvaluation -> True]}}, 
          GridBoxAlignment -> {
           "Columns" -> {{Left}}, "ColumnsIndexed" -> {-1 -> Right}, 
            "Rows" -> {{Center}}}, AutoDelete -> False, 
          GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> {
              RGBColor[0.988235, 0.419608, 0.203922], 
              RGBColor[0.921569, 0.341176, 0.105882]}}, 
          GridBoxFrame -> {
           "Columns" -> False, 
            "RowsIndexed" -> {
             1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> 
              RGBColor[0.921569, 0.341176, 0.105882]}}, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          GridBoxSpacings -> {
           "Columns" -> {5, {0.9}, 5}, 
            "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 0.25}}, FrameStyle -> 
          RGBColor[0.988235, 0.419608, 0.203922]], "Grid"], 
        ButtonBoxOptions -> {Enabled -> Dynamic[
            Not[
             TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], 
            TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, 
        StripOnInput -> False]& )}], 
   Cell[
    StyleData["ReviewerCommentLabelTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (TagBox[
        GridBox[{{#, 
           TemplateBox[{
             GraphicsBox[{
               Thickness[0.022222222222222223`], {
                FaceForm[{
                  RGBColor[0.87451, 0.278431, 0.03137260000000001], 
                  Opacity[1.]}], 
                
                FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
                 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 
                 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {
                 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926,
                  45.}, {45., 34.926}, {45., 22.5}}}]}, {
                FaceForm[{
                  RGBColor[1., 1., 1.], 
                  Opacity[1.]}], 
                
                FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {
                  1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
                   3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 
                  0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                  1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 
                  2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 
                  3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 
                  3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 
                  0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {
                  0, 1, 0}}}, {CompressedData["
1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e
ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa
4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB
9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2
cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1
2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh
Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e
PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx
71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP
iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h
I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A
peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8=
                  "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 
                  27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 
                  26.308999999999997`}, {21.375, 26.258000000000003`}, {
                  21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 
                  15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {
                  23.828, 14.242}}, {{24.578, 18.75}, {24.578, 
                  23.078000000000003`}, {24.578, 23.539}, {24.953, 23.914}, {
                  25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 
                  23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, {
                  30.581999999999997`, 18.288999999999998`}, {30.207, 
                  17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 
                  17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 
                  14.242}, {31.328, 15.315999999999999`}, {33.684, 
                  15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {
                  33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {
                  31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 
                  27.586}, {36.113, 14.234000000000002`}}}]}}, {
              ImageSize -> 12, AspectRatio -> Automatic, Background -> None, 
               ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}],
              "Wolfram Function Repository Reviewer"}, 
            "PrettyTooltipTemplate"]}}, 
         GridBoxAlignment -> {
          "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> 
         False, GridBoxItemSize -> {
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
         GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], 
   Cell[
    StyleData["CommentCellLabelTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (StyleBox[
        TagBox[
         GridBox[{{
            StyleBox[#, FontSize -> 11]}, {
            StyleBox[
             DynamicBox[
              ToBoxes[
               DateString[
                TimeZoneConvert[
                 DateObject[#2, TimeZone -> 0]], {
                "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", 
                 "Minute"}], StandardForm], SingleEvaluation -> True], 
             FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], 
         "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], 
   Cell[
    StyleData["OrangeButtonTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (ButtonBox[
        StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> 
         "SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor -> 
         Dynamic[
           FEPrivate`If[
            CurrentValue[Enabled], 
            GrayLevel[1], 
            RGBColor[0.9568627450980391, 0.8019607843137255, 0.75]], 
           Evaluator -> "System"], StripOnInput -> False], ButtonFunction :> 
        With[{RSNB`nb$ = ButtonNotebook[]}, 
          If[#4, CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = 
            ProgressIndicator[Appearance -> "Necklace"]]; 
          With[{RSNB`$cp$ = $ContextPath}, 
            Quiet[
             
             Block[{$ContextPath = RSNB`$cp$, 
               ResourceSystemClient`$AsyncronousResourceInformationUpdates = 
               False}, 
              Internal`WithLocalSettings[
               DefinitionNotebookClient`$ButtonsDisabled = True; Once[
                  ReleaseHold[
                   CurrentValue[
                   RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], 
                  "KernelSession"]; Needs["DefinitionNotebookClient`"], 
                DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, 
                 ReleaseHold[DefinitionNotebookClient`$ButtonCode = HoldForm[
                    #2[]]]], 
                DefinitionNotebookClient`$ButtonsDisabled = False; Null]; 
              Null]]]; CurrentValue[
            RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], 
        FrameMargins -> {{5, 5}, {0, 0}}, 
        Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQvA6XhqPnQeIQhCyIrAwodd2K5Yo5IwQB2XDFcGXPAsWu
mjNdNmVARkARoDhc2aswqWtWLGhqIAgoDpSFuBao5QqGURB0BWwgAxgQo4xI
04h3G5E+JT7ciIkFYuIUAMJyEaA=
            "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> 
          Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQvA6XhqMHARIQhCyIrAwotcmIc7UuOwQB2XDFcGX3/MXX
6LEv12ZDRkARoDhc2cswqY2GnGhqIAgoDpSFuBaoZTWGURC0GmwgAxgQo4xI
04h3G5E+JT7ciIkFYuIUAJxlBG4=
            "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> 
          Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQvA6XhqN3hfYQhCyIrAwo9e36ma8PbkIQkA1XDFf2vtzt
28Obu6Jsl2uzQRCQDRQBisOVvYlR+nb99I5gU7gaCAKKAMWBshDXArV8unUR
TQ0EAcWBsgxgQIwyIk0j3m1E+pT4cCMmFoiJUwBBtDmK
            "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
        Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> 
        "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic]& )}], 
   Cell[
    StyleData["SuggestionGridTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (StyleBox[
        FrameBox[
         AdjustmentBox[
          TagBox[
           GridBox[{{
              
              TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, 
               "SuggestionIconTemplate"], 
              
              PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> 
               Baseline, ImageSize -> Full], 
              RowBox[{
                AdjustmentBox[
                 TemplateBox[{
                   ActionMenuBox[
                    TagBox[
                    PaneSelectorBox[{False -> GraphicsBox[{
                    EdgeForm[
                    Directive[
                    GrayLevel[1, 0], 
                    Thickness[0.025]]], 
                    FaceForm[#4], 
                    
                    RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 
                    0.2], 
                    Thickness[0.15], #5, 
                    LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, 
                    ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> 
                    GraphicsBox[{
                    EdgeForm[
                    Directive[#5, 
                    Thickness[0.025]]], 
                    FaceForm[#2], 
                    
                    RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 
                    0.2], 
                    Thickness[0.15], 
                    GrayLevel[1], 
                    LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, 
                    ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, 
                    Dynamic[
                    CurrentValue["MouseOver"]], ImageSize -> Automatic, 
                    FrameMargins -> 0], 
                    MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, 
                    Method -> "Queued"], "\"View suggestions\""}, 
                  "PrettyTooltipTemplate"], BoxBaselineShift -> -0.5], 
                " "}]}}, 
            GridBoxAlignment -> {
             "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> 
            False, GridBoxItemSize -> {
             "Columns" -> {Automatic, Automatic, Fit}, 
              "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], 
          BoxMargins -> {{0.25, -0.5}, {0.15, -0.15}}], 
         RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, 
         FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, 
         StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, 
        FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", 
        FontTracking -> "Plain", 
        PrivateFontOptions -> {"OperatorSubstitution" -> False}, 
        LineBreakWithin -> False]& )}], 
   Cell[
    StyleData["SuggestionIconTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{
         Thickness[0.05555555555555555], 
         StyleBox[{
           
           FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
             3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO
m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD
jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh
MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z
            "]]}, 
          FaceForm[#]], 
         StyleBox[{
           
           FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
              0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
              3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 
             7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 
             13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, {
             9.741542500000001, 7.416875}, {8.175292500000001, 
             7.416875}}, CompressedData["
1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW
1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa
iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7
2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro
0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/
ACBxmlc=
             "]}]}, 
          FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> 
        Automatic, BaselinePosition -> Scaled[0.1]]& )}], 
   Cell[
    StyleData["FormEditValuesButtonTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (TemplateBox[{
         TagBox[
          PaneBox[
           PaneSelectorBox[{False -> GraphicsBox[
               TagBox[
                RasterBox[CompressedData["
1:eJzNWHlMVEcYf28XlGM5VlcRapRDDFK0sBaLBWVXUDxTKpe4JgvoQlALAsvV
hHIoV4KK6wGiQlUqoqDcKKysDSZtPZJWTTzaxGrV2mqrNtqKB3Qnz8+Zd6Cv
tn90vkgyv+/4zc58M9/3dEtIXZoooSgqw8r8Z2l8tjo9PT43wtE8iUrJSE5K
0a1akKLXJenSAxKkZlD58h9y+X+M8Z7a/I3G7V/lHQgKp2kGmzw9rcrQb+j/
ZItPIGBvNywsVVGVJ01DWAqbpBYUFZ1hGsTYvssRqTLHt4nvoIgvbP6ZjM+I
Nt9PzUePPdbvcvX+ZwzTQ9vv8yMh6R04fFNY0/ciOkM8wzjXY4+F47xJgiPF
cqRuY3kOlnUGLFq4khsv53NPv8zd7NXs/lYsR+158Gm9l1Tu7IYwmq7oJaMd
uWMnR7jMMXLd/isYt7UXx4F9Rjtj1NmNXPPsCKyh6S9+AHzUOHEcpR3gMWM+
iQdHrq1kZFkmidvYQS633399ZBf31G21F/ZdLmmvPo0zVcyalCFg33Qr78Ce
7+qv5jdOm8W3e39u9yN+npR3ieHQ5ArlWGwW28pBIXwfilvFcESnC2eyMoS0
ii8UstncZ2XDjiaROihGjbMcyWVJLBP0N2ELC8vm229icHFPKKo+Y3zK3Jj6
q2lV3gFvZpk4BfSqKHwfFC4fLNDml3cVt2IGO7m+5sRzfoSNxglemGVV8dZT
yRXqaKeJ5V1gkWIALX5bk8r5u+3x3qEbwvuN3kJ1DN9j5mLQdz60skXIeM9X
PoPMnWYzdD4cjoGRMC3XRyI5+CNolyQhJK4A5mWdXGs7Ofs3HP+z9nz16fbf
Scz41Muf67c8B7Q7z6L5RiPMAxZxbfU1OFbDtVDNSGtmnb4qQz/W1F1ElYsc
8rG9A6BF8x1fw2zhSnbddHHHJ115kl3rJNI1mzBL6HI2x9SglrugQzHzG7Ft
RQ95IglF+DfwqylNb2gRugnWMnNteFWLj/+FsNlLyd3tfoTrTPWZV+vUcBnQ
cHbre8HoTzy3ljGYxzT2Cep3MespaibRtZWwGy9vnPmkmXPgjy1fgte7Mxlk
fhwZa/8V+9EQTZuPzwg4HBSA1J4XZqCotB1gExTO58hrYOoYM5RzcCcAHHIn
QKpPD8eBzx12GHP0PAlfjXPI3C8J7JXlSNjt9vuSYVrKkjbwUs4R2quCwxLU
mFJTZpCoaQjXuPqrgPmqhBhs7XH1lTsxmP889su24lOEZuzEyJE7ZJ3Gu23o
Z9bDHvitrb2A0Um+NedwxKO/IGzrKZhn15FnRFHeAdh2zSZuXxscCXtpGorR
kxqpRWx2zxPQsTk8/bgrxe+MaWj9UXw/be11pZih5VduxzPCqu03kiPFALPM
3VyOCV5kv9P3ovJk6rbkipI2du3n39AwLegO3UBzn0CYH3vMfzHUMeyM4Mu6
7Vwfiqr6BrRxBWhO0/suAxK5jm8fpoX7LszAz4bJStAanylcGCwiFbD9V2ja
xk4ZosmNTsc+Xv51F4Xit9yduwJbqaJ0JYEfoT4xaw9YFDaBVuaId93cVb58
MxPLsL/UIlSz2URmft3FGL2tA7YI1UAONF7HOeWnxhb6XULrJFnQsLHz+XDW
x6ooZQjcOD4DKXsvkfnu6i1kYxpaVcw/H/5QRQl7L0lk27HfLJCtp8Rw6EqF
fDe08F+54MjaC0jX8aDpFtglV4jhCAoH+44HzPvdfFuTy63xMGwd5GMpKq8B
fNTRpNZj2vw4RvznkfhoZ7A/fBO9AdzTEhrM70HiNBGj1jJcRY3PJvmSHod+
Ao3Yr2j8HVXeNXMx7Cr7K7HmHOzFZGXWHpytjmPEcXx2kIzWcG15juOYqUHk
dz+S2OwRVmFa3DkhaboljgF1R9wc6R3A/RJIz5PWe1wsNlssB0XFZgllI8Qe
TrOhxcJSPAfqIjabhOLkNYSvFsL3XlqsG67qv264eqcYuv4gI9V/bz+Kptcf
IbETz4ualXP+zf/+WMuWJO08i2J1P0qrYjJTIl2WyXx5NV6PK1C88/bR/7vx
N3kqZvY=
                 "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> 
                 GrayLevel], 
                BoxForm`ImageTag[
                "Byte", ColorSpace -> "Grayscale", Interleaving -> False], 
                Selectable -> False], DefaultBaseStyle -> "ImageGraphics", 
               ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}],
              True -> GraphicsBox[
               TagBox[
                RasterBox[CompressedData["
1:eJzNWG1MU1cY7m1vS4GWttBLy0dLWyhl5aultrT0C2QzM5rMIWgyluDHkMwf
YgBF9gc1cWpijDNuRNFsv2Rmuqmb/NjIYIFkG2qyAYnAljidODfdmItu+AHs
Xi6n59x7D3LH9mPnRJLzvB/Pue95z3nfat3UWLVFKpFImpX0n6qNrRVNTRvb
1mrpRc225tcbttW/tnJbS31DfZN/k4wGS+b/MSb/jxFvt7QX95R86TytXyMh
WEztye1w97v7c97SBAG2tEHIqRpXX/ksnPlnCVIiMTWXz0DMN5rZSGqX4l+u
t+wp+wn1z05Lu7ZCiIYfOjoTnf+MQfd8aFLoiZmRR4FbeEl02tQsnkFpCT/E
+1lsUtViOezHOJYzhZdSVqVt5vvLe0/ldpzk7mbZN2I5vEPAJnjPdlBpnQOJ
4s9Qb2V3SB0Dk9rM7b4xiJNJ4jigjSINiaAV3TO1FjEgSr+PWRjFcRR+AiyS
X0RxqjrnCDtNO1Bcpga5HJp8tud4m/2Yd9g3WvixZxBmqpg96SqBfmDCeXrZ
t6XjzjOaMEbvhfADYZ4UdYvhMLfhcsy8k6sl1+PvQ8EFMRymJnwm6ypRLcse
nI7rc1kC1xshk+sVRmkcn8V2AGvfi1jKy24vxhBvs+71XI4+Zm9M6XhuR5J/
cZaE54CcqoH3IS49eaWlvai74AJkIHWOE9GnQg/FPQl5kMW6zz2QfSh1nTKr
qBto2I8CKXxbbQeF0VYVB27i4828hanrhRYpq4E8dF+WOBcFe8xmZv5OcxhC
9xdiYKexjm9DSP0/AGl6A4NYdoN14SW+NqnjfkPkT++QZzD0G4pFH6u9fDvz
LiD1XGHWxT1gnbKKr+s4AX35rxtqpfHsPrXl7n4o8Y4wlQsditTIIyBl1iVf
gVXaZm7djLfBk3b1cWsdIcs5DFkMr3A5NKHg3RgH7dN5BsmUT9ETse6F34Cp
pkTBedxNkKno2hCrxZG/GIyq4mTKA1hnPJdj+6wVMEiYlzg6PX8mT2UqFlMV
cU/Q0cnuJ/8ciuYcAdGYv3H0SbPnIByuL4BVUoBFjBtQX74xeQrwZmmHZwQ4
5PrYmQ7hGSSS3HeADt0XCTicXWwdY4duOewEAIfCEMu/wYU44LmDCEOOyFTG
VphDdL+EiZU0DkQ7NEks0FIWXgRWuuW4WOV/QDCNqSTJh6Lls7DGlY4DTFuO
YyCTYPVVGFgseQX3Zct6Yy6mxyFSdget0zDa7n52P9wB31rvMERVLs9VxOPP
DOYeAOu8d9Ezor/Qj0TwML+vpapBLOlvb0ElBGlujUzF7iCHQ+Xm7xS+M3RN
/AjeTzLJth8yBH/hdzxSZfBXlMN+NHZfTvI5EvLQfic67eqzH8s+VHiRW/uF
N9RYB2SBm8xaEwTr8EPhi5G6npsRwml/m29Dv4FfA6llNxs+3yhAMrcL9Y11
4L7jGYTZoC6JffmTuHQWy2wEmG+MvvRqXaW5zdSE2Hi9Izj/wbuGV6EWVWN7
U/8S0yc6TsXux1kgJbUw6nRXOf9m2g5Ae4I01Lp60cz3jphaSA3UMNSCHPDf
gDmlrYAajk7cPlEWZsjUmjL9y1SNrhLcOCEDOn3X0HxPdOJ0ymet+4TnIxxU
Dd46fQtXj/tmgekeEMNh24+zLTgvfOWoau8wIwv9HpgAetmHxHDo1wB92nbu
/S67bW7j13gwSI0ila6+XcAmdR0qVRUZN7AzeQWKK9KAfuAW8wbwTws32O9h
pjILojIVrKLRJyoXahH4EUjE/oqGv6OKulNWg6hyfyV6roJYqEscp2C2yilx
HM73UW/+6+ZdckoTQn/3M9PcKlUa62DnNBerCXEMTHfEz5HII9gvxbCp4D0+
Zm4Vy0H3kjtx2Qh8LyShs1UunoPpIly9OD/OroytONx3La1+oar/rJHotB8N
/4F6Kv1Onkz3hx+iWPRp/jm6Y/gX//sjU6U3eK4wvsIPcjvYzCRkph3sLy//
DcvuuIyle//vxt/PCE6d
                 "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> 
                 GrayLevel], 
                BoxForm`ImageTag[
                "Byte", ColorSpace -> "Grayscale", Interleaving -> False], 
                Selectable -> False], DefaultBaseStyle -> "ImageGraphics", 
               ImageSizeRaw -> {50., 50.}, 
               PlotRange -> {{0, 50.}, {0, 50.}}]}, 
            Dynamic[
             CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 
            0], ImageSize -> {Automatic, 15}, ImageSizeAction -> 
           "ResizeToFit"], 
          MouseAppearanceTag["LinkHand"]], "\"Edit values\""}, 
        "PrettyTooltipTemplate"]& )}], 
   Cell["Documentation", "Section"], 
   Cell["Usage", "Subsection"], 
   Cell[
    StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], 
    CellMargins -> {{66, 10}, {0, 8}}, 
    StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, 
    CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[
           EvaluationCell[]]}, SelectionMove[
          EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, 
          Cell["", "UsageDescription"], All]; 
        SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> 
      Replace[SelectionMove[
          SelectedNotebook[], After, Cell]; NotebookFind[
          SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
          WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
          SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, 
    ShowAutoStyles -> False, ShowCodeAssist -> False, 
    CodeAssistOptions -> {"DynamicHighlighting" -> False}, 
    LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", 
    FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], 
   Cell[
    StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], 
    CellMargins -> {{86, 10}, {7, 0}}, 
    StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> 
    "OutputGrouping", 
    CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[
           EvaluationCell[]]}, SelectionMove[
          EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, 
          Cell[
           BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; 
        SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> 
      Replace[SelectionMove[
          SelectedNotebook[], After, Cell]; NotebookFind[
          SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
          WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
          SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, 
    ShowAutoSpellCheck -> False], 
   Cell["Details & Options", "Subsection"], 
   Cell[
    StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> 
    StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], 
    CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, 
    StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> 
    False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], 
   Cell[
    StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], 
    CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], 
    StyleMenuListing -> None, 
    ButtonBoxOptions -> {Appearance -> {Automatic, None}}, 
    GridBoxOptions -> {
     FrameStyle -> GrayLevel[0.906], 
      GridBoxAlignment -> {
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}}, 
      GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, 
      GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], 
   Cell[
    StyleData["TableText"], DefaultInlineFormatType -> 
    "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, 
    StyleMenuListing -> None], 
   Cell["Examples", "Subsection"], 
   Cell[
    StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> 
    Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, 
    CellGroupingRules -> {"SectionGrouping", 58}, 
    CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, 
    CellLabelAutoDelete -> True, TabFilling -> 
    "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, 
    StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, 
    FontSlant -> "Plain", FontColor -> GrayLevel[0.906]], 
   Cell[
    StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], 
   Cell[
    StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]],
     Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, 
    CellMargins -> {{66, 14}, {15, -5}}, 
    CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, 
    CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> 
    GrayLevel[
      Rational[77, 85]]], 
   Cell[
    StyleData["Subsection"], Evaluatable -> True, 
    CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], 
   
   Cell[
    StyleData["Subsubsection"], Evaluatable -> True, 
    CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], 
   
   Cell[
    StyleData["ExampleImage"], PageWidth :> 650, 
    CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> 
    False, MenuSortingValue -> 10000, 
    RasterBoxOptions -> {ImageEditMode -> False}], 
   Cell["Links", "Section"], 
   Cell[
    StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[
      If[
       CurrentValue["MouseOver"], 
       RGBColor[0.855, 0.396, 0.145], 
       RGBColor[0.02, 0.286, 0.651]]]], 
   Cell[
    StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]], 
    FontColor -> Dynamic[
      If[
       CurrentValue["MouseOver"], 
       RGBColor[0.969, 0.467, 0.], 
       GrayLevel[0.467]]]], 
   Cell[
    StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], 
   Cell["Annotation", "Section"], 
   Cell[
    StyleData["Excluded"], 
    CellBracketOptions -> {
     "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, 
    GeneratedCellStyles -> {
     "Graphics" -> {"Graphics", "Excluded"}, 
      "Message" -> {"Message", "MSG", "Excluded"}, 
      "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, 
      "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 
    4, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], 
   Cell[
    StyleData["Comment", StyleDefinitions -> StyleData["Text"]], 
    CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, 
    CellElementSpacings -> {"ClosedCellHeight" -> 0}, 
    GeneratedCellStyles -> {
     "Graphics" -> {"Graphics", "Comment"}, 
      "Message" -> {"Message", "MSG", "Comment"}, 
      "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, 
      "PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor -> 
    RGBColor[0.880722, 0.611041, 0.142051], 
    CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], 
    Background -> RGBColor[0.982, 0.942, 0.871]], 
   Cell[
    StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], 
    GeneratedCellStyles -> {
     "Graphics" -> {"Graphics", "AuthorComment"}, 
      "Message" -> {"Message", "MSG", "AuthorComment"}, 
      "Output" -> {"Output", "AuthorComment"}, 
      "Print" -> {"Print", "AuthorComment"}, 
      "PrintTemporary" -> {"PrintTemporary", "AuthorComment"}}, 
    CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> 
    RGBColor[0.905, 0.926, 0.956]], 
   Cell[
    StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], 
    GeneratedCellStyles -> {
     "Graphics" -> {"Graphics", "ReviewerComment"}, 
      "Message" -> {"Message", "MSG", "ReviewerComment"}, 
      "Output" -> {"Output", "ReviewerComment"}, 
      "Print" -> {"Print", "ReviewerComment"}, 
      "PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}}, 
    CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> 
    RGBColor[0.934, 0.954, 0.879]], 
   Cell[
    StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], 
    ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> 
    GrayLevel[0.5]], 
   Cell["Special Input", "Section"], 
   Cell[
    StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}], 
   Cell[
    StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]], 
    CellFrameLabels -> {{None, 
       Cell[
        BoxData[
         ButtonBox[
         "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, 
          BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, 
          Method -> "Queued", ButtonFunction :> 
          With[{RSNB`file = SystemDialogInput["FileOpen"], RSNB`cell = 
             ParentCell[
               EvaluationCell[]]}, 
            If[
            RSNB`file =!= $Canceled, 
             SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[
               Notebooks[RSNB`cell], 
               RowBox[{"File", "[", 
                 ToBoxes[RSNB`file], "]"}]]]], Appearance :> 
          FEPrivate`FrontEndResource[
           "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, {
      None, None}}], 
   Cell[
    StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]], 
    CellFrameLabels -> {{None, 
       Cell[
        BoxData[
         ButtonBox[
         "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, 
          BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, 
          Method -> "Queued", ButtonFunction :> 
          With[{RSNB`file = SystemDialogInput["Directory"], RSNB`cell = 
             ParentCell[
               EvaluationCell[]]}, 
            If[
            RSNB`file =!= $Canceled, 
             SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[
               Notebooks[RSNB`cell], 
               RowBox[{"File", "[", 
                 ToBoxes[RSNB`file], "]"}]]]], Appearance :> 
          FEPrivate`FrontEndResource[
           "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, {
      None, None}}], 
   Cell["Misc", "Section"], 
   Cell[
    StyleData["Item"], DefaultNewCellStyle -> "Item"], 
   Cell[
    StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, 
    FontWeight -> Bold, FontColor -> RGBColor[0.459, 0.459, 0.459]], 
   Cell[
    StyleData["InlineFormula"], 
    HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, 
    LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, 
    SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, 
    FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, 
    ButtonBoxOptions -> {Appearance -> {Automatic, None}}, 
    FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, 
    GridBoxOptions -> {
     GridBoxItemSize -> {
       "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}}}], 
   Cell[
    StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> 
    GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> 
  "13.1 for Microsoft Windows (64-bit) (June 16, 2022)", StyleDefinitions -> 
  "PrivateStylesheetFormatting.nb"],
ExpressionUUID->"d4e35c65-703f-469c-960f-08496f7fe526"
]