(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 90050, 2131] NotebookOptionsPosition[ 85241, 2010] NotebookOutlinePosition[ 86999, 2062] CellTagsIndexPosition[ 86956, 2059] WindowTitle->CompassPoint | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->904125756], Cell["\<\ Create a string representation of an 51\[Degree] bearing on an 8 point wind \ rose:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.828097657080315*^9, 3.828097657301731*^9}}, CellID->408133607], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["CompassPoint", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["CompassPoint", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.1\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/CompassPoint"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "CompassPoint"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["CompassPoint"], BoxID -> "CompassPoint", Selectable->False], "[", "51", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.826967724479683*^9, 3.826967731652766*^9}, { 3.826969178298497*^9, 3.826969178623123*^9}}, CellLabel->"In[278]:=", CellID->982676240], Cell[BoxData["\<\"NE\"\>"], "Output", TaggingRules->{}, CellChangeTimes->{{3.8269677284880877`*^9, 3.826967731943776*^9}, { 3.826969159651348*^9, 3.826969179031177*^9}, {3.8280976789315157`*^9, 3.828097683651828*^9}}, CellLabel->"Out[278]=", CellID->387021399] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Scope", "\[NonBreakingSpace]", Cell["(3)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->204653245], Cell["Use a 32-point wind rose:", "Text", TaggingRules->{}, CellChangeTimes->{{3.826967782445203*^9, 3.826967785861845*^9}}, CellID->803932760], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["CompassPoint", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["CompassPoint", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.1\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/CompassPoint"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "CompassPoint"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["CompassPoint"], BoxID -> "CompassPoint", Selectable->False], "[", RowBox[{"74", ",", "32"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8269677535194807`*^9, 3.826967774024274*^9}}, CellID->490756998], Cell[BoxData["\<\"EbN\"\>"], "Output", TaggingRules->{}, CellChangeTimes->{{3.826967765767558*^9, 3.8269677744055853`*^9}, 3.826969182810444*^9}, CellID->981553967] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell[TextData[{ "Use a degree ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Quantity", "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/Quantity", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " instead:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.826967808568748*^9, 3.826967822437829*^9}, 3.826969293651842*^9}, CellID->727365758], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["CompassPoint", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["CompassPoint", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.1\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/CompassPoint"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "CompassPoint"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["CompassPoint"], BoxID -> "CompassPoint", Selectable->False], "[", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"74", ",", "\"\\""}], "]"}], ",", "32"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.826967799271496*^9, 3.8269678055802507`*^9}}, CellID->844850982], Cell[BoxData["\<\"EbN\"\>"], "Output", TaggingRules->{}, CellChangeTimes->{3.8269678060853643`*^9, 3.8269691850036077`*^9}, CellID->981553968] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell["\<\ Negative angles are allowed and equivalent to their positive angle by adding \ 360\[Degree]:\ \>", "Text", TaggingRules->{}, CellID->245800977], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["CompassPoint", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["CompassPoint", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.1\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/CompassPoint"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "CompassPoint"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["CompassPoint"], BoxID -> "CompassPoint", Selectable->False], "[", RowBox[{ RowBox[{"-", "7"}], ",", "32"}], "]"}], "===", RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["CompassPoint", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["CompassPoint", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.1\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/CompassPoint"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "CompassPoint"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["CompassPoint"], BoxID -> "CompassPoint", Selectable->False], "[", RowBox[{"353", ",", "32"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8269677535194807`*^9, 3.826967774024274*^9}, { 3.826968918439588*^9, 3.8269689332029877`*^9}}, CellID->285055673], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{{3.826967765767558*^9, 3.8269677744055853`*^9}, 3.826968933517466*^9, 3.826969187788876*^9}, CellID->661045763] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Possible Issues", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->158766396], Cell["\<\ Each sector has two borders, the border in the clockwise direction belong to \ the sector, the other border to the previous section:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.826968971573594*^9, 3.826969055101844*^9}, 3.828542841965114*^9}, CellID->120306720], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["CompassPoint", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["CompassPoint", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.1\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/CompassPoint"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "CompassPoint"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["CompassPoint"], BoxID -> "CompassPoint", Selectable->False], "[", RowBox[{"#", ",", "4"}], "]"}], "&"}], "/@", RowBox[{"{", RowBox[{ RowBox[{"-", "45"}], ",", "0", ",", "45"}], "}"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.826968868941413*^9, 3.826968888756441*^9}, { 3.8269690574726048`*^9, 3.8269690944258432`*^9}}, CellID->704980934], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"W\"\>", ",", "\<\"N\"\>", ",", "\<\"N\"\>"}], "}"}]], "Output",\ TaggingRules->{}, CellChangeTimes->{{3.8269688710312977`*^9, 3.826968886597039*^9}, 3.826968969697485*^9, 3.8269690579159822`*^9, {3.826969088041409*^9, 3.8269690956769857`*^9}, 3.826969194265263*^9}, CellID->550716383] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Neat Examples", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->461278909], Cell["Make a compass:", "Text", TaggingRules->{}, CellChangeTimes->{{3.8269683343851557`*^9, 3.8269683389779*^9}}, CellID->71786165], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["CompassPoint", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{ LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["CompassPoint", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{ LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.1\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/CompassPoint"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "CompassPoint"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["CompassPoint"], BoxID -> "CompassPoint", Selectable->False], "[", RowBox[{ RowBox[{"90", "-", "#"}], ",", "32"}], "]"}], ",", RowBox[{"AngleVector", "[", RowBox[{ RowBox[{"N", "[", "#", "]"}], " ", "Degree"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "<", "0"}], ",", RowBox[{"-", "#"}], ",", "#"}], "]"}], "&"}], "[", RowBox[{"AngleVector", "[", RowBox[{ RowBox[{"N", "[", "#", "]"}], " ", "Degree"}], "]"}], "]"}]}], "]"}], "&"}], "/@", RowBox[{"Most", "@", RowBox[{"Range", "[", RowBox[{"0", ",", "360", ",", RowBox[{"360", "/", "32"}]}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{ RowBox[{"ToString", "[", "#", "]"}], "<>", "\"\<\[Degree]\>\""}], ",", RowBox[{"1.12", RowBox[{"AngleVector", "[", RowBox[{ RowBox[{"Pi", "/", "2"}], "-", RowBox[{ RowBox[{"N", "[", "#", "]"}], " ", "Degree"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "<", "0"}], ",", RowBox[{"-", "#"}], ",", "#"}], "]"}], "&"}], "[", RowBox[{"AngleVector", "[", RowBox[{ RowBox[{"Pi", "/", "2"}], "-", RowBox[{ RowBox[{"N", "[", "#", "]"}], " ", "Degree"}]}], "]"}], "]"}]}], "]"}], "&"}], "/@", RowBox[{"Most", "@", RowBox[{"Range", "[", RowBox[{"0", ",", "360", ",", "5"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"Thickness", "[", "0.01", "]"}], ",", RowBox[{"Arrowheads", "[", "0.1", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"AngleVector", "[", RowBox[{"{", RowBox[{"0.9", ",", RowBox[{"Degree", "#"}]}], "}"}], "]"}]}], "}"}], "]"}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"0", ",", "270", ",", "90"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Thickness", "[", RowBox[{"0.01", " ", RowBox[{"2", "/", "3"}]}], "]"}], ",", RowBox[{"Arrowheads", "[", RowBox[{"0.1", " ", RowBox[{"2", "/", "3"}]}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"AngleVector", "[", RowBox[{"{", RowBox[{"0.75", ",", RowBox[{"Degree", "#"}]}], "}"}], "]"}]}], "}"}], "]"}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"45", ",", "315", ",", "90"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Thickness", "[", RowBox[{"0.01", " ", RowBox[{"1", "/", "3"}]}], "]"}], ",", RowBox[{"Arrowheads", "[", RowBox[{"0.1", " ", RowBox[{"1", "/", "3"}]}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"AngleVector", "[", RowBox[{"{", RowBox[{"0.6", ",", RowBox[{"Degree", "#"}]}], "}"}], "]"}]}], "}"}], "]"}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"22.5", ",", "360", ",", "45"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Thickness", "[", RowBox[{"0.01", " ", RowBox[{"1", "/", "6"}]}], "]"}], ",", RowBox[{"Arrowheads", "[", RowBox[{"0.1", " ", RowBox[{"1", "/", "6"}]}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"AngleVector", "[", RowBox[{"{", RowBox[{"0.45", ",", RowBox[{"Degree", "#"}]}], "}"}], "]"}]}], "}"}], "]"}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"11.25", ",", "360", ",", "22.5"}], "]"}]}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", "1.25"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "600"}]}], "\[IndentingNewLine]", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8269624806573277`*^9, 3.826962488032448*^9}, { 3.8269625852830257`*^9, 3.826962597152516*^9}, {3.826962632796232*^9, 3.826962634294712*^9}, {3.82696269334833*^9, 3.82696269404125*^9}, { 3.8269627559404697`*^9, 3.826962868577324*^9}, {3.826963142120874*^9, 3.826963268756908*^9}, {3.8269634924806757`*^9, 3.826963521838888*^9}, { 3.826964291065406*^9, 3.826964298736785*^9}, {3.8269654980790577`*^9, 3.82696550872495*^9}, {3.8269669358546267`*^9, 3.826966997166814*^9}, { 3.8269681458870163`*^9, 3.826968321699416*^9}, {3.826968352301036*^9, 3.826968432699484*^9}, {3.8269685205054703`*^9, 3.826968622932674*^9}, { 3.826969211629162*^9, 3.8269692258762703`*^9}}, CellID->611820333], Cell[BoxData[ GraphicsBox[{{ InsetBox["\<\"E\"\>", {1., 0.}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, {1., 0.}], InsetBox["\<\"EbN\"\>", {0.9807852804032304, 0.19509032201612825}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.9807852804032304, 0.19509032201612825`}], InsetBox["\<\"ENE\"\>", {0.9238795325112867, 0.3826834323650898}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.9238795325112867, 0.3826834323650898}], InsetBox["\<\"NEbE\"\>", {0.8314696123025452, 0.5555702330196022}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.8314696123025452, 0.5555702330196022}], InsetBox["\<\"NE\"\>", {0.7071067811865476, 0.7071067811865475}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.7071067811865476, 0.7071067811865475}], InsetBox["\<\"NEbN\"\>", {0.5555702330196023, 0.8314696123025451}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.5555702330196023, 0.8314696123025451}], InsetBox["\<\"NNE\"\>", {0.38268343236508984, 0.9238795325112867}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.38268343236508984`, 0.9238795325112867}], InsetBox["\<\"NbE\"\>", {0.1950903220161283, 0.9807852804032304}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.1950903220161283, 0.9807852804032304}], InsetBox["\<\"N\"\>", {6.123233995736766*^-17, 1.}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 6.123233995736766*^-17, 1.}], InsetBox["\<\"NbW\"\>", {-0.1950903220161282, 0.9807852804032304}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.1950903220161282, -0.9807852804032304}], InsetBox["\<\"NNW\"\>", {-0.3826834323650897, 0.9238795325112867}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.3826834323650897, -0.9238795325112867}], InsetBox["\<\"NWbN\"\>", {-0.5555702330196023, 0.8314696123025451}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.5555702330196023, -0.8314696123025451}], InsetBox["\<\"NW\"\>", {-0.7071067811865475, 0.7071067811865476}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.7071067811865475, -0.7071067811865476}], InsetBox["\<\"NWbW\"\>", {-0.8314696123025453, 0.5555702330196022}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.8314696123025453, -0.5555702330196022}], InsetBox["\<\"WNW\"\>", {-0.9238795325112867, 0.38268343236508984}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.9238795325112867, -0.38268343236508984`}], InsetBox["\<\"WbN\"\>", {-0.9807852804032304, 0.19509032201612816}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.9807852804032304, -0.19509032201612816`}], InsetBox["\<\"W\"\>", {-1., 1.2246467991473532*^-16}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 1., -1.2246467991473532`*^-16}], InsetBox["\<\"WbS\"\>", {-0.9807852804032304, -0.19509032201612836}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.9807852804032304, 0.19509032201612836`}], InsetBox["\<\"WSW\"\>", {-0.9238795325112867, -0.38268343236508967}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.9238795325112867, 0.38268343236508967`}], InsetBox["\<\"SWbW\"\>", {-0.8314696123025451, -0.5555702330196023}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.8314696123025451, 0.5555702330196023}], InsetBox["\<\"SW\"\>", {-0.7071067811865477, -0.7071067811865475}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.7071067811865477, 0.7071067811865475}], InsetBox["\<\"SWbS\"\>", {-0.5555702330196022, -0.8314696123025452}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.5555702330196022, 0.8314696123025452}], InsetBox["\<\"SSW\"\>", {-0.3826834323650895, -0.9238795325112868}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.3826834323650895, 0.9238795325112868}], InsetBox["\<\"SbW\"\>", {-0.19509032201612866, -0.9807852804032303}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.19509032201612866`, 0.9807852804032303}], InsetBox["\<\"S\"\>", {-1.8369701987210297*^-16, -1.}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 1.8369701987210297`*^-16, 1.}], InsetBox["\<\"SbE\"\>", {0.19509032201612828, -0.9807852804032304}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.19509032201612828`, -0.9807852804032304}], InsetBox["\<\"SSE\"\>", {0.38268343236509, -0.9238795325112866}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.38268343236509, -0.9238795325112866}], InsetBox["\<\"SEbS\"\>", {0.5555702330196018, -0.8314696123025456}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.5555702330196018, -0.8314696123025456}], InsetBox["\<\"SE\"\>", {0.7071067811865475, -0.7071067811865477}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.7071067811865475, -0.7071067811865477}], InsetBox["\<\"SEbE\"\>", {0.8314696123025452, -0.5555702330196022}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.8314696123025452, -0.5555702330196022}], InsetBox["\<\"ESE\"\>", {0.9238795325112868, -0.38268343236508956}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.9238795325112868, -0.38268343236508956`}], InsetBox["\<\"EbS\"\>", {0.9807852804032303, -0.19509032201612872}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.9807852804032303, -0.19509032201612872`}]}, { InsetBox["\<\"0\[Degree]\"\>", {6.858022075225179*^-17, 1.12}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 6.123233995736766*^-17, 1.}], InsetBox["\<\"5\[Degree]\"\>", {0.0976144318773771, 1.115738061862755}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.08715574274765812, 0.9961946980917455}], InsetBox["\<\"10\[Degree]\"\>", {0.19448595898696208, 1.1029846833736732}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.17364817766693041`, 0.984807753012208}], InsetBox["\<\"15\[Degree]\"\>", {0.28987733051482323, 1.0818369254437565}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.25881904510252074`, 0.9659258262890683}], InsetBox["\<\"20\[Degree]\"\>", {0.38306256052474913, 1.0524557352802175}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.3420201433256688, 0.9396926207859083}], InsetBox["\<\"25\[Degree]\"\>", {0.47333245314958344, 1.015064721481048}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.42261826174069944`, 0.9063077870366499}], InsetBox["\<\"30\[Degree]\"\>", {0.5599999999999999, 0.9699484522385714}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.49999999999999994`, 0.8660254037844387}], InsetBox["\<\"35\[Degree]\"\>", {0.6424056087131718, 0.9174502896036708}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.5735764363510462, 0.8191520442889917}], InsetBox["\<\"40\[Degree]\"\>", {0.7199221228489242, 0.8579697762932554}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.6427876096865394, 0.766044443118978}], InsetBox["\<\"45\[Degree]\"\>", {0.7919595949289333, 0.7919595949289332}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.7071067811865476, 0.7071067811865475}], InsetBox["\<\"50\[Degree]\"\>", {0.8579697762932555, 0.719922122848924}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.7660444431189781, 0.6427876096865393}], InsetBox["\<\"55\[Degree]\"\>", {0.9174502896036709, 0.6424056087131716}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.8191520442889918, 0.573576436351046}], InsetBox["\<\"60\[Degree]\"\>", {0.9699484522385713, 0.56}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.8660254037844386, 0.5}], InsetBox["\<\"65\[Degree]\"\>", {1.0150647214810482, 0.47333245314958333}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.90630778703665, 0.4226182617406994}], InsetBox["\<\"70\[Degree]\"\>", {1.0524557352802175, 0.3830625605247491}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.9396926207859084, 0.34202014332566877`}], InsetBox["\<\"75\[Degree]\"\>", {1.0818369254437565, 0.2898773305148232}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.9659258262890683, 0.2588190451025207}], InsetBox["\<\"80\[Degree]\"\>", {1.1029846833736732, 0.19448595898696203}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.984807753012208, 0.17364817766693036`}], InsetBox["\<\"85\[Degree]\"\>", {1.115738061862755, 0.09761443187737705}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.9961946980917455, 0.08715574274765807}], InsetBox["\<\"90\[Degree]\"\>", {1.12, 0.}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, {1., 0.}], InsetBox["\<\"95\[Degree]\"\>", {1.115738061862755, -0.0976144318773773}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.9961946980917455, -0.08715574274765829}], InsetBox["\<\"100\[Degree]\"\>", {1.1029846833736732, -0.19448595898696203}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.984807753012208, -0.17364817766693036`}], InsetBox["\<\"105\[Degree]\"\>", {1.0818369254437565, -0.28987733051482345}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.9659258262890682, -0.2588190451025209}], InsetBox["\<\"110\[Degree]\"\>", {1.0524557352802175, -0.3830625605247491}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.9396926207859084, -0.34202014332566877`}], InsetBox["\<\"115\[Degree]\"\>", {1.0150647214810482, -0.47333245314958333}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.90630778703665, -0.4226182617406994}], InsetBox["\<\"120\[Degree]\"\>", {0.9699484522385714, -0.5599999999999998}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.8660254037844387, -0.49999999999999983`}], InsetBox["\<\"125\[Degree]\"\>", {0.9174502896036708, -0.6424056087131719}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.8191520442889917, -0.5735764363510463}], InsetBox["\<\"130\[Degree]\"\>", {0.8579697762932554, -0.7199221228489242}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.766044443118978, -0.6427876096865394}], InsetBox["\<\"135\[Degree]\"\>", {0.7919595949289333, -0.7919595949289332}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.7071067811865476, -0.7071067811865475}], InsetBox["\<\"140\[Degree]\"\>", {0.7199221228489243, -0.8579697762932553}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.6427876096865395, -0.7660444431189779}], InsetBox["\<\"145\[Degree]\"\>", {0.6424056087131715, -0.917450289603671}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.5735764363510459, -0.8191520442889919}], InsetBox["\<\"150\[Degree]\"\>", {0.5599999999999999, -0.9699484522385714}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.49999999999999994`, -0.8660254037844387}], InsetBox["\<\"155\[Degree]\"\>", {0.47333245314958344, -1.015064721481048}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.42261826174069944`, -0.9063077870366499}], InsetBox["\<\"160\[Degree]\"\>", {0.38306256052474913, -1.0524557352802175}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.3420201433256688, -0.9396926207859083}], InsetBox["\<\"165\[Degree]\"\>", {0.2898773305148235, -1.0818369254437565}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.25881904510252096`, -0.9659258262890682}], InsetBox["\<\"170\[Degree]\"\>", {0.19448595898696183, -1.1029846833736732}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.1736481776669302, -0.9848077530122081}], InsetBox["\<\"175\[Degree]\"\>", {0.0976144318773771, -1.115738061862755}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.08715574274765812, -0.9961946980917455}], InsetBox["\<\"180\[Degree]\"\>", {6.858022075225179*^-17, -1.12}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 6.123233995736766*^-17, -1.}], InsetBox["\<\"185\[Degree]\"\>", {-0.09761443187737698, -1.115738061862755}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.08715574274765801, 0.9961946980917455}], InsetBox["\<\"190\[Degree]\"\>", {-0.19448595898696222, -1.1029846833736732}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.17364817766693053`, 0.984807753012208}], InsetBox["\<\"195\[Degree]\"\>", {-0.2898773305148234, -1.0818369254437565}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.25881904510252085`, 0.9659258262890683}], InsetBox["\<\"200\[Degree]\"\>", {-0.383062560524749, -1.0524557352802175}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.3420201433256687, 0.9396926207859084}], InsetBox["\<\"205\[Degree]\"\>", {-0.4733324531495833, -1.0150647214810482}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.42261826174069933`, 0.90630778703665}], InsetBox["\<\"210\[Degree]\"\>", {-0.5600000000000002, -0.9699484522385713}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.5000000000000001, 0.8660254037844386}], InsetBox["\<\"215\[Degree]\"\>", {-0.6424056087131718, -0.9174502896036708}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.5735764363510462, 0.8191520442889917}], InsetBox["\<\"220\[Degree]\"\>", {-0.719922122848924, -0.8579697762932555}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.6427876096865393, 0.7660444431189781}], InsetBox["\<\"225\[Degree]\"\>", {-0.7919595949289332, -0.7919595949289333}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.7071067811865475, 0.7071067811865476}], InsetBox["\<\"230\[Degree]\"\>", {-0.8579697762932553, -0.7199221228489243}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.7660444431189779, 0.6427876096865395}], InsetBox["\<\"235\[Degree]\"\>", {-0.9174502896036708, -0.642405608713172}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.8191520442889917, 0.5735764363510464}], InsetBox["\<\"240\[Degree]\"\>", {-0.9699484522385712, -0.5600000000000004}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.8660254037844385, 0.5000000000000003}], InsetBox["\<\"245\[Degree]\"\>", {-1.0150647214810482, -0.473332453149583}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.9063077870366502, 0.42261826174069905`}], InsetBox["\<\"250\[Degree]\"\>", {-1.0524557352802175, -0.3830625605247487}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.9396926207859084, 0.34202014332566844`}], InsetBox["\<\"255\[Degree]\"\>", {-1.0818369254437565, -0.28987733051482306}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.9659258262890683, 0.2588190451025206}], InsetBox["\<\"260\[Degree]\"\>", {-1.1029846833736732, -0.1944859589869619}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.9848077530122081, 0.17364817766693025`}], InsetBox["\<\"265\[Degree]\"\>", {-1.115738061862755, -0.09761443187737719}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.9961946980917455, 0.0871557427476582}], InsetBox["\<\"270\[Degree]\"\>", {-1.12, -1.3716044150450358*^-16}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, {1., 1.2246467991473532`*^-16}], InsetBox["\<\"275\[Degree]\"\>", {-1.115738061862755, 0.09761443187737691}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.9961946980917455, -0.08715574274765794}], InsetBox["\<\"280\[Degree]\"\>", {-1.1029846833736732, 0.19448595898696164}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.9848077530122081, -0.17364817766693003`}], InsetBox["\<\"285\[Degree]\"\>", {-1.0818369254437568, 0.28987733051482284}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.9659258262890684, -0.25881904510252035`}], InsetBox["\<\"290\[Degree]\"\>", {-1.0524557352802173, 0.3830625605247494}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.9396926207859082, -0.3420201433256691}], InsetBox["\<\"295\[Degree]\"\>", {-1.015064721481048, 0.47333245314958367}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.9063077870366498, -0.42261826174069966`}], InsetBox["\<\"300\[Degree]\"\>", {-0.9699484522385713, 0.5600000000000002}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.8660254037844386, -0.5000000000000001}], InsetBox["\<\"305\[Degree]\"\>", {-0.9174502896036708, 0.6424056087131718}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.8191520442889917, -0.5735764363510462}], InsetBox["\<\"310\[Degree]\"\>", {-0.8579697762932555, 0.719922122848924}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.7660444431189781, -0.6427876096865393}], InsetBox["\<\"315\[Degree]\"\>", {-0.7919595949289335, 0.7919595949289332}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.7071067811865477, -0.7071067811865475}], InsetBox["\<\"320\[Degree]\"\>", {-0.7199221228489244, 0.8579697762932553}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.6427876096865396, -0.7660444431189779}], InsetBox["\<\"325\[Degree]\"\>", {-0.642405608713172, 0.9174502896036707}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.5735764363510464, -0.8191520442889916}], InsetBox["\<\"330\[Degree]\"\>", {-0.5600000000000005, 0.9699484522385711}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.5000000000000004, -0.8660254037844384}], InsetBox["\<\"335\[Degree]\"\>", {-0.47333245314958305, 1.0150647214810482}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.4226182617406991, -0.9063077870366502}], InsetBox["\<\"340\[Degree]\"\>", {-0.38306256052474874, 1.0524557352802175}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.3420201433256685, -0.9396926207859084}], InsetBox["\<\"345\[Degree]\"\>", {-0.2898773305148231, 1.0818369254437565}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.25881904510252063`, -0.9659258262890683}], InsetBox["\<\"350\[Degree]\"\>", {-0.194485958986962, 1.1029846833736732}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.17364817766693033`, -0.984807753012208}], InsetBox["\<\"355\[Degree]\"\>", {-0.09761443187737724, 1.115738061862755}, ImageScaled[{Rational[1, 2], Rational[1, 2]}], Automatic, { 0.08715574274765825, -0.9961946980917455}]}, {Thickness[0.01], Arrowheads[0.1], ArrowBox[{{0, 0}, {0.9, 0.}}], ArrowBox[{{0, 0}, {0., 0.9}}], ArrowBox[{{0, 0}, {-0.9, 0.}}], ArrowBox[{{0, 0}, {0., -0.9}}]}, {Thickness[0.006666666666666666], Arrowheads[0.06666666666666667], ArrowBox[{{0, 0}, {0.5303300858899106, 0.5303300858899106}}], ArrowBox[{{0, 0}, {-0.5303300858899106, 0.5303300858899106}}], ArrowBox[{{0, 0}, {-0.5303300858899106, -0.5303300858899106}}], ArrowBox[{{0, 0}, {0.5303300858899106, -0.5303300858899106}}]}, {Thickness[0.003333333333333333], Arrowheads[0.03333333333333333], ArrowBox[{{0, 0}, {0.5543277195067721, 0.22961005941905385`}}], ArrowBox[{{0, 0}, {0.22961005941905388`, 0.5543277195067721}}], ArrowBox[{{0, 0}, {-0.22961005941905382`, 0.5543277195067721}}], ArrowBox[{{0, 0}, {-0.5543277195067721, 0.22961005941905388`}}], ArrowBox[{{0, 0}, {-0.5543277195067721, -0.2296100594190538}}], ArrowBox[{{0, 0}, {-0.22961005941905369`, -0.5543277195067721}}], ArrowBox[{{0, 0}, {0.229610059419054, -0.554327719506772}}], ArrowBox[{{0, 0}, {0.5543277195067721, -0.2296100594190537}}]}, {Thickness[0.0016666666666666666`], Arrowheads[0.016666666666666666`], ArrowBox[{{0, 0}, {0.4413533761814537, 0.08779064490725771}}], ArrowBox[{{0, 0}, {0.37416132553614534`, 0.250006604858821}}], ArrowBox[{{0, 0}, {0.25000660485882104`, 0.37416132553614534`}}], ArrowBox[{{0, 0}, {0.08779064490725774, 0.4413533761814537}}], ArrowBox[{{0, 0}, {-0.08779064490725769, 0.4413533761814537}}], ArrowBox[{{0, 0}, {-0.25000660485882104`, 0.37416132553614534`}}], ArrowBox[{{0, 0}, {-0.3741613255361454, 0.250006604858821}}], ArrowBox[{{0, 0}, {-0.4413533761814537, 0.08779064490725767}}], ArrowBox[{{0, 0}, {-0.4413533761814537, -0.08779064490725777}}], ArrowBox[{{0, 0}, {-0.37416132553614534`, -0.25000660485882104`}}], ArrowBox[{{0, 0}, {-0.250006604858821, -0.37416132553614534`}}], ArrowBox[{{0, 0}, {-0.0877906449072579, -0.44135337618145365`}}], ArrowBox[{{0, 0}, {0.08779064490725773, -0.4413533761814537}}], ArrowBox[{{0, 0}, {0.2500066048588208, -0.3741613255361455}}], ArrowBox[{{0, 0}, {0.37416132553614534`, -0.250006604858821}}], ArrowBox[{{0, 0}, {0.44135337618145365`, -0.08779064490725792}}]}}, ImageSize->600, PlotRange->1.25]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.826965776807794*^9, {3.826966966153447*^9, 3.826966997577322*^9}, { 3.8269681693974247`*^9, 3.82696818158158*^9}, {3.826968227394492*^9, 3.826968253290704*^9}, {3.8269682954333267`*^9, 3.826968322048778*^9}, { 3.826968364651103*^9, 3.826968433894476*^9}, 3.826968524951869*^9, { 3.826968559126815*^9, 3.826968623240644*^9}, {3.826969196369972*^9, 3.826969226364339*^9}}, CellID->98674716] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"CompassPoint | Example Notebook", Visible->False, FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 2, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb", CharacterEncoding -> "UTF-8"]]], Cell[ StyleData[All, "Working"], Editable -> True, DockedCells -> {}], Cell[ StyleData["Notebook"], Editable -> True, DockedCells -> {}, ScrollingOptions -> {"VerticalScrollRange" -> Automatic}], Cell[ StyleData[ "Section", StyleDefinitions -> StyleData["PrimaryExamplesSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", StyleDefinitions -> StyleData["ExampleSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsection", StyleDefinitions -> StyleData["ExampleSubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsubsection", StyleDefinitions -> StyleData["ExampleSubsubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Text", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True]}, Visible -> False, FrontEndVersion -> "13.0 for Mac OS X x86 (64-bit) (December 2, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[625, 23, 168, 7, 70, "Subsection",ExpressionUUID->"00bfa51a-0d97-4933-90de-223894e76e7f", CellID->904125756], Cell[796, 32, 212, 6, 70, "Text",ExpressionUUID->"2a736597-04ce-4fb1-8902-3feaaec91d91", CellID->408133607], Cell[CellGroupData[{ Cell[1033, 42, 7179, 180, 70, "Input",ExpressionUUID->"09b712c0-0d00-4bd9-bd53-fbefff03233c", CellID->982676240], Cell[8215, 224, 269, 6, 70, "Output",ExpressionUUID->"b58d615a-e21f-4ef1-9a0d-3db5531af3a6", CellID->387021399] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[8533, 236, 159, 7, 70, "Subsection",ExpressionUUID->"4d9f6d2c-2c78-4451-b700-9bdd3089baf2", CellID->204653245], Cell[8695, 245, 146, 3, 70, "Text",ExpressionUUID->"5f638664-e1fe-474a-9f9e-e52c37cb29b2", CellID->803932760], Cell[CellGroupData[{ Cell[8866, 252, 7131, 179, 70, "Input",ExpressionUUID->"b8d5b866-6544-4b5e-95eb-bd1ab87be05b", CellID->490756998], Cell[16000, 433, 171, 4, 70, "Output",ExpressionUUID->"f940e5a6-a62e-464c-8f5b-33a12f3755b9", CellID->981553967] }, Open ]], Cell[CellGroupData[{ Cell[16208, 442, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"80daf627-f79c-46db-8815-dbd7d7f4c1a5", CellID->14107562], Cell[16354, 448, 665, 22, 70, "Text",ExpressionUUID->"8fb1590d-a328-4473-93fc-0d5901b058e7", CellID->727365758], Cell[CellGroupData[{ Cell[17044, 474, 7209, 182, 70, "Input",ExpressionUUID->"7f0a6e2c-1ff9-490e-a920-025655086e10", CellID->844850982], Cell[24256, 658, 145, 3, 70, "Output",ExpressionUUID->"a6f5e405-87e7-49e1-99cd-60aac6ffe15e", CellID->981553968] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[24450, 667, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"8ddeb232-2d91-45ed-b3b3-7f22dc5ad485", CellID->14107563], Cell[24596, 673, 155, 5, 70, "Text",ExpressionUUID->"6bb7cb1e-11d8-4ac9-bcbf-6a00d0114fc7", CellID->245800977], Cell[CellGroupData[{ Cell[24776, 682, 14655, 364, 70, "Input",ExpressionUUID->"337fdd3b-3370-4413-9f38-84c9f474adbc", CellID->285055673], Cell[39434, 1048, 186, 4, 70, "Output",ExpressionUUID->"e521ebeb-7d1c-44ad-962a-65f0f8b0029c", CellID->661045763] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[39681, 1059, 169, 7, 70, "Subsection",ExpressionUUID->"74429dc0-b243-40ee-891a-34f7ce880178", CellID->158766396], Cell[39853, 1068, 287, 7, 70, "Text",ExpressionUUID->"45f68f91-8185-430e-9f50-3822b7f33c58", CellID->120306720], Cell[CellGroupData[{ Cell[40165, 1079, 7694, 189, 70, "Input",ExpressionUUID->"e285e232-6e9a-4843-a7c2-5bfc2d4fa565", CellID->704980934], Cell[47862, 1270, 340, 8, 70, "Output",ExpressionUUID->"8f704fe8-5124-40e7-89a5-9c54b4254652", CellID->550716383] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[48251, 1284, 167, 7, 70, "Subsection",ExpressionUUID->"9d343fa4-923e-4e71-88ab-1b54c260a511", CellID->461278909], Cell[48421, 1293, 135, 3, 70, "Text",ExpressionUUID->"4bf2afba-66bc-4224-a21e-afa05b53541c", CellID->71786165], Cell[CellGroupData[{ Cell[48581, 1300, 14082, 348, 70, "Input",ExpressionUUID->"fa742e17-856a-41c3-b161-b6d0c282309e", CellID->611820333], Cell[62666, 1650, 22547, 356, 70, "Output",ExpressionUUID->"c0dd4b0e-16d7-4f9a-8747-b3e6762ee0a5", CellID->98674716] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)