(* 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[ 92519, 2606] NotebookOptionsPosition[ 88214, 2497] NotebookOutlinePosition[ 89976, 2549] CellTagsIndexPosition[ 89933, 2546] WindowTitle->NewickDendrogram | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell["Display a Newick string as a dendrogram:", "Text", TaggingRules->{}, CellChangeTimes->{{3.796471574078166*^9, 3.796471574366338*^9}, { 3.7964716778266*^9, 3.7964716812263412`*^9}, {3.796471879036222*^9, 3.7964718905152073`*^9}}, CellID->13078159], 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["NewickDendrogram", "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["NewickDendrogram", "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.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/NewickDendrogram"}, "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], "NewickDendrogram"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["NewickDendrogram"], BoxID -> "NewickDendrogram", Selectable->False], "[", "\"\<(a:8, (b:2, d:9):4, c:1)e:0\>\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.796471457267165*^9, 3.796471462937746*^9}, { 3.796471597649557*^9, 3.796471598005485*^9}, {3.796471703747744*^9, 3.796471718875395*^9}, {3.796471808143197*^9, 3.7964718718601723`*^9}}, CellLabel->"In[38]:=", CellID->443871870], Cell[BoxData[ GraphicsBox[{ {GrayLevel[0.65], LineBox[{{{-5, 4}, {-13, 4}}, {{-9., 10.}, {-13., 10.}}, {{-12, 16}, {-13, 16}}, {{-13, 4}, {-13, 16}}, {{-7, 8}, {-9, 8}}, {{0, 12}, {-9, 12}}, {{-9, 8}, {-9, 12}}}]}, InsetBox[ FrameBox[ TagBox["\<\"a\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-5, 4}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"b\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-7, 8}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"d\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 12}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"c\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-12, 16}, Scaled[{0, 0.5}]]}, AlignmentPoint->Center, AspectRatio->2, Axes->False, AxesLabel->None, AxesOrigin->Automatic, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, CoordinatesToolOptions:>Automatic, DisplayFunction:>$DisplayFunction, Epilog->{}, FormatType:>TraditionalForm, Frame->False, FrameLabel->None, FrameStyle->{}, FrameTicks->Automatic, FrameTicksStyle->{}, GridLines->None, GridLinesStyle->{}, ImageMargins->0., ImagePadding->All, ImageSize->32, ImageSizeRaw->Automatic, LabelStyle->{}, Method->Automatic, PlotLabel->None, PlotRange->All, PlotRangeClipping->False, PlotRangePadding->Automatic, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->Automatic, TicksStyle->{}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7964714637429743`*^9, 3.796471598433962*^9, {3.796471813070695*^9, 3.796471872093663*^9}, 3.796577718161212*^9}, CellLabel->"Out[38]=", CellID->976398445] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->92191698], Cell[TextData[{ "Import a Newick tree using the resource function ", ButtonBox["ImportNewickString", BaseStyle->"Hyperlink", ButtonData->{ URL["https://resources.wolframcloud.com/FunctionRepository/resources/\ ImportNewickString/"], None}, ButtonNote-> "https://resources.wolframcloud.com/FunctionRepository/resources/\ ImportNewickString/"], " and render the imported tree as a dendrogram:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.796471574078166*^9, 3.796471574366338*^9}, { 3.7964716778266*^9, 3.7964716812263412`*^9}, {3.796471879036222*^9, 3.796471945929306*^9}, {3.857212029966384*^9, 3.857212073388626*^9}}, CellID->257979513], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"newickTree", "=", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", "\"\<(a:8, (b:2, d:9):4, c:1)e:0\>\"", "]"}]}], ";"}], "\[IndentingNewLine]", 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["NewickDendrogram", "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["NewickDendrogram", "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.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/NewickDendrogram"}, "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], "NewickDendrogram"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["NewickDendrogram"], BoxID -> "NewickDendrogram", Selectable->False], "[", "newickTree", "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.796471952483191*^9, 3.796471955358535*^9}, { 3.796471998016426*^9, 3.796472036550434*^9}}, CellLabel->"In[39]:=", CellID->2075548580], Cell[BoxData[ GraphicsBox[{ {GrayLevel[0.65], LineBox[{{{-5, 4}, {-13, 4}}, {{-9., 10.}, {-13., 10.}}, {{-12, 16}, {-13, 16}}, {{-13, 4}, {-13, 16}}, {{-7, 8}, {-9, 8}}, {{0, 12}, {-9, 12}}, {{-9, 8}, {-9, 12}}}]}, InsetBox[ FrameBox[ TagBox["\<\"a\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-5, 4}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"b\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-7, 8}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"d\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 12}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"c\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-12, 16}, Scaled[{0, 0.5}]]}, AlignmentPoint->Center, AspectRatio->2, Axes->False, AxesLabel->None, AxesOrigin->Automatic, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, CoordinatesToolOptions:>Automatic, DisplayFunction:>$DisplayFunction, Epilog->{}, FormatType:>TraditionalForm, Frame->False, FrameLabel->None, FrameStyle->{}, FrameTicks->Automatic, FrameTicksStyle->{}, GridLines->None, GridLinesStyle->{}, ImageMargins->0., ImagePadding->All, ImageSize->32, ImageSizeRaw->Automatic, LabelStyle->{}, Method->Automatic, PlotLabel->None, PlotRange->All, PlotRangeClipping->False, PlotRangePadding->Automatic, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->Automatic, TicksStyle->{}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7964720376954*^9, 3.796577722137671*^9}, CellLabel->"Out[40]=", CellID->290084360] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Scope", "\[NonBreakingSpace]", Cell["(3)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->964056545], Cell["Trees of arbitrary depth are supported:", "Text", TaggingRules->{}, CellChangeTimes->{{3.796471435195738*^9, 3.79647143781898*^9}, { 3.7964716220062733`*^9, 3.796471664212393*^9}, {3.7964736154557343`*^9, 3.796473648558001*^9}}, CellID->483451037], 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["NewickDendrogram", "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["NewickDendrogram", "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.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/NewickDendrogram"}, "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], "NewickDendrogram"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["NewickDendrogram"], BoxID -> "NewickDendrogram", Selectable->False], "[", "\"\<(a:3, (d:18, (e:7, f:20)g:8, h:3), b:6)c:0\>\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.796473604288321*^9, 3.796473638094678*^9}}, CellLabel->"In[132]:=", CellID->2121346541], Cell[BoxData[ GraphicsBox[{ {GrayLevel[0.65], LineBox[{{{-31, 5}, {-34, 5}}, {{-28., 17.5}, {-34., 17.5}}, {{-34, 5}, {-34., 17.5}}, {{-10, 10}, {-28, 10}}, {{-20., 17.5}, {-28., 17.5}}, {{-25, 25}, {-28, 25}}, {{-28, 10}, {-28, 25}}, {{-13, 15}, {-20, 15}}, {{0, 20}, {-20, 20}}, {{-20, 15}, {-20, 20}}}]}, InsetBox[ FrameBox[ TagBox["\<\"a\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-31, 5}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"d\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-10, 10}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"e\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-13, 15}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"f\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 20}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"h\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-25, 25}, Scaled[{0, 0.5}]]}, AlignmentPoint->Center, AspectRatio->2, Axes->False, AxesLabel->None, AxesOrigin->Automatic, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, CoordinatesToolOptions:>Automatic, DisplayFunction:>$DisplayFunction, Epilog->{}, FormatType:>TraditionalForm, Frame->False, FrameLabel->None, FrameStyle->{}, FrameTicks->Automatic, FrameTicksStyle->{}, GridLines->None, GridLinesStyle->{}, ImageMargins->0., ImagePadding->All, ImageSize->40, ImageSizeRaw->Automatic, LabelStyle->{}, Method->Automatic, PlotLabel->None, PlotRange->All, PlotRangeClipping->False, PlotRangePadding->Automatic, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->Automatic, TicksStyle->{}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.796473606168865*^9, 3.7964736392325478`*^9}}, CellLabel->"Out[132]=", CellID->901312120] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->540671545], Cell["\<\ If the Newick tree is not connected to a common ancestor node, multiple \ dendrograms are displayed:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.796471435195738*^9, 3.79647143781898*^9}, { 3.7964716220062733`*^9, 3.796471664212393*^9}, {3.796576885939595*^9, 3.7965768951988297`*^9}}, CellID->1058346618], 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["NewickDendrogram", "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["NewickDendrogram", "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.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/NewickDendrogram"}, "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], "NewickDendrogram"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["NewickDendrogram"], BoxID -> "NewickDendrogram", Selectable->False], "[", "\"\<((a:3, b:2)node:0, (c:1, d:2)node2:1)\>\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.796470924436349*^9, 3.796470927868967*^9}}, CellLabel->"In[98]:=", CellID->2087731930], Cell[BoxData[ TagBox[GridBox[{ { GraphicsBox[{ {GrayLevel[0.65], LineBox[{{{0, 2}, {-3, 2}}, {{-1, 4}, {-3, 4}}, {{-3, 2}, {-3, 4}}}]}, InsetBox[ FrameBox[ TagBox["\<\"a\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 2}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"b\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-1, 4}, Scaled[{0, 0.5}]]}, AlignmentPoint->Center, AspectRatio->2, Axes->False, AxesLabel->None, AxesOrigin->Automatic, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, CoordinatesToolOptions:>Automatic, DisplayFunction:>$DisplayFunction, Epilog->{}, FormatType:>TraditionalForm, Frame->False, FrameLabel->None, FrameStyle->{}, FrameTicks->Automatic, FrameTicksStyle->{}, GridLines->None, GridLinesStyle->{}, ImageMargins->0., ImagePadding->All, ImageSize->32, ImageSizeRaw->Automatic, LabelStyle->{}, Method->Automatic, PlotLabel->None, PlotRange->All, PlotRangeClipping->False, PlotRangePadding->Automatic, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->Automatic, TicksStyle->{}]}, { GraphicsBox[{ {GrayLevel[0.65], LineBox[{{{-1, 2}, {-2, 2}}, {{0, 4}, {-2, 4}}, {{-2, 2}, {-2, 4}}}]}, InsetBox[ FrameBox[ TagBox["\<\"c\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-1, 2}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"d\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 4}, Scaled[{0, 0.5}]]}, AlignmentPoint->Center, AspectRatio->2, Axes->False, AxesLabel->None, AxesOrigin->Automatic, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, CoordinatesToolOptions:>Automatic, DisplayFunction:>$DisplayFunction, Epilog->{}, FormatType:>TraditionalForm, Frame->False, FrameLabel->None, FrameStyle->{}, FrameTicks->Automatic, FrameTicksStyle->{}, GridLines->None, GridLinesStyle->{}, ImageMargins->0., ImagePadding->All, ImageSize->40, ImageSizeRaw->Automatic, LabelStyle->{}, Method->Automatic, PlotLabel->None, PlotRange->All, PlotRangeClipping->False, PlotRangePadding->Automatic, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->Automatic, TicksStyle->{}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output", TaggingRules->{}, CellChangeTimes->{{3.796470934263554*^9, 3.7964709481304827`*^9}}, CellLabel->"Out[98]=", CellID->1890969244] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->1063346358], Cell["\<\ Quite large trees can be rendered with legible substructure, at the cost of \ the resulting dendrogram being correspondingly large:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.796472812771544*^9, 3.796472844074419*^9}, { 3.796473025822529*^9, 3.7964730300556717`*^9}, {3.796473128136455*^9, 3.796473158598934*^9}, {3.796473310539406*^9, 3.796473314105563*^9}}, CellID->649685796], 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["NewickDendrogram", "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["NewickDendrogram", "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.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/NewickDendrogram"}, "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], "NewickDendrogram"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["NewickDendrogram"], BoxID -> "NewickDendrogram", Selectable->False], "[", InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"String", StyleBox[ "\"Moderately large tree\"", "IconizedCustomName", StripOnInput -> False], GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["String", "IconizedItem"]}]}, { RowBox[{ TagBox["\"String length: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["5176", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["5376", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], "(((('PDT000420560.1':0.0198508, ('PDT000133532.2':0.00971731, \ 'PDT000158341.2':0.00437849)NODE:0.0088589)NODE_000002:0.00329575, \ ((('PDT000034097.3':0.0146399, ('PDT000235705.2':0.00313825, \ 'PDT000247553.2':0.00294836)NODE_000003:0.00497259)NODE_000004:0.0138707, \ (('PDT000035464.1':0.0063772, \ 'PDT000035508.1':0.0064036)NODE_000005:0.00858051, \ ('PDT000579113.1':0.00421217, \ 'PDT000579112.1':0.00495026)NODE_000006:0.0159417)NODE_000007:0.00127682)NODE_\ 000008:0.00392538, (('PDT000111577.2':0.000521048, \ 'PDT000201409.1':0.000878812)NODE_000009:0.00651095, \ ('PDT000050204.11':0.00943314, ('PDT000097379.2':0.0166698, \ ('PDT000050245.2':0.000985307, ('PDT000050242.2':0.000785888, \ (('PDT000050233.2':0.000614227, ('PDT000050226.2':0.000545162, \ ('PDT000295783.2':0.000237048, \ 'PDT000295779.2':0.000262852)NODE_000010:0.000254468)NODE_000011:0.\ 00006744690000000001)NODE_000012:-0.0000259395, \ ('PDT000050195.2':0.000417441, (('PDT000111582.2':0.000380979, \ 'PDT000111584.2':0.000318881)NODE_000013:0.000066145, \ ('PDT000111575.2':0.000205089, ('PDT000111578.2':0.000388139, \ 'PDT000111585.2':0.000211741)NODE_000014:0.0000948711)NODE_000015:0.000168731)\ NODE_000016:0.0001556)NODE_000017:0.000019794)NODE_000018:0.0005216)NODE_\ 000019:0.000230167)NODE_000020:0.00790221)NODE_000021:0.00679072)NODE_000022:-\ 0.00465701)NODE_000023:0.0135222)NODE_000024:0.00530667)NODE_000025:0.\ 00710352, ((('PDT000420342.2':0.00867207, \ 'PDT000658397.1':0.00987763)NODE_000026:0.00394882, \ ('PDT000420251.2':0.00930422, ('PDT000420494.2':0.00560881, \ ('PDT000420019.2':0.0000462236, \ 'PDT000420456.2':0.00005377640000000001)NODE_000027:0.00563134)NODE_000028:0.\ 00290101)NODE_000029:0.00950324)NODE_000030:0.00631592, \ ((('PDT000715497.1':0.0019086, \ 'PDT000000595.5':0.00218771)NODE_000031:0.00245252, \ ('PDT000489474.1':0.000717467, (('PDT000489323.1':0.000221158, \ 'PDT000489407.1':0.000278742)NODE_000032:0.0000647109, \ ('PDT000489464.1':0.00012838, ('PDT000486139.2':0.000058193900000000005, \ 'PDT000489485.1':0.0000418061)NODE_000033:0.000171585)NODE_000034:0.000178041)\ NODE_000035:0.000435336)NODE_000036:0.00708397)NODE_000037:0.00195908, \ (('PDT000518591.1':0.00291175, \ 'PDT000536820.1':0.00208525)NODE_000038:0.0111476, \ ((('PDT000036539.2':0.00402592, ('PDT000112614.2':0.000261359, \ 'PDT000025487.3':0.000138601)NODE_000039:0.0022718)NODE_000040:0.00971232, \ ('PDT000005905.2':0.0136903, ('PDT000030344.3':0.00786456, \ ('PDT000036653.2':0.00390216, ('PDT000036538.2':0.00449639, \ ('PDT000102712.3':0.00265854, ('PDT000025482.3':0.00200228, \ ('PDT000246521.2':0.000733636, ('PDT000133698.2':0.000221947, \ (('PDT000362352.1':0.000106709, \ 'PDT000002741.3':0.00009327120000000001)NODE_000041:0.0000808958, \ ('PDT000576927.1':0.000163816, ('PDT000133699.2':0.0000323786, \ 'PDT000133700.2':0.0000676214)NODE_000042:0.000036183700000000004)NODE_000043:\ 0.0000736729)NODE_000044:0.00009418600000000001)NODE_000045:0.000380775)NODE_\ 000046:0.00135761)NODE_000047:0.000388642)NODE_000048:0.000351942)NODE_000049:\ 0.000328401)NODE_000050:0.00142501)NODE_000051:0.000497992)NODE_000052:0.\ 00152019)NODE_000053:0.000431489, ('PDT000119951.2':0.0169704, \ ('PDT000430625.1':0.00364419, (('PDT000025469.3':0.00121963, \ ('PDT000025479.3':0.000397895, (('PDT000025470.3':0.000206438, \ 'PDT000025480.3':0.000193482)NODE_000054:0.000048854800000000005, \ ('PDT000025474.3':0.000181545, ('PDT000025473.3':0.00022996, \ ('PDT000025472.3':0, \ 'PDT000025471.3':0)NODE_000055:0.00017004)NODE_000056:0.00006177440000000001)\ NODE_000057:0.000191907)NODE_000058:0.000151469)NODE_000059:0.000221088)NODE_\ 000060:0.000023073800000000003, ('PDT000715488.1':0.000967287, \ (('PDT000065812.2':0.000721315, ('PDT000715489.1':0.000247055, \ 'PDT000715495.1':0.000252845)NODE_000061:0.000278345)NODE_000062:-0.\ 00005042570000000001, ('PDT000025478.3':0.000876341, \ (('PDT000715499.1':0.00039311, \ 'PDT000356339.1':0.00050653)NODE_000063:0.000113079, \ (('PDT000715490.1':0.000260406, \ 'PDT000715496.1':0.000339534)NODE_000064:0.0000719736, \ ('PDT000152418.1':0.000273525, ('PDT000715498.1':0.000191038, \ ('PDT000715492.1':0.000170376, (('PDT000715494.1':0.000101269, \ ('PDT000356340.1':0.000033464100000000004, \ 'PDT000041260.2':0.00006653590000000001)NODE_000065:0.0000987064)NODE_000066:\ 0.00003476370000000001, ('PDT000025481.3':0.000198834, \ (('PDT000025488.3':0.000059052500000000004, ('PDT000715487.1':0, \ 'PDT000715501.1':0)NODE_000067:0.00004094750000000001)NODE_000068:0.\ 000056655300000000006, ('PDT000715491.1':0.000143976, \ ('PDT000025484.3':0.0000369894, ('PDT000715493.1':0.000033189700000000005, \ ('PDT000715500.1':0.000027748100000000003, \ 'PDT000083329.5':0.0000722519)NODE_000069:0.0000668003)NODE_000070:0.\ 00007407050000000001)NODE_000071:0.0000245089)NODE_000072:-3.9250099999999995*\ ^-6)NODE_000073:0.0000937248)NODE_000074:-0.0000648775)NODE_000075:0.\ 000102293)NODE_000076:6.9989399999999994*^-6)NODE_000077:0.0000329868)NODE_\ 000078:0.0000984883)NODE_000079:0.0000126595)NODE_000080:0.000159901)NODE_\ 000081:-0.00006008200000000001)NODE_000082:0.000295401)NODE_000083:-0.\ 00030214)NODE_000084:0.00261792)NODE_000085:0.010092)NODE_000086:-0.00601038)\ NODE_000087:0.00522493)NODE_000088:-0.00229636)NODE_000089:0.00492686)NODE_\ 000090:0.00742719)NODE_000091:0.00795775)", SelectWithContents->True, Selectable->False], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.79647249028095*^9, 3.7964724956676283`*^9}, { 3.7964726928486853`*^9, 3.796472693923958*^9}, {3.796472770456883*^9, 3.7964727817857513`*^9}, {3.796472939986204*^9, 3.796472995620472*^9}, { 3.79647307314773*^9, 3.796473112251111*^9}}, CellLabel->"In[129]:=", CellID->836153427], Cell[BoxData[ GraphicsBox[{ {GrayLevel[0.65], LineBox[CompressedData[" 1:eJyFlw1Ujucfxx9vyTD1z4h5SZmUR2tRbWb2WJihxN9mGpt3zbu0v3fVyLJF L4peHnkiqehFUpFeFMOytMaYYxRFrIUtRJpd133/+p/n9z07m3M6x+d8+n5/ 130993Pdd/1mL5s8r41GozFvpdG01qg/NwdedGj1332F4r+alzb460Ys15RY PE78P7fucCQuYqD0hs4ulslGHhnzqo86VGNnsi9e8RqruTrjeZL1cYabPrEG hbv+/g3zyJiXXrfyjVkh1dtUr5nK5wk275emzx8So3LRYu6RMS+81rPLswW6 UPILeJ/grGMj+/6eE6mybgX3yJgXfvK6T55VvbFb5U6b2H5Irj6nHWf96Q71 eheH8/0Cxrz0hyryem9pov3xXMfnCQ7UnuugvRWr8vIg7pExL7yG/VvF5wkO Dpw82/f8JpUNftwjY154g+0ZJ9eCtfR5rOd9gk37uXpPCVxH+xnAPTLmhfd0 8C2+3EPdX01oIN8PwXUuSye7W31F1/8N98iYF97MZs5bTv230v27mc8TfGra +EqvbuQ1X3GPjHnhk3K3Xq94sV7lyq18vYLPOjVMrXq6hq4/mHtkzAtfHl+R fGA+rS8olN2PkrusKnnwwDpK4YGeEcwjY176E1G/nF3zYRB93iF8nmDf6CWb 7kTTenRh3CNjXnjdIhu3IQ3BKmeEs/VKzo3wW1bqEKaw54NI5pExL70m+IzW srYXfT4RrE/yCZvrTtsdvlTYULSLeWTMS9+YZR3UaOdP91ck65M83O9JVtXR AIV1D6OZR8a89Ke+uB3zcw/q1+xifZLb9l6W/3mC6v1v6plHxrz0vcyuv98m k/ozo1mf5AcXT5t2iKH+DgY+Dxjz0nvuyRz5+MZGOo+i+DzBq2PaZyduJ26I 4R4Z88LPvJamT6qi/spo3idYv8QqangHYlM998iYF95zfl6Puz386LyI5X2C DUe95l79k+YX6blHxrzwuZZf9PTaSP2OcWy/JW/ese6k71jiJgP3yJhvkvu/ s+7b14i1Bt4n2PHwfavnN2j+d/HcI2Ne+KRhiTvMT9D1G/bweYItXXOqHJrJ B8F6kDEvvHd7bWO9Ka1PF8/XK7hRt3N6wHriKXu5R8a88Bq72O6bajao3Ah9 gmvb/RK2No7Wn7GXe2TMC78tqZ3Jup/3qN+HuASj9zWV01/fHl+2V74P6F6t C0s18siYV71bWrPT5DJ6np3ax+ZJ9l3zYpZbn50qr9nPPTLmhQ/u99PS5rpw lb338XmCvYYWHHyU0XI+JnCPjHnhP75m4bfMgZ4HVxL4egXXj8+sOfMaPZ96 JnKPjHnha48M71Jf9jWdr/t5n+CIu1Os+5SQT0jkHhnzwudu+OrVmymUH5vI +wTX9Zowpy6RWHOAe2TMC99nfrOh8yj18yjqlmx0v6is8ziZXnohXrkfgk0O s/uJM+ZV7/Pc9bzNSb06r2sSmydZa91tpWkb9Xnq3yOFeWTMS7+7uvqHC+fp fTr3AJ8n+PTgWLP9m8gvT+IeGfPCb/6jqnPDmF0qD0xm65Vcr93+zd1Q8h0P co+MeeGHDSm+/rsf5Yen8D7BJeNWLXxnNvHVg9wjY1744zXvOj8dTVyZzOcJ 7hmTfKHShTgqhXtkzAvv4XTtWaSO2PMgX69gbbr+6/eciece4h4Z88LPqGjn 2moAsekh3ic4d9nYpgn2xEXgkTEvfPKS0mhPZ/o8LqYa3e8qj5q2e2Tt6DjB /i6WNkeMPDLmVZ+Ymzmj7TD6+3B1Kp8nuOuAiMup/6HzxDGNe2TMC5846aXA 0ovK32NFeo8Mo/Wq3HZWVZtCl72SU3c8OWrskTGv+OpdT06euknnkU+68TyF Q2Kyxn8wRvm++L9VnWHskTGveLM3O6aVbglRfW0anye4IsX28rAQOv+fp3OP jHnhPwo/9mHOOMob0nmf4C0Or66vWUiszeAeGfPCN45+O/7ul/T3RVCG8X4o 7OgzLi6/RH0erdQdZh4Z89I/tnCv755N11PN+yTPSrpT7uChnm+39YeZR8a8 9J/eChs3ciLdf2KecZ/kT2akO1k2Rit8/in3yJiXXueeHj53Bt3/et4neZqt /elLsSpHTc1kHhnz0j8KLBh07yatv5H3SXZ9vsKnwVllx5xM5pExL/2neU+P mtvReTElk/VJjuk44qxZhepn9jzCPDLmpXf+Mc+90Jz6M3ifwme2LXh3qcpF m48wj4x5xZ+xKjUbSr7TEdYn+dgr8zK2f6iyfzP3yJiXvqSf9S/TWs7/nbxP 8u0x+sgR7xHPy+IeGfPCb3y2umBmf2JvmCc4eXafr2/bEp8Cj4x54cPa2HV1 705slcXXKzg1b+ZHxW8Sp4BHxrzwTU/cfEY7Eq+HPsG95oRPNW1Z/xXwyJgX vjGnuOT7TnQ+DD1qfN4rPCaz4bP73ZXvo5dtXraxR8a84n3nramLn07fr1DW p/CljytOJH+urCfL43aOsUfGvOKnFDe8v3uOej3lU7ON+xR2c/FrfT1XYe/v fY8Ze2TMK/7aop4Tamxo/XVH2TzJHtkdJiXR99tQks08MualtxvcbOp1kvrH ZrM+ycW5Sxf80Upl3bs5zCNjXvqH7aeX939E/RW8T/LEe2MKEi6o3v9QDvPI mJfe/rMtf5oUUn9CNp8n+M3GWt/FxcQaWA8y5oUPffm3/3U2EE/PYeuV3DnQ 3nply/xm8MiYFz7wR58z9puIc6FPcNBp54c3wonfy+UeGfPCs3zXf+Hl/8J/ 8/sOhs/WTsgjPp9rfL8r3PHco6YlixQuj+l93NgjY17xm/Nv/bl/Nfklx4z7 FH7sdq2twzqFDc5lx409MuYVPyUyeEZIy/oHHuPzBHvHDolIe504Ezwy5oVf UBb34l499W+GPsFnAwYvn/8b+UrwyJgXfldqn9MrIyk//Ljxfij8a/foEW6T FNYtmpln7JExr3izlEEJcUPIf8v6FB7xQce0h+4K+//0LM/YI2Ne8XbppWvC ztP6o47zeYLN55k2X0oj3wAeGfPC977XerfF28Qb84zXq7Btt/vvWNH7Reqq E8wjY176q/1fdCl/TOvzzOPzBLuUe9wwb3m/OwQeGfPCm9i4jltcR3nTE2y9 kvssM9m6dpDKXne4R8a89DkdB78x/yn1z+V9kvueG3Algc7zrIX5zCNjXvo7 3sU9m55TfxHvk7zapNTi4ssqe79SwDwy5qV/suVp35x25Gflsz7JB4JP1l/q S8/XcwXMI2Ne+l/nfm8x6Fdaf698Pk+w0+z7nS63+ETwyJgX3tDPwtP8FuVX Q5/ggC2Vt+ddJb4IHhnzwn8Zst87u4UdC9h+SL5w5w/7Ue3pfWBOIfPImJf+ 4IKJlgsbqf8H3ifZfkWv8PGm9D7wuJB5ZMxLf6XslQH3a6k/uIDPE/x29W7b tJbzsxusBxnzwrN8bcE/86jCf+a/+f1dj9wCtrV8/w2FbD8kT/NYWHa95f1q QBHfL2DMS/96xvQN2pbrec77JIcOvdfWl54//h5FzCNjXvql95wzi2qoX1vE +iQH/Oxn9fAa8QrwyJgX3sf3dFPKJWIv6BPsbj1xtuY74iDwyJgX/i9CRXxb "]]}, InsetBox[ FrameBox[ TagBox["\<\"'PDT000420560.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.0145961, 92.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000133532.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.015870690000000007, 184.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000158341.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.02120951, 276.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000034097.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0., 368.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000235705.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.006529060000000003, 460.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000247553.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.006718950000000008, 552.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000035464.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.01227607, 644.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000035508.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.012249669999999997, 736.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000579113.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.007079910000000002, 828.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000579112.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.006341820000000005, 920.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000111577.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.011881782, 1012.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000201409.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.011524018000000004, 1104.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000050204.11'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.014137650000000002, 1196.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000097379.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.00011027000000000953, 1288.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000050245.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.00789255300000001, 1380.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000050242.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.007861805000000006, 1472.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000050233.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.007537805500000008, 1564.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000050226.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.0075394236000000114, 1656.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000295783.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.007593069600000016, 1748.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000295779.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.007567265600000012, 1840.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000050195.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.007688858000000014, 1932.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000111582.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.007503575000000019, 2024.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000111584.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.007565673000000016, 2116.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000111575.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.0075768790000000155, 2208.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000111578.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.007298957900000014, 2300.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000111585.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.007475355900000015, 2392.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000420342.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.018482170000000006, 2484.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000658397.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.017276610000000005, 2576.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000420251.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.012295600000000004, 2668.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000420494.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.013090000000000004, 2760.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000420019.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.013021246400000006, 2852.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000420456.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.013013693600000008, 2944.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000715497.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.026171920000000005, 3036.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000000595.5'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.025892810000000006, 3128.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000489474.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022731603000000003, 3220.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000489323.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.0227278651, 3312.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000489407.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022670281100000002, 3404.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000489464.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022707313, 3496.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000486139.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022605914100000003, 3588.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000489485.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022622301900000003, 3680.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000518591.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.020729130000000005, 3772.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000536820.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.021555630000000006, 3864.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000036539.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.015393821000000002, 3956.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000112614.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.016886582000000004, 4048.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000025487.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.017009340000000005, 4140.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000005905.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.013921571000000008, 4232.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000030344.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.019249319000000008, 4324.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000036653.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.021786709000000008, 4416.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000036538.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.020864078000000008, 4508.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000102712.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022349986000000006, 4600.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000025482.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022617604000000006, 4692.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000246521.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022528638000000007, 4784.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000133698.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022659552000000006, 4876.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000362352.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022599708200000006, 4968.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000002741.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022613146000000004, 5060.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000576927.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022549824100000008, 5152.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000133699.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022645077800000007, 5244.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000133700.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.02260983500000001, 5336.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000119951.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.018603530000000007, 5428.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000430625.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.021837740000000008, 5520.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000025469.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.02162130620000001, 5612.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000025479.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.02222195320000001, 5704.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000025470.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022213086400000005, 5796.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000025480.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022226042400000007, 5888.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000025474.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022094927200000003, 5980.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000025473.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.021984737800000004, 6072.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000025472.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022044657800000006, 6164.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000025471.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022044657800000006, 6256.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000715488.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022198863000000006, 6348.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000065812.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022199859700000005, 6440.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000715489.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022395774700000006, 6532.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000715495.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022389984700000004, 6624.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000025478.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022054490000000006, 6716.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000715499.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022264741000000008, 6808.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000356339.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022151321000000005, 6900.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000715490.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022425890900000002, 6992.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000715496.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022346762900000004, 7084.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000152418.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022386257200000002, 7176.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000715498.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022435757400000002, 7268.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000715492.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022449420460000005, 7360.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000715494.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022381470760000004, 7452.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000356340.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.02235056926000001, 7544.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000041260.2'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022317497460000005, 7636.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000025481.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022383546960000007, 7728.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000025488.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022372948360000006, 7820.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000715487.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022391053360000007, 7912.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000715501.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022391053360000007, 8004.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000715491.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022348605170000004, 8096.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000025484.3'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022431082870000004, 8188.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000715493.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022360812070000007, 8280.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000715500.1'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022299453370000007, 8372.}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"'PDT000083329.5'\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {-0.022254949570000005, 8464.}, Scaled[{0, 0.5}]]}, AlignmentPoint->Center, AspectRatio->2, Axes->False, AxesLabel->None, AxesOrigin->Automatic, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, CoordinatesToolOptions:>Automatic, DisplayFunction:>$DisplayFunction, Epilog->{}, FormatType:>TraditionalForm, Frame->False, FrameLabel->None, FrameStyle->{}, FrameTicks->Automatic, FrameTicksStyle->{}, GridLines->None, GridLinesStyle->{}, ImageMargins->0., ImagePadding->All, ImageSize->915, ImageSizeRaw->Automatic, LabelStyle->{}, Method->Automatic, PlotLabel->None, PlotRange->All, PlotRangeClipping->False, PlotRangePadding->Automatic, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->Automatic, TicksStyle->{}]], "Output", TaggingRules->{}, CellChangeTimes->{3.79647269697797*^9, 3.796472784038159*^9, 3.796473002590055*^9, 3.796473114000085*^9}, CellLabel->"Out[129]=", CellID->1708633731] }, Open ]] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"NewickDendrogram | Example Notebook", Visible->False, FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 9, 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 9, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[629, 23, 168, 7, 70, "Subsection",ExpressionUUID->"0ec7dbcb-96e1-42df-9b8a-9dc3144f7954", CellID->462042388], Cell[800, 32, 260, 5, 70, "Text",ExpressionUUID->"ab38a9cc-ab97-4d21-bc88-89c3f811495e", CellID->13078159], Cell[CellGroupData[{ Cell[1085, 41, 7372, 184, 70, "Input",ExpressionUUID->"a019010e-077a-4015-bea2-258b1e4b55d6", CellID->443871870], Cell[8460, 227, 2281, 81, 70, "Output",ExpressionUUID->"390884bb-dbb7-48f4-92d4-ffa9aea01d9e", CellID->976398445] }, Open ]], Cell[CellGroupData[{ Cell[10778, 313, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"b387c0de-6e95-4ec3-b479-fd8fdd332081", CellID->92191698], Cell[10924, 319, 668, 16, 70, "Text",ExpressionUUID->"e25cf951-110b-4ca1-a467-cd7e3d9fb5ad", CellID->257979513], Cell[CellGroupData[{ Cell[11617, 339, 7468, 188, 70, "Input",ExpressionUUID->"be79367d-4d06-4935-a73d-3426436d4413", CellID->2075548580], Cell[19088, 529, 2202, 79, 70, "Output",ExpressionUUID->"2805f877-6086-456d-9d7c-8e8dba311d8d", CellID->290084360] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[21351, 615, 159, 7, 70, "Subsection",ExpressionUUID->"5b035683-f306-40a4-bfa4-b00be18329b6", CellID->964056545], Cell[21513, 624, 261, 5, 70, "Text",ExpressionUUID->"6d7fc7a9-ba5f-47b7-a997-e33d304b84d6", CellID->483451037], Cell[CellGroupData[{ Cell[21799, 633, 7243, 182, 70, "Input",ExpressionUUID->"3a9bc806-3843-4c3a-b3e2-1c1b3bfaab3c", CellID->2121346541], Cell[29045, 817, 2562, 89, 70, "Output",ExpressionUUID->"1ca72302-2a21-4524-aca6-9d5103fb824e", CellID->901312120] }, Open ]], Cell[CellGroupData[{ Cell[31644, 911, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"edf32799-d78c-41c1-878a-e435b4ad41b6", CellID->540671545], Cell[31791, 917, 331, 8, 70, "Text",ExpressionUUID->"ee6f1755-3dcf-4ace-9adf-c0708562f5ef", CellID->1058346618], Cell[CellGroupData[{ Cell[32147, 929, 7237, 182, 70, "Input",ExpressionUUID->"2cbe9310-4c48-4e7e-945a-9d8ffabd737f", CellID->2087731930], Cell[39387, 1113, 3743, 128, 70, "Output",ExpressionUUID->"f6ae4dff-8d31-461f-9c82-12b167826439", CellID->1890969244] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[43179, 1247, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"918b49a9-0c35-402b-b85e-ce345536413b", CellID->1063346358], Cell[43327, 1253, 406, 8, 70, "Text",ExpressionUUID->"6ca257ca-23a8-4c8d-8b90-fe64e27b166f", CellID->649685796], Cell[CellGroupData[{ Cell[43758, 1265, 13686, 295, 70, "Input",ExpressionUUID->"9917ff0a-e3b9-4a82-870a-a23fe690ff68", CellID->836153427], Cell[57447, 1562, 30727, 930, 70, "Output",ExpressionUUID->"90e078dc-2026-4116-98da-b80db23f4f4c", CellID->1708633731] }, Open ]] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)