(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 268712, 5320] NotebookOptionsPosition[ 265320, 5255] NotebookOutlinePosition[ 265814, 5275] CellTagsIndexPosition[ 265771, 5272] WindowTitle->Block Simulation Network of Elementary Cellular Automata | \ Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection"], Cell["Retrieve the default content:", "Text", CellChangeTimes->{{3.696186645510051*^9, 3.6961866545240507`*^9}, { 3.696187841532233*^9, 3.696187852829363*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceData", "[", "\"\\"", "]"}]], "Input", CellContext->Notebook, CellFrameLabels->None, CellChangeTimes->{{3.696186325360051*^9, 3.696186327021051*^9}, { 3.696186470495051*^9, 3.6961864722920513`*^9}, {3.696187844212501*^9, 3.6961878557606554`*^9}, 3.886177486575026*^9}], Cell[BoxData[ TemplateBox[{ TagBox[ DynamicModuleBox[{ TypeSystem`NestedGrid`PackagePrivate`$state$$ = Data`UnorderedAssociation[ "DisplayedRowCount" -> 20, "RowCount" -> 10, "Length" -> 88, "InitialType" -> TypeSystem`Assoc[ TypeSystem`Atom[Integer], TypeSystem`Vector[ TypeSystem`Struct[{"Rule", "Blocks", "Steps"}, { TypeSystem`Atom[Integer], TypeSystem`Assoc[ TypeSystem`Atom[Integer], TypeSystem`Vector[ TypeSystem`Atom[Integer], TypeSystem`AnyLength], 2], TypeSystem`Atom[Integer]}], TypeSystem`AnyLength], 88], "DisplayedColumnCount" -> 20, "DataRowCount" -> 0, "Shape" -> TypeSystem`PackageScope`HeaderShape[<|{All, All, TypeSystem`PackageScope`KeyDummy[1]} -> 1, {All, All, "Rule"} -> 1, {All, All, "Blocks"} -> 2, {All, All, "Steps"} -> 1|>, TypeSystem`PackageScope`Limited[ TypeSystem`PackageScope`ColumnShape[ TypeSystem`PackageScope`KeyValueShape[ TypeSystem`PackageScope`AtomShape[34], TypeSystem`PackageScope`Limited[ TypeSystem`PackageScope`ColumnShape[ TypeSystem`PackageScope`RowShape[<| "Rule" -> TypeSystem`PackageScope`AtomShape[34], "Blocks" -> TypeSystem`PackageScope`Limited[ TypeSystem`PackageScope`ColumnShape[ TypeSystem`PackageScope`KeyValueShape[ TypeSystem`PackageScope`AtomShape[34], TypeSystem`PackageScope`UnknownShape]], 2, { All, All, "Blocks"}], "Steps" -> TypeSystem`PackageScope`AtomShape[34]|>]], 1, {All}]]], 10, {}]], "DataColumnCount" -> 0, "InitialData" -> TypeSystem`PackageScope`CacheHandle[1780325762], "Type" -> TypeSystem`Assoc[ TypeSystem`Atom[Integer], TypeSystem`Vector[ TypeSystem`Struct[{"Rule", "Blocks", "Steps"}, { TypeSystem`Atom[Integer], TypeSystem`Assoc[ TypeSystem`Atom[Integer], TypeSystem`Vector[ TypeSystem`Atom[Integer], TypeSystem`AnyLength], 2], TypeSystem`Atom[Integer]}], TypeSystem`AnyLength], 88], "HandleQ" -> True, "Meta" -> {}, "RowTarget" -> 20, "Data" -> TypeSystem`PackageScope`CacheHandle[1780325762]], TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, TypeSystem`NestedGrid`PackagePrivate`$pos$$ = 1, TypeSystem`NestedGrid`PackagePrivate`$grid$$ = DynamicModule[{ TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[ Style[ Grid[{{ Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ Style[ RawBoxes[ StyleBox["\"\"", FontColor -> GrayLevel[0.4]]], Italic, GrayLevel[0.7]], {{20, Full}, 15}], Style[ Pane[ Style[ RawBoxes[ StyleBox[ "\"\"", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], Italic, GrayLevel[0.7]], {{20, Full}, 15}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ All, All, Keys}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[All, All, Keys]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox["\"Rule\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"Rule\"", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], {{20, Full}, 15}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ All, All, "Rule"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[All, All, "Rule"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox["\"Blocks\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"Blocks\"", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], {{20, Full}, 15}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ All, All, "Blocks"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[All, All, "Blocks"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Center, Baseline}], SpanFromLeft, Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox["\"Steps\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"Steps\"", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], {{20, Full}, 15}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ All, All, "Steps"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[All, All, "Steps"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ RawBoxes["0"], Style[ RawBoxes["0"], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[0]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[0]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[0], 1, Key["Rule"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ RawBoxes["0"], Style[ RawBoxes["0"], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[0], 1, Key["Blocks"], Key[0]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[0], 1, Key["Blocks"], Key[0]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{0, 0}, ShowStringCharacters -> False], Style[ Style[{0, 0}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[0], 1, Key["Blocks"], Key[0]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[0], 1, Key["Blocks"], Key[0]]], "Mouse"]], Pane[ Annotation[ RawBoxes["1"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[0], 1, Key["Steps"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { SpanFromAbove, SpanFromAbove, Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ RawBoxes["1"], Style[ RawBoxes["1"], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[0], 1, Key["Blocks"], Key[1]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[0], 1, Key["Blocks"], Key[1]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{1, 0}, ShowStringCharacters -> False], Style[ Style[{1, 0}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[0], 1, Key["Blocks"], Key[1]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[0], 1, Key["Blocks"], Key[1]]], "Mouse"]], SpanFromAbove}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ RawBoxes["1"], Style[ RawBoxes["1"], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[1]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[1]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[1], 1, Key["Rule"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ RawBoxes["0"], Style[ RawBoxes["0"], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[1], 1, Key["Blocks"], Key[0]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[1], 1, Key["Blocks"], Key[0]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{1, 1}, ShowStringCharacters -> False], Style[ Style[{1, 1}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[1], 1, Key["Blocks"], Key[0]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[1], 1, Key["Blocks"], Key[0]]], "Mouse"]], Pane[ Annotation[ RawBoxes["2"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[1], 1, Key["Steps"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { SpanFromAbove, SpanFromAbove, Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ RawBoxes["1"], Style[ RawBoxes["1"], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[1], 1, Key["Blocks"], Key[1]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[1], 1, Key["Blocks"], Key[1]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{1, 0}, ShowStringCharacters -> False], Style[ Style[{1, 0}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[1], 1, Key["Blocks"], Key[1]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[1], 1, Key["Blocks"], Key[1]]], "Mouse"]], SpanFromAbove}, {SpanFromAbove, Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["3 total \:203a ", Style[ "3 total \:203a ", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[1]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[1]]], "Mouse"], BaseStyle -> {{ RGBColor[ 0.5098039215686274, 0.5098039215686274, 0.5098039215686274], 8}, ContextMenu -> { MenuItem["Show 1 more row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 1]& , {All}]], MenuEvaluator -> Automatic], MenuItem["Show 5 more rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 5]& , {All}]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Show 1 fewer row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, -1]& \ , {All}]], MenuEvaluator -> Automatic], MenuItem["Show 5 fewer rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, -5]& \ , {All}]], MenuEvaluator -> Automatic]}}, Alignment -> {Center, Baseline}, Background -> GrayLevel[0.98]], SpanFromLeft, SpanFromLeft, SpanFromLeft}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ RawBoxes["2"], Style[ RawBoxes["2"], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[2]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[2]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["34"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[2], 1, Key["Rule"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ RawBoxes["0"], Style[ RawBoxes["0"], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[2], 1, Key["Blocks"], Key[0]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[2], 1, Key["Blocks"], Key[0]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{0, 0}, ShowStringCharacters -> False], Style[ Style[{0, 0}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[2], 1, Key["Blocks"], Key[0]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[2], 1, Key["Blocks"], Key[0]]], "Mouse"]], Pane[ Annotation[ RawBoxes["2"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[2], 1, Key["Steps"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { SpanFromAbove, SpanFromAbove, Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ RawBoxes["1"], Style[ RawBoxes["1"], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[2], 1, Key["Blocks"], Key[1]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[2], 1, Key["Blocks"], Key[1]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{1, 0}, ShowStringCharacters -> False], Style[ Style[{1, 0}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[2], 1, Key["Blocks"], Key[1]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[2], 1, Key["Blocks"], Key[1]]], "Mouse"]], SpanFromAbove}, {SpanFromAbove, Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["3 total \:203a ", Style[ "3 total \:203a ", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[2]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[2]]], "Mouse"], BaseStyle -> {{ RGBColor[ 0.5098039215686274, 0.5098039215686274, 0.5098039215686274], 8}, ContextMenu -> { MenuItem["Show 1 more row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 1]& , {All}]], MenuEvaluator -> Automatic], MenuItem["Show 5 more rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 5]& , {All}]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Show 1 fewer row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, -1]& \ , {All}]], MenuEvaluator -> Automatic], MenuItem["Show 5 fewer rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, -5]& \ , {All}]], MenuEvaluator -> Automatic]}}, Alignment -> {Center, Baseline}, Background -> GrayLevel[0.98]], SpanFromLeft, SpanFromLeft, SpanFromLeft}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ RawBoxes["3"], Style[ RawBoxes["3"], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[3]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[3]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[3], 1, Key["Rule"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ RawBoxes["0"], Style[ RawBoxes["0"], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[3], 1, Key["Blocks"], Key[0]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[3], 1, Key["Blocks"], Key[0]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{1, 1}, ShowStringCharacters -> False], Style[ Style[{1, 1}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[3], 1, Key["Blocks"], Key[0]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[3], 1, Key["Blocks"], Key[0]]], "Mouse"]], Pane[ Annotation[ RawBoxes["2"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[3], 1, Key["Steps"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { SpanFromAbove, SpanFromAbove, Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ RawBoxes["1"], Style[ RawBoxes["1"], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[3], 1, Key["Blocks"], Key[1]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[3], 1, Key["Blocks"], Key[1]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{1, 0}, ShowStringCharacters -> False], Style[ Style[{1, 0}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[3], 1, Key["Blocks"], Key[1]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[3], 1, Key["Blocks"], Key[1]]], "Mouse"]], SpanFromAbove}, {SpanFromAbove, Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["2 total \:203a ", Style[ "2 total \:203a ", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[3]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[3]]], "Mouse"], BaseStyle -> {{ RGBColor[ 0.5098039215686274, 0.5098039215686274, 0.5098039215686274], 8}, ContextMenu -> { MenuItem["Show 1 more row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 1]& , {All}]], MenuEvaluator -> Automatic], MenuItem["Show 5 more rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 5]& , {All}]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Show 1 fewer row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, -1]& \ , {All}]], MenuEvaluator -> Automatic], MenuItem["Show 5 fewer rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, -5]& \ , {All}]], MenuEvaluator -> Automatic]}}, Alignment -> {Center, Baseline}, Background -> GrayLevel[0.98]], SpanFromLeft, SpanFromLeft, SpanFromLeft}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ RawBoxes["4"], Style[ RawBoxes["4"], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[4]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[4]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["204"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[4], 1, Key["Rule"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ RawBoxes["0"], Style[ RawBoxes["0"], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[4], 1, Key["Blocks"], Key[0]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[4], 1, Key["Blocks"], Key[0]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{0, 0}, ShowStringCharacters -> False], Style[ Style[{0, 0}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[4], 1, Key["Blocks"], Key[0]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[4], 1, Key["Blocks"], Key[0]]], "Mouse"]], Pane[ Annotation[ RawBoxes["1"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[4], 1, Key["Steps"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { SpanFromAbove, SpanFromAbove, Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ RawBoxes["1"], Style[ RawBoxes["1"], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[4], 1, Key["Blocks"], Key[1]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[4], 1, Key["Blocks"], Key[1]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{1, 0}, ShowStringCharacters -> False], Style[ Style[{1, 0}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[4], 1, Key["Blocks"], Key[1]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[4], 1, Key["Blocks"], Key[1]]], "Mouse"]], SpanFromAbove}, {SpanFromAbove, Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["2 total \:203a ", Style[ "2 total \:203a ", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[4]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[4]]], "Mouse"], BaseStyle -> {{ RGBColor[ 0.5098039215686274, 0.5098039215686274, 0.5098039215686274], 8}, ContextMenu -> { MenuItem["Show 1 more row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 1]& , {All}]], MenuEvaluator -> Automatic], MenuItem["Show 5 more rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 5]& , {All}]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Show 1 fewer row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, -1]& \ , {All}]], MenuEvaluator -> Automatic], MenuItem["Show 5 fewer rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, -5]& \ , {All}]], MenuEvaluator -> Automatic]}}, Alignment -> {Center, Baseline}, Background -> GrayLevel[0.98]], SpanFromLeft, SpanFromLeft, SpanFromLeft}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ RawBoxes["5"], Style[ RawBoxes["5"], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[5]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[5]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["200"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[5], 1, Key["Rule"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ RawBoxes["0"], Style[ RawBoxes["0"], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[5], 1, Key["Blocks"], Key[0]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[5], 1, Key["Blocks"], Key[0]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{0, 0}, ShowStringCharacters -> False], Style[ Style[{0, 0}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[5], 1, Key["Blocks"], Key[0]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[5], 1, Key["Blocks"], Key[0]]], "Mouse"]], Pane[ Annotation[ RawBoxes["2"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[5], 1, Key["Steps"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { SpanFromAbove, SpanFromAbove, Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ RawBoxes["1"], Style[ RawBoxes["1"], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[5], 1, Key["Blocks"], Key[1]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[5], 1, Key["Blocks"], Key[1]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{1, 0}, ShowStringCharacters -> False], Style[ Style[{1, 0}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[5], 1, Key["Blocks"], Key[1]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[5], 1, Key["Blocks"], Key[1]]], "Mouse"]], SpanFromAbove}, {SpanFromAbove, Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["4 total \:203a ", Style[ "4 total \:203a ", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[5]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[5]]], "Mouse"], BaseStyle -> {{ RGBColor[ 0.5098039215686274, 0.5098039215686274, 0.5098039215686274], 8}, ContextMenu -> { MenuItem["Show 1 more row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 1]& , {All}]], MenuEvaluator -> Automatic], MenuItem["Show 5 more rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 5]& , {All}]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Show 1 fewer row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, -1]& \ , {All}]], MenuEvaluator -> Automatic], MenuItem["Show 5 fewer rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, -5]& \ , {All}]], MenuEvaluator -> Automatic]}}, Alignment -> {Center, Baseline}, Background -> GrayLevel[0.98]], SpanFromLeft, SpanFromLeft, SpanFromLeft}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ RawBoxes["6"], Style[ RawBoxes["6"], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[6]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[6]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["184"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[6], 1, Key["Rule"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ RawBoxes["0"], Style[ RawBoxes["0"], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[6], 1, Key["Blocks"], Key[0]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[6], 1, Key["Blocks"], Key[0]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{0, 0}, ShowStringCharacters -> False], Style[ Style[{0, 0}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[6], 1, Key["Blocks"], Key[0]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[6], 1, Key["Blocks"], Key[0]]], "Mouse"]], Pane[ Annotation[ RawBoxes["2"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[6], 1, Key["Steps"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { SpanFromAbove, SpanFromAbove, Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ RawBoxes["1"], Style[ RawBoxes["1"], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[6], 1, Key["Blocks"], Key[1]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[6], 1, Key["Blocks"], Key[1]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{1, 0}, ShowStringCharacters -> False], Style[ Style[{1, 0}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[6], 1, Key["Blocks"], Key[1]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[6], 1, Key["Blocks"], Key[1]]], "Mouse"]], SpanFromAbove}, {SpanFromAbove, Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["7 total \:203a ", Style[ "7 total \:203a ", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[6]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[6]]], "Mouse"], BaseStyle -> {{ RGBColor[ 0.5098039215686274, 0.5098039215686274, 0.5098039215686274], 8}, ContextMenu -> { MenuItem["Show 1 more row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 1]& , {All}]], MenuEvaluator -> Automatic], MenuItem["Show 5 more rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 5]& , {All}]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Show 1 fewer row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, -1]& \ , {All}]], MenuEvaluator -> Automatic], MenuItem["Show 5 fewer rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, -5]& \ , {All}]], MenuEvaluator -> Automatic]}}, Alignment -> {Center, Baseline}, Background -> GrayLevel[0.98]], SpanFromLeft, SpanFromLeft, SpanFromLeft}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ RawBoxes["7"], Style[ RawBoxes["7"], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[7]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[7]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["192"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[7], 1, Key["Rule"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ RawBoxes["0"], Style[ RawBoxes["0"], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[7], 1, Key["Blocks"], Key[0]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[7], 1, Key["Blocks"], Key[0]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{0, 0}, ShowStringCharacters -> False], Style[ Style[{0, 0}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[7], 1, Key["Blocks"], Key[0]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[7], 1, Key["Blocks"], Key[0]]], "Mouse"]], Pane[ Annotation[ RawBoxes["2"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[7], 1, Key["Steps"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { SpanFromAbove, SpanFromAbove, Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ RawBoxes["1"], Style[ RawBoxes["1"], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[7], 1, Key["Blocks"], Key[1]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[7], 1, Key["Blocks"], Key[1]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{1, 0}, ShowStringCharacters -> False], Style[ Style[{1, 0}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[7], 1, Key["Blocks"], Key[1]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[7], 1, Key["Blocks"], Key[1]]], "Mouse"]], SpanFromAbove}, {SpanFromAbove, Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["3 total \:203a ", Style[ "3 total \:203a ", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[7]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[7]]], "Mouse"], BaseStyle -> {{ RGBColor[ 0.5098039215686274, 0.5098039215686274, 0.5098039215686274], 8}, ContextMenu -> { MenuItem["Show 1 more row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 1]& , {All}]], MenuEvaluator -> Automatic], MenuItem["Show 5 more rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 5]& , {All}]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Show 1 fewer row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, -1]& \ , {All}]], MenuEvaluator -> Automatic], MenuItem["Show 5 fewer rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, -5]& \ , {All}]], MenuEvaluator -> Automatic]}}, Alignment -> {Center, Baseline}, Background -> GrayLevel[0.98]], SpanFromLeft, SpanFromLeft, SpanFromLeft}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ RawBoxes["8"], Style[ RawBoxes["8"], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[8]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[8]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[8], 1, Key["Rule"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ RawBoxes["0"], Style[ RawBoxes["0"], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[8], 1, Key["Blocks"], Key[0]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[8], 1, Key["Blocks"], Key[0]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{0, 0}, ShowStringCharacters -> False], Style[ Style[{0, 0}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[8], 1, Key["Blocks"], Key[0]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[8], 1, Key["Blocks"], Key[0]]], "Mouse"]], Pane[ Annotation[ RawBoxes["1"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[8], 1, Key["Steps"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { SpanFromAbove, SpanFromAbove, Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ RawBoxes["1"], Style[ RawBoxes["1"], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[8], 1, Key["Blocks"], Key[1]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[8], 1, Key["Blocks"], Key[1]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{1, 0}, ShowStringCharacters -> False], Style[ Style[{1, 0}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[8], 1, Key["Blocks"], Key[1]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[8], 1, Key["Blocks"], Key[1]]], "Mouse"]], SpanFromAbove}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ RawBoxes["9"], Style[ RawBoxes["9"], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[9]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[9]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[9], 1, Key["Rule"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ RawBoxes["0"], Style[ RawBoxes["0"], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[9], 1, Key["Blocks"], Key[0]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[9], 1, Key["Blocks"], Key[0]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{0, 0, 1, 0}, ShowStringCharacters -> False], Style[ Style[{0, 0, 1, 0}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[9], 1, Key["Blocks"], Key[0]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[9], 1, Key["Blocks"], Key[0]]], "Mouse"]], Pane[ Annotation[ RawBoxes["2"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[9], 1, Key["Steps"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { SpanFromAbove, SpanFromAbove, Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ RawBoxes["1"], Style[ RawBoxes["1"], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[9], 1, Key["Blocks"], Key[1]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[9], 1, Key["Blocks"], Key[1]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{1, 1, 1, 0}, ShowStringCharacters -> False], Style[ Style[{1, 1, 1, 0}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[9], 1, Key["Blocks"], Key[1]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[9], 1, Key["Blocks"], Key[1]]], "Mouse"]], SpanFromAbove}, {SpanFromAbove, Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["6 total \:203a ", Style[ "6 total \:203a ", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][{ Key[9]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ GeneralUtilities`Slice[ Key[9]]], "Mouse"], BaseStyle -> {{ RGBColor[ 0.5098039215686274, 0.5098039215686274, 0.5098039215686274], 8}, ContextMenu -> { MenuItem["Show 1 more row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 1]& , {All}]], MenuEvaluator -> Automatic], MenuItem["Show 5 more rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, 5]& , {All}]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Show 1 fewer row at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, -1]& \ , {All}]], MenuEvaluator -> Automatic], MenuItem["Show 5 fewer rows at this level", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, TypeSystem`NestedGrid`PackagePrivate`adjustLimitBy[#, -5]& \ , {All}]], MenuEvaluator -> Automatic]}}, Alignment -> {Center, Baseline}, Background -> GrayLevel[0.98]], SpanFromLeft, SpanFromLeft, SpanFromLeft}, { Item[ Deploy[ Mouseover[ Row[{ EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.5]]], GrayLevel[0.5], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.56, 1.031}, {6.429, 1.031}, {6.429, 60.967}, {0.56, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{6.192899999999999, 30.980699999999995`}, {42.4399, 0.7526999999999973}, { 42.4399, 8.209699999999994}, {16.432899999999997`, 30.982699999999994`}, {42.4119, 53.6547}, {42.4399, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.56, 1.031}, {6.429, 1.031}, {6.429, 60.967}, {0.56, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{6.192899999999999, 30.980699999999995`}, {42.4399, 0.7526999999999973}, { 42.4399, 8.209699999999994}, {16.432899999999997`, 30.982699999999994`}, {42.4119, 53.6547}, {42.4399, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ + 88 (-10), {1, 88 - -10 + 1}])}], EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.3]]], GrayLevel[0.3], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5499, 30.980699999999995`}, { 36.7969, 0.7526999999999973}, {36.7969, 8.209699999999994}, {10.7899, 30.982699999999994`}, { 36.7689, 53.6547}, {36.7969, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5499, 30.980699999999995`}, { 36.7969, 0.7526999999999973}, {36.7969, 8.209699999999994}, {10.7899, 30.982699999999994`}, { 36.7689, 53.6547}, {36.7969, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ - 10, { 1, 88 - -10 + 1}])}], Pane[ Row[{"showing ", 1, "\[Dash]", 10, " of ", Style[ 88, FontColor -> GrayLevel[0], FontWeight -> "Medium"]}, BaseStyle -> { FontSize -> 8., FontColor -> RGBColor[ 0.5098039215686274, 0.5098039215686274, 0.5098039215686274]}], 150, ContentPadding -> False, Alignment -> {Center, Center}], EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.3]]], GrayLevel[0.3], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5778000000000001, 53.654399999999995`}, {26.5568, 30.982399999999995`}, { 0.5498000000000001, 8.209399999999995}, { 0.5498000000000001, 0.7523999999999944}, { 36.796800000000005`, 30.980399999999992`}, { 0.5498000000000001, 61.2454}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5778000000000001, 53.654399999999995`}, {26.5568, 30.982399999999995`}, { 0.5498000000000001, 8.209399999999995}, { 0.5498000000000001, 0.7523999999999944}, { 36.796800000000005`, 30.980399999999992`}, { 0.5498000000000001, 61.2454}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ + 10, { 1, 88 - 10 + 1}])}], EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.5]]], GrayLevel[0.5], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 36.571, 1.031}, {42.440999999999995`, 1.031}, { 42.440999999999995`, 60.967}, {36.571, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5598000000000001, 53.788500000000006`}, {26.5668, 31.015500000000007`}, { 0.5878000000000001, 8.343500000000006}, { 0.5598000000000001, 0.7525000000000048}, {36.8068, 31.017500000000005`}, {0.5598000000000001, 61.24450000000001}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 36.571, 1.031}, {42.440999999999995`, 1.031}, { 42.440999999999995`, 60.967}, {36.571, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5598000000000001, 53.788500000000006`}, {26.5668, 31.015500000000007`}, { 0.5878000000000001, 8.343500000000006}, { 0.5598000000000001, 0.7525000000000048}, {36.8068, 31.017500000000005`}, {0.5598000000000001, 61.24450000000001}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ + 88 10, {1, 88 - 10 + 1}])}]}, " "], Row[{ EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.5]]], GrayLevel[0.5], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.56, 1.031}, {6.429, 1.031}, {6.429, 60.967}, {0.56, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{6.192899999999999, 30.980699999999995`}, {42.4399, 0.7526999999999973}, { 42.4399, 8.209699999999994}, {16.432899999999997`, 30.982699999999994`}, {42.4119, 53.6547}, {42.4399, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.56, 1.031}, {6.429, 1.031}, {6.429, 60.967}, {0.56, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{6.192899999999999, 30.980699999999995`}, {42.4399, 0.7526999999999973}, { 42.4399, 8.209699999999994}, {16.432899999999997`, 30.982699999999994`}, {42.4119, 53.6547}, {42.4399, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ + 88 (-10), {1, 88 - -10 + 1}])}], EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.3]]], GrayLevel[0.3], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5499, 30.980699999999995`}, { 36.7969, 0.7526999999999973}, {36.7969, 8.209699999999994}, {10.7899, 30.982699999999994`}, { 36.7689, 53.6547}, {36.7969, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5499, 30.980699999999995`}, { 36.7969, 0.7526999999999973}, {36.7969, 8.209699999999994}, {10.7899, 30.982699999999994`}, { 36.7689, 53.6547}, {36.7969, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ - 10, { 1, 88 - -10 + 1}])}], Pane[ Row[{"showing ", 1, "\[Dash]", 10, " of ", Style[ 88, FontColor -> GrayLevel[0], FontWeight -> "Medium"]}, BaseStyle -> { FontSize -> 8., FontColor -> RGBColor[ 0.5098039215686274, 0.5098039215686274, 0.5098039215686274]}], 150, ContentPadding -> False, Alignment -> {Center, Center}], EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.3]]], GrayLevel[0.3], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5778000000000001, 53.654399999999995`}, {26.5568, 30.982399999999995`}, { 0.5498000000000001, 8.209399999999995}, { 0.5498000000000001, 0.7523999999999944}, { 36.796800000000005`, 30.980399999999992`}, { 0.5498000000000001, 61.2454}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5778000000000001, 53.654399999999995`}, {26.5568, 30.982399999999995`}, { 0.5498000000000001, 8.209399999999995}, { 0.5498000000000001, 0.7523999999999944}, { 36.796800000000005`, 30.980399999999992`}, { 0.5498000000000001, 61.2454}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ + 10, { 1, 88 - 10 + 1}])}], EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.5]]], GrayLevel[0.5], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 36.571, 1.031}, {42.440999999999995`, 1.031}, { 42.440999999999995`, 60.967}, {36.571, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5598000000000001, 53.788500000000006`}, {26.5668, 31.015500000000007`}, { 0.5878000000000001, 8.343500000000006}, { 0.5598000000000001, 0.7525000000000048}, {36.8068, 31.017500000000005`}, {0.5598000000000001, 61.24450000000001}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 36.571, 1.031}, {42.440999999999995`, 1.031}, { 42.440999999999995`, 60.967}, {36.571, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5598000000000001, 53.788500000000006`}, {26.5668, 31.015500000000007`}, { 0.5878000000000001, 8.343500000000006}, { 0.5598000000000001, 0.7525000000000048}, {36.8068, 31.017500000000005`}, {0.5598000000000001, 61.24450000000001}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ + 88 10, {1, 88 - 10 + 1}])}]}, " "]]], Background -> GrayLevel[0.98], Alignment -> {Left, Top}, BaseStyle -> {ContextMenu -> { MenuItem["Hide", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, 1, {}]], MenuEvaluator -> Automatic], MenuItem["Show up to 10 rows", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, 10, {}]], MenuEvaluator -> Automatic], MenuItem["Show up to 30 rows", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, 30, {}]], MenuEvaluator -> Automatic], MenuItem["Show up to 100 rows", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, 100, {}]], MenuEvaluator -> Automatic], MenuItem["Show all", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013}, 100000000, {}]], MenuEvaluator -> Automatic]}}], SpanFromLeft, SpanFromLeft, SpanFromLeft, SpanFromLeft}}, BaseStyle -> {ContextMenu -> { MenuItem["Copy position to clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], MenuItem["Copy data to clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Paste position in new cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic], MenuItem["Paste data in new cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic]}, FontFamily -> "Verdana", FontSize -> 12}, Alignment -> Left, RowMinHeight -> 1.5, Dividers -> All, FrameStyle -> GrayLevel[0.85], BaseStyle -> {FontFamily -> "Verdana", FontSize -> 12}], LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> False, ShowAutoStyles -> False]], TypeSystem`NestedGrid`PackagePrivate`initialQ = True, TypeSystem`NestedGrid`PackagePrivate`self = $Failed}, Dynamic[ TypeSystem`NestedGrid`PackagePrivate`setupViewPath[ TypeSystem`NestedGrid`PackagePrivate`$path$$, If[ Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], Module[{TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, TypeSystem`NestedGrid`PackagePrivate`tmpData$ = TypeSystem`NestedGrid`PackagePrivate`LookupCacheValue[ TypeSystem`NestedGrid`PackagePrivate`$state$$["Data"]]}, TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = If[TypeSystem`NestedGrid`PackagePrivate`tmpData$ === TypeSystem`NestedGrid`PackagePrivate`$NotCached, TypeSystem`NestedGrid`PackagePrivate`renderedGrid, TypeSystem`NestedGrid`PackagePrivate`renderGrid[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013][ TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[ Not[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], TypeSystem`NestedGrid`PackagePrivate`renderedGrid = TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; TypeSystem`NestedGrid`PackagePrivate`initialQ = False; TypeSystem`NestedGrid`PackagePrivate`$pos$$; If[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], TypeSystem`SparseGrid[ TypeSystem`H["(data no longer present)"]], If[GeneralUtilities`$DebugMode, Row[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid, " ", TypeSystem`NestedGrid`PackagePrivate`formatState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$]}], TypeSystem`NestedGrid`PackagePrivate`renderedGrid]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$pos$$}], DynamicModuleValues :> {}], TypeSystem`NestedGrid`PackagePrivate`$posCell$$, TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[ TypeSystem`PackageScope`Pathbar[ TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 271380013]]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Framed[ Dynamic[ Replace[ MouseAnnotation[Null], { TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][Null] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[271380013][ Pattern[TypeSystem`NestedGrid`PackagePrivate`path, Blank[]]] :> ( TypeSystem`NestedGrid`PackagePrivate`$lastPath = TypeSystem`NestedGrid`PackagePrivate`path; TypeSystem`NestedGrid`PackagePrivate`makePathTrail[ TypeSystem`NestedGrid`PackagePrivate`path, TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> Spacer[10], Blank[] :> Spacer[10]}], TrackedSymbols :> {}], FrameStyle -> None, ImageMargins -> 0, FrameMargins -> 0, Alignment -> Top, ImageSize -> {Automatic, 14}]}, DynamicBox[ ToBoxes[ Column[ If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, { TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[ TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$], TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}, { TypeSystem`NestedGrid`PackagePrivate`$topBar$$, TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[ TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$], TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}], Spacings -> If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, 0, {{}, {0, 0.05, 0}}]], StandardForm], ImageSizeCache -> {227., {375.134033203125, 380.865966796875}}, TrackedSymbols :> { TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$}], BaseStyle -> {LineBreakWithin -> False}, Deinitialization :> TypeSystem`NestedGrid`PackagePrivate`deleteState[ TypeSystem`NestedGrid`PackagePrivate`$state$$], DynamicModuleValues :> {}, Initialization :> Block[{$ContextPath = $ContextPath}, Needs["TypeSystem`"]]], Deploy, DefaultBaseStyle -> "Deploy"]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->("Dataset[<>]"& )]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.7016987252686357`*^9}] }, Open ]], Cell["Find which rules can be emulated by rule 22:", "Text", CellChangeTimes->{{3.695604073150022*^9, 3.695604082181995*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ "ResourceData", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"Key", "[", "22", "]"}], ",", "All", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.6956040838875093`*^9, 3.695604107208487*^9}, 3.695604147564653*^9, {3.695604377499852*^9, 3.695604394832302*^9}, { 3.695604645317461*^9, 3.695604660710566*^9}, {3.6956047129157467`*^9, 3.695604718207588*^9}, {3.6960922406285667`*^9, 3.696092252027018*^9}, { 3.701698773231854*^9, 3.7016987754621153`*^9}, 3.886177490624949*^9}], Cell[BoxData[ TemplateBox[{ TagBox[ DynamicModuleBox[{ TypeSystem`NestedGrid`PackagePrivate`$state$$ = Data`UnorderedAssociation[ "DisplayedRowCount" -> 20, "RowCount" -> 4, "Length" -> 4, "InitialType" -> TypeSystem`Vector[ TypeSystem`Atom[Integer], 4], "DisplayedColumnCount" -> 20, "DataRowCount" -> 0, "Shape" -> TypeSystem`PackageScope`Limited[ TypeSystem`PackageScope`ColumnShape[ TypeSystem`PackageScope`AtomShape[34]], 4, {}], "DataColumnCount" -> 0, "InitialData" -> TypeSystem`PackageScope`CacheHandle[712571322], "Type" -> TypeSystem`Vector[ TypeSystem`Atom[Integer], 4], "HandleQ" -> True, "Meta" -> {}, "RowTarget" -> 20, "Data" -> TypeSystem`PackageScope`CacheHandle[712571322]], TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, TypeSystem`NestedGrid`PackagePrivate`$pos$$ = 1, TypeSystem`NestedGrid`PackagePrivate`$grid$$ = DynamicModule[{ TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[ Style[ Grid[{{ Pane[ Annotation[ RawBoxes["146"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2089547913][ GeneralUtilities`Slice[1]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes["90"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2089547913][ GeneralUtilities`Slice[2]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes["0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2089547913][ GeneralUtilities`Slice[3]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes["204"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2089547913][ GeneralUtilities`Slice[4]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}}, BaseStyle -> {ContextMenu -> { MenuItem["Copy position to clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], MenuItem["Copy data to clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Paste position in new cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic], MenuItem["Paste data in new cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic]}, FontFamily -> "Verdana", FontSize -> 12}, Alignment -> Left, RowMinHeight -> 1.5, Dividers -> All, FrameStyle -> GrayLevel[0.85], BaseStyle -> {FontFamily -> "Verdana", FontSize -> 12}], LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> False, ShowAutoStyles -> False]], TypeSystem`NestedGrid`PackagePrivate`initialQ = True, TypeSystem`NestedGrid`PackagePrivate`self = $Failed}, Dynamic[ TypeSystem`NestedGrid`PackagePrivate`setupViewPath[ TypeSystem`NestedGrid`PackagePrivate`$path$$, If[ Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], Module[{ TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, TypeSystem`NestedGrid`PackagePrivate`tmpData$ = TypeSystem`NestedGrid`PackagePrivate`LookupCacheValue[ TypeSystem`NestedGrid`PackagePrivate`$state$$["Data"]]}, TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = If[TypeSystem`NestedGrid`PackagePrivate`tmpData$ === TypeSystem`NestedGrid`PackagePrivate`$NotCached, TypeSystem`NestedGrid`PackagePrivate`renderedGrid, TypeSystem`NestedGrid`PackagePrivate`renderGrid[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 2089547913][ TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[ Not[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], TypeSystem`NestedGrid`PackagePrivate`renderedGrid = TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; TypeSystem`NestedGrid`PackagePrivate`initialQ = False; TypeSystem`NestedGrid`PackagePrivate`$pos$$; If[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], TypeSystem`SparseGrid[ TypeSystem`H["(data no longer present)"]], If[GeneralUtilities`$DebugMode, Row[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid, " ", TypeSystem`NestedGrid`PackagePrivate`formatState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$]}], TypeSystem`NestedGrid`PackagePrivate`renderedGrid]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$pos$$}], DynamicModuleValues :> {}], TypeSystem`NestedGrid`PackagePrivate`$posCell$$, TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[ TypeSystem`PackageScope`Pathbar[ TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 2089547913]]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Framed[ Dynamic[ Replace[ MouseAnnotation[Null], { TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2089547913][Null] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2089547913][ Pattern[TypeSystem`NestedGrid`PackagePrivate`path, Blank[]]] :> ( TypeSystem`NestedGrid`PackagePrivate`$lastPath = TypeSystem`NestedGrid`PackagePrivate`path; TypeSystem`NestedGrid`PackagePrivate`makePathTrail[ TypeSystem`NestedGrid`PackagePrivate`path, TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> Spacer[10], Blank[] :> Spacer[10]}], TrackedSymbols :> {}], FrameStyle -> None, ImageMargins -> 0, FrameMargins -> 0, Alignment -> Top, ImageSize -> {Automatic, 14}]}, DynamicBox[ ToBoxes[ Column[ If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, { TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[ TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$], TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}, { TypeSystem`NestedGrid`PackagePrivate`$topBar$$, TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[ TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$], TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}], Spacings -> If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, 0, {{}, {0, 0.05, 0}}]], StandardForm], ImageSizeCache -> {40., {54.634033203125, 60.365966796875}}, TrackedSymbols :> { TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$}], BaseStyle -> {LineBreakWithin -> False}, Deinitialization :> TypeSystem`NestedGrid`PackagePrivate`deleteState[ TypeSystem`NestedGrid`PackagePrivate`$state$$], DynamicModuleValues :> {}, Initialization :> Block[{$ContextPath = $ContextPath}, Needs["TypeSystem`"]]], Deploy, DefaultBaseStyle -> "Deploy"]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->("Dataset[<>]"& )]], "Output", CellChangeTimes->{{3.69560409259243*^9, 3.695604107673608*^9}, 3.695604148046853*^9, {3.6956043858990297`*^9, 3.695604395164651*^9}, { 3.695604652166857*^9, 3.695604661320889*^9}, {3.695604714053238*^9, 3.695604718603566*^9}, 3.69609764997678*^9, 3.701698775841868*^9}] }, Open ]], Cell["Find the details of the emulation of rule 90 by rule 22:", "Text", CellChangeTimes->{{3.695604791210039*^9, 3.695604807554125*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ "ResourceData", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"Key", "[", "22", "]"}], ",", RowBox[{"Select", "[", RowBox[{ RowBox[{"#Rule", "\[Equal]", "90"}], "&"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.695604756573209*^9, 3.6956047857395372`*^9}, 3.696092259972599*^9, 3.701698787176072*^9, 3.8861774926940603`*^9}], Cell[BoxData[ TemplateBox[{ TagBox[ DynamicModuleBox[{ TypeSystem`NestedGrid`PackagePrivate`$state$$ = Data`UnorderedAssociation[ "DisplayedRowCount" -> 20, "RowCount" -> 1, "Length" -> 1, "InitialType" -> TypeSystem`Vector[ TypeSystem`Struct[{"Rule", "Blocks", "Steps"}, { TypeSystem`Atom[Integer], TypeSystem`Assoc[ TypeSystem`Atom[Integer], TypeSystem`Vector[ TypeSystem`Atom[Integer], TypeSystem`AnyLength], 2], TypeSystem`Atom[Integer]}], 1], "DisplayedColumnCount" -> 20, "DataRowCount" -> 0, "Shape" -> TypeSystem`PackageScope`HeaderShape[<|{All, "Rule"} -> 1, {All, "Blocks"} -> 2, {All, "Steps"} -> 1|>, TypeSystem`PackageScope`Limited[ TypeSystem`PackageScope`ColumnShape[ TypeSystem`PackageScope`RowShape[<| "Rule" -> TypeSystem`PackageScope`AtomShape[34], "Blocks" -> TypeSystem`PackageScope`Limited[ TypeSystem`PackageScope`ColumnShape[ TypeSystem`PackageScope`KeyValueShape[ TypeSystem`PackageScope`AtomShape[34], TypeSystem`PackageScope`UnknownShape]], 2, {All, "Blocks"}], "Steps" -> TypeSystem`PackageScope`AtomShape[34]|>]], 1, {}]], "DataColumnCount" -> 0, "InitialData" -> TypeSystem`PackageScope`CacheHandle[1976380136], "Type" -> TypeSystem`Vector[ TypeSystem`Struct[{"Rule", "Blocks", "Steps"}, { TypeSystem`Atom[Integer], TypeSystem`Assoc[ TypeSystem`Atom[Integer], TypeSystem`Vector[ TypeSystem`Atom[Integer], TypeSystem`AnyLength], 2], TypeSystem`Atom[Integer]}], 1], "HandleQ" -> True, "Meta" -> {}, "RowTarget" -> 20, "Data" -> TypeSystem`PackageScope`CacheHandle[1976380136]], TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, TypeSystem`NestedGrid`PackagePrivate`$pos$$ = 1, TypeSystem`NestedGrid`PackagePrivate`$grid$$ = DynamicModule[{ TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[ Style[ Grid[{{ Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox["\"Rule\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"Rule\"", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], {{20, Full}, 15}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 2101762553][{All, "Rule"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2101762553][ GeneralUtilities`Slice[All, "Rule"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox["\"Blocks\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"Blocks\"", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], {{20, Full}, 15}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 2101762553][{All, "Blocks"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2101762553][ GeneralUtilities`Slice[All, "Blocks"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Center, Baseline}], SpanFromLeft, Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox["\"Steps\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"Steps\"", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], {{20, Full}, 15}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 2101762553][{All, "Steps"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2101762553][ GeneralUtilities`Slice[All, "Steps"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes["90"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2101762553][ GeneralUtilities`Slice[1, Key["Rule"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ RawBoxes["0"], Style[ RawBoxes["0"], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 2101762553][{1, Key["Blocks"], Key[0]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 2101762553][ GeneralUtilities`Slice[1, Key["Blocks"], Key[0]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{0, 0, 0, 0}, ShowStringCharacters -> False], Style[ Style[{0, 0, 0, 0}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 2101762553][{1, Key["Blocks"], Key[0]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2101762553][ GeneralUtilities`Slice[1, Key["Blocks"], Key[0]]], "Mouse"]], Pane[ Annotation[ RawBoxes["4"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2101762553][ GeneralUtilities`Slice[1, Key["Steps"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}]}, {SpanFromAbove, Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ RawBoxes["1"], Style[ RawBoxes["1"], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 2101762553][{1, Key["Blocks"], Key[1]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 2101762553][ GeneralUtilities`Slice[1, Key["Blocks"], Key[1]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{1, 0, 0, 0}, ShowStringCharacters -> False], Style[ Style[{1, 0, 0, 0}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 2101762553][{1, Key["Blocks"], Key[1]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2101762553][ GeneralUtilities`Slice[1, Key["Blocks"], Key[1]]], "Mouse"]], SpanFromAbove}}, BaseStyle -> {ContextMenu -> { MenuItem["Copy position to clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], MenuItem["Copy data to clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Paste position in new cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic], MenuItem["Paste data in new cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic]}, FontFamily -> "Verdana", FontSize -> 12}, Alignment -> Left, RowMinHeight -> 1.5, Dividers -> All, FrameStyle -> GrayLevel[0.85], BaseStyle -> {FontFamily -> "Verdana", FontSize -> 12}], LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> False, ShowAutoStyles -> False]], TypeSystem`NestedGrid`PackagePrivate`initialQ = True, TypeSystem`NestedGrid`PackagePrivate`self = $Failed}, Dynamic[ TypeSystem`NestedGrid`PackagePrivate`setupViewPath[ TypeSystem`NestedGrid`PackagePrivate`$path$$, If[ Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], Module[{TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, TypeSystem`NestedGrid`PackagePrivate`tmpData$ = TypeSystem`NestedGrid`PackagePrivate`LookupCacheValue[ TypeSystem`NestedGrid`PackagePrivate`$state$$["Data"]]}, TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = If[TypeSystem`NestedGrid`PackagePrivate`tmpData$ === TypeSystem`NestedGrid`PackagePrivate`$NotCached, TypeSystem`NestedGrid`PackagePrivate`renderedGrid, TypeSystem`NestedGrid`PackagePrivate`renderGrid[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 2101762553][ TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[ Not[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], TypeSystem`NestedGrid`PackagePrivate`renderedGrid = TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; TypeSystem`NestedGrid`PackagePrivate`initialQ = False; TypeSystem`NestedGrid`PackagePrivate`$pos$$; If[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], TypeSystem`SparseGrid[ TypeSystem`H["(data no longer present)"]], If[GeneralUtilities`$DebugMode, Row[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid, " ", TypeSystem`NestedGrid`PackagePrivate`formatState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$]}], TypeSystem`NestedGrid`PackagePrivate`renderedGrid]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$pos$$}], DynamicModuleValues :> {}], TypeSystem`NestedGrid`PackagePrivate`$posCell$$, TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[ TypeSystem`PackageScope`Pathbar[ TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 2101762553]]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Framed[ Dynamic[ Replace[ MouseAnnotation[Null], { TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2101762553][Null] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2101762553][ Pattern[TypeSystem`NestedGrid`PackagePrivate`path, Blank[]]] :> ( TypeSystem`NestedGrid`PackagePrivate`$lastPath = TypeSystem`NestedGrid`PackagePrivate`path; TypeSystem`NestedGrid`PackagePrivate`makePathTrail[ TypeSystem`NestedGrid`PackagePrivate`path, TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> Spacer[10], Blank[] :> Spacer[10]}], TrackedSymbols :> {}], FrameStyle -> None, ImageMargins -> 0, FrameMargins -> 0, Alignment -> Top, ImageSize -> {Automatic, 14}]}, DynamicBox[ ToBoxes[ Column[ If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, { TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[ TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$], TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}, { TypeSystem`NestedGrid`PackagePrivate`$topBar$$, TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[ TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$], TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}], Spacings -> If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, 0, {{}, {0, 0.05, 0}}]], StandardForm], ImageSizeCache -> {187., {42.134033203125, 47.865966796875}}, TrackedSymbols :> { TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$}], BaseStyle -> {LineBreakWithin -> False}, Deinitialization :> TypeSystem`NestedGrid`PackagePrivate`deleteState[ TypeSystem`NestedGrid`PackagePrivate`$state$$], DynamicModuleValues :> {}, Initialization :> Block[{$ContextPath = $ContextPath}, Needs["TypeSystem`"]]], Deploy, DefaultBaseStyle -> "Deploy"]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->("Dataset[<>]"& )]], "Output", CellChangeTimes->{{3.695604781459042*^9, 3.6956047863181334`*^9}, 3.6960976523553658`*^9, 3.701698787510565*^9}] }, Open ]], Cell["Get the blocks:", "Text", CellChangeTimes->{{3.695604860496244*^9, 3.695604863046916*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ "ResourceData", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"Key", "[", "22", "]"}], ",", RowBox[{"Select", "[", RowBox[{ RowBox[{"#Rule", "\[Equal]", "90"}], "&"}], "]"}], ",", "\"\\""}], "]"}], "//", "Values"}]], "Input", CellChangeTimes->{{3.695604756573209*^9, 3.695604854761306*^9}, 3.6960922622776423`*^9, {3.701698811020872*^9, 3.7016988149649563`*^9}, 3.8861774945620813`*^9}], Cell[BoxData[ TemplateBox[{ TagBox[ DynamicModuleBox[{ TypeSystem`NestedGrid`PackagePrivate`$state$$ = Data`UnorderedAssociation[ "DisplayedRowCount" -> 20, "RowCount" -> 1, "Length" -> 1, "InitialType" -> TypeSystem`Vector[ TypeSystem`Vector[ TypeSystem`Vector[ TypeSystem`Atom[Integer], TypeSystem`AnyLength], 2], 1], "DisplayedColumnCount" -> 20, "DataRowCount" -> 0, "Shape" -> TypeSystem`PackageScope`Limited[ TypeSystem`PackageScope`ColumnShape[ TypeSystem`PackageScope`Limited[ TypeSystem`PackageScope`ColumnShape[ TypeSystem`PackageScope`UnknownShape], 2, {All}]], 1, {}], "DataColumnCount" -> 0, "InitialData" -> TypeSystem`PackageScope`CacheHandle[1426406932], "Type" -> TypeSystem`Vector[ TypeSystem`Vector[ TypeSystem`Vector[ TypeSystem`Atom[Integer], TypeSystem`AnyLength], 2], 1], "HandleQ" -> True, "Meta" -> {}, "RowTarget" -> 20, "Data" -> TypeSystem`PackageScope`CacheHandle[1426406932]], TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, TypeSystem`NestedGrid`PackagePrivate`$pos$$ = 1, TypeSystem`NestedGrid`PackagePrivate`$grid$$ = DynamicModule[{ TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[ Style[ Grid[{{ Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{0, 0, 0, 0}, ShowStringCharacters -> False], Style[ Style[{0, 0, 0, 0}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1707863350][{1, 1}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1707863350][ GeneralUtilities`Slice[1, 1]], "Mouse"]]}, { Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{1, 0, 0, 0}, ShowStringCharacters -> False], Style[ Style[{1, 0, 0, 0}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1707863350][{1, 2}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1707863350][ GeneralUtilities`Slice[1, 2]], "Mouse"]]}}, BaseStyle -> {ContextMenu -> { MenuItem["Copy position to clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], MenuItem["Copy data to clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Paste position in new cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic], MenuItem["Paste data in new cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic]}, FontFamily -> "Verdana", FontSize -> 12}, Alignment -> Left, RowMinHeight -> 1.5, Dividers -> All, FrameStyle -> GrayLevel[0.85], BaseStyle -> {FontFamily -> "Verdana", FontSize -> 12}], LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> False, ShowAutoStyles -> False]], TypeSystem`NestedGrid`PackagePrivate`initialQ = True, TypeSystem`NestedGrid`PackagePrivate`self = $Failed}, Dynamic[ TypeSystem`NestedGrid`PackagePrivate`setupViewPath[ TypeSystem`NestedGrid`PackagePrivate`$path$$, If[ Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], Module[{TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, TypeSystem`NestedGrid`PackagePrivate`tmpData$ = TypeSystem`NestedGrid`PackagePrivate`LookupCacheValue[ TypeSystem`NestedGrid`PackagePrivate`$state$$["Data"]]}, TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = If[TypeSystem`NestedGrid`PackagePrivate`tmpData$ === TypeSystem`NestedGrid`PackagePrivate`$NotCached, TypeSystem`NestedGrid`PackagePrivate`renderedGrid, TypeSystem`NestedGrid`PackagePrivate`renderGrid[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1707863350][ TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[ Not[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], TypeSystem`NestedGrid`PackagePrivate`renderedGrid = TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; TypeSystem`NestedGrid`PackagePrivate`initialQ = False; TypeSystem`NestedGrid`PackagePrivate`$pos$$; If[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], TypeSystem`SparseGrid[ TypeSystem`H["(data no longer present)"]], If[GeneralUtilities`$DebugMode, Row[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid, " ", TypeSystem`NestedGrid`PackagePrivate`formatState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$]}], TypeSystem`NestedGrid`PackagePrivate`renderedGrid]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$pos$$}], DynamicModuleValues :> {}], TypeSystem`NestedGrid`PackagePrivate`$posCell$$, TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[ TypeSystem`PackageScope`Pathbar[ TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1707863350]]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Framed[ Dynamic[ Replace[ MouseAnnotation[Null], { TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1707863350][Null] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1707863350][ Pattern[TypeSystem`NestedGrid`PackagePrivate`path, Blank[]]] :> ( TypeSystem`NestedGrid`PackagePrivate`$lastPath = TypeSystem`NestedGrid`PackagePrivate`path; TypeSystem`NestedGrid`PackagePrivate`makePathTrail[ TypeSystem`NestedGrid`PackagePrivate`path, TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> Spacer[10], Blank[] :> Spacer[10]}], TrackedSymbols :> {}], FrameStyle -> None, ImageMargins -> 0, FrameMargins -> 0, Alignment -> Top, ImageSize -> {Automatic, 14}]}, DynamicBox[ ToBoxes[ Column[ If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, { TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[ TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$], TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}, { TypeSystem`NestedGrid`PackagePrivate`$topBar$$, TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[ TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$], TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}], Spacings -> If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, 0, {{}, {0, 0.05, 0}}]], StandardForm], ImageSizeCache -> {67., {29.634033203125, 35.365966796875}}, TrackedSymbols :> { TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$}], BaseStyle -> {LineBreakWithin -> False}, Deinitialization :> TypeSystem`NestedGrid`PackagePrivate`deleteState[ TypeSystem`NestedGrid`PackagePrivate`$state$$], DynamicModuleValues :> {}, Initialization :> Block[{$ContextPath = $ContextPath}, Needs["TypeSystem`"]]], Deploy, DefaultBaseStyle -> "Deploy"]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->("Dataset[<>]"& )]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.701698811407937*^9, 3.701698815198989*^9}}] }, Open ]], Cell["Plot them:", "Text", CellChangeTimes->{{3.6960976616500998`*^9, 3.696097662554224*^9}, 3.701698819046932*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ArrayPlot", "[", RowBox[{"CellularAutomaton", "[", RowBox[{"22", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "40"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.6956048854991083`*^9, 3.695604947142775*^9}}], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJytVUEKwzAMS/qTHfec9Qn9wP5/W1doaW0liuwEjDFUsjBCfW3fdVtKKe+9 PnuV+nx2Zs/j/5z3Up/H25IZHf7UFdGH8bZHND7x0fu18dH7tfEZfRif40N4 6ye18I5MAUbjJ7W37xDtWON9nzpjjT1/shlrzMxYY2YGjMRfen4yf+n5yfyl 5yfzl56f7D56frL76PnJ9uv5qfp1gFHOvxGNWv6NaOz1mMZeDzDK+UcZjZ7s /zuSf5SRzAHGtP8cY836zzGm/ecYTZ/AOO1+F2Odqe9gnKrvYBz98Af9UQ2M "], {{0, 0}, {81, 41}}, {0, 1}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.701698824012622*^9}] }, Open ]], Cell["Look at every 4th step:", "Text", CellChangeTimes->{{3.695605025406355*^9, 3.6956050316057367`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ArrayPlot", "[", RowBox[{"CellularAutomaton", "[", RowBox[{"22", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "40", ",", "4"}], "}"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.6956048854991083`*^9, 3.6956049669845753`*^9}, { 3.695605002805077*^9, 3.695605018741222*^9}}], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJxTTMoPSmJiYGDgBuJAIGZgRAXofEIAq34GHJKkGsqATZBcgFU/uk2k0kTZ RCofr6G4FJMV5oQUkxXmZIUZsYbi4lNkKFUMQzeUIAAA54sFWw== "], {{0, 0}, {81, 11}}, {0, 1}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.7016988299337807`*^9}] }, Open ]], Cell["Convert the blocks to 0 and 1 respectively:", "Text", CellChangeTimes->{{3.696092290938591*^9, 3.696092344995113*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Reverse", "/@", RowBox[{"Normal", "[", RowBox[{"Normal", "[", RowBox[{"First", "[", RowBox[{ RowBox[{ "ResourceData", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"Key", "[", "22", "]"}], ",", RowBox[{"Select", "[", RowBox[{ RowBox[{"#Rule", "\[Equal]", "90"}], "&"}], "]"}], ",", "\"\\""}], "]"}], "]"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.695605076507957*^9, 3.695605139849042*^9}, 3.69609228283743*^9, {3.7016988445658407`*^9, 3.701698845571854*^9}, 3.8861774977789717`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], "\[Rule]", "1"}]}], "}"}]], "Output", CellChangeTimes->{{3.695605113695592*^9, 3.695605140206567*^9}, 3.6960976679718323`*^9, 3.7016988462537937`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ArrayPlot", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Partition", "[", RowBox[{"#", ",", "4"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], "\[Rule]", "1"}]}], "}"}]}], ")"}], "&"}], "/@", RowBox[{"CellularAutomaton", "[", RowBox[{"22", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "40", ",", "4"}], "}"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.6956051496737423`*^9, 3.695605177524466*^9}}], Cell[BoxData[ GraphicsBox[ RasterBox[{{0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1}, {1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0}, {1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1}, {1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1}, {1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1}, {1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1}, {1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1}, {1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1}, {1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1}, {1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1}, {1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1}}, {{0, 0}, {20, 11}}, {0, 1}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.7016988474710217`*^9}] }, Open ]], Cell["Plot the entire simulation network", "Text", CellChangeTimes->{{3.696092351203203*^9, 3.696092358931514*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graph", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Normal", "[", RowBox[{"KeyValueMap", "[", RowBox[{ RowBox[{ RowBox[{"Thread", "[", RowBox[{"#1", "\[Rule]", "#2"}], "]"}], "&"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ "ResourceData", "[", "\"\\"", "]"}], "[", RowBox[{"All", ",", "All", ",", "\"\\""}], "]"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"VertexLabels", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellChangeTimes->{{3.6956052013707247`*^9, 3.6956052906143637`*^9}, 3.696092223755863*^9, 3.6960923603405848`*^9, {3.701698858709449*^9, 3.701698859557138*^9}, 3.886177500386488*^9}], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{0, 1, 200, 204, 2, 34, 170, 3, 240, 4, 5, 51, 6, 184, 128, 85, 7, 192, 8, 9, 10, 11, 15, 12, 13, 14, 18, 90, 19, 22, 146, 23, 24, 48, 25, 26, 27, 28, 29, 32, 33, 132, 35, 36, 37, 38, 40, 41, 148, 176, 136, 42, 43, 44, 46, 50, 54, 56, 57, 58, 60, 62, 72, 73, 74, 76, 77, 78, 94, 104, 105, 150, 106, 108, 110, 122, 126, 130, 134, 162, 138, 140, 142, 152, 154, 156, 160, 164, 168, 172, 178, 232}, {CompressedData[" 1:eJwVxdla2lAUBlB+sj3bA4fsSJEoRiYZBAHTRpTJARVqAQEFkcErX6Dvf9ev 62blvv++f4dDoVANodD/gTDCVpj21B7vYR/7OkIRRK0oRRE1MTumYhyTmI45 MRzED3CgfyCBBCdUghI6ET9Uh3yIpE4i6SYlyUd0hOP4MY4ppVMq5aaQ4pS4 2nVPvBM6wak5xSmlM2kvjTRlTVaylEUun9M5nOFMn3HBKzgFLqCgi/miU9RF FLkUL1klU6ISylS2yqaMc5xLpVqxKqhQRRQrXOgLXHANtUiN6lYddapzXdel oRpOgxu4lEtcsv/Tt/1fPvvaFx9+4LtXfKWu0OSmbrpNNOX66JqucaNucMMt 05IWtWCMoXarbdrSpja3dRsd3ZGO3UFHdbgrXbuLbr6rurrLPemhp3t8e3un 7+gO97iP3NMDPZgH9FWf++g7j/SIJ3qSJzzjmTxv4A0woIEZBIP4UIaRIYb0 ++UPjx5HNDIjjDHWYx7TRCbeBBN69V7pFQKRqZryFFOpUlWqmNmz+YxnMtMz Z4YAQfCm3vgN7/SOhV7wwl1gIRkvQxm8vCzzS70MlvjwPpwPXsVX1ipYmRWt 8CmfmPNc5lh7a1nTGhvZBBvegHmrtrTlLXZmJzvawda22GzbNixYRPRFX/KF f29rSOc= "], Null}, {VertexLabels -> {Automatic}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[0.024647858323908027`], ArrowBox[ BezierCurveBox[{{3.374777658067378, -2.570667663392156}, { 3.349271516843607, -2.122594098006731}, { 3.3724347207344354`, -2.0917854473443263`}, { 3.3947905031841024`, -2.0788365412624645`}, { 3.4691483650900063`, -2.087560494824905}, { 3.487899877887707, -2.105332268665785}, { 3.503303038379237, -2.1406656751955597`}, { 3.374777658067378, -2.570667663392156}}, SplineDegree->7], 0.04507714321619348], ArrowBox[{{4.741732383193674, -2.418445481628646}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{4.741732383193674, -2.418445481628646}, { 4.250982805694171, -1.9328423181684231`}}, 0.04507714321619348], ArrowBox[{{4.741732383193674, -2.418445481628646}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{4.250982805694171, -1.9328423181684231`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{4.250982805694171, -1.9328423181684231`}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[ BezierCurveBox[{{4.257245808878793, -2.4009708057112062`}, { 3.883724215267057, -2.627233150528044}, { 3.836418556324164, -2.6190345104766117`}, { 3.809572339017347, -2.6012724997767815`}, { 3.779789127271596, -2.5130753170029916`}, { 3.790371187008899, -2.482674191703064}, { 3.8230219326780652`, -2.4474751594157746`}, { 4.257245808878793, -2.4009708057112062`}}, SplineDegree->7], 0.04507714321619348], ArrowBox[{{2.1754093775110017`, -1.6491449203136574`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{2.1754093775110017`, -1.6491449203136574`}, { 2.2609057244795503`, -2.3903364197435133`}}, 0.04507714321619348], ArrowBox[{{2.1754093775110017`, -1.6491449203136574`}, { 2.3218166820461463`, -2.673374152544776}}, 0.04507714321619348], ArrowBox[{{2.2609057244795503`, -2.3903364197435133`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{2.2609057244795503`, -2.3903364197435133`}, { 2.3218166820461463`, -2.673374152544776}}, 0.04507714321619348], ArrowBox[ BezierCurveBox[{{2.3218166820461463`, -2.673374152544776}, { 2.7381981458255256`, -2.721486685797814}, { 2.7789528845920035`, -2.7681601686699366`}, { 2.7907120776288448`, -2.808027893527888}, { 2.7437548805348992`, -2.918246933015509}, { 2.7068571077788173`, -2.9373850748236263`}, { 2.644964401706465, -2.9403271268931044`}, { 2.3218166820461463`, -2.673374152544776}}, SplineDegree->7], 0.04507714321619348], ArrowBox[{{2.7360908916863718`, -3.8971671576123166`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{2.7360908916863718`, -3.8971671576123166`}, { 2.460072012944333, -2.6223665018599176`}}, 0.04507714321619348], ArrowBox[{{4.4565384786840845`, -1.5925469659634666`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{4.4565384786840845`, -1.5925469659634666`}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{4.696266490084097, -1.863944446138429}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{4.696266490084097, -1.863944446138429}, { 4.250982805694171, -1.9328423181684231`}}, 0.04507714321619348], ArrowBox[{{4.696266490084097, -1.863944446138429}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{4.696266490084097, -1.863944446138429}, { 4.468230574221086, -2.0321610741780334`}}, 0.04507714321619348], ArrowBox[{{4.468230574221086, -2.0321610741780334`}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[ BezierCurveBox[{{4.468230574221086, -2.0321610741780334`}, { 4.36856360707613, -1.6749275042414062`}, { 4.419297781156499, -1.587485365421199}, { 4.476920321809056, -1.5515053743500071`}, { 4.665840243947361, -1.5939193236327611`}, { 4.702552412343523, -1.651078169320813}, { 4.711038812754622, -1.7518157743605007`}, { 4.468230574221086, -2.0321610741780334`}}, SplineDegree->7], 0.04507714321619348], ArrowBox[{{2.289683526466467, -3.1068092374588887`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{2.289683526466467, -3.1068092374588887`}, { 2.2609057244795503`, -2.3903364197435133`}}, 0.04507714321619348], ArrowBox[{{2.289683526466467, -3.1068092374588887`}, { 2.3218166820461463`, -2.673374152544776}}, 0.04507714321619348], ArrowBox[{{2.289683526466467, -3.1068092374588887`}, { 2.460072012944333, -2.6223665018599176`}}, 0.04507714321619348], ArrowBox[{{2.289683526466467, -3.1068092374588887`}, { 2.1691852545564743`, -2.6834451697705655`}}, 0.04507714321619348], ArrowBox[{{2.289683526466467, -3.1068092374588887`}, { 3.1036763840417696`, -2.729943597029409}}, 0.04507714321619348], ArrowBox[{{2.289683526466467, -3.1068092374588887`}, { 1.830771562170516, -3.923043941387013}}, 0.04507714321619348], ArrowBox[{{2.1691852545564743`, -2.6834451697705655`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{2.1691852545564743`, -2.6834451697705655`}, { 2.3218166820461463`, -2.673374152544776}}, 0.04507714321619348], ArrowBox[{{2.1691852545564743`, -2.6834451697705655`}, { 2.460072012944333, -2.6223665018599176`}}, 0.04507714321619348], ArrowBox[ BezierCurveBox[{{2.1691852545564743`, -2.6834451697705655`}, { 1.8322406938088358`, -2.7588338216573107`}, { 1.7322812953061417`, -2.6893525597339543`}, { 1.6971485838146219`, -2.6153760555776033`}, { 1.7849450325106766`, -2.4009359228524114`}, { 1.8618692485689234`, -2.3728379590869504`}, { 1.9818544560845055`, -2.393406796801445}, { 2.1691852545564743`, -2.6834451697705655`}}, SplineDegree->7], 0.04507714321619348], ArrowBox[{{2.1691852545564743`, -2.6834451697705655`}, { 3.1036763840417696`, -2.729943597029409}}, 0.04507714321619348], ArrowBox[{{3.1036763840417696`, -2.729943597029409}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[ BezierCurveBox[{{3.1036763840417696`, -2.729943597029409}, { 3.005780263470843, -2.3149485141345676`}, { 3.032584546162441, -2.2655680378340315`}, { 3.06258075398785, -2.2427598112174834`}, { 3.1713064867008516`, -2.2457297380973347`}, { 3.200012845088375, -2.2701414703878546`}, { 3.2240814376651477`, -2.3209115783417698`}, { 3.1036763840417696`, -2.729943597029409}}, SplineDegree->7], 0.04507714321619348], ArrowBox[{{2.9809356660774973`, -1.2581267958579874`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{2.9809356660774973`, -1.2581267958579874`}, { 2.460072012944333, -2.6223665018599176`}}, 0.04507714321619348], ArrowBox[{{2.9809356660774973`, -1.2581267958579874`}, { 3.6050236527742214`, -0.8875269481460162}}, 0.04507714321619348], ArrowBox[{{3.968310186859985, -4.325701294362991}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{3.0991050477577233`, -1.838934506245372}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{3.0991050477577233`, -1.838934506245372}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{3.0991050477577233`, -1.838934506245372}, { 2.2609057244795503`, -2.3903364197435133`}}, 0.04507714321619348], ArrowBox[{{3.0991050477577233`, -1.838934506245372}, { 2.3218166820461463`, -2.673374152544776}}, 0.04507714321619348], ArrowBox[{{3.0991050477577233`, -1.838934506245372}, { 2.460072012944333, -2.6223665018599176`}}, 0.04507714321619348], ArrowBox[{{3.0991050477577233`, -1.838934506245372}, { 3.6050236527742214`, -0.8875269481460162}}, 0.04507714321619348], ArrowBox[{{1.662531494476173, -2.662049359287704}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{1.662531494476173, -2.662049359287704}, { 2.2609057244795503`, -2.3903364197435133`}}, 0.04507714321619348], ArrowBox[{{1.662531494476173, -2.662049359287704}, { 2.3218166820461463`, -2.673374152544776}}, 0.04507714321619348], ArrowBox[{{2.4082416265243, -1.9469094157806022`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{2.4082416265243, -1.9469094157806022`}, { 2.3218166820461463`, -2.673374152544776}}, 0.04507714321619348], ArrowBox[{{2.4082416265243, -1.9469094157806022`}, { 2.460072012944333, -2.6223665018599176`}}, 0.04507714321619348], ArrowBox[{{2.4082416265243, -1.9469094157806022`}, { 3.1036763840417696`, -2.729943597029409}}, 0.04507714321619348], ArrowBox[{{2.4082416265243, -1.9469094157806022`}, { 1.5640983980562915`, -1.8169101175320295`}}, 0.04507714321619348], ArrowBox[{{1.5640983980562915`, -1.8169101175320295`}, { 2.460072012944333, -2.6223665018599176`}}, 0.04507714321619348], ArrowBox[ BezierCurveBox[{{1.5640983980562915`, -1.8169101175320295`}, { 1.4368650871193864`, -1.984357478462371}, { 1.2305124903655582`, -1.9968899763951198`}, { 1.1188970632378872`, -1.9120800381184682`}, { 1.1994578340415363`, -1.5443320527808115`}, { 1.336307347225668, -1.5139521261079565`}, { 1.5185219156869856`, -1.6116061517901479`}, { 1.5640983980562915`, -1.8169101175320295`}}, SplineDegree->7], 0.04507714321619348], ArrowBox[{{4.612974936493904, -1.3798565574054935`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{4.612974936493904, -1.3798565574054935`}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{3.987657136546004, -1.1629647351469963`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{3.987657136546004, -1.1629647351469963`}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{3.987657136546004, -1.1629647351469963`}, { 3.6050236527742214`, -0.8875269481460162}}, 0.04507714321619348], ArrowBox[{{2.3978423487355838`, -2.1721295405783714`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{2.3978423487355838`, -2.1721295405783714`}, { 2.2609057244795503`, -2.3903364197435133`}}, 0.04507714321619348], ArrowBox[{{2.3978423487355838`, -2.1721295405783714`}, { 2.3218166820461463`, -2.673374152544776}}, 0.04507714321619348], ArrowBox[{{2.3978423487355838`, -2.1721295405783714`}, { 2.460072012944333, -2.6223665018599176`}}, 0.04507714321619348], ArrowBox[{{2.3978423487355838`, -2.1721295405783714`}, { 3.1036763840417696`, -2.729943597029409}}, 0.04507714321619348], ArrowBox[{{2.3978423487355838`, -2.1721295405783714`}, { 1.5640983980562915`, -1.8169101175320295`}}, 0.04507714321619348], ArrowBox[{{4.41865457505975, -3.6959554177040532`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{4.41865457505975, -3.6959554177040532`}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{4.41865457505975, -3.6959554177040532`}, { 3.7714567377328287`, -3.7231989303488326`}}, 0.04507714321619348], ArrowBox[ BezierCurveBox[{{3.7714567377328287`, -3.7231989303488326`}, { 4.023081531578373, -3.8467053131049034`}, { 4.062334200635068, -4.0118474923250576`}, { 4.020070867614839, -4.118357663133568}, { 3.7104665168362843`, -4.186059171272611}, { 3.627604905207476, -4.106910203358219}, { 3.5943472818899624`, -3.940457081197875}, { 3.7714567377328287`, -3.7231989303488326`}}, SplineDegree->7], 0.04507714321619348], ArrowBox[{{5.064448863241633, -2.3675600069388194`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{5.064448863241633, -2.3675600069388194`}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{5.064448863241633, -2.3675600069388194`}, { 4.468230574221086, -2.0321610741780334`}}, 0.04507714321619348], ArrowBox[{{4.596408221127356, -3.5180981193696703`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{4.596408221127356, -3.5180981193696703`}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{4.596408221127356, -3.5180981193696703`}, { 3.7714567377328287`, -3.7231989303488326`}}, 0.04507714321619348], ArrowBox[{{4.596408221127356, -3.5180981193696703`}, { 4.32249338592872, -3.5314108200975194`}}, 0.04507714321619348], ArrowBox[{{4.32249338592872, -3.5314108200975194`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{4.32249338592872, -3.5314108200975194`}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{4.32249338592872, -3.5314108200975194`}, { 3.7714567377328287`, -3.7231989303488326`}}, 0.04507714321619348], ArrowBox[{{3.9895298223349482`, -2.1010622417332443`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{3.9895298223349482`, -2.1010622417332443`}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{3.9895298223349482`, -2.1010622417332443`}, { 4.468230574221086, -2.0321610741780334`}}, 0.04507714321619348], ArrowBox[{{3.9895298223349482`, -2.1010622417332443`}, { 3.1036763840417696`, -2.729943597029409}}, 0.04507714321619348], ArrowBox[{{1.63777661410148, -3.2481372070220416`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{1.63777661410148, -3.2481372070220416`}, { 2.460072012944333, -2.6223665018599176`}}, 0.04507714321619348], ArrowBox[{{1.63777661410148, -3.2481372070220416`}, { 0.9414485435507243, -2.9154177171777036`}}, 0.04507714321619348], ArrowBox[{{2.2042618120506567`, -3.4548778075198334`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{2.2042618120506567`, -3.4548778075198334`}, { 2.3218166820461463`, -2.673374152544776}}, 0.04507714321619348], ArrowBox[{{2.2042618120506567`, -3.4548778075198334`}, { 2.460072012944333, -2.6223665018599176`}}, 0.04507714321619348], ArrowBox[{{2.668353501069717, -3.6371678418757813`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{2.668353501069717, -3.6371678418757813`}, { 2.3218166820461463`, -2.673374152544776}}, 0.04507714321619348], ArrowBox[{{2.668353501069717, -3.6371678418757813`}, { 2.460072012944333, -2.6223665018599176`}}, 0.04507714321619348], ArrowBox[{{2.668353501069717, -3.6371678418757813`}, { 1.830771562170516, -3.923043941387013}}, 0.04507714321619348], ArrowBox[{{2.668353501069717, -3.6371678418757813`}, { 3.7714567377328287`, -3.7231989303488326`}}, 0.04507714321619348], ArrowBox[{{1.7128601681194147`, -3.0642627178850663`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{1.7128601681194147`, -3.0642627178850663`}, { 2.3218166820461463`, -2.673374152544776}}, 0.04507714321619348], ArrowBox[{{1.7128601681194147`, -3.0642627178850663`}, { 2.460072012944333, -2.6223665018599176`}}, 0.04507714321619348], ArrowBox[{{1.7128601681194147`, -3.0642627178850663`}, { 1.830771562170516, -3.923043941387013}}, 0.04507714321619348], ArrowBox[{{1.7128601681194147`, -3.0642627178850663`}, { 0.9414485435507243, -2.9154177171777036`}}, 0.04507714321619348], ArrowBox[{{4.147166272593994, -1.4353221671347667`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{4.147166272593994, -1.4353221671347667`}, { 4.250982805694171, -1.9328423181684231`}}, 0.04507714321619348], ArrowBox[{{4.147166272593994, -1.4353221671347667`}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{4.147166272593994, -1.4353221671347667`}, { 4.468230574221086, -2.0321610741780334`}}, 0.04507714321619348], ArrowBox[{{4.147166272593994, -1.4353221671347667`}, { 3.6050236527742214`, -0.8875269481460162}}, 0.04507714321619348], ArrowBox[{{4.78962461989126, -2.1348338555143775`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{4.78962461989126, -2.1348338555143775`}, { 4.250982805694171, -1.9328423181684231`}}, 0.04507714321619348], ArrowBox[{{4.78962461989126, -2.1348338555143775`}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{4.78962461989126, -2.1348338555143775`}, { 4.468230574221086, -2.0321610741780334`}}, 0.04507714321619348], ArrowBox[{{3.5114999374704308`, -3.906842445128299}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{3.5114999374704308`, -3.906842445128299}, { 3.1036763840417696`, -2.729943597029409}}, 0.04507714321619348], ArrowBox[{{4.212708272430451, -2.7346613753031948`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{4.212708272430451, -2.7346613753031948`}, { 4.250982805694171, -1.9328423181684231`}}, 0.04507714321619348], ArrowBox[{{4.212708272430451, -2.7346613753031948`}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{4.212708272430451, -2.7346613753031948`}, { 3.1036763840417696`, -2.729943597029409}}, 0.04507714321619348], ArrowBox[{{4.212708272430451, -2.7346613753031948`}, { 4.083855974845358, -3.144253172914204}}, 0.04507714321619348], ArrowBox[{{4.083855974845358, -3.144253172914204}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{4.083855974845358, -3.144253172914204}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{4.083855974845358, -3.144253172914204}, { 3.1036763840417696`, -2.729943597029409}}, 0.04507714321619348], ArrowBox[{{2.378078630019608, -3.581847412923592}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{2.378078630019608, -3.581847412923592}, { 2.3218166820461463`, -2.673374152544776}}, 0.04507714321619348], ArrowBox[{{2.378078630019608, -3.581847412923592}, { 2.460072012944333, -2.6223665018599176`}}, 0.04507714321619348], ArrowBox[{{4.928044767229978, -1.774671806035831}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{4.928044767229978, -1.774671806035831}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{4.928044767229978, -1.774671806035831}, { 4.4565384786840845`, -1.5925469659634666`}}, 0.04507714321619348], ArrowBox[{{3.3267374026033503`, -2.1910083714749007`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{3.3267374026033503`, -2.1910083714749007`}, { 4.250982805694171, -1.9328423181684231`}}, 0.04507714321619348], ArrowBox[{{3.3267374026033503`, -2.1910083714749007`}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{3.3267374026033503`, -2.1910083714749007`}, { 2.3218166820461463`, -2.673374152544776}}, 0.04507714321619348], ArrowBox[{{3.3267374026033503`, -2.1910083714749007`}, { 2.460072012944333, -2.6223665018599176`}}, 0.04507714321619348], ArrowBox[{{3.3267374026033503`, -2.1910083714749007`}, { 3.1036763840417696`, -2.729943597029409}}, 0.04507714321619348], ArrowBox[{{1.9351495409447304`, -3.2058769128377858`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{1.9351495409447304`, -3.2058769128377858`}, { 2.2609057244795503`, -2.3903364197435133`}}, 0.04507714321619348], ArrowBox[{{1.9351495409447304`, -3.2058769128377858`}, { 2.3218166820461463`, -2.673374152544776}}, 0.04507714321619348], ArrowBox[{{1.9351495409447304`, -3.2058769128377858`}, { 1.830771562170516, -3.923043941387013}}, 0.04507714321619348], ArrowBox[{{2.801355494881894, -3.4307494811231507`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{2.801355494881894, -3.4307494811231507`}, { 2.3218166820461463`, -2.673374152544776}}, 0.04507714321619348], ArrowBox[{{2.801355494881894, -3.4307494811231507`}, { 3.1036763840417696`, -2.729943597029409}}, 0.04507714321619348], ArrowBox[{{1.8813552810272998`, -1.7037277450345432`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{1.8813552810272998`, -1.7037277450345432`}, { 2.3218166820461463`, -2.673374152544776}}, 0.04507714321619348], ArrowBox[{{1.8813552810272998`, -1.7037277450345432`}, { 2.460072012944333, -2.6223665018599176`}}, 0.04507714321619348], ArrowBox[{{1.8813552810272998`, -1.7037277450345432`}, { 2.1691852545564743`, -2.6834451697705655`}}, 0.04507714321619348], ArrowBox[{{1.8813552810272998`, -1.7037277450345432`}, { 3.1036763840417696`, -2.729943597029409}}, 0.04507714321619348], ArrowBox[{{1.8813552810272998`, -1.7037277450345432`}, { 1.5640983980562915`, -1.8169101175320295`}}, 0.04507714321619348], ArrowBox[{{1.8813552810272998`, -1.7037277450345432`}, { 0.8417792402900757, -0.5359222765715934}}, 0.04507714321619348], ArrowBox[{{1.8813552810272998`, -1.7037277450345432`}, { 0.5359222765715934, -0.8929534196462985}}, 0.04507714321619348], ArrowBox[{{1.8813552810272998`, -1.7037277450345432`}, { 2.7824506940816525`, -1.4419762149531055`}}, 0.04507714321619348], ArrowBox[{{2.7824506940816525`, -1.4419762149531055`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[ BezierCurveBox[{{2.7824506940816525`, -1.4419762149531055`}, { 2.558904609880769, -1.3531611338757648`}, { 2.5002452680053344`, -1.1691748758290894`}, { 2.546219890661919, -1.0468428615783327`}, { 2.8982274968022215`, -0.9964079358023916}, { 2.9767023094044425`, -1.1009090909448545`}, { 2.972064708423602, -1.2939644047707615`}, { 2.7824506940816525`, -1.4419762149531055`}}, SplineDegree->7], 0.04507714321619348], ArrowBox[{{1.6647505431283096`, -2.3832908974977425`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{1.6647505431283096`, -2.3832908974977425`}, { 2.2609057244795503`, -2.3903364197435133`}}, 0.04507714321619348], ArrowBox[{{1.6647505431283096`, -2.3832908974977425`}, { 2.3218166820461463`, -2.673374152544776}}, 0.04507714321619348], ArrowBox[{{2.064507695944269, -2.306035215428392}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{2.064507695944269, -2.306035215428392}, { 2.3218166820461463`, -2.673374152544776}}, 0.04507714321619348], ArrowBox[{{2.064507695944269, -2.306035215428392}, { 2.460072012944333, -2.6223665018599176`}}, 0.04507714321619348], ArrowBox[{{2.064507695944269, -2.306035215428392}, { 3.1036763840417696`, -2.729943597029409}}, 0.04507714321619348], ArrowBox[{{2.064507695944269, -2.306035215428392}, { 1.5640983980562915`, -1.8169101175320295`}}, 0.04507714321619348], ArrowBox[{{4.388909400643977, -1.2608385994982712`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{4.388909400643977, -1.2608385994982712`}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{4.388909400643977, -1.2608385994982712`}, { 4.612974936493904, -1.3798565574054935`}}, 0.04507714321619348], ArrowBox[{{2.355747252362064, -1.5634612691497853`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{2.355747252362064, -1.5634612691497853`}, { 2.2609057244795503`, -2.3903364197435133`}}, 0.04507714321619348], ArrowBox[{{2.355747252362064, -1.5634612691497853`}, { 2.3218166820461463`, -2.673374152544776}}, 0.04507714321619348], ArrowBox[{{3.978096905226878, -2.6058243877331626`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{3.978096905226878, -2.6058243877331626`}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{3.978096905226878, -2.6058243877331626`}, { 4.468230574221086, -2.0321610741780334`}}, 0.04507714321619348], ArrowBox[{{3.978096905226878, -2.6058243877331626`}, { 3.1036763840417696`, -2.729943597029409}}, 0.04507714321619348], ArrowBox[{{3.481094150132995, -2.414853727565334}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{3.481094150132995, -2.414853727565334}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{3.481094150132995, -2.414853727565334}, { 2.3218166820461463`, -2.673374152544776}}, 0.04507714321619348], ArrowBox[{{3.481094150132995, -2.414853727565334}, { 2.460072012944333, -2.6223665018599176`}}, 0.04507714321619348], ArrowBox[{{3.481094150132995, -2.414853727565334}, { 4.468230574221086, -2.0321610741780334`}}, 0.04507714321619348], ArrowBox[{{3.481094150132995, -2.414853727565334}, { 3.1036763840417696`, -2.729943597029409}}, 0.04507714321619348], ArrowBox[{{3.481094150132995, -2.414853727565334}, { 3.978096905226878, -2.6058243877331626`}}, 0.04507714321619348], ArrowBox[{{2.6608842010639275`, -2.671966338895925}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{2.6608842010639275`, -2.671966338895925}, { 2.2609057244795503`, -2.3903364197435133`}}, 0.04507714321619348], ArrowBox[{{2.6608842010639275`, -2.671966338895925}, { 2.3218166820461463`, -2.673374152544776}}, 0.04507714321619348], ArrowBox[{{2.6608842010639275`, -2.671966338895925}, { 2.460072012944333, -2.6223665018599176`}}, 0.04507714321619348], ArrowBox[{{2.6608842010639275`, -2.671966338895925}, { 2.1691852545564743`, -2.6834451697705655`}}, 0.04507714321619348], ArrowBox[{{2.6608842010639275`, -2.671966338895925}, { 3.1036763840417696`, -2.729943597029409}}, 0.04507714321619348], ArrowBox[{{1.950808861124713, -2.8049783678589666`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{1.950808861124713, -2.8049783678589666`}, { 2.2609057244795503`, -2.3903364197435133`}}, 0.04507714321619348], ArrowBox[{{1.950808861124713, -2.8049783678589666`}, { 2.3218166820461463`, -2.673374152544776}}, 0.04507714321619348], ArrowBox[{{1.950808861124713, -2.8049783678589666`}, { 2.460072012944333, -2.6223665018599176`}}, 0.04507714321619348], ArrowBox[{{1.950808861124713, -2.8049783678589666`}, { 2.1691852545564743`, -2.6834451697705655`}}, 0.04507714321619348], ArrowBox[{{1.950808861124713, -2.8049783678589666`}, { 3.1036763840417696`, -2.729943597029409}}, 0.04507714321619348], ArrowBox[{{1.950808861124713, -2.8049783678589666`}, { 0.9414485435507243, -2.9154177171777036`}}, 0.04507714321619348], ArrowBox[{{2.7577559863476306`, -3.1309846957150946`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{2.7577559863476306`, -3.1309846957150946`}, { 2.3218166820461463`, -2.673374152544776}}, 0.04507714321619348], ArrowBox[{{2.7577559863476306`, -3.1309846957150946`}, { 2.460072012944333, -2.6223665018599176`}}, 0.04507714321619348], ArrowBox[{{2.7577559863476306`, -3.1309846957150946`}, { 3.1036763840417696`, -2.729943597029409}}, 0.04507714321619348], ArrowBox[ BezierCurveBox[{{4.107902363106607, -5.897545847506178}, { 4.019423107638847, -6.088329379891481}, { 3.8205446301012556`, -6.144725622352075}, { 3.6933740056267985`, -6.085768543577202}, { 3.6933740056267985`, -5.709323151435155}, { 3.8205446301012556`, -5.650366072660281}, { 4.019423107638847, -5.7067623151208755`}, { 4.107902363106607, -5.897545847506178}}, SplineDegree->7], 0.04507714321619348], ArrowBox[{{3.439916465092315, -3.0768122027570595`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{3.439916465092315, -3.0768122027570595`}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{3.439916465092315, -3.0768122027570595`}, { 2.460072012944333, -2.6223665018599176`}}, 0.04507714321619348], ArrowBox[{{4.791365686064513, -1.5866260820060125`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{4.791365686064513, -1.5866260820060125`}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{4.791365686064513, -1.5866260820060125`}, { 4.4565384786840845`, -1.5925469659634666`}}, 0.04507714321619348], ArrowBox[{{5.05480152655073, -2.0807145334248522`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{5.05480152655073, -2.0807145334248522`}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{5.05480152655073, -2.0807145334248522`}, { 4.468230574221086, -2.0321610741780334`}}, 0.04507714321619348], ArrowBox[{{1.9883331310028562`, -3.397374779106112}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{1.9883331310028562`, -3.397374779106112}, { 2.2609057244795503`, -2.3903364197435133`}}, 0.04507714321619348], ArrowBox[{{1.9883331310028562`, -3.397374779106112}, { 2.3218166820461463`, -2.673374152544776}}, 0.04507714321619348], ArrowBox[{{1.9883331310028562`, -3.397374779106112}, { 1.830771562170516, -3.923043941387013}}, 0.04507714321619348], ArrowBox[{{5.108037896498435, -2.7721182196941}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{5.108037896498435, -2.7721182196941}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{4.266766464948409, -3.0286713526760947`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{4.266766464948409, -3.0286713526760947`}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{4.266766464948409, -3.0286713526760947`}, { 3.1036763840417696`, -2.729943597029409}}, 0.04507714321619348], ArrowBox[{{4.901426187565805, -3.203530985284668}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{4.901426187565805, -3.203530985284668}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{3.7184666137621836`, -2.0275462583631567`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{3.7184666137621836`, -2.0275462583631567`}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{3.7184666137621836`, -2.0275462583631567`}, { 4.468230574221086, -2.0321610741780334`}}, 0.04507714321619348], ArrowBox[{{3.7184666137621836`, -2.0275462583631567`}, { 3.6050236527742214`, -0.8875269481460162}}, 0.04507714321619348], ArrowBox[{{3.7184666137621836`, -2.0275462583631567`}, { 3.7714567377328287`, -3.7231989303488326`}}, 0.04507714321619348], ArrowBox[{{3.7184666137621836`, -2.0275462583631567`}, { 2.7824506940816525`, -1.4419762149531055`}}, 0.04507714321619348], ArrowBox[{{3.826568459698238, -1.762641290954639}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{3.826568459698238, -1.762641290954639}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{3.826568459698238, -1.762641290954639}, { 4.4565384786840845`, -1.5925469659634666`}}, 0.04507714321619348], ArrowBox[{{3.826568459698238, -1.762641290954639}, { 3.1036763840417696`, -2.729943597029409}}, 0.04507714321619348], ArrowBox[{{2.035922276571594, -5.897545847506178}, { 1.0359222765715939`, -5.897545847506178}}, 0.04507714321619348], ArrowBox[ BezierCurveBox[{{1.0359222765715939`, -5.897545847506178}, { 0.9474430211038333, -6.088329379891481}, { 0.7485645435662422, -6.144725622352075}, { 0.6213939190917849, -6.085768543577202}, { 0.6213939190917848, -5.709323151435155}, { 0.7485645435662422, -5.650366072660281}, { 0.9474430211038332, -5.7067623151208755`}, { 1.0359222765715939`, -5.897545847506178}}, SplineDegree->7], 0.04507714321619348], ArrowBox[{{0.5584469117759827, -2.7785369853403283`}, { 2.3218166820461463`, -2.673374152544776}}, 0.04507714321619348], ArrowBox[{{4.91449452144681, -2.606491377381045}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{4.91449452144681, -2.606491377381045}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{4.91449452144681, -2.606491377381045}, { 4.468230574221086, -2.0321610741780334`}}, 0.04507714321619348], ArrowBox[{{4.91449452144681, -2.606491377381045}, { 5.108037896498435, -2.7721182196941}}, 0.04507714321619348], ArrowBox[{{3.10242505279049, -2.4220437676322772`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{3.10242505279049, -2.4220437676322772`}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{3.10242505279049, -2.4220437676322772`}, { 2.3218166820461463`, -2.673374152544776}}, 0.04507714321619348], ArrowBox[{{3.10242505279049, -2.4220437676322772`}, { 2.460072012944333, -2.6223665018599176`}}, 0.04507714321619348], ArrowBox[{{3.9571024925820684`, -3.4083660520228323`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{3.9571024925820684`, -3.4083660520228323`}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{3.9571024925820684`, -3.4083660520228323`}, { 3.1036763840417696`, -2.729943597029409}}, 0.04507714321619348], ArrowBox[{{3.9571024925820684`, -3.4083660520228323`}, { 3.7714567377328287`, -3.7231989303488326`}}, 0.04507714321619348], ArrowBox[{{4.542935336742326, -3.3147397507385965`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{4.542935336742326, -3.3147397507385965`}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{4.542935336742326, -3.3147397507385965`}, { 3.7714567377328287`, -3.7231989303488326`}}, 0.04507714321619348], ArrowBox[{{2.694845536343107, -2.107299600130859}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{2.694845536343107, -2.107299600130859}, { 2.2609057244795503`, -2.3903364197435133`}}, 0.04507714321619348], ArrowBox[{{2.694845536343107, -2.107299600130859}, { 2.3218166820461463`, -2.673374152544776}}, 0.04507714321619348], ArrowBox[{{2.694845536343107, -2.107299600130859}, { 3.1036763840417696`, -2.729943597029409}}, 0.04507714321619348], ArrowBox[{{2.461717565907067, -3.282191871192028}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{2.461717565907067, -3.282191871192028}, { 2.3218166820461463`, -2.673374152544776}}, 0.04507714321619348], ArrowBox[{{2.461717565907067, -3.282191871192028}, { 2.460072012944333, -2.6223665018599176`}}, 0.04507714321619348], ArrowBox[{{2.461717565907067, -3.282191871192028}, { 2.1691852545564743`, -2.6834451697705655`}}, 0.04507714321619348], ArrowBox[{{2.461717565907067, -3.282191871192028}, { 3.1036763840417696`, -2.729943597029409}}, 0.04507714321619348], ArrowBox[{{2.461717565907067, -3.282191871192028}, { 1.830771562170516, -3.923043941387013}}, 0.04507714321619348], ArrowBox[{{2.461717565907067, -3.282191871192028}, { 2.980635380028703, -3.4931092705926328`}}, 0.04507714321619348], ArrowBox[{{2.980635380028703, -3.4931092705926328`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{2.980635380028703, -3.4931092705926328`}, { 2.3218166820461463`, -2.673374152544776}}, 0.04507714321619348], ArrowBox[{{2.980635380028703, -3.4931092705926328`}, { 3.1036763840417696`, -2.729943597029409}}, 0.04507714321619348], ArrowBox[{{1.9931088595892903`, -1.8902565021892332`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{1.9931088595892903`, -1.8902565021892332`}, { 2.2609057244795503`, -2.3903364197435133`}}, 0.04507714321619348], ArrowBox[{{1.9931088595892903`, -1.8902565021892332`}, { 2.3218166820461463`, -2.673374152544776}}, 0.04507714321619348], ArrowBox[{{4.972921723643553, -2.9835124968939746`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{4.972921723643553, -2.9835124968939746`}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{2.2153862480530706`, -2.1055500057500613`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{2.2153862480530706`, -2.1055500057500613`}, { 2.3218166820461463`, -2.673374152544776}}, 0.04507714321619348], ArrowBox[{{2.2153862480530706`, -2.1055500057500613`}, { 2.460072012944333, -2.6223665018599176`}}, 0.04507714321619348], ArrowBox[{{2.2153862480530706`, -2.1055500057500613`}, { 3.1036763840417696`, -2.729943597029409}}, 0.04507714321619348], ArrowBox[{{2.2153862480530706`, -2.1055500057500613`}, { 1.5640983980562915`, -1.8169101175320295`}}, 0.04507714321619348], ArrowBox[{{1.780745152736774, -2.1198740534278278`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{1.780745152736774, -2.1198740534278278`}, { 2.460072012944333, -2.6223665018599176`}}, 0.04507714321619348], ArrowBox[{{1.780745152736774, -2.1198740534278278`}, { 0.9414485435507243, -2.9154177171777036`}}, 0.04507714321619348], ArrowBox[{{1.780745152736774, -2.1198740534278278`}, { 2.7824506940816525`, -1.4419762149531055`}}, 0.04507714321619348], ArrowBox[{{2.4799312506510853`, -4.251816022900029}, { 2.3218166820461463`, -2.673374152544776}}, 0.04507714321619348], ArrowBox[{{2.4799312506510853`, -4.251816022900029}, { 1.830771562170516, -3.923043941387013}}, 0.04507714321619348], ArrowBox[{{2.4799312506510853`, -4.251816022900029}, { 3.7714567377328287`, -3.7231989303488326`}}, 0.04507714321619348], ArrowBox[{{3.799639742276537, -1.4400259207070603`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{3.799639742276537, -1.4400259207070603`}, { 4.250982805694171, -1.9328423181684231`}}, 0.04507714321619348], ArrowBox[{{3.799639742276537, -1.4400259207070603`}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{3.799639742276537, -1.4400259207070603`}, { 4.468230574221086, -2.0321610741780334`}}, 0.04507714321619348], ArrowBox[{{3.799639742276537, -1.4400259207070603`}, { 3.6050236527742214`, -0.8875269481460162}}, 0.04507714321619348], ArrowBox[{{3.799639742276537, -1.4400259207070603`}, { 2.7824506940816525`, -1.4419762149531055`}}, 0.04507714321619348], ArrowBox[{{3.2528965825971152`, -3.9496064804845874`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{3.2528965825971152`, -3.9496064804845874`}, { 3.1036763840417696`, -2.729943597029409}}, 0.04507714321619348], ArrowBox[{{3.7285942487843267`, -3.3776020173189596`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{3.7285942487843267`, -3.3776020173189596`}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{3.7285942487843267`, -3.3776020173189596`}, { 3.1036763840417696`, -2.729943597029409}}, 0.04507714321619348], ArrowBox[{{3.7285942487843267`, -3.3776020173189596`}, { 3.7714567377328287`, -3.7231989303488326`}}, 0.04507714321619348], ArrowBox[{{2.770107580801115, -1.7803383734598408`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{2.770107580801115, -1.7803383734598408`}, { 2.3218166820461463`, -2.673374152544776}}, 0.04507714321619348], ArrowBox[{{2.770107580801115, -1.7803383734598408`}, { 3.1036763840417696`, -2.729943597029409}}, 0.04507714321619348], ArrowBox[{{2.770107580801115, -1.7803383734598408`}, { 2.7824506940816525`, -1.4419762149531055`}}, 0.04507714321619348], ArrowBox[{{3.0818494138052555`, -2.0850240563160107`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{3.0818494138052555`, -2.0850240563160107`}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{3.0818494138052555`, -2.0850240563160107`}, { 2.2609057244795503`, -2.3903364197435133`}}, 0.04507714321619348], ArrowBox[{{3.0818494138052555`, -2.0850240563160107`}, { 2.3218166820461463`, -2.673374152544776}}, 0.04507714321619348], ArrowBox[{{4.031989396188427, -2.356005914166416}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{4.031989396188427, -2.356005914166416}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{4.031989396188427, -2.356005914166416}, { 4.468230574221086, -2.0321610741780334`}}, 0.04507714321619348], ArrowBox[{{4.031989396188427, -2.356005914166416}, { 3.1036763840417696`, -2.729943597029409}}, 0.04507714321619348], ArrowBox[{{3.8625936269126333`, -3.0521202417152407`}, { 3.374777658067378, -2.570667663392156}}, 0.04507714321619348], ArrowBox[{{3.8625936269126333`, -3.0521202417152407`}, { 4.257245808878793, -2.4009708057112062`}}, 0.04507714321619348], ArrowBox[{{3.8625936269126333`, -3.0521202417152407`}, { 3.1036763840417696`, -2.729943597029409}}, 0.04507714321619348]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[ 0.7]}], { DiskBox[{3.374777658067378, -2.570667663392156}, 0.04507714321619348], InsetBox["0", Offset[{2, 2}, {3.4198548012835714, -2.5255905201759625}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.741732383193674, -2.418445481628646}, 0.04507714321619348], InsetBox["1", Offset[{2, 2}, {4.786809526409868, -2.3733683384124524}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.250982805694171, -1.9328423181684231}, 0.04507714321619348], InsetBox["200", Offset[{2, 2}, {4.296059948910365, -1.8877651749522297}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.257245808878793, -2.4009708057112062}, 0.04507714321619348], InsetBox["204", Offset[{2, 2}, {4.302322952094986, -2.3558936624950126}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.1754093775110017, -1.6491449203136574}, 0.04507714321619348], InsetBox["2", Offset[{2, 2}, {2.2204865207271953, -1.604067777097464}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.2609057244795503, -2.3903364197435133}, 0.04507714321619348], InsetBox["34", Offset[{2, 2}, {2.305982867695744, -2.3452592765273197}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.3218166820461463, -2.673374152544776}, 0.04507714321619348], InsetBox["170", Offset[{2, 2}, {2.36689382526234, -2.6282970093285822}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.7360908916863718, -3.8971671576123166}, 0.04507714321619348], InsetBox["3", Offset[{2, 2}, {2.7811680349025654, -3.852090014396123}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.460072012944333, -2.6223665018599176}, 0.04507714321619348], InsetBox["240", Offset[{2, 2}, {2.5051491561605266, -2.577289358643724}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.4565384786840845, -1.5925469659634666}, 0.04507714321619348], InsetBox["4", Offset[{2, 2}, {4.501615621900278, -1.5474698227472732}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.696266490084097, -1.863944446138429}, 0.04507714321619348], InsetBox["5", Offset[{2, 2}, {4.741343633300291, -1.8188673029222355}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.468230574221086, -2.0321610741780334}, 0.04507714321619348], InsetBox["51", Offset[{2, 2}, {4.5133077174372795, -1.98708393096184}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.289683526466467, -3.1068092374588887}, 0.04507714321619348], InsetBox["6", Offset[{2, 2}, {2.3347606696826606, -3.061732094242695}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.1691852545564743, -2.6834451697705655}, 0.04507714321619348], InsetBox["184", Offset[{2, 2}, {2.214262397772668, -2.638368026554372}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.1036763840417696, -2.729943597029409}, 0.04507714321619348], InsetBox["128", Offset[{2, 2}, {3.148753527257963, -2.6848664538132154}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.830771562170516, -3.923043941387013}, 0.04507714321619348], InsetBox["85", Offset[{2, 2}, {1.8758487053867094, -3.8779667981708195}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.9809356660774973, -1.2581267958579874}, 0.04507714321619348], InsetBox["7", Offset[{2, 2}, {3.026012809293691, -1.213049652641794}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.6050236527742214, -0.8875269481460162}, 0.04507714321619348], InsetBox["192", Offset[{2, 2}, {3.650100795990415, -0.8424498049298227}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.968310186859985, -4.325701294362991}, 0.04507714321619348], InsetBox["8", Offset[{2, 2}, {4.013387330076179, -4.280624151146798}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.0991050477577233, -1.838934506245372}, 0.04507714321619348], InsetBox["9", Offset[{2, 2}, {3.144182190973917, -1.7938573630291785}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.662531494476173, -2.662049359287704}, 0.04507714321619348], InsetBox["10", Offset[{2, 2}, {1.7076086376923665, -2.6169722160715105}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.4082416265243, -1.9469094157806022}, 0.04507714321619348], InsetBox["11", Offset[{2, 2}, {2.4533187697404935, -1.9018322725644088}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.5640983980562915, -1.8169101175320295}, 0.04507714321619348], InsetBox["15", Offset[{2, 2}, {1.6091755412724849, -1.771832974315836}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.612974936493904, -1.3798565574054935}, 0.04507714321619348], InsetBox["12", Offset[{2, 2}, {4.658052079710098, -1.3347794141893001}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.987657136546004, -1.1629647351469963}, 0.04507714321619348], InsetBox["13", Offset[{2, 2}, {4.032734279762197, -1.117887591930803}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.3978423487355838, -2.1721295405783714}, 0.04507714321619348], InsetBox["14", Offset[{2, 2}, {2.4429194919517774, -2.1270523973621778}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.41865457505975, -3.6959554177040532}, 0.04507714321619348], InsetBox["18", Offset[{2, 2}, {4.463731718275944, -3.6508782744878596}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.7714567377328287, -3.7231989303488326}, 0.04507714321619348], InsetBox["90", Offset[{2, 2}, {3.8165338809490224, -3.678121787132639}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{5.064448863241633, -2.3675600069388194}, 0.04507714321619348], InsetBox["19", Offset[{2, 2}, {5.109526006457827, -2.322482863722626}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.596408221127356, -3.5180981193696703}, 0.04507714321619348], InsetBox["22", Offset[{2, 2}, {4.641485364343549, -3.4730209761534767}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.32249338592872, -3.5314108200975194}, 0.04507714321619348], InsetBox["146", Offset[{2, 2}, {4.367570529144913, -3.486333676881326}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.9895298223349482, -2.1010622417332443}, 0.04507714321619348], InsetBox["23", Offset[{2, 2}, {4.034606965551141, -2.0559850985170507}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.63777661410148, -3.2481372070220416}, 0.04507714321619348], InsetBox["24", Offset[{2, 2}, {1.6828537573176734, -3.203060063805848}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.9414485435507243, -2.9154177171777036}, 0.04507714321619348], InsetBox["48", Offset[{2, 2}, {0.9865256867669178, -2.87034057396151}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.2042618120506567, -3.4548778075198334}, 0.04507714321619348], InsetBox["25", Offset[{2, 2}, {2.2493389552668503, -3.40980066430364}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.668353501069717, -3.6371678418757813}, 0.04507714321619348], InsetBox["26", Offset[{2, 2}, {2.7134306442859106, -3.5920906986595877}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.7128601681194147, -3.0642627178850663}, 0.04507714321619348], InsetBox["27", Offset[{2, 2}, {1.757937311335608, -3.0191855746688727}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.147166272593994, -1.4353221671347667}, 0.04507714321619348], InsetBox["28", Offset[{2, 2}, {4.192243415810188, -1.3902450239185733}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.78962461989126, -2.1348338555143775}, 0.04507714321619348], InsetBox["29", Offset[{2, 2}, {4.834701763107454, -2.089756712298184}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.5114999374704308, -3.906842445128299}, 0.04507714321619348], InsetBox["32", Offset[{2, 2}, {3.5565770806866244, -3.861765301912105}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.212708272430451, -2.7346613753031948}, 0.04507714321619348], InsetBox["33", Offset[{2, 2}, {4.257785415646644, -2.689584232087001}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.083855974845358, -3.144253172914204}, 0.04507714321619348], InsetBox["132", Offset[{2, 2}, {4.128933118061552, -3.09917602969801}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.378078630019608, -3.581847412923592}, 0.04507714321619348], InsetBox["35", Offset[{2, 2}, {2.4231557732358016, -3.5367702697073984}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.928044767229978, -1.774671806035831}, 0.04507714321619348], InsetBox["36", Offset[{2, 2}, {4.973121910446172, -1.7295946628196377}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.3267374026033503, -2.1910083714749007}, 0.04507714321619348], InsetBox["37", Offset[{2, 2}, {3.371814545819544, -2.145931228258707}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.9351495409447304, -3.2058769128377858}, 0.04507714321619348], InsetBox["38", Offset[{2, 2}, {1.9802266841609237, -3.160799769621592}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.801355494881894, -3.4307494811231507}, 0.04507714321619348], InsetBox["40", Offset[{2, 2}, {2.8464326380980878, -3.385672337906957}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.8813552810272998, -1.7037277450345432}, 0.04507714321619348], InsetBox["41", Offset[{2, 2}, {1.9264324242434931, -1.6586506018183498}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.8417792402900757, -0.5359222765715934}, 0.04507714321619348], InsetBox["148", Offset[{2, 2}, {0.8868563835062692, -0.4908451333553999}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.5359222765715934, -0.8929534196462985}, 0.04507714321619348], InsetBox["176", Offset[{2, 2}, {0.5809994197877869, -0.847876276430105}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.7824506940816525, -1.4419762149531055}, 0.04507714321619348], InsetBox["136", Offset[{2, 2}, {2.827527837297846, -1.396899071736912}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.6647505431283096, -2.3832908974977425}, 0.04507714321619348], InsetBox["42", Offset[{2, 2}, {1.709827686344503, -2.338213754281549}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.064507695944269, -2.306035215428392}, 0.04507714321619348], InsetBox["43", Offset[{2, 2}, {2.109584839160463, -2.2609580722121985}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.388909400643977, -1.2608385994982712}, 0.04507714321619348], InsetBox["44", Offset[{2, 2}, {4.43398654386017, -1.2157614562820778}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.355747252362064, -1.5634612691497853}, 0.04507714321619348], InsetBox["46", Offset[{2, 2}, {2.4008243955782578, -1.518384125933592}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.978096905226878, -2.6058243877331626}, 0.04507714321619348], InsetBox["50", Offset[{2, 2}, {4.023174048443072, -2.560747244516969}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.481094150132995, -2.414853727565334}, 0.04507714321619348], InsetBox["54", Offset[{2, 2}, {3.5261712933491887, -2.3697765843491405}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.6608842010639275, -2.671966338895925}, 0.04507714321619348], InsetBox["56", Offset[{2, 2}, {2.705961344280121, -2.6268891956797313}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.950808861124713, -2.8049783678589666}, 0.04507714321619348], InsetBox["57", Offset[{2, 2}, {1.9958860043409064, -2.759901224642773}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.7577559863476306, -3.1309846957150946}, 0.04507714321619348], InsetBox["58", Offset[{2, 2}, {2.8028331295638242, -3.085907552498901}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.107902363106607, -5.897545847506178}, 0.04507714321619348], InsetBox["60", Offset[{2, 2}, {4.152979506322801, -5.852468704289985}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.439916465092315, -3.0768122027570595}, 0.04507714321619348], InsetBox["62", Offset[{2, 2}, {3.4849936083085087, -3.031735059540866}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.791365686064513, -1.5866260820060125}, 0.04507714321619348], InsetBox["72", Offset[{2, 2}, {4.836442829280706, -1.5415489387898191}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{5.05480152655073, -2.0807145334248522}, 0.04507714321619348], InsetBox["73", Offset[{2, 2}, {5.099878669766923, -2.0356373902086586}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.9883331310028562, -3.397374779106112}, 0.04507714321619348], InsetBox["74", Offset[{2, 2}, {2.0334102742190496, -3.3522976358899186}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{5.108037896498435, -2.7721182196941}, 0.04507714321619348], InsetBox["76", Offset[{2, 2}, {5.153115039714629, -2.7270410764779065}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.266766464948409, -3.0286713526760947}, 0.04507714321619348], InsetBox["77", Offset[{2, 2}, {4.311843608164603, -2.983594209459901}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.901426187565805, -3.203530985284668}, 0.04507714321619348], InsetBox["78", Offset[{2, 2}, {4.946503330781999, -3.1584538420684742}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.7184666137621836, -2.0275462583631567}, 0.04507714321619348], InsetBox["94", Offset[{2, 2}, {3.763543756978377, -1.9824691151469633}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.826568459698238, -1.762641290954639}, 0.04507714321619348], InsetBox["104", Offset[{2, 2}, {3.8716456029144317, -1.7175641477384456}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.035922276571594, -5.897545847506178}, 0.04507714321619348], InsetBox["105", Offset[{2, 2}, {2.0809994197877875, -5.852468704289985}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.0359222765715939, -5.897545847506178}, 0.04507714321619348], InsetBox["150", Offset[{2, 2}, {1.0809994197877872, -5.852468704289985}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.5584469117759827, -2.7785369853403283}, 0.04507714321619348], InsetBox["106", Offset[{2, 2}, {0.6035240549921762, -2.7334598421241347}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.91449452144681, -2.606491377381045}, 0.04507714321619348], InsetBox["108", Offset[{2, 2}, {4.959571664663003, -2.5614142341648516}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.10242505279049, -2.4220437676322772}, 0.04507714321619348], InsetBox["110", Offset[{2, 2}, {3.1475021960066836, -2.3769666244160836}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.9571024925820684, -3.4083660520228323}, 0.04507714321619348], InsetBox["122", Offset[{2, 2}, {4.002179635798262, -3.3632889088066387}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.542935336742326, -3.3147397507385965}, 0.04507714321619348], InsetBox["126", Offset[{2, 2}, {4.58801247995852, -3.269662607522403}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.694845536343107, -2.107299600130859}, 0.04507714321619348], InsetBox["130", Offset[{2, 2}, {2.739922679559301, -2.0622224569146654}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.461717565907067, -3.282191871192028}, 0.04507714321619348], InsetBox["134", Offset[{2, 2}, {2.5067947091232607, -3.2371147279758343}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.980635380028703, -3.4931092705926328}, 0.04507714321619348], InsetBox["162", Offset[{2, 2}, {3.0257125232448967, -3.448032127376439}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.9931088595892903, -1.8902565021892332}, 0.04507714321619348], InsetBox["138", Offset[{2, 2}, {2.038186002805484, -1.8451793589730399}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.972921723643553, -2.9835124968939746}, 0.04507714321619348], InsetBox["140", Offset[{2, 2}, {5.017998866859746, -2.938435353677781}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.2153862480530706, -2.1055500057500613}, 0.04507714321619348], InsetBox["142", Offset[{2, 2}, {2.260463391269264, -2.0604728625338677}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.780745152736774, -2.1198740534278278}, 0.04507714321619348], InsetBox["152", Offset[{2, 2}, {1.8258222959529673, -2.074796910211634}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.4799312506510853, -4.251816022900029}, 0.04507714321619348], InsetBox["154", Offset[{2, 2}, {2.525008393867279, -4.206738879683836}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.799639742276537, -1.4400259207070603}, 0.04507714321619348], InsetBox["156", Offset[{2, 2}, {3.8447168854927307, -1.3949487774908669}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.2528965825971152, -3.9496064804845874}, 0.04507714321619348], InsetBox["160", Offset[{2, 2}, {3.297973725813309, -3.904529337268394}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.7285942487843267, -3.3776020173189596}, 0.04507714321619348], InsetBox["164", Offset[{2, 2}, {3.7736713920005203, -3.332524874102766}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.770107580801115, -1.7803383734598408}, 0.04507714321619348], InsetBox["168", Offset[{2, 2}, {2.8151847240173087, -1.7352612302436474}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.0818494138052555, -2.0850240563160107}, 0.04507714321619348], InsetBox["172", Offset[{2, 2}, {3.126926557021449, -2.039946913099817}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.031989396188427, -2.356005914166416}, 0.04507714321619348], InsetBox["178", Offset[{2, 2}, {4.077066539404621, -2.3109287709502224}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.8625936269126333, -3.0521202417152407}, 0.04507714321619348], InsetBox["232", Offset[{2, 2}, {3.907670770128827, -3.007043098499047}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.701698859858716*^9}] }, Open ]], Cell["", "Input", Editable->False, Selectable->False, Deletable->False, ShowCellBracket->False, CellBracketOptions->{"OverlapContent"->True}, CellFrameMargins->{{Inherited, Inherited}, {Inherited, 30}}, CellSize->{Automatic, 1}] }, Open ]] }, ClosingSaveDialog->False, WindowSize->{808, 755}, WindowMargins->{{314, Automatic}, {Automatic, 50}}, WindowTitle->"Block Simulation Network of Elementary Cellular Automata | \ Example Notebook", Visible->True, DockedCells->{}, FrontEndVersion->"13.2 for Mac OS X x86 (64-bit) (November 18, 2022)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[671, 24, 36, 0, 70, "Subsection",ExpressionUUID->"d051ed27-bc91-4442-a784-2a224b712d48"], Cell[710, 26, 162, 2, 70, "Text",ExpressionUUID->"50db2ef9-c5c9-40e5-900d-ee405f5c809c"], Cell[CellGroupData[{ Cell[897, 32, 374, 8, 70, "Input",ExpressionUUID->"99a9a45e-c784-4cc3-bf6b-8dc8814cccf1"], Cell[1274, 42, 141466, 2862, 70, "Output",ExpressionUUID->"0a517856-7c7e-442d-80ba-63bfd92231a1"] }, Open ]], Cell[142755, 2907, 126, 1, 70, "Text",ExpressionUUID->"d99da793-64ac-4b07-973f-8853e0f7f2dc"], Cell[CellGroupData[{ Cell[142906, 2912, 611, 13, 70, "Input",ExpressionUUID->"125bcee2-beb2-4616-86a4-b0b286716509"], Cell[143520, 2927, 10318, 186, 70, "Output",ExpressionUUID->"ce240fc2-0e4a-4c31-9b05-587f54ecb240"] }, Open ]], Cell[153853, 3116, 138, 1, 70, "Text",ExpressionUUID->"e840958e-98d4-44db-bb42-467c2a3a6079"], Cell[CellGroupData[{ Cell[154016, 3121, 453, 12, 70, "Input",ExpressionUUID->"7cac5da9-4357-42ae-9071-eee9bf268e19"], Cell[154472, 3135, 19914, 387, 70, "Output",ExpressionUUID->"30c6eccd-cc4a-449b-86d0-5d6a219bb7a4"] }, Open ]], Cell[174401, 3525, 97, 1, 70, "Text",ExpressionUUID->"db0b9ac4-9cdb-4698-9bb7-2be8123ca5a6"], Cell[CellGroupData[{ Cell[174523, 3530, 549, 15, 70, "Input",ExpressionUUID->"e26d2af4-ff73-4ef6-b45a-5ff0e6626a4f"], Cell[175075, 3547, 11448, 208, 70, "Output",ExpressionUUID->"5cb51ea1-d713-48e5-8172-e47e36cb5a94"] }, Open ]], Cell[186538, 3758, 120, 2, 70, "Text",ExpressionUUID->"a125c9ee-69f8-4c5c-885a-ef26fd924767"], Cell[CellGroupData[{ Cell[186683, 3764, 416, 11, 70, "Input",ExpressionUUID->"8b20e357-dcc4-40c3-bb55-2e492bb536a7"], Cell[187102, 3777, 932, 20, 70, "Output",ExpressionUUID->"0db467b2-b092-414a-b6ac-a25d7f0ab1c7"] }, Open ]], Cell[188049, 3800, 107, 1, 70, "Text",ExpressionUUID->"d91d2633-327d-4fbb-954a-330d59018973"], Cell[CellGroupData[{ Cell[188181, 3805, 553, 15, 70, "Input",ExpressionUUID->"cd9ebb33-d57b-4cd8-9d9e-05fad5fefefd"], Cell[188737, 3822, 742, 16, 70, "Output",ExpressionUUID->"416a35b8-a10a-42bc-b78f-769cbd72a324"] }, Open ]], Cell[189494, 3841, 125, 1, 70, "Text",ExpressionUUID->"d8b6c2e3-4005-4a29-bd76-e48692986918"], Cell[CellGroupData[{ Cell[189644, 3846, 682, 18, 70, "Input",ExpressionUUID->"da2a8e0d-a02f-47a7-968d-efe2e3ad211d"], Cell[190329, 3866, 400, 12, 70, "Output",ExpressionUUID->"5b0a5b5c-34bf-42d5-8b39-e7baf9cd5495"] }, Open ]], Cell[CellGroupData[{ Cell[190766, 3883, 983, 30, 70, "Input",ExpressionUUID->"02a06f1a-21ec-492d-93eb-eb5312d72bfd"], Cell[191752, 3915, 1325, 23, 70, "Output",ExpressionUUID->"ca32b64f-b9d4-48a4-9967-6be130309b92"] }, Open ]], Cell[193092, 3941, 116, 1, 70, "Text",ExpressionUUID->"d6cf1da4-6d61-42b3-b4a9-64740b75608a"], Cell[CellGroupData[{ Cell[193233, 3946, 821, 21, 70, "Input",ExpressionUUID->"26ba220a-3698-4e81-982c-98a41066bf17"], Cell[194057, 3969, 70997, 1273, 70, "Output",ExpressionUUID->"8b0c8fcf-324a-45f7-ba8f-8fb517076fd0"] }, Open ]], Cell[265069, 5245, 235, 7, 70, "Input",ExpressionUUID->"fe831324-325c-411f-9ead-9d001c65ade2"] }, Open ]] } ] *) (* End of internal cache information *)