(* 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[ 637985, 12695] NotebookOptionsPosition[ 635566, 12645] NotebookOutlinePosition[ 636047, 12665] CellTagsIndexPosition[ 636004, 12662] WindowTitle->Timeline of Systematic Data & Computable Knowledge | Example \ Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection"], Cell["Retrieve the dataset:", "Text", CellChangeTimes->{{3.696186645510051*^9, 3.6961866545240507`*^9}, { 3.696187841532233*^9, 3.696187852829363*^9}, {3.886240079392044*^9, 3.8862400802387037`*^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.8862400585536346`*^9}, CellLabel->"In[1]:="], Cell[BoxData[ TagBox[ TemplateBox[{ TagBox[ DynamicModuleBox[{ TypeSystem`NestedGrid`PackagePrivate`$state$$ = <| "InitialData" -> TypeSystem`CacheKey[ 7201998223423199399355743002848217204732719738684380229640], "AllowEmbedding" -> True, "InitialShape" -> TypeSystem`PackageScope`HeaderShape[<|{All, "Title"} -> 1, {All, "Tagline"} -> 1, {All, "Date"} -> 1, {All, "Region"} -> 1, {All, "Description"} -> 1, {All, "Image"} -> 1|>, TypeSystem`PackageScope`Limited[ TypeSystem`PackageScope`ColumnShape[ TypeSystem`PackageScope`Limited[ TypeSystem`PackageScope`RowShape[<| "Title" -> TypeSystem`PackageScope`AtomShape[235.20000000000002`], "Tagline" -> TypeSystem`PackageScope`AtomShape[526.4000000000001], "Date" -> TypeSystem`PackageScope`AtomShape[75], "Region" -> TypeSystem`PackageScope`AtomShape[60], "Description" -> TypeSystem`PackageScope`AtomShape[560.], "Image" -> TypeSystem`PackageScope`AtomShape[56]|>], DirectedInfinity[1], 6, {All}]], 5, DirectedInfinity[1], {}]], "InitialType" -> TypeSystem`Vector[ TypeSystem`Struct[{ "Title", "Tagline", "Date", "Region", "Description", "Image"}, { TypeSystem`Atom[String], TypeSystem`Atom[String], TypeSystem`Atom[DateObject], TypeSystem`Atom[Entity], TypeSystem`Atom[String], TypeSystem`Atom[Image]}], 186], "Meta" -> <|"ID" -> 228015627289619|>, "RowTarget" -> 20, "ColumnTarget" -> 10, "Shape" -> TypeSystem`PackageScope`HeaderShape[<|{All, "Title"} -> 1, {All, "Tagline"} -> 1, {All, "Date"} -> 1, {All, "Region"} -> 1, {All, "Description"} -> 1, {All, "Image"} -> 1|>, TypeSystem`PackageScope`Limited[ TypeSystem`PackageScope`ColumnShape[ TypeSystem`PackageScope`Limited[ TypeSystem`PackageScope`RowShape[<| "Title" -> TypeSystem`PackageScope`AtomShape[235.20000000000002`], "Tagline" -> TypeSystem`PackageScope`AtomShape[526.4000000000001], "Date" -> TypeSystem`PackageScope`AtomShape[75], "Region" -> TypeSystem`PackageScope`AtomShape[60], "Description" -> TypeSystem`PackageScope`AtomShape[560.], "Image" -> TypeSystem`PackageScope`AtomShape[56]|>], DirectedInfinity[1], 6, {All}]], 5, DirectedInfinity[1], {}]], "Type" -> TypeSystem`Vector[ TypeSystem`Struct[{ "Title", "Tagline", "Date", "Region", "Description", "Image"}, { TypeSystem`Atom[String], TypeSystem`Atom[String], TypeSystem`Atom[DateObject], TypeSystem`Atom[Entity], TypeSystem`Atom[String], TypeSystem`Atom[Image]}], 186], "Path" -> {}, "DisplayedRowCount" -> 5, "DisplayedColumnCount" -> 6, "DataRowCount" -> 186, "DataColumnCount" -> 6, "SortPaths" -> {}, "SortDirections" -> {}, "HiddenItemsMap" -> Null, "UpdateType" -> 1|>, TypeSystem`NestedGrid`PackagePrivate`$outputID$$, TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, TypeSystem`NestedGrid`PackagePrivate`$vPos$$ = 1, TypeSystem`NestedGrid`PackagePrivate`$hPos$$ = 1, TypeSystem`NestedGrid`PackagePrivate`$grid$$ = DynamicModule[{ TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[ Style[ Grid[{{ Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["Title", Style[ "Title", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> If[ TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[ TypeSystem`NestedGrid`PackagePrivate`$state$$], TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$vPos$$, TypeSystem`NestedGrid`PackagePrivate`$hPos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{ All, "Title"}, 1]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{ All, "Title"}, "ColumnHeader", True], "Mouse"], ImageSize -> {{1, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["Tagline", Style[ "Tagline", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> If[ TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[ TypeSystem`NestedGrid`PackagePrivate`$state$$], TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$vPos$$, TypeSystem`NestedGrid`PackagePrivate`$hPos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{ All, "Tagline"}, 1]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{ All, "Tagline"}, "ColumnHeader", True], "Mouse"], ImageSize -> {{1, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["Date", Style[ "Date", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> If[ TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[ TypeSystem`NestedGrid`PackagePrivate`$state$$], TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$vPos$$, TypeSystem`NestedGrid`PackagePrivate`$hPos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{ All, "Date"}, 1]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{ All, "Date"}, "ColumnHeader", True], "Mouse"], ImageSize -> {{1, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["Region", Style[ "Region", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> If[ TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[ TypeSystem`NestedGrid`PackagePrivate`$state$$], TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$vPos$$, TypeSystem`NestedGrid`PackagePrivate`$hPos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{ All, "Region"}, 1]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{ All, "Region"}, "ColumnHeader", True], "Mouse"], ImageSize -> {{1, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["Description", Style[ "Description", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> If[ TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[ TypeSystem`NestedGrid`PackagePrivate`$state$$], TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$vPos$$, TypeSystem`NestedGrid`PackagePrivate`$hPos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{ All, "Description"}, 1]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{ All, "Description"}, "ColumnHeader", True], "Mouse"], ImageSize -> {{1, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["Image", Style[ "Image", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> If[ TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[ TypeSystem`NestedGrid`PackagePrivate`$state$$], TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$vPos$$, TypeSystem`NestedGrid`PackagePrivate`$hPos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{ All, "Image"}, 1]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{ All, "Image"}, "ColumnHeader", True], "Mouse"], ImageSize -> {{1, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}]}, { Item[ Pane[ Annotation["Arithmetic", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, Key["Title"]}, "Item", False], "Mouse"], ImageSize -> {{235.20000000000002`, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation["Counting abstract objects", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, Key["Tagline"]}, "Item", False], "Mouse"], ImageSize -> {{526.4000000000001, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["\"-20000\""], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, Key["Date"]}, "Item", False], "Mouse"], ImageSize -> {{75, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ Style["\[LongDash]", GrayLevel[0.75]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, Key["Region"]}, "Item", False], "Mouse"], ImageSize -> {{60, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ "The invention of arithmetic provides a way to abstractly \ compute numbers of objects.", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, Key["Description"]}, "Item", False], "Mouse"], ImageSize -> {{560., Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes[ TemplateBox[{"\" \"", GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJztegdUW0eXv1Pc6b1jeu8dBBJCSEIIIZBQQRKSECChggBJgEQHAaaDbZob ce89jnuJW2J/ifPZcWLHie3YTmI7iQvYFPV9T9j+spvst7vn7P7P7vn7nqs5 8+aN5t1737yZe+9vPArFuSXvz5s3T7IIKHLZ1amVlWw5wQK4yCuTlHLLiosy yqTF3OLK+MIPgEbk6x9Y172jd/SO3tH/JtL/z42sBRkgrV6nMbJWq9dqDRqd QaU3aHUGvdZgfP5fsfYfdeN/tQBrweFes1av0ek0QDnHQC+1TjOrU8/qNDNA qQfrWqCDWqUD7wCs0QKlWqNX64zd9Vq1TqsBmgHWqLVqjVarU4NSA8MBT1AZ 7wCPADrp1WqDWv1njcBbKo1+FhwWGAzoCwyu1WpABi6N4uuNDFyq1Spj+xyD omuNiunVer1KB7BOowJ6AaLqgYqRAQkAsWZUmlm1dkatBUil1agMWkBHFSC+ XgvU9QaDQa83aDRAqTfoQEX0QKN+1mCYBR6tNczqDGoDaO1XOu2sQa/S66YB hXW6GbX6rTpzqhl04GBvSWswaAwG3R8YEFYLMmgUrUE/16g3lnOdtcb6H0n3 pxbgWjOl0s1qtNMq8FKjnnr26/SLpy+f/Toz+fz5r48e3ft+4qd7048evHjw w8TPdzQvf5v89cGz+3df/P548rcn0789nfjt2cTTZ6pnL7XT6qmJV1PPJwED gaVGazBqBEoIGAR4D1OzL366//TW1w8+O//4xpe/3v/m+eNbr377UTvxQvP8 mebFc/3kC93LSd3UK8P0FHCpfvFc+3Jy9vffAFY9fTTzBBDjDlDO/Hzn0Y0v J+/cnLx7a/Kn75/fvzUB1O/cfHL72v0Lp67v2XZyZf+Z4cHrO7acXL3q7Jqh bXLZjrrqXY2KTdWVK0rY8ix0FRa5USHZ3qwYrixdp6iopxHXS8tkePTe5S3H enskOVmDlWWnB1ftW97VzS8dkUj2DfRtaW4WkQmGN/NNrVLNvJh8+PV3331y 4FJf6xGZ6ExD5d9Xd3zcIljHJ53oUBxull5e1XFnx9qLg8oH+zZ+MdoDVP42 3PXFaPep5bXH2+TfrOt7euCjCx3VByrYp2qFm9iEv3fXH6/mnmgR/7Bx4KtO xd/aqi9115zvqjleKzgp452sLLnWU3+4hnuyqXKniLNbXHylVzlCy9nEZYwX 01bxGIMltOMDbQM8Rh0Z20TH76wR1uGgW2v4324eUxBQ7UXk092tvQXEBkpm H5u8ooR2VFmXFeQOfP8AqQ3gdz37bPLV3Ufa27fu7thwsqrycpP8iLT4qLz4 87byz5rKzteVnq/jf6Gs/Lqr5vaKxmud1Rfq+ED7KRnn7kjbt311DzcOXB/r OKOs/GXX6nWMrKPV3K+6G07XVNz8aOUBheh6d+sXbfW7Jdwd8tK9NaV7y4ou K2svdtQdaq440Fh5pLHqeIt8b5VoK9A+uHyXTHCsq367QrSlmt/FzB0SMTtZ +ENN0o78rMGS/GPdzTUUrJJfsK9F3kbD1TFwm6TcdUL2kVpJBSYJ1AhYPLSa 2enph99+++2psydXDx3vafmir+3uWO+ZOuHFtsqrvXV/6268uarrSJXgRKPk Y3nZOaV8T0Xx4Rr+xfbqI1Xcy521X/S1fLN28MKq5ZdGu7/ZOralkvtpbwvA 60TsMyNd6yq4h2pl28TcbQrRpuryocKCNUz6Zx3t+6skoyWFmyVlx5QNY8Xs lUzGuJB/vKN1j1y2X1G9p6rigLxio5Czqbx0gEXb3Vizprx0pLRoX1N9I5XY xS0c5hZVodP6SlnbFdKxEs4ReU0rAac3rp2zk1OaV6/ufHHp053jD8+dfvn5 Z48O7Dzfrrg20P73gc6rA53nmuVXlI17y0r318s2S8uOtTXvri0/3Cy5Ptz2 7UjbWaXsTEfd5/09Z3u6drfW7myRrxYUnehsOd7X1lFK29Ja28FkDpcK1gp4 +xtr1tdIu4qYPQWkz0f7N8vEG2SS/iLWxmpRJ7uggUytzs3jQCHVxJwaCmOs snIVl9WRT1heyGwoKMxOiqvAZ+5ube4VlPDSoKNlwnF5dQkM1sJm0pMT6+g0 LgJeR8zTq4BVWvv44aPfH/7y6uefZh/cnfjm6sT1yz+f2n9uhfJkh2JvlXB3 pWBvRenFtsatguIxLmuTtGxTpfB4V9PVtQO3N666tX7gfGf9FlHRofr6bbX1 d08c3dHWuElWvqFSeHakf0giEGVllKCQ47W1a8vLt1XLWgoLKki4YSl/Z1td LSm7Oi+nkU1r5rHKSQQaPK00h5CPRIhoZElJcXEOlpYSvUoq6C7j0xHpmXFx Si5vXWNTHhxGRsBXKOTFmVhCYkJpXm5mQiwqOoKORDARCL0aXP6fPnk6+eTZ 9XMX737+uean7+9/euiHT3bsa6ka4lBH2NReEm6cxzpYJ90mLTvQXDcmLBku 5Rxsr98sE64uZe2sFq1iUTaJuMe7ez5qUK6pb2SnpIyJRZ0s2hp5ZY9YKMzK bGayVgjLmqj5g6X8BgattYg1LClvoecvL2T187jK4sK6IrYwJ1eIJ7CQmTJm ITkdSYLCiLGxPdyiLfW1DXQ6GQJlZOIG6pvz0tEJkZGZgIKJyWkBoZiQCC4u p4JegIyIZCEzqqkMHbgHGVQvZ1RPX/z69ddTN679eu7I6YHWi8M9w8WMKjhk j0w8zmNvlPI7aLlKSs6YkNtGIY6K+Mp8Qg0O3cthNufl9jHph5rrtioUEgK5 JCOjMhu/VipbV1tTXUCVswpKkYhD7R1NBKIUh+MgEdVMWo+0QpCLp6fB2/g8 eT6Vi8PmQJMzIiMYaenEZBg6IQkPRwozsivQWZtq6na2tgtzcigoJB6FzIKn 0XD4vAwMCgKhIdCSXCo1JZWVkYlLTIIFh1BhcDYCDbg6WmBfnFGrHj58fuXi vb2brg62rmURxPERpbGR3fmkA/XVw0X0RjKuMDWuj89ezqD2sQtWCvm1xOye kqK2Qk5rAXujXLGCw1pOJbUxqc3M/HY2S0EglhFyWbhMbFiIAA4909s1xAFe R3FpNpaZg4kPC8Qi4NScbEpmZnpUGAOHSY2OxMZHSwvyucQcJCQpNSGJDkc0 s4tbWEUVRBIFg46LDkuJDo318WAh05lweAEqnZUKryNRORloGjItwccTGuTP QqdTIBAV8IoApSYnJ7+5fmV1/4UO2ZedNedbZIO03CFekSwLrcjJGBFxSuAJ 4lyUgorvYFCbiYQWOqWjkMFDIspwuQ2MwtYC1laFfGMlf0TAGhIVyXOyiqDQ PCgUkxgvQqYN89gDBXlKImZHU40Yiy7JxmQkxKbHJWChcHhkDD4xngyFYCLC lIXMOhKxCJFGR2GQcYkMTIaQSKogUIoyslCxsdC4KHp6igiLrEDCR3glckou DRJTk41tJpN4aakl6XA2LIUNgchzc41uqUo9NfXkwvmLDZJvV7Wf76071yk7 1CgsSo3hYNJ5iJRjXa0ruBxlPrGFmL2nVrZRVDLOL+zh0IWZac1M6pHuzh2K mp3KhrUVgmEOa0ddTR+Po6DlCYhYETlrgEU80Vq5lkc+oChfw2ftrhJsExSP FDCWU2j1BSxuLl5EwitouI+k3NGiQmF6OjIqEhYZw8ZmM5DI7NRULAIREeBP TkfkJ0OkmJRdVZx9lewzrdVbJfxtUt4GPnUdlzjAzmOlJqJiIgowaKiXlwHw DQ3qmemp7498cqGu/IueRmD7O6zgfjbYPCTlF+VkNrIZG6vEh9saLo3072+o OtZad0JZf6hWOi4qbSbixsX8A3XyTWWCPW31g7yiQ8r2IT6/LAPVJeDmJUbR UxP7+UWrK3gVWenrpFIpFnWmp3kTn7lDIh4TCEswWAoKxcBkVtJy61j4RgoR +AazYDASCi0ikghQKDj9UiB4DDIHEtfGou1tEF0eqDrXUrq5hNiVg9jAJR+q F/QXUWQ4dH5aKiQ8FJeSTIYk6zUaIGKYmp7+9cu/fd5Zd0jGPVBbca6r6fyK biEOHeftJiJgyzDQVeXMM2u7dymr1lcJ1koFgtSkFlJ2Eylbgc9oyyf08Jj4 uIBKEq4+n1qcDifHxRQh4JSEWAmVnI9ERTm7pEXFZsUmY0JDPpLwWqiorhJK ESIZGh4UEugfFxWLSktJiQ3CQxIBkTCwFCYey0Snp4RHRAcHB/l6J4T6F2bA ujnkJjqugZw+VEysxyMrMtLo0UGshDCkp1t+fHx2fHxCcGCCvx9gJQMYCgGO ueHBl1e2VXAu9TTubqzrLeHJSZRkX+9oLydqSlQ9NUuMg3CRcXRImACTWoHP KM/GFCOTM4O8+Bi4EI9MC/dODHWHRwRiY2MYqPT4Ze6CHHwhEinMy/O2s4VH Rob6+KdFJsIC/UbFzA4aqjYHyoaEZiWEhgV7h4QGOznaOdhaBC3z8HJ2Webq 5OvhFB3kGeDpZW9j4+bkGOblTkiK4KZF4+KBv4TRkqOLMag8GDzcxYkKiakn YSuw6RmhfhGezrF+PmxMFuD9A/EN8J4mHv+8TS7YK+M30KmpQWF+dq4+jg6Y lOgSfDoPBROkpwhRqSVpyZJcnIyYA+zRpTlYVhqMCUvm47F5aUlYSHSsv09M oH9KZISXnS0Zk5EaGRHg6hIV4ItMiIkJDYz1D4zx8egpY7eRMhux8OVkvAAD R8aEuVnb2Cw1Webk6GTjYGFi4ejkZGtvaWdv7ubqYmNj5+jgFOTlSUhLKURD ETHB4R52VFgMHZka5eUZ7uGWkxTJQ0OYKVGocO9wXycfV3s/J2dAI73GMA3G WNqP+xpaMqGlGdAgNwd/D5/wiLBAP49l9ja+1nbJvn7pEeGhLk72iz+M8HW1 WfKep7uDn7NDgq+Pv7OjtckiJ0tTNztrZ3tbe2sLk6WLFi38cOH8923srO1s rHxd7F0drbydXDxc3YLcnb2sLSJcHIkJsTEebt6AxDZOpotNLM2X2tnam5tZ L1qwdNHCRQsXLPhw/odm5laLFpku+HBRgIdHiIebs5Ots71VgIutO2CDhUst TExtzU2BEfztraL93YICXB0dLFzt7cB1Qa+f0YCL+J1L50QZaEYmcvH8eQCZ mJqam5t5e3l7L/OODo8oKeIMrVohFgNrai5fxC3mF/NKeSwGg0bL7+vvvfrV l7m5OfHx8VBoSnJycgo0JQWWEhAcaGNn6+PlEeDvg0Qgff0C5r2h997W5n34 r67+RF5evl4eHh++/978hQtBgUxN5s9fOO+9BcCt9z8AFF+4cP58ezsrB0fb pSaLrS0tZwz6GSDsBeK9GZV2SlUvlsZERWOzsoqLi3fu3Pndre9+/RUIKR9N z8wY/hOkVgNh9uuAFQhSfvv1twcPHjx+/BjY7oDo++7du5cuXbpw/vxnn332 NyNduXIFKC9cuLB58xaRSASFQlFoVB4pj0AgREVFu4HkamFh8cEHHzg4Otra 2gIVMzMzQJfFixd7e3svXbLkzxbQ6Y1pDjD9oNWrwfSCZlb1RyHBQN8o3uzs 7MzMDFCoVCqgDggPVIDfXAVMa4DqgIOpjQTU/1Ugrvu3ofk/J+ARL168ePr0 KWiECxeePHkCGOfy5cvnz5//9NNPr169OjExcePGjePHj2/fvn18fHzz5s3r 169vaGgwgFkDHZgX0YFJDEBQQDag8lYqMMLVauca52iuPtc+l6D4Y/tc5W19 bpC37SqjBdTGp8wZYY7m2v/YAtA/V3nO1H/R/iZtMpcIUoMZnv8t9Gf7zKn8 tuXPNgHvvlFE/SZZ93+dVIZ/qKP9v6/OO3pH7+gd/b+ltyjM//Qf/9RfC8JD Rgac1bltdlajn5nWzcxqwe1eY8RMdAYQzjF6TDq9ETNSGUA3Q6MDVn7AnwMd eKDTa6ziDWgBlsYstNa4NejBjMY/LrWvYQ5wNMMbMXRaY95DN4dYGSGouW6v QaG3t/RG4Oet8P/gOY1AxAZww4AIXTOrV8/oDbNvnQrg5jSII00ZeQYEk4yY 16xhSqeb0uhmNAYNCJ7NSQaCPwCrgV3uNWtVOv2sVq/SgiDPrAFk1VsGWoyN aqMmIBuNBLJhbiigG/BHwJ4GFQhaGa2k1xnF1s29BfXrbnOP06uNeoHCGF4P ojaoZp79+P2D2zeePrw38einmVcv5tyltyiQ2qjwjEGlArxXwBMEQQA9IIjR B5lVAb4b4M1p1YDvq9aoQIDOoJ/WaV7qNLPG12h0Co0ujdbo2xh1AISe1QLz w+jTAi8W9JqNGBsIi4EVLagVIBwwGqgDCJyBCQVwCDC0080NC/TUGjP5IBAI Wn12+tmdH67v36UsIDLhMd1C1pCEN1In2r+679bpE0+/vfH09nfP7/2gmXih fTk5NTEx+3JKPTU9O/FS9XzSMKt5rTcI/mk0gK6vpsGJp1LPTEzO3ZmenZ55 NmEA/K+ZGfXsrLENUACYF7OzU2BnYMAnD36efTZpmNHMWRB4DjAF9MDEmZjR zs5OTz6bevH77MvnOtUUyLMzwN1Xz15qXqn1MzrNKxWI/GlAXEKtmQbe/vRv j7/79Oy5kcEKeAwtyose6jpUSNhcxanDJhysKj63vGYFDbtdVnJsee3WasHu tqYD/V2fDPYc7V2+taHq7OrBLzatu7Z3+4EVnac2jhwZG9jeXHt2dPD06v4j vcozqwdGG8pPjq84N9z7990bPt+x9v6FT+5fPHJuy+il7Wu+Obx9q7LqxHDX /SO7T/a3H+1ovDg2eGzDyEpFxUqZaF//8subx9dUlm1taTww0DMirdjS2nRw oHeLsnljY93Hfb0bauWnx0Y+7u9bX13VVVRo0ADf/azWAMREqie3v/3t6ld3 Dh9soxHbmcRWAmpXRcnHtWWDNMzRRt4hedHawux1nNxheqYSkzxAy+uk563j c3ZW8MbLmCfaq3aLOWOFFD40fH9PbVsBbnUJrTsXtUdRclZZeaK1vAoX+0m3 ZLe4oJuQurY07/Kq5iMt4vN9ivP9tT8fWndtvONke/nNdV2vPtn0VU/tyRre Fn7BtrLCAQp2s4h9rL1mpITSTsYqcGmKrLR2anYtLq0en97Hoiwn5a4sLDja 3rKjWjJQkM9PiAa+Mc3LVy8eP3r8871vrlyYvnf38tYNCC9Hako0HwHpIGSt ZlF7KVklyWEFMX7AINyk8AZcehedKMbAqogZI6LiNQL2Cg7l6voVmyWCngLq eomwNT+nGovoL8w/2KY4qJTtkYnu7lizr1G0VswqiwsYycdsEeQPUlAraZjV bPwuMfOTprIHh9b/9PH6h7uGv+qvv9Ip/0Qh7CPjR3ms0WLG2aGuRjJ2W414 a01ZLQ7axcweKmO2sYnynLRhXoEUAR3g0If4HGU+YbCIJUWlA5P51U+Pnly/ 8ePXXz28de3Ft1+fGe4rgITAg9zosLjChCh+UlQfg1icEFmDQ7VTCdmBHq3U 3EoMvJaccWqo40CbfEzA7OeQR8SFtTnoahR8p1S8kkxYW0jbXSP6dFX7/ra6 0tjYi4Md59vr9yukDTjYDiHjcA3vIy7paJP4aEPZ/krOwarSbzasvLllcH91 0ZYi4j4Zd62IWUvJ7i7jbG2s3jPYVp2fvamybL2INy4uGhXQilIixmslo4LC sz3NfTTCGhFnX0fdaCVvZ5NiTFgKTLmn9+4++/bGyzs3n9++dnXbhjMdrf0s ChueQIgLY0CihVkwMTq5CpaszMlihwcxYoKrc9CdRbQBJvWAQjrEJHWTMZtk nJFyKg8aKktL2C4pXV+SP86lnlkuP79SuVVRWY2ArSrKP1hXuZ7HWsEmnm2r 3iZk9FHQ60spW8uYG7mUL/vb9kkEB6sFxxsq9ktL1nJpF8f6NjVKtrXVrKss 3dJSJSOgtleLuZCYykxIdRZkgM/YUl+1r052ZUXHLrn4cEfDhbWrdrbWHmhv 3t1Uq9XN/Hb39uOrVya/+fL4UOdwIXWvpKyLmpcZ7IONCGKnJVXlZ1dmIyQw SGFESCUcUoVB1BEyZbh0XmpiGyVnRQFxkILZVcE6rRSvKiXTE0KbKFmyzJTG XMQOuaAaA5FnI3crZFJ0Shcdv6daVJYcsY5LWcXArRXkbyhnSeERK2nYITph NZvWkJawlc/cJmQPF5AuDfWNSbkHl9cB82p/R60kE3ppuKeNjG/ITS9HRG1r kq6WirbLy08AM4RH39VQNVbO7yykrynnb5CVAdvQ7/fvAho9+PToSi59m5jz UWkhLSoYGxmEj4/OT4rlwBNLEImAFryUuHZ6XieDtILLqsvB0CGRvHRIL5M0 wsrbXErfIaI345G5wX7oZU6iNIgCg9gmLj3cVNvNomyvKhMiEqlRvkebZA1Y qCgptD4DsqdevF3Br0LFdxJRw0XUClhcIxIyXkjaJmCuouBPKBt4qdGbKrnA mEc7G4A14bPh7iEOfU1pQTM+9Zu9G6vysLuV8o2VnK78zOM9ynpCznIWY0xc ukVeAexbEz/98uK7m98dOTAuE3SSM2TwJAUxGxcTnuzjkZ8UlxsVRE+OKkND G6l4DixWhEymxYcCFVJSeD4kkhji08fObyPh2sm4bC8XPixRlJ6spOIP1MuO KaSjNEpxUnQfg8BOiSRE+hyqFTbj09pI6LUC+soSsiQjoacA35ydqsxDDXFI 44XE1QzsCAs3RM/eKePV5qVtryhuyUo91VX/kZC5tpRejYIe72zYUMHepaxR kHArS5mDLPzHrZIdddJRsVhJo3cxqdtrxcCy/fzeLy+//+HGwd076yWd+dja jFRJBiLS0RoW7B/r5py4zB4X7iOAJdSTs5EBbuIcFCrCCxnqgU0KgQW6Z4V4 V2LS63KxtblZldnprLRoKiRYQkqryoGuZOY0oJL5KTErC0k1BAwm2H2nhLNT VlqZltDLyKnDpxICHLuZ+E4KtouceUAu/FhSsoNLqkkLb6eidjdJmijow7WV q1h5HzdKeyhZn7TWdDLytjZULmfhe7n0tnxiHSr1lFJ+qqd+mMse5HJHKyq6 ixh9xSS11vDy3pPr+w8cbKv5vK9htDBvJZvYySRCfNw9bK3cLE3RUf5l2FQl LY8UH+lhuTg5wj/Ozzk7KTQp2CvaxYERHw18sCt4dB4iChPphY4OLMEhIL5O UD/HenKWMhetzIV9JC461NrATUv4tLdha0lOeWrMvsaqtTzKSCmpnY6pz4L1 UvEKDLQ1E3q0nDdAzBwSc8oxaVIkfKNIUI6EdTCpYjR8JYtRCYU0MojExNDG AmI7Ed9PIIyyWO15uf30vEZilhCHllKysaHugNc08+DJsbHRQx3yC13yDXxG Aykj3X+Zn5WFg6mpk5lpjK+biJTFhCYl+Xi6WVs4WJr4udhEezuHeLom+Hpn h4fR4qJQvq6U5NAIDzsvR1tYRHCEq0O4vSUTnpLp79GWj5Oi4dvl1QVJkeNC +sZCLB8eVgqLWsOlydEQeRZMgkgY4uU3k5FjfNrKQuIAC79FwStMCqzPzSqM iqjITFcWULKDfPY1148L+fVkPD4+pACRWJWDWSkoLoiPESMRwH7UzqTUFdBE 2ZgmBkGvVf/+w93pH74/1Nu8kpa5ScwkJ0davP9egKOTg4mlvYmFj6sLJDw4 ztszzMvTwdrayc7Oy93Z08nW0drS094+wN4eERyUGuSXEuIDDQ0M91oW4O0a G+SNDg+REHMJkaHV5Bykx7IOBiMnwm9MwNgjYSmy4utz06oy4TV49EZF+bCQ raRltuShgO+ClhaNDXPb1y4RYiI/qhayY4KbyNieImoHM6+XReImxmECfeFh vsioQFxsGCU1IcHbjYNOq6cThBhEXlxskrNTWwEFcO8Bn+H3H76/dfzgcjJW hk1OCPJwtDL3dXVzNLMxX2hqYWJuumSJjampm6Ozl6evrY2DtaWl2dKFposX Bnp5RwUEBLi6wGOjIwJ8UsOCUdGhnk7mcQHu+OiQdjaNFhdZjEGS4uOqc3IT 3Oyxfq7lqdGrWLlDxfntRVTIMsesEK9SRAwbGgZzsuLAIMlBPrlxke0FZGEm ZE+7jAcL7y8mCWARq8UsdkIg1NM52NnOx8kqMdA72tURMGNSoC8yOhzm606M j07y9GbAUptoFMBBBQK72RmV9tnv+9qb6ckxduZLliyc72htbWVi+sG89+bP +3Dh/AULF3ywdPESezsnk8VmJkuWWFuZudrZONlYero6+ixzdbC2WLrgQ18X +1B3By8rU3p6Cg+DkFPwqcucMBHB1KSEWhIpPSwQ7u/Nx6BKkKmoYC9MlB8T FtNIRFchYhsJKEF6Cj02EhPolxURFu7kSElPJUPCUv0dhVgYNS4YmEuZEd4R Xs4utpZBPu4pocHx7svyklOSQ0IiPD1QEUHY2Kh4Hz9cbDwmOBDw5afVQPxi 0EzNbF/eiY4ItrcwAV7B0kUfmixZaGGydMl7880XL7F1sLSyNAcBDuMx8fkf zPNytnO2sTBfusDSfMlco425qbOVpaetTUJwYEp4MD4mWkEm58ZHFkAhGF/f YGfHRP+AaHcf16Vm3lZmDHhCDQ42UIATp0fU5MKb6NguDmENl10IS44OCfJ2 W+ZsbhobHhjj6+22dEmArY27g7WDlZmd6VJPJ/uspKRU/6Ao92Ux/v5JQcHE lKS8VFh8QHC4u2dGZLhOZzzkqAXCJ83TR49GBvv9fL1tbKysrS1tbW0cHRzs rW1cnJyWmix+//33ggKCqGQKLT8/DQ5zcrALCQpwc3U2MVliZma6cOECm6Vm LmZWlh8snG8EhIIdXUnQtCBnu1AXB+fFC/yc7F0tzYFbFgs/cDJf5O9o6WO2 ONbJOj3YExXileBqRU2JLEQkpgR7xof7ervYRQb7hwb4uNpaRfr7xocFW5ou 8XRy8LSztV68KNjNLdrHJ9RjWZC7e4inj7OZhZeDk6eDMxGTRcXi3uYbwEOR xmz/zz//fP/+/QcPHwKVX375Bfg9evz49OnTe/bsefbs2dtoHWj+/enTx48f X7t27fr16198+eXNr2/8eOv744cOb/9o064t21b1DnAYDAaZiEWm4dDpWUg4 OjUZh4TDYQn+vm4WS+cDczrCc1mSn1+0m4u32RIvCxOTefMcLRebLZo3/715 S+bPW/jevMUfzjNfMn/pgvdtzJd4ONovem8eYBMna0t3Bztn4HtessRs0VLz xSZmi5faWVi5OThZLjX7Y1ZlLtX/zzEOlZHAA5P/BQKiUDBdAGZYDEC0rXr4 0/1Pz57aPL7+6IH9Jw99vHFkdM1A/+qBgRXdXQJeCS2fjM/OzMvJIuXgstAI FByaDktGpkLDQ4ID/fzCQ0Mc7e2tLMztbGyc7O1dHByXObk4WNvYWlgCpYOV zT9yQn8FbbyFfv4NnPS251u843XdyCBk9gb7AFYdQAWAwUN84OxWq/W6vwZ+ /pqM0bleC+wyE5MTLyYmXk29unvv3nff3753/8eHAP14//7de7dv3vrhu9vf 3bz54527//V82r+fOJvLPf2BjcmwtyeNXzOYENPpwPPDGpBBI6i1r/lNzsWY /NKAh5BfQ0AgA8qB6v1H5vjv1eg/xbo5nd68MoPaCFoZ3iTf9GBe8DWOZTw0 rn3Dmjf6qcFD4HPlW0Ts7Zz5b9To31PT8Ifs4ZxGeqNGxiV2jrV/NMjc+/2L oeYSlXMZTuNRbP3bo+f6d9DXO3pH7+j/L/oXdNIOYw== "], {{0, 70.}, {70., 0}}, {0, 255}, ColorFunction -> RGBColor, ImageResolution -> {72, 72}], BoxForm`ImageTag[ "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> <| "Exif" -> <| "Orientation" -> <| "CameraTopOrientation" -> Top, "Mirrored" -> False|>, "XResolution" -> 72, "YResolution" -> 72, "ResolutionUnit" -> "inch", "Software" -> "Adobe Photoshop CS4 Macintosh", "DateTime" -> DateObject[{2011, 4, 1, 13, 34, 21.}, "Instant", "Gregorian", -5.], "ColorSpace" -> "Uncalibrated", "PixelXDimension" -> 176, "PixelYDimension" -> 176|>, "XMP" -> <| "DublinCoreSchema" -> <|"Format" -> "image/jpeg"|>, "PhotoshopSchema" -> <|"ColorMode" -> 3|>, "BasicSchema" -> <| "CreateDate" -> DateObject[{2011, 4, 1, 12, 43, 44.}, "Instant", "Gregorian", -5.], "CreatorTool" -> "Adobe Photoshop CS4 Macintosh", "MetadataDate" -> DateObject[{2011, 4, 1, 13, 34, 21.}, "Instant", "Gregorian", -5.], "ModifyDate" -> DateObject[{2011, 4, 1, 13, 34, 21.}, "Instant", "Gregorian", -5.]|>, "MediaManagementSchema" -> <| "DocumentID" -> "xmp.did:4842468A8C22681192B0E8FF9C0FC98E", "History" -> <| "History[1]" -> <| "Action" -> "created", "InstanceID" -> "xmp.iid:4842468A8C22681192B0E8FF9C0FC98E", "When" -> DateObject[{2011, 4, 1, 13, 34, 21}, "Instant", "Gregorian", -5.], "SoftwareAgent" -> "Adobe Photoshop CS4 Macintosh"|>|>, "InstanceID" -> "xmp.iid:4842468A8C22681192B0E8FF9C0FC98E", "OriginalDocumentID" -> "xmp.did:4842468A8C22681192B0E8FF9C0FC98E"|>, "RightsManagementSchema" -> <| "History" -> <| "History[1]" -> <| "Action" -> "created", "InstanceID" -> "xmp.iid:4842468A8C22681192B0E8FF9C0FC98E", "When" -> DateObject[{2011, 4, 1, 13, 34, 21}, "Instant", "Gregorian", -5.], "SoftwareAgent" -> "Adobe Photoshop CS4 Macintosh"|>|>|>, "PagedTextSchema" -> <| "History" -> <| "History[1]" -> <| "Action" -> "created", "InstanceID" -> "xmp.iid:4842468A8C22681192B0E8FF9C0FC98E", "When" -> DateObject[{2011, 4, 1, 13, 34, 21}, "Instant", "Gregorian", -5.], "SoftwareAgent" -> "Adobe Photoshop CS4 Macintosh"|>|>|>|>|>], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {70., 70.}, PlotRange -> {{0, 70.}, {0, 70.}}]}, "RowDefault"]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, Key["Image"]}, "Item", False], "Mouse"], ImageSize -> {{56, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}]}, { Item[ Pane[ Annotation["Cave Painting", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, Key["Title"]}, "Item", False], "Mouse"], ImageSize -> {{235.20000000000002`, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation["Representing events by pictures", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, Key["Tagline"]}, "Item", False], "Mouse"], ImageSize -> {{526.4000000000001, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["\"-15000\""], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, Key["Date"]}, "Item", False], "Mouse"], ImageSize -> {{75, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ Style["\[LongDash]", GrayLevel[0.75]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, Key["Region"]}, "Item", False], "Mouse"], ImageSize -> {{60, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ "The Lascaux cave paintings record the first known \ narrative stories.", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, Key["Description"]}, "Item", False], "Mouse"], ImageSize -> {{560., Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes[ TemplateBox[{"\" \"", GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJwtt2dQI1u6rnliJm7MREzcOGZum727e5vyFBTeyXtvkAMkIYyEvEHCCS8Q ThjhPQiPkJBAFiGEBAKB8B6qKLdr197d55zuY2bO/Jufw42YiMwVKzNXZK71 fV++63l/FKgZ4v/l7/7u78r/98eGwa9ClJXxa5j/8HiRXVIuk5SIhISSCpFE VJYp+F8fb2L///N/9ielueYm+Wij2DalW5vTT3TIxpul47V883DlwnyzqVE5 IWOOKAmWBt58p2ZiqKJXTtpUUbZKsXYR6KKd+9CbE1KDl5ip+xqqXYBY4ON8 MvS2DDTLTR8rRJp4wHUZbpIHbWMlusqwe1rijp71dbHkrZEd1hNvxopXdLS2 EuxwJW2oBN+vRFzPyoINCEcpZFoIHWOjGpFxA9ngUQ5imAmdzsGMZ4Pni7A9 uDi3DOVTgl3FqafVjHlOmrcm21SI2G+g+bUgSyVyIStjkJpk4GT2lTMG6gX2 4da5cYOjv3FSSl/qkIyUs8bzEXP5YJMqa2m+f9rWvzhSbW8Qm1WMAS5sRYZ9 28250VMtuUk2IXRZDBtnA+Z5mXulqOM6+iQXuFAEP2lgz/HBZg32zMjbrcKF W5iXg+yrbnq4nXLYXziuRE805Bvl1DENNdzPDzXCb3vIgVr8nAzrrKD2MRK7 yIlDDNAoCzJEzRikAAZJ6dO5qUd68mkzMaIlrAqwLYTUckzCjIKx08xYVqa3 sZKOipEnSsyeBrNUDGzLTh2ryB+vUxvyGQNCYpcEu1CWPS/GL2lIy52aVcdS s6FyfXN+drLd2iIfVbM6sxNXRIDjJvqJnr5aipoWAlxq4mIRwCcGRMtxLjFy jBq3LoHapKCLwaKzzuygFrXdwnCWI6ItzLNxka2aZG1g9igw5YQ3PQXg3XZ6 tBF02YZ0KqHDbICtlOQoJbk1RK8ab5chTHkpZh54ghq3XYk9acHdGbMDKvIg GVhDSCjBxCpgTydlmbuD+d0C1KES8y/t3J/q8R8bcIfVGKcKNpkD78ADWgpR E+3y+Vb1VE1hfxVrbLhu1mOemu7qMZT1t5R05gIac2D9fLwOl9qbjZnhwsZy oQti3L6OFipDRKsJGxKwTwRyF2V4RaBPo4LdBkykAW+Vpjm0aIsSalMgtwdE C1XUURV6Wpu1oCKtaLA7jbjjFmS4BhrSYufzM4yUmF0911eJ85XDf5oSh2ow 0Rp8QAaKVOIitdhAOWJVCJtiQzz1eXOlWaLMJ4Y8pD4f2CTA+wtTrirRN1rY RVnmZSnwRAlw5APMTOAkC9RQiHavDjqmW/pKmc1NosWQZ2Kqr69a2FvG6RZi 5Jg3QyKSCpWmQYOsUuJSIW4sOzNUAjrWwiNa7H41ISDN+GDgHmqzbrtYN+2U dSVgUQJYrcCt1xLPh8WeXv6whmQUIOqIb5bk2J0WykV3VrgWtlWF2q7DH+hI O7V4XxVut4V1NyL6MFq8XQHbU0MOlGifALKpgFmL463ShH1DkaWMq8tKL0FB mfFvcoCJ5LS4D424t7WYA1lmqChtT4pw5aaaWUmOvLQjNcHMgxjzkAYhfrFD puSTevs7VWr58vKokk/MB78opyOMRZgKMqCaDgnrs+wSpKUA9EFPDsnSbUWJ 13rybTN+XfI/4xMuh13UobfLkcsl6AU5alYE3NCzZ5pyx6qy+0TYHjZwVgy9 GOcdNsI/92dfdLKCTcSdJuKmEr1ZTb6YEL1flN8Pcg/KwffV2FBBmpOTul+J D9cjb4dzT0ZLKuhQNTVNjAdKaAgONp0Bh3w2ZH1sJdxUI45ViG0heFsMCith 3ryEbQn2QII8kEHnC2CW0uwWNlwvzMpnwjsMFU1lhXJcRhEoZYyH6KbFbzex fx0RXjTl+CSAn7oZbx+FojDjXQszWonfUMH8GvhWGeKqnvihRzjJy5yQUceE 6AkhokvF1ItJpkrW5ajkpJd/YMg6bUNctOJDWmSgGrtRQZxnpwbUyPPunLsR 3nEL7kCHjVSjDxtJ932FP4/JP8yp72c1fTkpfQW4HjGzupDCo2QwsKk4QFpA kHlZg/3UTruuI+7KAFc1iPMa9KUaclJGOC3Hn1ei/HLiWm7mfgV9vV1Ihz3P p6GY8AwWILYV9/qhq+DfJwovq6Bvm7LftWZ/7KJ/6sk+rYA7RTC/KHNT+qh4 uKM6qEuNCFWQ7GKUS4mZlBC6coBjRWB1Vmo1DzSmxh+0MS76ioPVsMMW8LEe H67CLuYnzbBT3VLQfTfnakh6NV0ZHZVsDorPlhq+2ttO2gtPuvgfXa0L5TR3 fVEtE8JDpvFZ+NwsOB0PocKh3uxUf17atgi4LQWfaPH75eCIBvaznvDFQDms xR3UkOezE0MStJUH7RYSgbHfFRAxhJgfWnIQN91FFhlmr5ISEqXfNNNudASv OGGrDB5WIw5qSMcVqE1hxscW7Jd28iAzfkmGW1PhPErQogIebBW46tlK4ptp XcF6t2hZlrlWgr4wsnfrAKEy0G4l1qOCbWrJn8aLDztYbj37YLb+btVwbm15 8JiOh/Q6bJy/XbSqK1Ki4rTFlOSk7588/2NiemImMBmQ9BqTmnhXw4oqMadl +H0l/FyLP6lE76tgxyXQwyrMojAxVAtfL4Gsy9EOIbiRnMlKfFXPIlfgMjs4 6G5OuhT0UpUZ7ynP/dCbfVWP31Qjd2qobhkyUks+17O2S1F/neDvVpB06Bhf NfOolXlpzB2UoftFyDYehJryfUU+SYyOXatnTQugG5XUUAV4vwJ5XEc8M9Bv RkW3C2Vf7PU/LdfejiiP2nj7OvZUMWpRSOnJQUw2ycp5ZETCs6c//OZ3v//H 3/7h2999/8OTJ8+w4EwKMCVYRz9s5vlLsEEV/LgC866Rcd/EuNGzrzuEfZw3 dxO8cDOjlwvxaNBmPt6ATp7JR88KCU2EFKcC+XmguAzySpn54tzAe6z8j8OS T/1FA1mvHCpcOyOtIw+0WEbvZSNbs6FHPcJfF8t2uguxiX/Q5sAqcmFZ8DgC JI6c9mNLPrqFkLhexjxqIEU0CK8odbcBdTUmvLb2fl2f8NVkR+oZ5235O5WU hzGFr4LezcaA439MTn4NSEv68Tf/kIOGU5CoFz+8ePL774Fxr7IRKVtLhp05 Q2S87nRActRIOq3CXHewv0yX/r/ergkJYaAAEGgR8qBpTbTMUDk9ooTvlUA2 hBn7StxdJeqvrahlBcaYlbBWmluR+U1QDfNosP0FEGt5HuXNn/QKGivt2aCU K8NlNnHAWmZKMx9LAia0iygiUkouJoEAiuEi4zkZz/pzwHYV5qyJHFZANyXA LS36bkJ1P9f0i3v4bEDpLMWN5mdYJJCNurxaBhT7+gcaMCP56ZPEF0+zoZlN glwpkwJJSPs//9vfJ//4Rw4mYd1vcS6OHq6OH83W2WtIhx28yyHZQVf+eQ/3 1t4jQKXWZKEL0mI3KqifDPRf2vAXVfCwFHAkh76twe6qoPW4Zw8jIiMLOJ0H PKgmGxhpzdngIQEV+uQ3WnEW6vUfBiVUMSGtXcHCxP0PZRaInP5ysIQqQL3m EdJp6Axs7B8aGEATH3rUwf7QwzzV4nY1pLn8DKsc5SqB7enZP5kqN7S0qULQ Vh27hIYEPPu2MQdfmgVPffkNIyOxKZuqIoK40EQOMp2HBKGefVtCzgge77oW xk+cE4HBigEVKTJdH+ktORpWL9bQW1R0NCSDnPgyUp/70IS5rUN9aqVeaOHv 6/EX6swvBup4XkYr4flJV2ED/s18MWROhJ2UMMqBP0xw0wbzQQMSvArx9GyA /9HdVp2d2VkA2erT5sNfTWizq+hgMQOGB8ZLMSnOxkKbhvjLuOCyER3WwB0i jFuKfNT8s0G5t5TiLmNPi0nDfEw5FR7/w3eFJNBURXZpbgYLGdPEwUxJmXoW RgBOFONiFxqKdBRoPQpgPzr3hQJB5+RKk+B0XmfplMzpJVFrX9Q5TkaBY17G Et48PTMIfjZkPx6f22i3NajLCuh9PeqjMXu/JTtYQfSW4IoT/2mnJXeClzmS h7DLcH+ZkP/nQunfFh4Zm/PrKM/fRCtM/e1ide6Ygl6TC2ouBPRLKK35eD0L vVLO0mW/sdYwroy5Nz0crxr9+K2fBvgHNdCDoSJvHXVKhhtTUfpkBELKMxYG hEh/nfT6h4xX3xbjknUcRBM9eUyIr6RguLB0wPf/qMGkDeUgvEcnM25H8DBQ mkeeadd+/HRy+/FDILRdppGo1Iq42IT077/rpkPe6tk/P5ZiBeLPncz7evRd A+qnbuK/Txf+dSj/toZ41pZz08Oc4qZNFeFMXNCtkf/zuDKqp90Z8/7DJDxq y95syrdocKMCxGRJ1nwFpa8QPpiPsIlJOzWUCRWslPD8qE/wdb78ooNz28U5 eQSGcuCqGu6Ww5fF6GkZZkgILWdB2Qw0DZ3JQWfUFWVlA19UFuCNAoJFzSrF ZlYxUPps8FgecKOE4A8HPKcn3tvbGdM0m0HjqRU5MmU6BAgBJce/fpFHwjZm Y3uzMkz05KPKrMMS8GUZ+IMOd1uDeNsEu2hEfTIw/9bDi5RD/OVQU0HGohQ3 SE9cEgC9CqxDAvcqcO96i38eLzlp5l52stzl+BEBbEmFnhJjhvIyHUL4dXuO sxK3IEe6KrBjRZD+PKCzknxu5Bx35qwo0E4JarkYtazCRHqKukXo0XbNQrtq vkEgQKfjUuPLCohGCV1BBMjpgNESpln4uMXgBigAiVwwsebc/vD56vQ8uGZr MLSoq1UB75xWUSDPYw+qi7eqch7fPJ6HfDDKHxqzPlQj/9qW9bEOf60jBEsR oRJUWI32yOAONcGpInoeWxFqXYGw8R7pC7NbigmoCT4p4qiKftGWtVlLnRKh HmF1XIQcKUiLNjCDGrxXCgtrSXNCqBKRIsZBRJgkg5Aw11C00Su6NZXbq5hL laSd/qLxalZ9EXa1v7yjnItNfUPMBDQIspqlNDYJ3qItsDTJ2lGxc3kELQyS mvhC19Z8+f6db35yf23u088ff/qPf/v8822lMh+V/Kpfyp7gwj2VvAkxdaEQ dlNH/Wsb/S+NxL+1MW5qiWeV+NNKzM5jeUjRPjnWp8J7SoleJXGzlOCTwG+a svdUyONy/M894oCStKvL8tTQx4uRVi3WyAOuaHB7NbQFdqZfBDsoQ22W4ZeL 0atK0l6XqE9Oz3j1RwjwWWkRSV/CJwFfF5Ayk18/h6UlKIpZTZVSKjjBoBGp cki4zLh8ClzNIYgyY5dF1I1qThUqAQnLqNOWHZ+dX2171yca3euO0MOXWZu5 VJXPgMS3cQi1ZNiwnB3pUTWg36wrCOf1WfvlyPc6/F87c85KoAclsB0Vck9D OFBjHjcpLx/ul6N9QuCOBHxdTz6tRN1UkSO1Oee9svsh/n4Lw6ImTCsw/TyI qRgzkQscZyQ7RJBIFSHagH+Ec2cx5EDHuujhL2lobMSbAmRmPYfRXECv5hAk WRhEahI4PQWYlhj77Hs6BsFAoggQQOqbHwAxT2u4tOhUaxufyALEz7WUTjQq l019O9aB8TLK4YZ1+/Q4FAnkcegZ8TFaDm1IIdga0P+61u2vy99pkdol6KMq 7JEWflWJutLijivxe2p0WAE7VsMvyonnNYxPPfxf+wUPDdR3zVmfulhXlfgF XoZFgd6oxITqKbZKuklFHBehxwvgZiFmMT8jVIYOl+P3qsguKWyClj5KTfJp CD4NJdjItpcxJviYPg6ojwMb5ZE7OZQqOpYS/ywLlJLy8snzP/0h5tmPwMTX uDfPmkRsbNrLmD/8PSbp5dpUf3RjZXfHszLbYemSbC7370RDTe1NySlJICBQ mkMO9tZGu9Qn7QW79VkH3cp+Wsp1I/1tO+2sGnegQe2r0Qdq5HUV7liZeVYK +drL+a+lks893Ac9/bSO+Kkv/7wcdaJn7+o5+825rkrynIY2pSJOiOArasJ6 KT6ght/qySe1BL8SGtSgF9kAv5q4W0exFwMPS4muQogpN2OqADHGRa8IOYEa 8Xg+rpkM0jFwhWgwCfJIpi/+9Jt/Qmek0lFAeOITJiSpAAZ0BreWVi0my9LE wrjDPtrWqSXn4P/xf/wfvGx60GWhAl6MSClrMoxLjlhU4Wc1tGYmuJcNueop umikHGlxOzLwQyPj/x4V/qWT9h9D3C9G5se+7I/G3H8dFh7VkDZV4K8Dhbdd hRsVZIcKay+jTCkoCxrSvAxuUyGsxckHVehrHf7xP/LLQUE1fI6VtF9LO9KT NzSoVTF2Q0618FCLxSQDJcNUQPRWFa6UsPX4zBo8TEPBE1KT4p8/iXkZ883v //j8u2+I6S/VJEgFFnKy51wYaalVC3FYKJ2BxVCgBXmEPkOVbW54ZbyjVsLG xH47rc62VRcpWTgRFV5RwJQQoa5azl07/VZHOlTBfzVwPjfT/zbC++fe3BMt 4qYt60xHumlm7lURtmsJQS1uXYNxyNGrCpxVRZyS4lyVWU412i7JuOnM8SsA x1W4iJrgKgSv5QPteagNOX5DAb3ul/zr8bxPx3GIMePZqatqsk9LncmDjuYg u5nIEjSAkZ6Y/uLpj3/67tX3T0nJb/ApceCkOFzCk8FCvLO+ONRderbc7zT1 zXY1f9j3biz0R6ObcrX4+2//iYiAFOfSyCk/ijGZhIyU3k4DCRS/1sj/MlF+ 04T92EI8VoAe6qj/OS75y1jRf03J/9xdcKbLilYTo1XEnSr8li5ru5W7rqUG Kuk2KXZWALeVUjYrSJtqlK8EfNxIfZz8ugwVkJH8ItSGCOnl40JqokeS9m5Y 9s7RGahmhmR4Mxe028C96yn2K9HzBaChAqSGmCHAI9BJacC4OFTCUyUeqqQS wHGvSSmvK0iZM3pt1Ny/UC3Zss9GN+32KoG7WSksYv4QF/PsxbOXL1+CYZkw QAyPmNlbr8IC4lpk5Ntx8Ydu5sfOrH8eKryqIZ6rUYcyyIEK8++Tmoe2HL8S FizH7dZSD1pZkVZmtIl1ZOBs1lJO2vPP2guCldRgKSGseZRH0JWedFCJvqgl RcsQ0QrEfjnO+SiVJfjDpqztOso4D2rlwbblFKeCZCqELQvQHhHospW9Ws3N zYjNA6QrqDR8RhINFCMmQAvAaTxQGicjUYQEe2xzbtf88lSvbbbPMt223qWc VDCKmWgECoTGIDOhIAQFR3gkQDV3pKnE1lcdnW/cbs953828as56DPJJA/Gw An6ghm0rsJEyzKMGXjbRDuuoew3Ux31/X/f4FLVdj3No4WEd+bqNvfeYICXq UVXe67EPrcRP3czPbcTrOtBBLfSokb5TmxOsZ0c78jfrKbMCyFwBaKs+Z6dT MCPHLUrJC2LMmorMT/6jEJlmyMZX0RCGKhkbA6Cnx/IAicXQTD4MQIp94eip NXU1bG27nNP98x2l7tFq86BuwzqhKqBTsrAvE2NTwJkpmSnpcc9h8a85aMhg tcTdLt/WF27WMn0a2GEN5MFA/NTFvGukXdXh3reSvnSzDyofzQ41Uoc5rMfd tWUH6/DOSoS/Ehutp2+qMXsa1Lsm0m0D8rYZ9+sI7+sA96ORcW4g/zyv+rhY 6W/OXimFr2kQgUqqs4y0WErxtklnNbl6WmpR5g9dPNxIMbGfC7JKiG2PhCDK ayuR0DNS2MAMVmpCLiCJj4NONinm9eXWyX7vhsPtNC9PtJnNIz7rZC0/Kz09 NgMOSAMCYtIykyBICIKYmAQAAIAMPIqLAPTlE0Na2idD1l09/H0T8ZdW+n0D 7rqNctFIjdaSD2rJZ62MvRrsfi0p2EDyVmOdSrhTCtsoxb1ry3mrpzwYsh66 aG+7WceNj4MJj4MjLbSVUqi5BOLQoLaqyBtK3Gk7f6WMJQHH8BK/b6Zk9BQT 27PB8wK4U4W66FFRE1+kvHxaxWUm/+GPOSBITkYiG5TIJ8BM3dUb5pHp7pZV tzWwvrbtX7W4Fnz2KYepSypiv4p9TsqiZaAxKCaNQGfA8YTYjNQMKDAlIY6e kWBvEJ4aeNct1OtG3KMTPK3HHLZQ93VZkQbmgS47oqNF6im7taTNOpK/lryl JXmU6Atj8bueohM941+XSn+ZFkfqcVZxulUI9ioxnhKkvxLjf9TGUoJVCF0V A6P1lFU1ekCECQ1UBBoL2ljJXczUeV6GS40ZF2JzgfEdmuJqFibhd7/Bxr3J A6YUwFKz0hMSv//tZG/Hkcfm6apbrZHYjPXra6aR4dbtbcdZdBMJy8wEgREE XBIgjkCEp6XFJwGTgSgICodJTktCpsY00jK3NaQjFeRcDf7UmxNpxEXqiPfd hQ89gv0a4pYG4a/ABnTUUCNjr46xKoGdGgX7rQUzAqirhvbrcsVpB8tVhl6Q Ykc4YIsYftVdGNKSXCrCohg3LYSZpRmfFjRvzY3GfMhQQca0HGJXYnaqGR05 KQJYbGsR+dbcYq7mDleXkBPj+aAUNQGeBwNWiAop4OTAXM9aOWe9jBY0iJeb ZR7n7NXdSdRrDbltXL7gRUJ8LofKyckCANKyedlpMDiOSCNQSDBAJg+Uvqkt OFEjj+WAfxnOv++mfx3mf+jNv2xhHtUSdioQwTpqtJNnL4F7S/F+LW1FQ1zR ZC1raDMy5F+9+iNjrr0Maa6gj4oJpwb+oS7LVUpooafVkdKMOVBjbopbx94b qNKgkvqElIdFrVeDW1NQmtkIZOwPA0rOQZ+ypxjPQ2RyYEANEV2QnkRLStxZ mJrqrS5EJE7Lc8IVrC0Rcr0ie2tuwGs2mTtqrw7D/qMIAJbaUMxWM6k5JGJd XUlBMa9WKWXTkVAIEIHEDekV5705B2rgL+202xaKV4U9a2P8eVxwUkc66eKc dvPvhiUONTTczNhoYFrLs0YECHsp1a3BbNTjtzqYNi3BJIFvNuZ9MErPWnJG FWT0i2/b2ZiIjjtbBN3Ui/4tbNVmoznQBKOMwoe8VOCgQiw4/fkfRWRIPZcW /82fnv/ut1lQUB4MkpOWys7MONl1//nnk2l9FfnH304VIINKnEtfvDo/ODJm XN90Ht5c37w/m+xUa4igkVKpXilctU4NtpcZZTmmOiUuOSEpJp6LTj3qZD8K 3X1bbqAme4SPd9Y+dihrctR6EzvYzNrUYk/0We968nzlSJsa0VeEmBRivJUU WynioK/wYkThLadu1+TMCXFS0JPqbFCngNDOhqsxcaWkVG02okHAoKS/hsc9 xaY9I8NS02NeJr189vz5k+S454DYH+O+/xabmshGgYkJLxmpr8UY4FtLh6VD Fh5v0RWQCYm/7yxh3V74Do62Dy8v9r98uf3rX72r5hvvUk1BjoyIfERcYWGu Y6LNwCdb2ypENDQIkIZMe7XRln/RwWrnwKmx3+myABxwAin9DTfjeWcRYkSB HxRAtw18q4ZgryQuluLauLAZFdVRhj/rF9xNllz1izZqs0eKwT2Fmb1igrWl YKa9CIeMf/rsj/HxL+NeP09PjE+OiUl49hKS9AYDzHzsvP7h+eunLxNePE95 /SQLni4lIPigpNzU53Jsaik21V4tPd03n4TmLMZaIQ2PJ6GPzneP3Jab7fWf fn4/NztqG+r+vBdYnRmvySO1F2IbJJy1zpohce5IjbRFU4iApsc8/baBCznp E/PAcd0lRffWnixI5osffoC+/nagvJAOTSSB3hCAsXR4QouSreNT9IX4aQ11 TYsPNOdsNvO2m/NWKmibfYq1bhkd+EzIBFLIKTGZSW/iX4NBGanJ8W9inse9 fJYYG5Ma+zL5xZPk58+Snj1DJMaToRmjxrZcFEQMTmkmQ1qowI4cRA0mmZb2 oqWEN1stWBmtXXWacmkEQOxLW2/DoblHSYU15WAfrKPvNu0/nwSd7bImZsqj tZ8oKZqS5fVplVMtFSwUKOb59xnP/2m2kkdMfFZdROsqL/zu+ycJCfFYdBoc lIkEAxKTE2OSkxMz01PTU9BQQKWAudQmdvfwzc0FjfmYlgLchaU7PN50t7Es 5NBi3rx8Gfvy9cuX8XExr2Oexzx/mpacmBT/JiUp6fXr5wlvfsxMeYUGpbGQ 6WRkIigzCRQTq8KB2impw9mZRiZEAXzdKij45h/+tzxE6tqgfnm2fztoAaQn pMW+IACSEM9/DBmrfvKM3W+vn5gn3q30eQYatHmUJpmov6S4o0E70VJlqJRn IDNTYG9628u4VEx/OXtKl4fFY5FkCooISoh/CUiLe/MmBgJHxqekv058LKAE OCilpaqgT8fTyphEBFBRxF2cMgzoFdZm1eFC82hP1eBw72hns4ZLa5AVibIp aTFPoRlJwIzk7/7w+6TXP6BBSXF/+h0XlpaLSXuk76ff/khPf95fAFpVETro IDkqc7NBLGDCfnj6DQyUtNhXt91b0ltZGP/mCQL4xjHVHhqv2B8tiy523/gs e17r0dnxx58+h32ebo3EUKOqKuSUs0kNVcVYEiSPm9XZ2TjSJB6r58sL85EI FJWAxkOSyBgwBgp9ExubkhKHxwBggARAagIYlkrOgmEfkSybKBXmSYtYrTWS lWHd1qB0rIrW31XfUFt+EVpxTLXx8KmKHBIw9gkiM7FMyi0XMHioDEpasgQD bM5H05HJAjJYh3+6W0fzqBkliAQFOjNUlxU2qmQM1B+++Xto4pNxLW+kQRz/ 4jsGCXFs7z4eEe0bxaeroy7rtMtlj56fB/ci+3vho+1AxGv3TAx7RtsWustq VYKnT7+TlgqH60SGksIsChENAvHpLAaDIJAUtjY1UqgkJBaKRYHBqfGpyQnp SGAGCvAm+VUGIlmhKmqs1XR31k8OtEzVFe0t99TXlWKZ1JI6ha5ZnZH6ikqn PEaDDE9kk9P5NKiUACzGQIvBsYvanNW+8qvZ5o0Kuk2Cb0alKpGZGjR4s5p8 3ldxtWkWswjPvvnHFzHfx76KAaaBkJmphOQfDfKsqGX44Sy8uDLr9q3t7Yet 1uWT4+Obq8uP9zd/uTr75XjLNWdcXZyAIOEVDaVbk63Vhcx8AS8LBc7HoMGI TFY+M+Ba1iiLXsQ8SYh7k5ac9DTmOYCCjgEmwHCwPEVBkaLQ0NmwsDze3a4z aIpXJwfGxnqLtBp0Ppsv5FRIOCwy/MXz70CZyamJz5WCXDY0qSKHVEvLcOqL ZuoLfa3CVjZEgkwQQdOKcbACaMa5nhod016uDUc7ZSMyBAv8IuPVi9e/+0cu OkXIIcW+fpLHIuw4Zn+63b+62D29iJ5fnfz509ubvdB5ZPduL7K77jk63T+/ OMGQSBxe9q55ZKa/PT8vhwJJJKXF0HHAzpaqg7WJ2e7SUkkOGpaRmBoLp2Be gpNfAxL7xnrlNUp5rUotYixPdihKZbb5senuRq2YyREV0IvyKRTUSK3IXJuf k/k8LTnlTXLK0yff49PjawqZ3QLCoJSKif9Dp5xRxkFLc9ByBoZPxwgZxLOm 3He7s47Wku22vItR4XFflb2ntkXCev7b/yYqYshl/DcJMflU3F+iG6G1ubvb w/v7k2jAcRt0fzqKnAc3fBvru8cn3tVVMOJRdTG3PvOuZ9Ggq1WLcqUc/LC+ bNez7Da1uIZKl7tLGsrzVaWCTNTj/GJ4AvaafaGhVds91tEsZ3So2EVKwfae u1bCHNCwKDRcZWNZBh5mXhicq2Jdz9X11guBoPQ3cXF8OqG3QmhtFBqljLRn 39XxaLU8Ur2QISRAFVw6DwM7m+w4nmz3juiC9jHLYPuhZfZ9dPOt3zLTrEAk /pARFyvl8zHxca2iov96d30WcH+5O705i355uHsf9h0uj7mtk0Hf6qf9TTIm nYwDRocaVjvL7t+emEwj8gKOd2VmbXUxEFqyGJVrLXy/tbultUqh5PeNto8N tm/Z52TibIGYOV4v7qsSFakKTQsDhhqZ01iKI2NqDbUADKyzuXJay/xbcODO P3m5ty7hMtuVnNnawlklsbOImPbs+9ocTEsRXkgHCXKoJByCi4H4DGWbbeUR 54zHshjwrGwv9XzZcxxPtDxMV4YHlBoWEvr6x+EyTREG3ioXfD3e/s+7g69n oa8fr96fB/tUnMh0V3i+79Q1p6tSMkjwP0fc7/Zd0ZPtUNjP57FubvavHi69 IXvINeGbNVSKslUKsTfkXlyZHuyqX5zo7utqpBDBrv7qRWONUFYoUQnVAtbh vA5LhGlbqjEYZHtJkUPHDQ2WcAlQKZf2mEqjmDpdlruiZdSzkfF/+k1TPq6G gyjmYsSSIk4+u4jPdraUHE53XJinTzc3b073Qn21u0t95575w6nan5eqvi7W D8o5Qih0y9TfKMrVMPCfnLNvbcNnIXtLs6pVzb1YGNqb7Pnnu4tOQw80ExDe Dd5/utl2L1gm+3OzqUvTI0GfZcM1F3xccplQSMGXFBcoKxULq0s9fW1IPFCj Kcnj0NYHy/s17KpSeZm2nINLPDIpi/PQhTlIPCyjTpC911uyWMWO/fG7En5e aLZzoUk5qc4xVzMUbCgs5dVwdTGfBJDnUYqLcxj5DDyLJGXRahgEW63y2mY6 sM/s20xvr6Lv3l7v+Vc+uEcvOqWfp/UfLUMGKbNOmF3B51Xmc1bGeyzWmVJJ oaXH0FKc9z6y+eX+ampiBp2cVETGnB5s3p76I0FPWmba+OjARTi4t7vRoivH QNLA4PTiMuVAf6t7w2Ec7o1JTohLS+MVUg8tbYut8jwGRiouKM2DO9u4fTqh 19REhL4x1ilOZltGVHQWAWrUyteXBkZa1JNy8npHUS41OTXuT81ShoAC4mIB YiELz0SlZSb0TZgKWGQ+4s3NfNd+T92uUbc+3Pn2aPft9endUejObboYrPrb cuunFcNwg6y6sqzb2C8WFlOoOF1zA4dKnjO0XK3bL/yrXtNIA4tsknKM5eIv Xz9+PN/vLMlbHDOcX5/1TvVDMKBCBb/HNhv+8uBcN7u3XE0dBhCByBRLSPjM 45WeGhFVLS8or1DplDkjVeyhFtXZng2KSw8d+p0L3Xo1C4F4M9umWjBqupV0 t5Y9pM5Gg5NTX/9YiM/Ui/nifCa/gM7PY2bnMvEkesLLP1VJc47C68FNz92e f3eq199Z7zDqPl8efrg5jrhmoqPV2035b1d6PYOtylx2HiuPLyoGwFOrSoQP OxtnDvP20sS+ZcY1NfIusDjdJPp8vf/L5oK/sfgksDI0O1gszl2YG/QH1/zR gNvnjByFbDu+xp5OApOOoTGEBay2cgEo9enpWSQnL5dNBrdXSfhMlDgHg8UB 7b6V0I4Hhcz4/ZNvGnjYCRlpmo8KPKJYxsu01BQiFND5qJZGQ3mVurauJOuR qsgkLYdhKJdd7PuONlbmOxr3fSuXO6t7U4aQSe8da/dNDB+tO47n+8IGQaRT +NFUO1vGf/QoRAZdVy7xz41dBrzvL4/ef7j++evDx4e7/Y3VfXPPO0v3man1 1Dm7tDwllgv2/O4Nt3XZMu3e8h6fnbp3tp3Rvfaelrj4J0nJKeQsEoebZV0c sK7MxLx5VV9SwCAipAxEj6ZIwsJb5kcdbktM4uvkTIBeWmjTqzcaRWtqJg/y Epb6siw/q7e1vKa9LoeGK+ESc7KgKBz8Ohy49rvOt9cvo/uhRbN/eWLL1Olq 03qs/atTnd6+9ovNlfWemnBdfrSGfl5HW9Xyu2trfC7nh89v79/f3DzcPnz9 8Muvn/fWPZeu5csd30XAsdWiePDbZq0L0sri8P768kzfwkLv7c3uzo7HF3B5 oocW38bMmBECjMFS8BR2dmdPe6+h/Ol3/52djW1UceKffdOo4oETntSI6Bfb y1QaNDbzdQYsbXFy2DpqNOlkC2WPfgo7XMK06uXtRcwyaQE647UcEt/BpuRh of7u0sPFieuD8NW7e9dAh6NNGp7SRz2Wq7cnN0dbZx5rxDMTWR16u2LabxMe 6fPvNlfff7i9ONu/vTo/OTv+6V++3n6+++Xr+/vDvUuf5XbXdx9cv5tuWagR tjdpo8eh0Maqf67Hs9jxb/96f7Qfcq87nDuhjUhwxNAgZRAB4CQCBkACZ8TH PisqIJfIGExccotO/SbhSRb4VaBXGh5Ud2q4TBIQCks1GZtmW6vqpdmD9aLG XMQQn9jIBFUxcXQKMjE9trNEpiChSzi0g27x5XCbo7X+LOR0ddfezPec+Cz7 O4HFyUF1AcuxNHcd3b4JO6IB5+7q7O784JVtYmew7nTdGVl3++xL//yXTx+/ 3P30+fbnt5cfrq4fPvx6EvJbK5iWitz7092j6I6tvXyvt+pwqtk3YTjYcNzc X0SuLh4pcaWzZkae265hU9DpuVRKXj4PzyDHgxKgsDQYNKW6jL83pD58rPwZ o2uo1q0TuHsbF/rap0wjeoNenAUzCUnDPFx7EaZXgKniEgv4tJ6acgoAIKjS BDvlq43y85XhQ3PveqfWNdUd8NrfHUXXp3on68SyXFI5L+fP55EtnyOyuvQp YD8yiN4auL9cRH55d/nxbPvyJLgTcNyfR6/3w3fBYMjr2z0MNUlo53N9e9Zp 52zX2XLP3mjj3ohuZ6TpbG3WvTA5bzF7fI5FXYlTk7vRW15TIpAUFYGAgD/F PE1DgMRyoW116fzE75rRub1m18GOda7NYSjaXR1fHuoe7GouyKGUIhNtAmQf MdFRwYk08q310ooGQakyHwbKrJoa257uvVo1nSwPHow37451bKzOe9YsXy4P gwNVpy3si37123WredBo6Wlr4edW8NkLTXJXGf56Y/4y6N61z/50dbBumz/Y 9r2/Obs/CIXtC6uT/dsro0euqbNZ/UYVIzLVvD7d9bDnjthGzjbtXpvVt7Vt ddi90yOrOvVcg8K5PLM2P1dSnOdwL04OtTutpo+fr7c3Hc6FgcsDr3Npwj6q Nw9Wjpv6Ow16ERNfBImbUbH7hThjHnS9SRgd1+llzGwmUKvk0FlYTXP9kcty Ndpx3df4MNeztzC2OjHmnhw+CawdWI2R9rzDdun50pixpqKmtPTd7mZ4aSa6 Zh6uFKhE+WUy4daaeXfd0awt/bcv76+j4fPdncvoXsi1cOEYujFVPfQLDiox p8MVHw88n2+jkY2lo5Pt4PnN+s6h07+x7lp5XH7AbPrp7vLuIHKwsfb1y+VZ 2GWd6PjpZtu/PNJXmXfr6nX2aofqlWODjUOmoRJ9I5mErsmnDpTzdFJqm5Q6 byzr7CyXCugSKkKXR+UwEQQS8mh59CeT7jF3oUbVmWNlN+DZ9zs/f7z96d1+ eL773m3ZX57/5TDY3VA/2NZ2bF14CHpvd12nh+HQVmBiaPA0smufn5kdNB4H fVchz9uzg+jpnmNYd6DLiVaifBrY2VT1+yOff3n6wDbx/mpn/+LKEzyctyxt 76x6bZOB1aXHmLy/PHu4uIweHtx8uDrddqwP1biHy0ZbhEH7oNW52DMxaDOP dbdWVOvrJGJxdQG7lpi0KsctifDlOUi1rFBZlFspzKnkEmQCWjogwTPUvzXT 7x5o3J8bvQu5o7Otnnb1rtl07l4KDDZeWKbPQ76QY+Fuw361Gzzb2zretDlM 3f7prs+Xu/c76/cBj2V0oFZc1N1WcWAfC011nex77OONh3XE91q4W4xy9aqC pjZXb3Ngeez91YFn1b5xdjphnV9bM28EPMHI9k5w8/bs5NO7t6FNbzDo+rc/ 3++uzw13VyyNdx34XQOzU4aJ8emRgbJiJhGVxqORSsi4vmzkRjHeno9sFWdV yAprCnnSHLI0j9zWVqNurgt7LZ9PI1fhrS3b9L1nwqPj/bpp2jH13S5Nhntq DpcGj71r9xfHJ0eBU8/M8WL/SpN4zzO7H3FH15fvXOZb57JlrO/Qvny3s/p5 x7o31uQztQRHav+vgYL/p53q09BC9l7PbPuua/buav/gYMfhXHM/KunlxWb0 eMnhjJyfRd++szls9vlR1/LEcdi9MDcc2A0EDraXzCNLk91DRn3fRL9xzFgp 5VIgqXhQppyI7+BShulQhzirV0LXKYsqpbxcMqizrLBezM1lU7/+cmIrEwS6 Gp0Lo7fuuWhvpctY/bC/de1a2Bmov1hfOtzZ2nA6Qu7lz/vrW+PG0Jhh3Ty7 vxsKWc2fgoHDVfNZ2B+xLOzN9d+sjVxO67d6Sh0VeR/KsJ8rodt1HEtPlX2k aWm8bS9gc7uWnK5lR8A/ZbPb1jecgS3/YTTy8Hb9IOLxe+7vz7d8K4um/pvT 8GZg1bUx16HIG2lQN7dWiYS8AiKmvqGqsknHz86W4KHdDOgKj2AqIFZgUkso YBE5o7oQ39OkyeJlHbkmff2tx17L2tKIa8J45l06Mk/5poY/H65vGmvcQ10b zrXITuA45DnbC9xfXrw9iV6enFnnlw5DoeutrevdrV8+3O3YzX6T8dw+fDlc 5a3LW5LR9gTgt1XYg3bRfEvpfGuFebTNOtO3tbGytjhlWp4dGB/Y8rvD+zue cDC4H3StuzcCwYd3V4c77rnR9k3PzFnU+yhIneWSCkFuaWWJQl9LKeJwJfwq o0FaUUrFg9qFWQZs0jgPq8UmN9KQEkTao/nSdTfk1Vc727T3J7tux6J/ZSLs s3ndtpBj9iJoO3JOhxd69zdXoz7Pbci385gsv23XZd1Znnp/uH8a3Dw73N/z uMLr7ouTo9uTg4tt16eo+6i/0lXLHeZTPGJyqIw4ISYtGBs33AueHYdjY23C PGf1r2+F18dMfWbbrM9hXjYN7kU2dqKBvYMt2/JY0DVzubPmt4xOdTfOmkZM 1vGmDl1Zba2kQkugkLNg4OqW2vLeVkI2Jh+X1E7MaEJlCDEwXYOmqbFUxCZr K1UqXf36dO+Rz3zhWPJM9p2fBd3zk9eeWXtfzWp/g2e64zKytT07HpzsO933 R93L95sud2f95kh/yDS6PmO69Pnc1qWtUPDjuwfH5Nh1wHM50ebrlpt7dS1s /EA+shafPqpiL47WOzxTW4+by5bL5LL09LQMDRh8W67wpnN+otcdWI3cHx5f H/h9S9GNWWtPpdWgsfXUDPW11deVqqpK5Lq63DwuNTGhBo9qqFawZYUkFJib 9HyEiWkloZTcnNoenaZOzmNhVCUCnkp85J878VuO7YveXt2Opce3OBqeHjpd HLAPNmzapg49aw5jc8Q8cRF5TN3w+aYnalvYXbNcHoTfHeyHzebj3dC726u3 l6eXQZ9/uOtycdBvMa5NdzpaNYsK1jADEqjM3ehUTLeLZ8d1K1bTxMzYwvKy 1/9oqFzroa3g4b416Fnf823518LOWa+pzTPW4OqSj9cJewabBxdGyBwWnpsN AsSXAhImc0nFxHQ2KrUWDZ3k0LSoRAEiuUxY1Kyr4DLRDFhSfYVEWSk7sU7s moaObLPbI22Rqc6dxeGt2fHD5ZHD1bGAc/nA59hdmIlMTR+axjYXRlbnpq73 d/f9joDPdXt3F/ZvudfWzne23x5t351ubYw2nG/Mzg3onfX8E6PYWUkPqcg7 RXC3irFmlFhGdaZZ06B5cc6/tXF8unt8HNyJ+HcPnEcRS2A1urceso3NDDa4 LQO2Ie3iYGt7S1VDa2NODhcOBNJe/TDGQg1no6oQCR1ZoEEydEzBVeciG/h5 tVKVQsCTiHKETHxzhYJCx55Zxr3DXfuPyjZj3J1q3xpuPfRY9lyT6xNNh+uL jum+r7dHp9uhoHlhe2UuZLe6p8c3zGPvb46iQf9VOBza8ETca5uzI9euua0Z w8Xu6lKDxsaF/NwvCtbSgzLknRrvU9G9EzX2uQGz19+76hzxuKw+u2nYYB4f DYV2/WdHCz7b0kjb4mizLWCxhaz9llFLYG14RM/lUjAZGbD4N4XgdAUisZEI 6cQhO4hYPY+lUnKrS4qa89j1CqFCnl+tVRSXiLjlKk5Fhbm9/GRz5WjDGh7r OFro3jJW24xt65NGa714rVHhaZYFeivvtz3HgfVTj2XXbraN9Aas02enkeiW +zjgXltdCDrNoYXhlUbZqk4+oS+fr1WGBYSrIuiZAvWhhvhOg9upLthZHVqa nTT5dvv8u6aNkHt/z7W1Zl+dD256/cGti3d3wbl++0izY3ttdm1yyrsytTIj F9OIkHhGUgI+5lV2WiI57RUl5QU9MUaRRW4uk2uKszvlnOHi3Bl9RY2C11Qu zxaw9eNDRRXljo6q9yeBncXJq+mBo7W+8GyTt03jMyjW2yTbg1XeJqG7XnFs M+95LccrU48eI+pbPQi4jy8uIvvBQMB78uEuenZ4ebDpm+4Yl2TNVBZ1Cxgm FmyGkTlEjPUXpN2WESwC/MZMy9ywccLu6XF5B5ybK2d32+8e1hwW28yQy2Xb PDvacphMerlnc2F6rmt8zNDXWU2DJtGSX4tT08RAkIZEZIDSs5AApbRQpVWK ZbwOEdMuJzqr2AYVh0cGknHp1BysoaexSM4L9OseDZHXNGTkZ4eXW4+tLTtD 5a52kU0vCY63H873HnnMd7fXxzu+zSmj3zq5/4inY327u5GFmWG3bfH09uLT x4eN1Zm1Cd1MY0HUNbLSVTVUTJ2pF3cX01qhr+oznzSQoTOGqt7WhjGraygQ mgmGzXtHa3tR16rVPNa1sWX3nO1++HQaGGucH9VPT3f31Ymr1FwunQqIfSHA IcnAZDYBjQIBCCigVFKoqC0vkOfL4QmfmgW+aoaMg6SS0otVXAg8BQZNgmFS A6b2sHNutEevpEDPFtrs5fTdhd778/Dphss7PrJmqN6aaF93Lr+9vboJrHlX Ju3mIfu40b9qPwoHvr57ePfx604wcrQbuN63r88aXSszzvn+/iLKsJgVHG2d V7GnRWybrnylu8bU1dBuNA44bfPmpWX7ytKGc25l1u1cWFke9W45Hq4O1yqL tSyswzLfLeWQUGkMKhOckU5BgoDAOB6bVlaiIpLghUVsroCPw2PVmcmBXNhO Q55OwuRysTgaWsEvgqQmpyS+/v8ApCITPg== "], {{0, 70.}, {70., 0}}, {0, 255}, ColorFunction -> RGBColor, ImageResolution -> {72, 72}], BoxForm`ImageTag[ "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> <| "Exif" -> <| "Orientation" -> <| "CameraTopOrientation" -> Top, "Mirrored" -> False|>, "XResolution" -> 72, "YResolution" -> 72, "ResolutionUnit" -> "inch", "Software" -> "Adobe Photoshop CS4 Macintosh", "DateTime" -> DateObject[{2011, 4, 1, 13, 34, 23.}, "Instant", "Gregorian", -5.], "ColorSpace" -> "Uncalibrated", "PixelXDimension" -> 176, "PixelYDimension" -> 176|>, "XMP" -> <| "DublinCoreSchema" -> <|"Format" -> "image/jpeg"|>, "PhotoshopSchema" -> <|"ColorMode" -> 3|>, "BasicSchema" -> <| "CreateDate" -> DateObject[{2011, 4, 1, 12, 51, 44.}, "Instant", "Gregorian", -5.], "CreatorTool" -> "Adobe Photoshop CS4 Macintosh", "MetadataDate" -> DateObject[{2011, 4, 1, 13, 34, 23.}, "Instant", "Gregorian", -5.], "ModifyDate" -> DateObject[{2011, 4, 1, 13, 34, 23.}, "Instant", "Gregorian", -5.]|>, "MediaManagementSchema" -> <| "DocumentID" -> "xmp.did:D0131C929122681192B0E8FF9C0FC98E", "History" -> <| "History[1]" -> <| "Action" -> "created", "InstanceID" -> "xmp.iid:D0131C929122681192B0E8FF9C0FC98E", "When" -> DateObject[{2011, 4, 1, 13, 34, 23}, "Instant", "Gregorian", -5.], "SoftwareAgent" -> "Adobe Photoshop CS4 Macintosh"|>|>, "InstanceID" -> "xmp.iid:D0131C929122681192B0E8FF9C0FC98E", "OriginalDocumentID" -> "xmp.did:D0131C929122681192B0E8FF9C0FC98E"|>, "RightsManagementSchema" -> <| "History" -> <| "History[1]" -> <| "Action" -> "created", "InstanceID" -> "xmp.iid:D0131C929122681192B0E8FF9C0FC98E", "When" -> DateObject[{2011, 4, 1, 13, 34, 23}, "Instant", "Gregorian", -5.], "SoftwareAgent" -> "Adobe Photoshop CS4 Macintosh"|>|>|>, "PagedTextSchema" -> <| "History" -> <| "History[1]" -> <| "Action" -> "created", "InstanceID" -> "xmp.iid:D0131C929122681192B0E8FF9C0FC98E", "When" -> DateObject[{2011, 4, 1, 13, 34, 23}, "Instant", "Gregorian", -5.], "SoftwareAgent" -> "Adobe Photoshop CS4 Macintosh"|>|>|>|>|>], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {70., 70.}, PlotRange -> {{0, 70.}, {0, 70.}}]}, "RowDefault"]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, Key["Image"]}, "Item", False], "Mouse"], ImageSize -> {{56, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}]}, { Item[ Pane[ Annotation["Written Language", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, Key["Title"]}, "Item", False], "Mouse"], ImageSize -> {{235.20000000000002`, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation["A systematic way to record knowledge", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, Key["Tagline"]}, "Item", False], "Mouse"], ImageSize -> {{526.4000000000001, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["\"-3500\""], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, Key["Date"]}, "Item", False], "Mouse"], ImageSize -> {{75, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["\"Babylonia\""], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, Key["Region"]}, "Item", False], "Mouse"], ImageSize -> {{60, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ "A central event in the emergence of civilization, written \ language provides a systematic way to record and transmit knowledge.", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, Key["Description"]}, "Item", False], "Mouse"], ImageSize -> {{560., Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes[ TemplateBox[{"\" \"", GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJwtu2eMZeeZ3zmwvyzgL4axHwzY44E/GFjsGisb8o404zFsQdLIpESKI1Gk SHaLnbsrdOWqW1W3bs45nptzzjnnnHNOFbvZ3WyKpDSe8Qzgtb1PyQucfnEq 3Xue9wn/3/+c2//ywfYvnvyDP/qjP9r/32D5xX3UD/b27p/88h/DF7/a2l97 uvX40TtbB4+fPt77/oN/CN/8y///3+35Mi1fZRXXRS0cq4zipqRdFfTzvPG6 Zltk1Iu0cpmRX2R1s5Rxmtd3U8peStONCd8O9XXDyXmEXzfjU8LtovLUJ9n1 SY7jMmJKQWnZRG+K9kVYlFceda2knpU+90qsmMcJwXHfxumb2SUpPilEZ2SE AO/EzjyM8M9SnOOsCJsUnsVE6LgUl1ERyjp0SXdaUB9XDZiek7qKCiYJ3Spn 89A3B2aqA/XrkY50HZRk5GdNM/3ve8GSEldXE7sG+lVZd1HUvKgZb2rGy7Lu ZcP0quO+qtlftd0vahaI6A9hmsdxbd0vOK/b/+5l9auR93+8ib1Iim+SSNdB ySJ7NR1uEBWG1CcpHcEnROX19OuspWljZZWYvJJcUjPmAW1Fw6zp6RH+XkWB rSjwTSN9HlI07fy0hpJTU6taellLzypJYeFJSkNJQkQmYs1KzmrOqmZyxUys 26jDmPZV3c96/E7fTMkLdy+9gqYKV1cSguT1mY0bpzxPM3Y7csKXQ9dN0/RF 1/Zm4LxuGM+rui86rpuG86JsvijolxkV5GiRUo7CymFCNkgpv+j4+zHxLMFd BVmrMH8R4U9czEVAME5I+mnJNKccxBWrvPnbQXQSlfX9woaVXzHwWjbxNKR5 XbZHxHtp4V5GeFBUYrIKTFyKDiHHKTWxYmG3POJ+SDEIK2dpwySlmybVs6Rm lTPAOo4rb9ek8bro/M2f/THlkz8fWig58UGIulYUnbyKatKsvQr/uCcnVnjH r3r2q4bx+g9Bve474ORV13NTd66KplVWCzmaJiSTKDKJyocxZJhULnKWZVYX kT4fOIgDB3ke5t3EkOu4bJ6Rt2NIIyjqRuXLvOk8r0vrT9K6w66P9qpiSKsw 5yndOIQk5Kg4b8tHfuwkP9Sd3S3oiLO4cpxQj5O6y7JjljXOMsZF1jRN6VcF 83XVsSpaLsu2XlQ+iCvPC85+QCHd+ygrOaqq0WXV2cDFmfrFX5Ws6oNfkz7+ i7lLWFMSLsraZUE9Tkmua4Zvxt6vhq4v+75F3rjI6+GqVln1JI6MI+JxWNQP 86ZpVSeomCd1bRe1pDwYe+iXCeQ6Kp56udOUdFbQxTT4uot/VTDX7NRegFIy H86ijHGQERXvNiy0RVQy8LLi3B0/dd10di8uPul7xcOQfJzQtsPyWcawypln CV3FwhmHVZcl63nBdFN1XJVts7R2FFcts7ZxWNtxcK4T8ouYeOTlfFm3nuf1 46jspmiqWelO2tp5XLVIy+CahxHhJIFcwVjIKho+/jCpmud05wXdbY7iyCQi Gvr5/RAHIirbBV0vMvRxMsjWKsIb+VjnQf7IxRwnkL85jzZcdDtzPa8jQvE3 baSRlz5yszsWRsvIiHIPKhrcRVRYV+H95OdtI7tqYE5C6mXSfFlyznPmYUw9 iqgmIZWVtBlHzopmWsvLX2V13YCo5mR3fIKuX7mIG/oe/sDN6nsYi4TkPKcZ xmT9kHgYRr4omSdBJI6gxjExBNXxseZxUc1G7HppSdVRSnOSVB+XzYSel9Xx MEsGfEaJTirQdRv3MmMJiw6rJlycv1dVnCW522HaekVPHWXMf3+Tmac5IfFa Ajnw03ajTFSSc5QRootSateMjP2KogESJ5pB7YlQRTW54xCvYoZZWH2eMlxm jKOQbBFXzcKyjBKjOb0TYO6UFPiukZlDzkLM3bwcVzPzxj7VyCudR5U9E+PS J2npKWUlPsLcjdC3Zw5RknecEp2dF7WXJe00KX7bMk+i/JBovWo5a7tJwyCr 7aaOAtyBn1u3UhpWelFLLutpX+TNEfHOKilYRbgjK27lIk0cJBf7aT0m/X/f lr9oaWZJ1jIhGDq4c7dwaKVOXeyigti08Ls+QTPAKbkYdSc1qTgJClB1Czcs QidkZxkFrqAm5jXEkU8wDYkj4l0ve72lpTcVFOn994R339Fu/TrBPqoauSOv quuS/G6YCFF3zFufGnY/0Wz+wod+OFRS/dh1H+H5yIn8zSr+Vd+9yCkv8srz rCytOuwHmHU3ueNnDiP8QUgwiSFXee08Ll4mZa8qpoIBN43yZnHOPEL5uiye uM5q+j0n937Khn0z8jQC9EVB2AvQoF8uU8K3FfnbomHkFF8mTFdZ/TwlG0QQ qIq48iQoPq5YeXkDvWRm5LSkjoPXdfHHQXHDxvBy1s8T8paBuXAilF/8B8XT X9TlpLae2fPK5hHoMu7vpnHynR89+O4/z4qOqwrMuVMQIW3qdj7JiM7aFt5X o+Dv5xHsox8UrMTLgqpkxvZCnHFSNIgKYHy9qJlBZwch8ZdtK239RxHZ7jDC Gce51yXZTVZa0Z1WdWcTvyBvoFTc/POyte5n173UbwceGN1tqHYfs2VmlzW8 jJSZVlLKZlbdIWx7OSUruWCiT2K6aUzbD0pHQekyqppH5MuYomaiVEzEoY+X QTAjCy9M2U4yD/sGdt/CrVo4UKJ1B+9387ifu2c6/fw6rrgKifW7H+p3flWV 4ctK4sAtXJbN/+U8Wfdz8zYyhPC2Y1sVFZOs9LJmeNG0vu56XjSdVxXrN30/ b+99I+03vRBzEhf0QuyBn9a0E+dRyWXGMImquiHpedZxnXPN4+q/m2e+bHhf VcwvCorLlLxmYtdMvIaFVTGRGzZm18PqejglPW0cUDZt/KqJ0bSye27BwCsa eAVFHWEcFAT42xH+EeTFS9hI844HFl7DyCzpqKugoqAlv2y6SnpSw0B+UzLQ 7v573oMfjsz0to5S01EGXuFVy/3lKPT7ZQIEdJZVvmnZpnnFvKq96dpf9twv e94vJ+HruutF1X1e0J+XVBDvIg8zXNDxkacx3kVWO4btTermac3Qr6gbObMg MgtJ+25hVn3WdBKmUcEypp2G1EOfcOjjzsK3U3fg5Ey8kr5N3DJxmkZG3cho WNk1M2McELsYa0M/N6046buES788TNstirFdEwe+LKnI525plHc4TSpKamxd g/0ipzr+4F+zP/+PKy+/psaN/aK+V/Dbafiybnkz8LxoWHox4cum+aKiBc1d FDUXVdNF1Xxdt19UbOd56yylmqdli4xsVdBNU5pJhL9IyWcpwyCmb7iQbzvh ogqXlewXlUeAeV0Hp2VnwrWNQghE2nVIBh7JyC9JynBl9VnfTOubOUOrMM1H +8gbDsJT5fEnDuqz12Wz5OBDE+l+QYdPIei2gVkQny3cSJCx03fwmzrK0s6r afAXGXXdSGnqSVcpxU1SasPdDdCeDhzM85h84ON/2bVeVtQ3dd3rjnmWlS7y svO09DIlvcrIIfuwpS9zhqusYZ7RnafVUELnSdk0Jp8mNdOIcJFWdOOKRdnW 9gkXQXGQ8qSjJzZ1+LoO3zASB1720M/ruBhtB6NlptVNtJ5fXHFyAuy1CGgW gv77Xpz/8D355i8dpAd+7rOWjbxKylycjYB4PyE/TQkO+yYGDMw3GSPv4Tsw BHo6/MCIaxpws7CooME3LayJVzj18l5ltD76WkZyBOc9Gx0KaZQU9WP8eU4G 53DS9bP6ftYwwO24WS0Hs25llEz0opVZtzGaNmrTTi2ZqSUrq6AjJdX4gAL9 5TAE+JcQbbW12LoM1AcVF+6EhTtZ3VlGi04pj+OSg5hwP8TfM5KfftFwxUVb 2oMP7Jjf3MTU3AfvGo8/bZrwZQM2KT3IqE6LRiK8/sAvhIiKUnSEudXWU4RP 3g0znkepz4qi/aoaM3JzyhpCWYEfWDl5GWYVkL5M6ooKXMfMGjp446RknlXM MvJVQb3IKeDL8S2IIsOwcBqTjiPytkfQ9ggrNlZeR+g66G07vevhjaPKvI4e keMaftEgLlmmpAlkqyw/qkiOxzbGIiicwJ/DSyUQmAOTgGDk5k4CYsgRRFRU HyV4Tz2kByn+fkODa+qwJdWJi/HUx17PqTFJJSYqQ08jctTPvkP86M8aGsLc zStITupqfEmEqiCQu4Os5GTuEcUY2zHGLqgqDJCGmtrRM1c++blPPknJlzk1 6Ox5QXtVNpwXdRdwUtBdFfTXBdN1wXyeMd4Ubdc5k4+9lZMf1/QEgI1ZTLNI mntBxbejcMPNGATY5wnRyM0oSI8h+0UtBkjjuqTth/nDAG8Wgh9xobMaTu43 w3BZd1xW7De02LaBHOdu55C9gYPec7EA/MYBBGLp+pG3dTf+oz9VbP/8Kiwu SI9mbvbIRh9ZOW0dIyfDlDXE66gqSn9elWIT7EP9/h3NzidRxl5VTmhr6Yuc 5rpqvqkB4hpf1K0vG7arsumiCI2jWWR0y4xhkTFO45pvOgHu+s9ivO2LMDLw 8OdRNSBr3sI8z6oXSWSZlF6mNecp4C5J38uumoklA0ALCQA1pUBllKdQdXEx Kq0m/PUscR4Vdk2EoZU5tHIizO0I63nHQoNwckpcQUuqmJlFE+vbdjAt2nMR fjN20C8h3S5mA3bJzG5ZBSk5bhSQDF183sMfj62sIGXdjr5fRNA1BT7NPWxp SK9azjcd93nRMIzLAEThZJxUjOLyLsyoKJxoriuulJbyuuKo6Ek9C7VnpXZs zElQ1vKLJglF0YxLqY4qZlLPI+oFRa0AG6AXKq3vYUGTVrTYpBwFtVQ3AEGR FynNLKPr2igNDbamJtXUVCiYGHs/yNq2k596GM9dzC2go4KR2fdKysqTlGAr J94TPf1xhLWWFu5klNBi/ISKBKJ8mdKif/n/eAgPCqKjtobQUGJTnJ2C+Cgr 2P+q670Bc1c0TjPqaVa9KhlmcVBwyTgkgSYax3Vfj9IxFSksOniZ1wc5z/tW 2tBCndoYE5/obc0+Dgh6Xk7FSmq4GMMYRMTpBDhQh10vO689G/kFs4h8Bvzg EpTN3DdNf1B+pNv/qxRnMyc/yanxbTs3jWDSUkxOgwev1LCx207B0C+fBOVF Dd5Bejxyck8/+G6Cu1tT4hoW/jRszCipHR9SsbNo93/oJT5K8XbywoMyguro iC0DsWYkvKiYV1nNMqeZppRwjFOKUeS2r0cQVErdT2jeTFLjlGHzx/9H00Qt qTADO72sPM4Id2KCw7ySUDPS2w5e280D2h/FkHlWPowKZ0lJXH4UFG5PQ6Kh 7xbVGg5uwyl5243Mc8o4ZyPGWDdi7vi4WwkJOsQ+AOmJiI/yGvwt3TmFHYew 5xK17GwfZ3vg5ld1pIqaMLRzygZm1y3JKgnjqLzl5/hYT+cudk58WFOcddT4 roEE0/vLqvkVNA7kJSm/yGmWaeUYSDIiGIZ5I7BUEGBWf9HyftHw3f3O/85/ +JcDK+P2loKXWbXgu3bmyMUfeYT9W4AR9nwiwD9IEFQdTAMd9rMWmD4Xu2Vj 1S3UtpPbcoIR1nSD3Bmohok2cLC7NtZ5VOmhbmRlGAinqCVWjSBbrJKWXjez h2FJSoUd31qeYxv5WcfGzuloo4AC6GIckyd1aB36ozh7M0TbjNCfp1i7AfJa WYW7Smle1M3zjGIUFc1jkmlE3AXv5mXNg9yBh9V0MBsuHhjMV2WnB/e4qyHN 7ZyJi3WRkV3XdV0nPivbCnIf+zlPIuLttOKoYMBmdGdXObUOdwf0KCLcaZrJ CfFRgLvpZm6CcSjoqTUn2YD9TU52FuHsNvSUgZ0dYGxUNISY8LBrY6cl6KKS lEFwGRkhoyOPInJoT9ba+0UNpaqnhUSEqgnpOeWzhMHO3rURnnR1tLz4pCLF dNTkupLQNjGWUYBSSdPPHIS5Ax+rbaeswsKhjdwz4StqdEGNqZpoRRDuiGrq 4NekZ2UhqiRFNZyU3y99Xedxz35Y1e/llFsV42lWDWW2FZXs1yykuGQ/gexn Zai87CTG30lJ92Lig4qBPg1LxQc/Cwj3obrc5LWKAusmPIxxnnsoT6pa0gDG u4FeUVMralpSdJbXUl8W7bSHP3VRtwsKUllFCQspLZu2bpQUjYJeQFXVMRtK ShOCleEznKOyFJcWnU6DskFK+KZr+bpjy2tOvLSH12FRUriZRJ5XDJi+jzOJ yYYAS2Fp28oMkJ699EsqElRGcdgK0FLIo7716DzMqGhRNQMuozwZhwQwvetW Mghxw0Csa/EDO3PsYg2c1L6D+U3DJzv8tYX2m6qDdZU2KbY/ijPB/z6LcTdC 7M2mgRph70bY+07CeoC2Z8ev28ibXxZdbsq2h7zV1DJzIkyQi+l7dEmEnNLQ qw5eRoZJcY8KCDYnQAcJm6BHJvTDnlv4smV51bH/3XnUzVtzkO/1TETcr/7t 2Me6ySlXGdU0rRmlNauSbR7XjmBom2DekgYBfivAqpuPOrbTnp8yDHFTshPL 2aOK8mzipNW0ZyXVaUF18rqoqxjwLuJ9J+Ge+exOSYWraPBJZCehxC5ShsOf fdd6cLerp4Toa1khyk/bAhwNsfZshGcO0kaIc5gSYSzox7yH72cE4P1PIvSD mAiTVVETCDQdsetgFWTHZclxkr3vwz1N0Hfz/NMIbXfmRl633S/bzq+nwZyF cJ1ThpnPwuy11wXNZVq5ympnOf0wrbtqBl5WvHkJauXhLMLSUVxx0zB3XeSK FVNw4m9aRuggP/lJmr0xNGJL0oOS6rhlo8BIDwi2Q+wND+WxnXDfz3hWUJxU NdiMmnBetBz9/E+lD95L81Fp3lEZwVVU5J6NN3AKwSvVLaymjXMZ0Sf4p8x7 P4W1qCC3TdyiigIuKSM5a5moYCUS3OdNzVmWv1tGjpOsnTTnIM0+aCnJy7z2 smr8om2dJpFXZa3m+JdVM/Z1DaafFBRqktV1k+q/fdkIIDjsx98b2KlNK2MU k3899tUtjL5f1A7xrhv6sOy5n/n51EUpKY5s2DtZBapsJJTMpIKBULOSoQ5n EbGHsx4Sbt+iuIu7yhmjfNRAywwz916nzVUFKcjYDTL3fIydOIKG+RyXnuU1 1LFf0XOJjbhnTRsvIcGZ0Y8cuCcm9P2ujRkT7VuI94qqk6YWPbYD1BEA+0vS k7aOtMipVnn1TUXX87NuCoq8DjWKcm/q+glYoaJukNbMypb/9iUQBC4o2G7a SCnlWUpH+HYeAgGqu1jNAHuek9ac+LYDO/UzR15mz0WHEMDy9gNgwHm9ABeO 2/2JI0nNSUJ13Haxu0FRw8RY2ETg2echTYC+G+Uchlj7bspmgHuQkmFyalLF yimZWT2/rGrjjsLKuIJw73t/bMfcj/L2QTI6TnbbzZUcfJCT7nQsuIGd0jLi qxpM30abZaSrrPw8I2s6iK9rmqoTN4hzl2XVJCPrRpFuVD7NmVY5+yJmvMhr xjHBOIwUrfRqgF10ERt+2jAhmGelPT+762aOQrxBkDsBIYvAIRlFZKOoDEi+ 5WWOY6JlRn5Z0DQ9jKwWM4yKJn5k4RRfJk1VCz/ERrUMzIqGklcQKnpgPHbF xOz5pYOgog5GzyVapgz9oJx6/4cwYcDr1czUvlf427YvrUR3HMRpkF01YDt2 attG7TqYw4RwmZJcZ6QDH+2qJOnGGZ0oa5GTgxFo+8ErId2AbBrWXaWss7yy nwTxRWYp9aigqAQoVT+5G2OvwMVDCmLIKI6MUpJ+VFSwUVs+QS8o6fpFs5gY ZmbLSe96WYMAb5mQdiCJblBSas/A6vsUdZcsyD5u6ulXMa2H9rzrFAT5h1rM QydjNyI+83GPouKziok1DiistMcVK2ESFoFRbTu4b0quko50mZGNAjwwlUOf AIx/z80fRXkdL3UJWx3lTGPsUYY9SHDmGdhhYd/Ph60Y+JCeQzzyyqA+p1lZ VH4Maj7Lq3pxQTPEWuWVS7BXSckoJuxFBN2ocJyST5KKtpdfMtNqVsbAxxn6 QOw44BbbLgYYxo6DVnNQ8mpsQ0drOoQtjywpxl+G1B7ypuT5h37WXlYBSnp7 56FqZECAQ5+kZgE7LLPSn+QMmFc1a93KmocVHQvXy9yax6R9H69hZwJuLePq jos/C9E7flLbT+z7iGMfeRylD6OsaQy6gNX1MAChOy5WxUCqGknncfk8LI4I d0s6XEmHBz6ZhKUwHPImyu1hpTXcgKz0pos1DYv7HmbTSswojsL87aT0MKc6 jSP7MfEegERUtBsWbHuY61bSI93p532XQL73mWr3jmrnM/nzj6Mc1Ngp6dsF Yw+nqMFULJS6k10wUNouftVIKespb2qeukMkOfysYWFkFOhpSFLQEpo25jwi g3NYS/qjtp/U8BFLxuOS7jBvPMrqDhKy7awWlVWjcpqTtPIkLj00Ez6HS1rF JD0XM8h7bqc8BFGAgo8gpyHkJKMjpfWUooVWMEJHUysmUs1EqBiwWRUqLUfl 1WjwgPDnfs4GhAbfScmOMopTKLww/3DkFevPHiK7nywCKvHmrwK03YGZX0Rw ZflpUrQfFR9kNbichlg3MkpqvAH3oOUSTmK6Jz/+v8yERwHOdkqOrsM22pht BxuqbuAVQPvMMsJuhNlyEpt2fD/MnMXYKenzgvawbsE17aRxkDsEj+Cg9d3M tPxoFuLXzcSaCd+xc5cR1SysnITks7h6FFGA++gHROABB35ex0nrOqHHCbAD VSMBQmjbaZMAv2mFfcbBlw7qEz36rvr4TkVPLepoaTW57wPXYwoy9vW7d90n jx2oT/UHH6mPP+l5+VbCU9S735XtfGgiPOr5JdO43kyGzcE1zDRonIaVVTPT a2ZG08ZuWJnLlOiLln5Vll9kgVS5NzX1KsFjP/h+QblbNaEnIc4oxF0kxK9L mrc1A3vth0Mfs++mVU3YlpkB9Dj2QaKVs4jyMmeaJ1Rdv6DlYY9CQg3645wK BWQF128l3fcwn3Uc9JGPy3zyo7oZapi4//PvaE7vlLRkqLqqkVkysZpu0Sii fFv1Yj7495adO1Hi41vqk6LmCaXi8NO73/mnCcEhmNyOR9z2Sjtu0SSAjLzC lo0L7VaHOe8SATrCS83iwkFCcF5VTxPCshnbiXCuUgLZ+n9c+Kg9B34WYfcD zI6HOg6wXpc1Ix9z5GcuYwJYBw44WHUTqajFlcFqWSh5PaHl5noF28uEzIi/ U9KdFXVoSApUGsQ18LAXETG0ElRdQXOmOv51VHgA4XSd/LKGCg6iZGFHVYQ3 nRCwXEGAbssxJeVZyU5dFvUdtwD10++mxcdgN6pWTtHMSSkJ4D4aZkZRRy/r GS0bH466mQPrIiUZpcWXDV3DQ08oD3sx/kWMk+c9HloxbQt66Kde56VNJ7Fl x9fMmI6TNPTRJkHWm7L6Jim5TkgmPtbQw0gqDlysRzbm06KJoiPcKxkJXRej D4eb3rJRIRbIC0Rxk1ElJAde1lpRi42K9mKiw7aNUzczq8DbSmpOT8vbONOU XnP64EVE58Pd9zCeZW3kRkz8TT+oOfgMDAhE5GTt5vTMmo1TM9H6Lj7YwKQU l1NTuk7RyCcbeCTDuKgbBE1RvWg55Zi7v+vYh05Cgv+0pketouy2C9/zkQcB +k1GchEXdB3EpgWbke+O/YzrgqjrIcE1LyPIJCScxUUNL/em6jTTNoj3fmQj Prbh7jvwD7ToT2yk+2rUR07Ko6oeHxftAWnX9Pi6gZSWnjQs0GX0moldALrW MS8ztpSCsv/+n49ckraRMPGxFwmk7ma8btrLNrqDtNaz81JyKAlGTk8pW5k9 j7hp5gIvtZzCSVQ9TxtmaeMwhixTUnCvf3tRVOIfF1WnLuLnJTXA83HbRk7J D12sJ3n9acNOaDtJsPa8tL6XdpWVvihJJyHWIihc+iWrsHwRk85Smm8nKY/o mP7sZ7CZRQW2qiEAEVVNhKGfu4giOTU6BChlJFY1OOPZ3YIKV79tasYkrG66 JCUj9/fthIWw9fG/+Re600cR7vOWmdSwUMtG8mXBeFOzW4jPBg5B284r6iiQ o2FY3vdLawZWSc8ATFpkTYuiZVa0DKPSy4x6Hpf/jxd1O3v/+Y/+VZT7pKja a5qhBc76PvI0whyEGL0wpx/mDKK8RUYyTYq+6lr/euS5SqtnfunYhcwD8inI 7q3vsPolJ8OwdBgUT0Kivofd9XOabkY/wJtEAY2EEel+Qryv2P0rwfpPawZK HXJkopdNzLZbUrHwvqz4UjKig7ydRLBm9H0r7pEe81CPexKWYq/KrpAQNpnb tHAgoqKB1nTySgZ63cKt23idgHQQ10zz5ouGaxqTX6aUy5j8v1/XCkYW4aPv d8ynyzBlEaHcZLk3Bf4ySZ8kWP0Ef5AU9uN8aLpulFsPMIDMx3H1OKQe+BSw RbOMZpRUXldsWQO5YmeMo+JJRNTzsks2UsVB6fjZo5io4WFcl3QFFfre9/6p jfAAqm7gFcHsLRkZZQt34Jf3PZKWhb+K6M4j2ouQahlQrqK6oV/ZcEmvSt66 nV820jtOwSquheEGR8vOy6rIFQu76REv8pZ+Uruo2och/sDLhJL461GsYmaA h525GfMAH+z52MdZxMSziHCZlo2S4mFc3AnzehF+9w9HOyLphRRdr2wQUHZ8 4mFSMk+rLpJqULq+jwssN/Szmw5KUnVcs1PaHmbDQWs4aaMQ/zyCZJBDF+VJ XHTYsnMgooadW7LA1NVklPgQ76igJpe11KaeAY6pYxcMAxARFIb5PGOqOzhd n7hp4w49Yjjg17IyQtsuWCR0i7TxvGgDru56qF0n1Dl9FpeOg4Kll7L0sAYO LniQeQjpujglA3EQFLT9UHWCaULS8XPhpOFmNBzshpldVlJgUrXM9KoV9I40 snMnLm7PRu876UXtaUFzUtBgSjpszUSEGQ78E+Bt5mSooYPVMlOTCCqnJkSE R37+gYmyltbc2iL18V07ed1F2wwythMClJ+9l9WQWl7JIKoZRpSDkDStIdpp mx0Hv6gi1TW0OBvVM/N7duFF0nhTtI9jmoYNUzed1E1nLQel56K2TSctA+4y JklJtiu6o+s0UlAex4WAZPt59VnZTKq7GNOouKLBJoWHcfaeG//US1pL8A+8 zGdO4sMAdS3G2fLRn6alh2HB86h4x8146qQ9htXDeBrgbsZEuynkIIUc5pWY nAqflOPcrP2w5CxroNjoAFcbHvq2nbwR5MELbp58+Kd+/t4sDm7acF21dfzI NK6JSc60h3cnXrGXsTW08mOMg4GJl+SdNPTMZVhd1FDnYdbAQ+m7aKCeTSuu YjxNSg6BSC/TvIjw3tiDb+kxacFBHiatgdR0MZZFTc1KkTx5Ny3arxtgmN+6 2pqFUdDBi/DaJtLAyWyYSFnV6XlS5mA8UaN/XTYRAPhnUfEth8OICAqmQcHQ Kxj6EajYWczU9EgvC7a2Q5iR4nMyYtMKjYB0nVwXfeMipXlRNK0ymnlKNY4q 3/bCs5BK9uSDuVfsZ21VZbii4DTO2OsZmD7SxtInTQlPZhH+AnxciD0Js2cR 3mVaMgqKborGrO5Ij3t/4MVHRWsjD2selK3i6vO84atJOICgPv7X/ySBHFyk leOweBAQTROqq5I1JkFVNdi84uQSCjjAh+sv6LEtBw3MYNNGScqPPOy1AP85 MAMI7sgnHAUkXa90FNLWXeKOX9rzStoWXhrBgu5PQ4oYZz8lQoW5uyUNYewT AVdPktpV3TUMysWP3itIzlKCoxznoCw8jlDWuzqKC/ewY6CU5ZirnPoiK1+l xYuk4CIrO8/Im17e3y5iDuaDsvHwiyLSdmErFlzVxKzbOGUXd1I0LrNG5PmH HTdrEL69MzyDgVCxfDONSY4+1hx8aEB/OnSzL1PypAKVUqBKBlxYtBO/fdp1 cnvjy80c+3mArH0Pr2Ji9HygKapJXF9zQcpkIc5RTHBa0tGvs+ayhhhkbZd0 RODqjps3jcr6ac24bodBLV37hXzrlwXxaYK62ZCjA4SHJQnKfnY3SH9WVWPO 88ZlDmavsB9lTlLiN22Xmf2s6qaklfsXUd4yBHYeJgMHcPRF3rwqmFY12ypn NKEfTCJiMNfjhHSUlI9S6r+5yFooT0iffD8nP06I9+KSfbj+moVUNgIciiCQ lOL49hGMhQTWr+cE+GelFLgC8IxV1PHJBxFVSHQa4R3H+DBPqAOv5CZv7Hh4 LyvWaUIBb3FZMc3KllnL9fUgot3/VLj+flNP8ROeFiXHUfbzEHPDivs8rzx1 Uh9PUtppVt6NMTox2iSLvO0HZgVp1XVa0x8XxDs9A2Hs5Yz8/BZAlIPT8fEb Qf5VThdhPIe66vrYk7gUHGsniLzu+vvgi+23D/iGkD4fBwIZ+LmVPwBD38sG 99p20qdhYRvGuIXcsjNBXGJyQl7HrtgF86Kd/PBdDQpUdd1B3XIxdzJKbM0M 0x4ZhZFhBKa3cpLVvxxFvqi506LTZUyZ1+AnbsHEj3TsnIFPdJ03/m4QmiWV VZ+4A1udEfRuZVT0ZT/yP7/NWxi/CDDuNqBs2Ftx/n5adlrT4jsWsNXMTpB/ ndOAHZv4+SOQrbQSeGOeUo/hLbT4VUi8AAPrYsGPlhBsWAgRNWwUWIs6bEGH rVvAH+FhpGdvZx0xLsHVbaKkivJF3Svc/tBN3azr6SUt1cvcCdA3YRsXQUnX yRl4oSsFs5T2uuWdpfQeymbDRo/Jji9T2ipoaNYUk53F5Gctj2CV0XcTqmlK /UXFCDO54eZ/O82VbTg97qfQQddp8XVKtoxKzxPqi4z2Rcl0XTC8LFt+PwgW jeSOC3yH5iarXyWU11ldgLfbdnFWafVlVjeLy6cxWc8vnEal87Bo6OW2bHQ/ Zxu8Q0lDLijwTSsrKjnJSDBju6hh4tiIG0HmbttM8dEf1vVnf92wWzCfOwj3 A8w1L/0pqFjFSCgbCR0vFyrq21kG9as/DbOeiTZ+2rDQ6U9+WNBiovxt8fpP HZjPQ9RnrYCg4+Pc5FRDH7ft5r3thJouWtuBmYXZPRe962K1raxxAGm6oOQE YH+qdiYYVWCnxh+McNlAXkTlbsZGVoUdh5C6k1220FJqbFKFCSFHGTUGDOzA w5EdfBjg7GQVeBd9y054epHQKNG/od/7SZC2kxCfFtWkB9/7E/nuXyn3fy7b +WlavAvgZ8HcDXOeN81kmCQwMEtG3CAicogOfr/K7/7yuyH2M8HGuxbKI9bG T6yUBy76E+6TH8f520HGWsFwVjKejfzsjOI4p8Z03fyOkzHwsNp2ek6JScsw bSs3wD2ISo8jElQYOQqLD2EdhyV1Cz0qPup7+BCLjfIUosvrCBktPio7yeoI EBHEVbfRcyo088mP5Ye/KmlJZR0le/sJVeYyquTv/DInxzS0FFDSnpP74Pv/ 8vFf/IkVeyfEXgtz1t2Uh7dCcPsgGz8LCcdBPpTuPKfqpFTDnCltwH/dNGdU pzkjoWqjvK4YA4KtnPZsGZes4tKBl9Zx0cYhQdvJqhjJRR2+pMPn1TiQgJ6T d5nQuulbaTm25+H9r/sSsAK8zSOycUB8nlBdpjQQVFxyDGvHzYXcLVNq8NHj iPR13TEICEP8Lcr9/xQW7PXd/LEPKWkp52EV++l7CfnZVyVL20hKSvdh9xif /5D35N2iAn0ZQep6TF5+mBLt52THfQej62TYaY+KBuwoKV3UbM2YcpnTjoOc poN+nlEvYgjIN6zLhLTlAkIWgqQC53cCopuKvWxhthysVVThoq0DAEyDyJdl q2jrA+iXq6Rm4ObDj15mDW0bC+L9XwHm1DjITssOJEwbBcXTmKLt4dUdrPOs DkqU8/xnAy8HCMSA/Q1/4+dG7KOGmSna+FBz8vlVztC20jzkB3HJ9jTIQTbf cxAeJ4WompYQ42/G+Bs1LbaqxY3c7JGXc/v83UKquZjfzhMZG8fJeR4XbUH2 K0ZSy0iCqCt6HEgDwEnHw5pE+MDMg4Tmt9NMxYcg+x9HREfkz3/Qc7I7Dsa3 LUdJh3lV0N1+zsfKDIKCa4lJ5NhN3wjw9hLSUwhqFpb23LyOk7NKqiCWvIFU +0OvzeKKhOIU/jarPM2rMZ//+b/gPH3PRl5b/8H/qT29f5HWAvu5SZ/HkPWO gwARFeTYipLEvP/jhgFjJXyK+fDfaY5+pUF9FORu6nF3LJQHOT3+bTcQlOOY z97xUx8Gmesp8dHUzsyJDyPszZzyJKs6gXx1PJzzpHYc179dFEYl+7O//L/L KmyQ9aRvpzSNhJGTObDTxy52RY2v6slVIwWOrAwd5e1FeTth7laEt5OWHNX0 xIGTXdRgg/ztqHg/LNqtmUk+zibQHbiSnAIFWH74wb8J8nejoqO6keVnH4Br gzYEsJ9EhbOQRPjsg46V0bbQ8ir0JCCqWxic9XdCgi0r+UFQsFU04DpuZuuW KvVFD8/B3tYcfZISH9aMZBP6Lvq97xSlRyUt9iqrv0oZWi42ONBhUPVinHq7 yn/87/5Ysft+x45tWbFjL6NjI/WdtKGTOXTxoHeaLvZ5WlOz0EQb7zdNxLR0 P8RdN2E/1Z1+5GM+jol3AXhyGjSIqYvxhL3+Eyi5rBJV1uP8nE0D7t44iPQ9 wr4LfM2t6DSs7LKZPonKmg6ucPuXoL+DAKtqI5bMlJ5P3LBTobvnUTHYRjiZ hAQQUT8mHuV0w6iiYqAtQuKLlDKrPLOcfNq//aAv7VXV0XFJ4N2HHsEgILvu Bl+Nol7Ofl5zOk/w5nH+LCpYJUElgbig9UBi5Ku8/qZqHYYQF2MDqKDvY/U8 jIoJVzXjaxZiw05pORnQoRcZkF1JEmIxEcsWyqu6I4QcB3gHY78MCCfOP00j YGEYXze9TQerYMSnNGgj9X7bzyxacXnTWUS+n9GBu6GBDNUtZECOm6wazntu 5jQhH2W15wWTj72blKIqFrLq9DMj6tdV1WnDRntZtnk4R6MAu2OnjQLIy7b3 vGp9WTLfFGATxPOUshcQ9QKSXkDacHABsFs+Xj8uvayaz3O6cQgQXdKDrfCL xkHJMIBMw7K+nwf7Ce71D59yZE0B5zysool8kdW7ObsFLaVlE3iZB8bTB3E+ ykPbvEiowsLdiolYMePj0t2aFR8RbJY1EO9uQYEqa7EZGWoWEEQF2zHh7tjH HbpYk6hkltcPYgorda1sIi0zStXZHd3RR+dhYcPFAEbt+eUNO65pI+U12Kye 2AQ3HeLX7IyGk5s3UFMqYlpNabokNSuvaqIWjOS2X1B1sppO9u19Zjtv4BHD 2nUJwe9XDIyC9nYbY+I9mNhFLaaoOStqMDUd4SKmTCInTQsrqyLWLRzjyT3z 6b2cFN00U5SoD6EkEtK9hhkf5mz4qU+D5Cdh8iPLwYcgsi0zGfSI+OmfgUkc ezhlFSSOOU5p2sHb/ezfPg6G6yRUtNhVRNTyslshcT+kzKi2KwZ0WY8taHAp 5WlcdZhQHkEvRJB9UPy8llA20bIqXFKEctJvP5peMVEjgoM0cpIUHwQ5G2Hu ZhLZi/CfB1hrQcazEP1ZgPbUePxrB+5zH/WJdO1d/fp7QdyDCH1Dd/JZQoa+ KZi95HU3/jFYSC3qY+HmO9BoPt7aq6rBy9oifvIDybMPlOvvO9GfFqTHfRud dvc/aI8+KqnQJdVZXYWBUdCLSMt29iyu6oWFVR8rJD3qWKmLEL8T4A2TqnFC X7OctF24RYw3CrJ6QUbVQxzGGd0AoenE3t5g9NJ7t/dFKXUzeRQQQtlPIkjj 9hkQtWZAJZHNguoY5ljfzRgFGKDUkMqmmRrl7ca5OwMLvSQ6KDI3i9ztEnII 4jKLSio2uvLgo66RGmJv2In3gty1pHQ3INyA2oggR+/8q39kwT1KiQ5AZ8U7 H4REexUj0Udfj3F20qLDtGCvqie97QWXBXPPK8zrce0ADwqmYaH2fOy2nzeM yi6yJjB0TefZIEzuhomTHPu6rehEicsCq+3DDYKUkv5kHuD2PYxZVnp7Lygk XOSUJRdhEAfiFXQcAF2SrgvMtaTlpQ8SkklOf16yUB//BIIqiFEx2rMA/l6Y +tiJvxfkPH+RN8RkJxHRHnSunfKg76G37MSOkzgKsLLq04TskProP5VN+LqN skrKQ/JjLePJbwd++d5HxsM7etRnEfbzrpXx21G4FpHUjfSqGlfS4Zomes3K SOvwAGBtO2vs5i/inGmUPU8KxjHOZUn2oqEOytZ6IUrWcNRykvOas4lP0HGx l1l128fvBpGWl9fys/IWdN2FrdnwUEjQQSAfMPHyBnwvJPm66z/4+b+1nt0F d2k9/CjNfZ7ibce4W2nZyXlSXTHT4pKjroMZFmw1raSaGd91UZKyfRi54ApN xM9vHwK6GDUreZ5S9WOSq7LJgP48SNvs2lh9K71nZ349Cod0hIjgKCU6zChP GwZqSU+CXqgYKU0zvQIWPsSex4SLuARG0zDIXaWR8wzScpGHAXbPw+44uU0r p+sWLNPai7y5buf1AkjNQW/76IM4p2DBVq20opackqIrGkxEuBcQ7F/EFR7K kxhr03r0UZa/U1agC/KTloVWNVKvM4aw6Fh1/Bm0Q81MzipP7JT7ou13vZxn oPUvC1oQ01tj6GLc/k8NDa4XQb4ZBKLCg6z4ZBIQd8xUiOibcVROeeKkbrRN 1LT8pK6n1PRkF3UtzNsrKAGcSE0nYZlAJkFk6BX23KyLhGgZ45WNZ69LuqIe 5+HuTiLKsokxCIrfNr01K7tu5zRdjFGEN0uLekEQXEXPzY2Jj0KcbRvpkZe1 CZUwdrMbOgyy9pcDKzmBHJZ0hI6DU9SSzuPasp7uZW4X1ISKnsRe+8/8zXeq BtzIzwW0fpHXpBQokKGeh5VRnpT15LyR9LrhSMvPiip8zUpvmSldWAOiQVYH JF+QowFW04qzRVj24C/+RLDxflyMAiqbxpmLuBAiqumprwBl/bSY6OnLnDSt 2Oc9fxccMRRSXIEGDwJGsgYSHxLXbcRhgF4yYmy0BwGgSulBFC7bQIHR2nEy ywZcSY9ZRASLEKduxqUU6Ib99uZ21cSEcAYeySKsHLiFd773z4RbP29aqXUz qWmjpFUn4OKBSG/JwcexUR6mkJOajXFVNAFPFlS4gomcU5wOHKyig/Xfv2xA jkynd5puZjcEftzA23g/pTiD35mklIsMcxhktOFNtaRlgHcTZ7XNx6sou2pC Gwl3uj5O2c78qufxcZ9B50bFB7CHVTOm48bXDJgouBL1SU6LrlgpLZ+gHxS2 nPSmk9JyUWYxQcFwUjSiyxZqzQ6NT0jL8TkVeeyTV/WMFxmjDn3PQXnWc7EB oXPq07jsAOoNDA68Ppywn/3EQXri4+0A+lYMlKKWmNLgMrLjtpnWDiH/9UXJ RnrmIT+puOgvOk6f+IC98bO6nZm1kJsx8f8HLGBwKA== "], {{0, 70.}, {70., 0}}, {0, 255}, ColorFunction -> RGBColor, ImageResolution -> {72, 72}], BoxForm`ImageTag[ "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> <| "Exif" -> <| "Orientation" -> <| "CameraTopOrientation" -> Top, "Mirrored" -> False|>, "XResolution" -> 72, "YResolution" -> 72, "ResolutionUnit" -> "inch", "Software" -> "Adobe Photoshop CS4 Macintosh", "DateTime" -> DateObject[{2011, 4, 1, 13, 34, 25.}, "Instant", "Gregorian", -5.], "ColorSpace" -> "Uncalibrated", "PixelXDimension" -> 176, "PixelYDimension" -> 176|>, "XMP" -> <| "DublinCoreSchema" -> <|"Format" -> "image/jpeg"|>, "PhotoshopSchema" -> <|"ColorMode" -> 3|>, "BasicSchema" -> <| "CreateDate" -> DateObject[{2011, 4, 1, 12, 45, 47.}, "Instant", "Gregorian", -5.], "CreatorTool" -> "Adobe Photoshop CS4 Macintosh", "MetadataDate" -> DateObject[{2011, 4, 1, 13, 34, 25.}, "Instant", "Gregorian", -5.], "ModifyDate" -> DateObject[{2011, 4, 1, 13, 34, 25.}, "Instant", "Gregorian", -5.]|>, "MediaManagementSchema" -> <| "DocumentID" -> "xmp.did:D1131C929122681192B0E8FF9C0FC98E", "History" -> <| "History[1]" -> <| "Action" -> "created", "InstanceID" -> "xmp.iid:D1131C929122681192B0E8FF9C0FC98E", "When" -> DateObject[{2011, 4, 1, 13, 34, 25}, "Instant", "Gregorian", -5.], "SoftwareAgent" -> "Adobe Photoshop CS4 Macintosh"|>|>, "InstanceID" -> "xmp.iid:D1131C929122681192B0E8FF9C0FC98E", "OriginalDocumentID" -> "xmp.did:D1131C929122681192B0E8FF9C0FC98E"|>, "RightsManagementSchema" -> <| "History" -> <| "History[1]" -> <| "Action" -> "created", "InstanceID" -> "xmp.iid:D1131C929122681192B0E8FF9C0FC98E", "When" -> DateObject[{2011, 4, 1, 13, 34, 25}, "Instant", "Gregorian", -5.], "SoftwareAgent" -> "Adobe Photoshop CS4 Macintosh"|>|>|>, "PagedTextSchema" -> <| "History" -> <| "History[1]" -> <| "Action" -> "created", "InstanceID" -> "xmp.iid:D1131C929122681192B0E8FF9C0FC98E", "When" -> DateObject[{2011, 4, 1, 13, 34, 25}, "Instant", "Gregorian", -5.], "SoftwareAgent" -> "Adobe Photoshop CS4 Macintosh"|>|>|>|>|>], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {70., 70.}, PlotRange -> {{0, 70.}, {0, 70.}}]}, "RowDefault"]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, Key["Image"]}, "Item", False], "Mouse"], ImageSize -> {{56, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}]}, { Item[ Pane[ Annotation["Registering Land Ownership", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, Key["Title"]}, "Item", False], "Mouse"], ImageSize -> {{235.20000000000002`, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ Style["\[LongDash]", GrayLevel[0.75]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, Key["Tagline"]}, "Item", False], "Mouse"], ImageSize -> {{526.4000000000001, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["\"-3000\""], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, Key["Date"]}, "Item", False], "Mouse"], ImageSize -> {{75, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["\"Babylonia\""], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, Key["Region"]}, "Item", False], "Mouse"], ImageSize -> {{60, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ "Babylonian stone boundary markers begin to include \ inscriptions that record ownership of land.", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, Key["Description"]}, "Item", False], "Mouse"], ImageSize -> {{560., Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes[ TemplateBox[{"\" \"", GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJyVuweYHGeZLcxz//+5d5/dfzHYBhsnWWlmFCanzjlVdXXFrupKXVUdqnOe PJpRdE4YE8wC6w3ssruwLCywZgmG5eKEo2xJVo6WZGk0eTRJkvH/tgTGbLrc 9udyTU3Lz3fqvO95z6lurY2X6dT/+NjHPtb3R3CgY0POWi02wnwCfmBLfdl0 SU8ipX49rdcM8f8HLvp+82/9fO63r/nfvWbnF6ZvrLn5qdm5S9feX927f9+D jz7CCrwPRcJ8hIlwwSBGEuGebguGoR6vFUF8UUWuVAtylC+WsrwQTqXjcGTC oUolWyokJQEnUBuNOR65f/yhXcOP7Kw9uadvtKoNVrSRvnQtq6bVcEajdwxn dm/LJqNoQafuG88d3veLD1Yvrsyevrp44drS5NXlmWvL879eXfzgyvIHV69+ 8P7VD369+pv1/sqN9X9ENDc3ubRy+evf+Mb47p3+INprNlkcdqfXTZCkw+5t be0myBBJoUEsEAj4tJgcQLwUjfv8LkUVAVSYI2UlEmaxtC5nk5LEodWS9NUv 7fzaF7btHo7nE6QmhyK0jyd9LO7iCFiOaMRXTLOfe2SwryD8499+HhCtzp1Z nT935fLEleWpa8uz768s/Hp16YMrKx9c+x2QPxDR7Nzk4tLc2XOnv/Dlp7PF QmdvDxlmkBBmdTokWbZaXHabh2GodCbm9bpIEgeCLFZDAPF4vA5/wI0GfbzE UUwIC/kkiSnm49mUFNOw0WH1vnF9tCapvDcqYqk4ryusJhKFlJjS6KRC9JXk 0T41LgV2jWamzr9zbfH8yuy7qwvvrS5eurI0eW157v2Vyx/UQS39+upv1n9E 9JHXTJ2a62t6ZmJl9fJrb7zy8OOPBQnc4XHnyyVPwA8rhOMtzR0hjAaOBJGx 2S0EEfIFXMAOFgoEMb8fcVtsJpff7UM8AdTr9dkxzE3ivpgmyAJBodaQt0dX yTDtLeRimN9B496YTBWz0VJOfnB3bXwoXkqH80n6+ee+/cHqxMrc2dXL760s XryyNHF1eQo2/uvVyx9F9OH6bxABQbCmpi9+5Wtfjmpal6FXiMp6NgPdpMRj 6XR6U1OL14NCH6UyGhZCwmHa7bUDQW6PnSCDCOLlRTZIEd6gH8H8DEciqBvD PIlEjOfCD+0ereaUQlpCEEssxiM+exBxUrgnTPt8nt6YSg7Xog/vLg+Wo888 /eCvly8sz5xZWTi7fPn86uKFK0uXrq1M3wD1f4toeWXhnYNv7dqzw+52rW9s WNewsbm9zeZyGCxmgiAinAwcybIIVZdOJxVFDuEBUQLR8IFExBPRqCpTQiTE UEESi+tqOpsoFFPFiv74Ezue+eqjEuct5qNo0BlVIlGRi7B4pZwW+ZAsEf21 ZDaOl1JMNkbsHM6cP7n32sJ7S3Nnln4DauLK0tTV5en3V+f/cESz8zPTs1OL q8s/eu6nEUla39C0cdPmtq6eHpPFh2L+YIjhGF4UkqlUvlgIkSGKYQRRQoMo SZFMmMoXszt3jRXLub6R/r6hKsMR2Xzyyc89Uizomkp89vHhp7+wc6AavW9n aWw0l05HeZELs0Q6pSRiHEO4+spaIcPASseJUo7/2Y//4f2Vi8uzJ1fnT1+5 DBLx3tXFiWsrk++vzr5/ZbHeRNeWP1z/JaK5mdn5+YnZmT0PP+YMBO9cs/7W 2++8Z93Gu+7dcO+Gxm6jJabHJE0SFMnp9XCirCXTrCCHSIZkWFCPEE3kK3mM CioJRU/HU+lYOhMv5lPjI/3DA6nHHhr48hd2P/n46Phoes+OfDolaAmJ43FB CAkRJEK5MnG6VpF2jGcHamoyhj/15PbVpXOrsyevzp26tnD2CqzLF64uQ+3N Xlu9DKD+EEQzczPzi5ePnjrFStGwFBVk1YeG4qmszeVt6+o1Wu1qIiYqktlu 3dC0qddsQ3Gqx2Q1O9xObwDBcZffa7KbvcEAXI8IkiDwgsizDBlXpfHRwvho bqg/OdiXGB7QC1lBEkOKxiYSfDRK04SLIV1YwKhKwdGhVDrJqHKwv6KePb33 /cvvrkyfuDJ3ZmW+rnvXJWL66srCDVAfrtnfvv4dIii5lWtXvvXd7/Za7W4U Y3nJ4fHLWsJodUQkJVeqAKJ0PkeGWYqNuP1Bjz9kdfmt7oDJ4e622GxeDxsV CY5t6zTZHF6SZBQlimOI32sX+FA2I1UryXwumkxwOO7kIyEdqEwoYoShSdAS hCYDqkjKPIb6jIoUzKbCP3/uHz5YPr88dWx17jQgWpk/v3oZJOI/QTTz29d/ 4Gh6aXVlZMd2i8ujpjIkwwUJ2otgISoMiAIYkUhntKTuCQQFWWM4meVVSc3Q ghZkIiE2gnMRvVSIZbKcEAugBM+LIyODu3YO7xzvi2kRlsPCYTQUcnu9lubm DaGgl8ExAvWbersbGzY2NTa2NG8NeGyaTKsSWciKwwOJr/7Z/atzJ1dnTi7P nFyZB5rOr9TH0+QfiAhUbmFx/vTZdymOQwhaTWU7e02weSREiUo8zEtqImV1 ukEioKhsTigt1uMnA3jET/FOhPAStNWPMFGFEiWKlWT4I2Emm4vt2F4ZGkgO DZVGtw329ZegswQxnM0l+2vpx+4f2rGtrCoMRSNma09Xd1vLpsamdfd0tjZg AbMeJ+/fUzp37NVr82eWpk8uzZ5emju3NH9++fLk6vL8ld8H9SGi2d+9QOUm l64s//KlF412mxyLuxG0YfMWXo6yghQkSCgzkLaWjm672wfEUWGB4aIIxpjs PrMrYHL6nQEMoRibL2B2eQmKVVQVfBHwlkrx+byYy8UYGqMoNBBwIohLTyqV cmzPrsLokL57d7VY1h59Ytfo9loSxF8ISxG8mJV3jxdGB9TXnv/na5fPLM0c X549tTT7LniZ5YULgODq8uy1lfn3r9RBXfsIoo+SNT07c/nq6hef+WprTxfF 0BsbGsD2hCgykU6BRwWn6vb7O3oMbj8KWpHM5BOpHLAGWgf0wZJgAOsZf5Cw 2l2KosqSSJIhsHx6SsvmEnEtkk3J+YxKk75CVoM1NlYlGW9ECFZqSVHGB4ay dNjvRcwBxOpy9PC0b/ug/tCOzHf+7qkrC6eWZo4tzZxYnjld90Vz564tXHx/ afKDldlfry4AqKv/GSIgCRBNL8yVhwfaDd1mq+XetWs9fh8BXRtm3NdPQBaA Jorl63DSOSWuwzkZ5lhBBK1IZnKZQtHmcjvcHoqiMCzIskyxlMnl9aSuhKmA GMHJkCcYsNfKqbGR8shI2eky5AvxQikpRRkM93h8ZsAYwt1EyKOrTFxC94wm vvLUtpmL+1fnTy5O12laAfs6d+7K3HtXL0+8vzzz3yCC1/zly0dOnWCigtXj stptGxo2gt+G8BCRRDBCohJN5bLACE6znBiNxpKAiAxDKVKcKIC7kDVNUpUe k7G9u9tms0UiXDQqJZJqJpuIKtxgX65cSABHwwMFRaKrpeTIcCWpa/lCCsYW FvIrqqCnVFGh9JQUYYNxmUwpofvH9M8/1n/o7R9fWz6zMHlkefbEytzp1bl3 V2fPX6nTNP3fIJqanFxcXn7u+f9tR3xeDO3o6rzz7jt9UPVYEKopU8jDbgGg 2e4SlVgqV4R6A5oAFwDJlQoDI0NhIYISIZPN6kMCKIpSFLFt20ipnKv1Fau1 PMCJq1w2Fe2rpAGRLJDptDq6bQDoAyywRInlImQQd7a0rg/TAYHx9xekR3bl HtihP/fDZ95fObkwdWhp9vjK3AlIGcDRNeBoaRpG69WV+dWVhf+IaHp6emll +Wt//Ze2gNeF+DY2Nty79l7oI7j/IAMABwiCQAFDFmQBxBw00OUDFWSh0UiW tDgtKIEiOBIk0RAVYlk2mYyPjg7n8inwORGegkISuVBCi0AHFXMxxGdFEXul mgJGgiEXxQQstk4kaNcSrMvdCxxtG8hqgr+WZfaMxf/mL/Yszx1anDm4OAM0 HYPaA46uLly89t8iqk/bhYXxPbvtAZ/d5wFEDU2NAEdLJm5UHSiD0WrhZQWa SFLjMJug/IrVgVy5KMfEVF7HGRwlkLAYxsgg3HddTw4O9kMAZDkSlCGX0fSE yFCBSBirFJOawsoyNTpWAlkATYgl2FI5Fktw0RgD16MSVUxLlSyvR30P7U49 9Xj1wruvrMwdXph6Z2nmCEjEysy51fkLVxcnP0Q0/dvX7yianTt97oKmp2Hc ABHrGzdvbWu/ESKglQARlB9UHRQVKwhCNAqN4w74QS7gt0goCO+EEpU1hQhT VJhhaC6lZxOJhNVqYVmai9BBDAkGURFMUZgJBPyQfJ0Oq99nS8aFQl7TkxGX syuIWuNxjgg5MnokqRK5BN1XFO8fyzy+p3zozZ++f/n05UuHlqePrsxA7Z1a rZuiC6uLU1eW5/4jounpqfnF5Tf3vQMVBeXUa7aDLwVcLp83GtNkTQWagCOc psx2Gyg5FKEPRSAJqok48AhKGNOT8M5Kf19ElpLptCxpohjFMExVlWAw4HLb YNpCEgEB1DSNpilIjg6bxeey4UEvTfgFDkP9Fqe9U1VplvEJXEBXiZRGlDLc SDn60Fju3579mw8W312cOLQydQMRGPIz1+Pt5H+KaGpqann16ne+/ywYTuiR La0d4LchggIRQMENRP4gCowAChhPQBl4b/gtCDsAhP4CjIAL8N7Q+UqlRtMM oBga7qfoUE9vh8/nVhWwpCRIen9/DXKiGpVUKeL32NGAM65GkvFIIafIMsFQ nqiElbNCOkb2F8RahttWjn79zx64MnN86dLhPxARcLS4vPrUl/4MnDYo8+aW 9nUNm8HwABbYdjKThjwOWKDwvEgAmAI1gM3DRZBB4A5+BOA2l5PmWF4WAVQI A3EIi2IE5tF1RG1Wm9Hrc6FBv9NlrVaLgshSMH8l0WEx9nS2ChEyKgJcv8vZ rSnUyGBGE9GUimfj5FBR2t4Xe3x3ZfL0m6vTx5ZBw6eP3bAQy3Pnli9PrC7N fhTRjRdwNDt/eef9D0HJMRERrA5wZHd7gA4oKqglyOZABECAPcP+UTwEeRau UGzYh6LAFLAGSOFHeAPcZYfDhhPBaq0Yi8tchIDpqWp1fUZQj9nSk83piiao ikQGg16n3WbqpXCEo7FETKhVkuWCJvFoIhpKqqG+ojRaUUbL0aceHDh35GWg 6QaixToocHpnlxYuriz+HqIpmEOTk3By7vyFUm2QoNkgTm1qbtvQtAUJEUEC z5eL5b4q7LNUq0JpQbPEUjrUFcABFAwP5hyH36ZymevoEF6WKBgnAQ9Bormc 3tdfyBfjuWIsm09QNCZFOYoOQpxHUHdajwthLuj3g+pTOCrxkIk4WSZJ3Mkx XkAEHA2Wo5+9rwZ99MSe6is///b7c6eglf4LRJN1NDPwn6mLk5MTU9N79x+s Do5QnADJzuryyrEknAew0ODoNkgQvWZI5UGCCbMRno1EtHgilkjIigL3PYBh nCTD2yBlCFGlWOuDmUuGSR/i9SEef8BJh4Ngchka9XmtBO4bHCgNDZbdLlM+ mxIigqG3x2Y1h7BAhKMiHCHxoagAUdgpRnx6jFAEn8R6R2paf5H/+7969Or8 8csTB6GVFqeOLNVBnV5ZqD9/uLoC/TMxPXNpCpzC7Mx7U1PH3z3/8xdeVhIp LxryY4QHwfiopiYhV+doTtza1gnDFAwquDgkREKKCEdEWY1DZmI4AYxQoP7E IczLKi9rEKMSmZya0qGqIFrr6US5mlc1MaaKYQrrq+Qfum9HIZskMB8fCcuy 7HI5QyEU3GxCV9MZJZVg4yolC2gqQWXTjCz6VBkr5yUw4V/63ND0+TeWp48s TRxanDy8NH0UBlP9EcTiuasrFz6K6N0LFw+eOPWDH/+Ujog9ZtuGTVu3tHUG Saaj1wRhHGxPl8EER1jdRkuH0dZpdnQY7QaH1xuiuy2uEM1VB4ZBTyBlgFSC tqAEjTEcCSFEjQGhNEPJssiGwXpgIcyPIB6n0+JxW6EyEQRxu5w+v+f6sz6f 22MGRIWMWCuD/UskY3g+y6aTbD4dqRUj9+9MnTz48ytzxz+C6PgSeNeFc6tL dURT0xOT05MXpyaPv/vu4ZNn/u6fvhukmIYtLbfdtQZAWZweOL9n7Yamra09 JqvV6TFBxsNIbyjsQEg/GXEFaYQWvDgXFtVybQBcxMZNWzt6jFC0Tc1tzZ0m s8PjcAd6jRaz2RYIIA671WYzeTxOXmAZhmTCJMNQgij6/T6T2eD22K12Q29v WwjxEKiHJRGXrcvr7HFY2lCficDM6XhofFh55Zffujp/YnHi4OKlQ4tQe9N1 RMsLZ1eW3puavjg5dXFicuK9SxOHjp84dPL0n3/9G3Bv1zdtAURb27uAJuAI MmxrZ0+XwWy0Otq7DWB7UIqzQiAgIyjNezDaHaTtHhi1oO1+eANgB7WEc7sX Aa0Hyiw2O/gDkiCcLkevodtg7LHZLSSFE2QIuIOZ29nZ3tvb1d3T1rR5fWvr ps0bNjY3NrVv2dy0bk1Pe7PL2hv0WxjSDnW6fUT93jefWp45evnCO5cvHbw8 efjy1LFFCOzz764snr+B6NLUpTPnz7598NDB46ee+OLTXgRr3NrabbKSLO+G jXkD0DuAAjYJZjtTKMtaIleqjm7fDQ0F50o81T88FkumO3uM8DYtmYbrENoB WofR6A2i8bSeTCXUmJxOx60Oq9FqtjrtMAJgeOEMZbKY4R+w6BiGdve0G4yd kG1dVmMo4FYEmg8HkxpbKWjVUqyUEwYq0p7tyb/6yu6ps3uXAUsd0ZHLU0cX pk4szZ1ZvnxuavLS5OSliampI6dOvXXo8P5jJ+5/7Ilesw3BKZAFnOFA6KCt ACNGQtxDIZwCKDhPpLNxPUOzfDBEJdO5eudn8jaQNIzQM3mcYoGX1p7ezR1t PgxJF+A2ZPV0TJRZoNpkt6EhzO3zmCwmbwCSO2GxmPx+N46jXp9Di4mCQMYU JpeRgoiJIR2KjIoRD9gKjnbmdHKoKj7+QPnw3ueuzB6bnzhwnSMAdXwR0vr8 2Zn3QLjnT5+/9NaxE3uPn3j14OGdDz1itDnbug0g3QAHv/4UCIBAxIObfyOu VvqHwRVZfJgLDTsDsCiDO9Dl8NCykkgX3O5Aa3tPl9XRYbW5UQwPQzAUOD6S ziRxAjXbLJBN9FRC12OyxMUVoVrJ0AyixjjQdiTogNGEYk5fwOoFM2XvhKlU V7wYGBRrLsWN9if0KPbgjuLzP/671dljMxffmp88UE9MdfNQj4GzE3MX3pt6 59ipN44c23vi5CsHDlZHtgEWUY1LWiJbqgJTcA6CDBYCwt3AyBjggjvuowRb kEVYJRhRA+EowqohXikNjqiJtMFga9zU0tja0Wo0OQPBaCKZyuey+dzItqGo Ilgdtm6jARw4eCGw8C67MeC3B1CHL2CjGIRmUIYNijKdSsOMI1WVyaZEjvZE eTTKhyIMomv1kL59KPHNv35kYfLA7KW3byBavK544IgmJ2aPHj/z5uGjrx87 /taJUy/sfTtTqvaYre09RsAFEgF9BN1EcwKAgt6BTAT6LKkJXtYT+b784KiY yuqlvkLftlimnCpVpZgOvyUAf1zXMnlejQFHkEQCKCJKEYIMWh2gFoGhoQFV kxPxqCpxfr89mYyCR2LCmCDSWkzw+ewkFfR4LCjqMBtbsIC1WtB8LvPau283 dG4aH87sGEk+8/T4hTMvzU/uv47oIBTeDf/w7vlL+44cf+PosdeOHgVEv3j1 dVXPOGHGIxiseDonXI/eMD2h6oAaqLp0oQyNUy5U8oWSlkonC8VSX7+e0GvV QVFLIiTDKTGEZtPFqhzTqYgYS2XANYEjgqqjGdxoAfl3ajHFbO71eh2o30mS iN1hdntsYPYcTktd5hrudTjNTU3r8rmEy96D+MyVnGY2dDZvbTL1tmpRopRj H9ydfWfvs0uzh2Yn9i1MHly4rg+L0ycOnzn75tHjrx8//trx42+fPP3TF14W tQSwY/f4bxgGQMRJCjgBuOtAE+CCI8iapigEHfbTAi4lGQkCbjKlp1Gc6TDb Oqz2Xofb7YexxnvQEBFm65GKJLS4wnKUN+CHtMVyDEiB2dyT0EQlyvkD7lQ6 DngR1Ltp88YtWxvNFkNr62azqdtlN7Q3bwz6LPUnzALj81naWtYO1OKDNfXH //IXHyKav3ToOqjjbwEcIOj48VeOHt136vQ//+inYGIADrgg0ATgSNMzsVQW ekdUYnAsVPoyhUoindPzBS6eD2fGw7ndbGogU+1PpjJxPUeKcpfd2WwwsaKS yZVYSWnp6rZ73Fo8ltBjUHj++kMYNJfPYiFwCh5ZYCSRhQhIUqFwmAIj1NbW vH7Dvd3dHW2tWz9z+625dJzCvEGvlWVRh7PHYm3fumUNzwYKWenrzzw2d2nf 7KX9sxMH5iYOzV86vDB5bO+RY2/COnrs9UNH9p849Q/f/xfQajA50D5uyNh0 hNdSIBCxuC7IaliICkoiLMYYKcaoSb1/vDT+WHn8ieLo/bmBUUFNylo6kSuT nAS1x0OLaImong0ynB8nrvtbWomp4MxRHBMlgSCxCEeXC6nh4erY+LAghiU5 ksunoPyaW5p6DR09vTBg13ucRtRnMXRAvW112LokHidDTiES6K8mHrqvNnHm DWBn5sKB6xzVZRwQ3VhvHDqy7/jJv/72d0g24vGjFoc7BAkhmsj3byv2j+SL FWgiSU2qqUK2NpwqDw7vuq86sj1bHS3078hUR7MDo1I8rcbSajwtRjWWF8F4 x9PpiJaM50u0KDOCmICQripQciabRZJF8D8UhTEkKolMUldBCtCghxcYj7cu C13doJQd2azGs8FKIRbG3TyDYAEHjjp9rl6zYVMk7B3pTxzd929AzezFd/5T RFCBX/vG3wdCBDRImJdoPirFs8XB8Uy5P5UrgMpB44uJjAyg+kby1Vq2VEsW BtP9u6KFkXC6j4vlIlIyxAgIESZhLvMCBvkhzPsJCqUYigN/XpdJiFEAignT oN7gWhWJZdn6h+xaTAI4LEeG8ADwZTJ3t7Y2MUyQCLkZAjyePeAxhRBHVCCK WQVHLakkGAnp1ef/eWXuxEcRAYp64R0+CuvtYyee/MrXiDBnMFvBP3uDZDSZ LwyMlQa35SvVXLWvMDAcy5cLw+PlbbvipVpl/IHc6MMPffU7j/71vzKVPQ4m 6SFVU4A1eCmDF7fj4QArewnwsWGEYlL5gqRCLqmHRIvDVizlE0ktm0lExXBf LQdAoNgkmQNQdofJ4TAFELfNbqAohKEC6QQPIXhsqJhOSCKHCSyC+AxkyKbJ wWf/6auAaPq9/XMTN8Th8IeI4Ajnj3zxaZSgnB4/aBr0RaFvpDKyszQ0lu/r TxRLWr4YK1XVYk3MlqV8/31f+vr3Xjz0zA9ee/q7L8W2P+WTiyZUtOJKb4Az YREvHw/wGiFEWUXzYHgylwNEJEOD7oEy8AIHaT0qR2KKgAW9IRzJ5pJMGC9X cqVyFgBGeBqmkt3eSxE+KDOPvau7rcFh7mQIn8ihUgQBI5FO0H/1lQcBBSD6 kKYPEdVF7+DhB558ChB19Zog3FlcfjGWLvSP5fuH+XhcTOqJUiUzNKpV+hO1 oczwjuLYg1/95o+2PfyV0vijuZHdSrampGpKuuIKMvF8NaLpsVxJ1rNKOhtR NCWRjKdS4Bxg2nb0dKVSSVkWkvHozrEhWWITSQWqDtoHSg76qLVtM1CGom6S DLA0Eia9qohTIXelmEyorCoRGZ1DAwafs+2zD/VPnd83d/Hgh4j2HjnxJkzY OkfHX33n4H2ffTIQwiOihNNhGI6JfDlVGRjZ9WCxPJiv9NdGxiqj26HkiqO7 M7Wxsfue/OY///zzf/GtoQeeTPVvE/WilqnAQFWS6VgmK8QScjrDaHE2FmcU NUBRAQIHIYBYbnd7OCGCBhEYSUHUm0xEQcBVRajVCnCuRHngDlqJCYecTgOG OBSREMOIqXtLwGNxWrsshpaN62/DMLsQQUb64mdPvLowfXDmwtvzE+8sXDr0 xuGTbxw+8fqhY28cPvby/v27nnjcW38cR4VoGoiXEnphcDhfG9ZTpVgyEwWn mimq+UE5N1IafejpP/+nR5/6m89+/fuP//2PlKFHA3LBGmQ7LG6jy+unGQ/N MiDdclQfGKA1jYtrQjKmZHU8wvdaHWFRJCgyqsoJXUvpmh6PZlMxgSW9Lqvf Y/e6bTa70eU2NzdvtJra4woDlYb7bapEA6J8LtbYdA+4WYejO6HRB/f9fH76 wPR7b8xd3Hf54sEPEQFTL7z11raHHiTYcI/R0N7dgzFhPpbM9g1GYolIMqYP VLiMLpaq0b4diW2PDT/69ODuzxVHH/vmvx344vdejo89bcXjKKtavFhLtyGW zROyKmQKpBZL9vVhghDWFAYiuSLhbKTLaPEF0XCEczjtRnOPz+dE/a6EJpXy KTgCunw2mUyqqsYDsQzp58Mwig2Y1wJ95Lb38FwogNjWb/yM32+Gbnr5+e8u zR+eqiPaD4hePwRwjr9+6CjM2V+8/vrI/ff5sCDNhtVEkhElPpZIV/qkZEbO ZJRigU0l+WKZLw+xhdH++7/wtW88+4Vn/umRr31r7Itfx+N9CJcKspoLoSAE IiQdYCL+sBAUJFoBW84jDM1IghTXgnR4c1uHze3Ol4qPPvbI2PaR0ZF+WQiT oQAcaQKFFRVZl9va0tLY0tLQvGWtwKIc5StnVAJ1hUk/RfqxkKtx0z2BgCVM OZ/7179ZnjtyHdG+hQvvvHbw+GsHj736zhGouud+9ava9u10hCNoyuX3W9we nBPAymTKQ8lUVUvlk6Vyqm8gPTSuD+wY3v35X7xw4IGHv1wdu2/0kcclPV0c 2B5N95kdAUmJg/EQ4ukAI+CCjHE8yB3F84Ki5CslJZXutdicPm+v0UAyBElh kQht6u24gUXgqGopu2fXGAzf//m/PnbbbTc1rL8D8jhLeuigC8YrjXudjp4t W9bedc8tVms7TTi++befW5o7PHX+9VlopfcOfIgIEt9PXnqpun2c5mEUsl4E xSGoxfVYvpgq9KXS5Ur/SKZSS5b7EtWR3MiDueGHv/39F//h2899/s+/UR7f w0bjql5BKQXBwqqm06yAkCyr6JSouDHc6HR7UJQTRVaIhEXZh+EeFPEF/B6v W5S43t4OCH/DAxU86AN2ABdFgK0M+ANOgvA7bd25VP2LeSoPWcRdysXcLsNn 7rgJEHV1NQW83X/51QcvzxycvvDGv0O09+iJn7z4Ut+OHRTH2l0uXxATY3Hg SEym1XQ+Eo2K8TglyRiv0LFiJDWUHn7wL7/90x8+vz8//kgkOxBJlEKMCsvh xnhR7RvaJmq6D2cLgyOsEhMgP8bibr+fYVlJi5vsTqfX02PsbW1vdnvsLqel XEyHUG9U4myWXo7BYUjZ7YZt2/or5ZTV3E5irgjjJ1EIiB1+j1ngQihqR1B7 NiOHUNMXnxybnzowc+HNG4hePXSijujA4b2Hj/3kf78wNL4DcgMYfj+GBQiS iNQNNC3HFD0nxlN8LB3P1+L5vmi6nMjXtOLQ1773i9rDX04O7pB1HSMhHoZ8 QYKPxuiIxPAypL+h3Xs8ITyqp4Mk3Wu2GUzWQDBIhmk5KoZCCNRbKqFgQU8s JnnAM/zmeXivwdhh7m0mMCeO2O3mNhJzVotxHLWD6MFsErkgjbvBFNWfellb nnh4YPriW7MX9/4eov11RD/+xS8BEYqH/ChCsXXDjEfqHMEWBVWXE9mIlubU tJQqxQsDlZE91Z2PlXZ/ftvn/iKsFyieI8JhnInE03klkcYo1ubycVENYyNO FOhOQMiC2EgxnBeB/zkTT8TCLBXC/IrEuVxmAALmB8V8cNLd05bNQfKIsJQ3 qbEyHwIUmkxBkgWJgPMQaoOLAIrGXQFvz/07CzMTb89O7J197/cQvXX4+LM/ +7di3wBG4FB1oN71Z4dIUEymEvlKMlvIVQdhgMqZmpwbiFfHK9sf67vvC5lt jxZ2Ps4lc3IyiYQIUU0ANUSYh2Ou3MfJmtHtsXj9nWZry/XHfT0Gs9FiBV8H TlXXYzBeh/rLfr9DUQWwQOATvD6HxQp2Ds0kReACIMAC9aZCLkAUFXC4CMYV LqI+c3f7RlNv4/YR/eK51+Ym3pq5juhX70ATHX0FODp09Ac/ea46NOIJ+K0O h9Prg3nkCAT9FFMeHAWLKcfTcqoUSdUimSG5vL2850vbP/e3tfu+FMn0+2kR ml2IqjCbOUkFgtY3bd24uaWptaPDYr2ncVO31Q652ItgXT3GLgOUnkVPJfVU 3OO2QZowGTthntJMyOd3RqMRPaUJAp3PKLDthBrO6mIqHvE4uoEXwAVeyG3v gh+hCJ22DgKzDNWU9868AlU3dW7v7Ll9H0F07Ls//HFlcAgNhTY3b73r3rUN zS09NqcTDenFihKH0V6gZB1XC6hSRuP95Qf/cuTxb/C5cTKaVVMlhpeyxaoH wSG6IjgNNDm9KBkRUYZtau/ovP4oZnNL+6YtrTanCwKFIMDO45Cy8xB8k1FI 62C8IUGQFAoer16HXrMqkbCgWcy9W6H8hvoyUHtwkkkKYCGg6mymVmNPY7Uo nD350szFNz+KCKru7SPH//H7/1Ks9cN4tbtdFqcTISlWVilJ0SFBlKq5ygDK aX4+5RILDqnG931WqD6KiCVKzsiJHFF/rMdAz1OsADQVqgNmcG8o3mWzr2na 3NjabnV5QlTYYoO0ZjZazTC9k0kNC/qcNgOKuJwua1ThgSboJnDdyWQ0ptCQ g2JR2mFpd1o7WMoHEODE7zZ0tW28965P3v2Zm6CngKNcij517PkPOXrpwNGX Dhx5af8h8Azf+sGz6Uo1LPIgR25/wO7x+oOEF8ExigtLCqckGEUPigk8lkej OSE/phS3x4rbhESR4mMdvVYlkfVh9B1rG2wepMfquuWONbfdve6ONWu3dnT1 j4yEef7eDevWNazv7O7YsrUphKNJXTOaulxOazablKMRCBGxuEzRmB9xezxW hvTxLBb0O7raN29cd/c9d3z607f86Sc//kdr777zzk9/6u7P3Oaw9qI+W2fr +lyKOXX0l8DR5LnXZs6++eKBIy8eOPzC/oNvHj3+7R/+a3F4mJVFjCBaOjqd Xr/F4aHDIsNH9XKV0xJSKq/ka9FCzUOLYTVX2/ZApjomJYouP9m4pQujeLsH WbNh093rGtc2bNm4uXVLW1drZ2+30RyiSLvbabAaHF57d2/H7Z+5FZJdLB61 2oyQjKDeRImFkgNxgFZyuiw47vd7LU5bz8b1d3/q5o9/+uabbr/1lnvu/PTG dfc0rl+/uaFp49q1mxvrjyBA98q5etXBhJ089+rM2Td+hwg4+pdnh3btIrgw EsJQnEiks6DANCsl0gVFzzCyIiTSlBxntDSppCS9KiUrbozDw1GnDzdYXJKa JMEq4JTDi9z4TI1keSWeYiJCPKUD1Ta3zew0dfW0b9naiKDeMEsGMT8EOZAC qDcQh2qtkMkmgC9ZZm3mdrOhuaO1sbe71dDdZjV2e5xmoOm2W26+5aZP3HLT x2/5xB8H/XabqaWSF0AZpi+8fgPRC/sBzqEX9r3z+qEjgGh4927w3g6Pe0NT 070bGpq2tKGQK1gxgBNcVNXBeKdzWr6SHxzXy8OxbJ+cKGQK/bBxnOS0eCoi SCiGb2lpC4YIjKD8KAbp3uJwNbe3r1m/dm3D2uYOqMHWDRvWCCJb6yvJUb6z qxULgR2yBzEfQaJwTjP42rV3MKQnKuF40ClyhKm33W7pEXn85pv+aP2aOxvW 3du8aePmxjWNG+4A0ShmIoBo6vxrdUTnfofo1YOH//HZH0KMY0SeDDOiooIH iGo6QfPZQhVM5sj2neXBYWBKzRYgJSnpMq9mWCHu9AbdHqSpqdlgMJstVlP9 sxObz4/4A2h3jyFI0GpCD+IwezlRFZPZhMVmbGxav3kLSOmm1rYtXp8TGqrW V7yRx/OFFNBktnRHWH9cY+zWNq+r12bu9LmtJkMzEfKEEO+tn/jTT9/8p3/8 Rx9r3rwG5K6Q5s6f/tXk7yN6fh+Y8MPf+dFPKiOjEUU22SydvYYek4Vk+M4e M8OJQTyE0zRKkD6c9JMMq8S5qC5pGZzmSSrCC9FNTVshz0SjUY7jFFXdtGlz Z2dnmOUsdnd7d6/T693S1rKlbYvJbjSZe+66+3Youb7+MgxTLSbHEwqwAzSx 9e/te2BBek3E6KiEYaiFItwcg+KYm+fAwXp7OlvuvuPTDevv9nuMVlOry9a5 cyx3/gwgevUGohf3HXxx/8EX9x2Aqvvecz+rjW8HU2qEjrXaoVpoTvQhIYYT 1EQiLIhgMrPlGsVL4F15JZUvD0XEmMFoc9g9zVvbMCxkt1vtdltdnq0Wi8XU 0dG+eWvLHXffvXb9epvT0dnb2WPs3rBxbXtHM04ABIfNbkKDPrOlBzQB2gcn EFUTQSUcDlO5GAcsFlOr2QB9tNVu6XI7u4KI0efptRhbocuAQTESDHgM24b0 yffenHj3V5Nn61r38r4DsF56ez9w9IOf/aJ/xy6al0JkOJ0vgQ3jxGiYl9x+ FCYmGRZwBsY2Z4E6A6/Ja1ByMLFcHsTl9te/o8GFYTOCGG5oXOcLuNo7tt5x 521ms/mOO+9oamryej1NjU1dXV29hq6NDWsBkc9f/2sj6UzC7jAPDFaAIBBz f8AFAk5AmkDBv3mDAVCTHolnIGLYzK085yVxG0Az9m6xWzsc1g6fp2tsOAm+ 7sKZX1169/Xpd9/6ENGv9r/zkxdfHtp9H7hKi921tb2rvdsAbrmlvctgcXhR 3OlDXf5g/YPGME9xIq/ocjyDkawcjUPV+XwIjod4McwLYYfT4nLbjKZup8sW DocdDsemTZtMJpMsyz6ft7u7o2nT+gDigT66867b4AiBAqYqFF792aPAgJhn s4kwjY2PDkD6Q3zOSJjwOC2NG9Zubti49u671t1z5+23fvKP/9f/q8ksx7h3 jWVmL+27cPrljyKC9cqBgz99+ZXR+x+U43p7Vy8SImlOcPkQMGMoTlldPoPV 6UFCsVQOxBl8DhWJupGQ0eYyWexd3b1uCLwEFuGZVDoOIS5a/8oGbCzF83wg EFizZg3AAXRer7e9vQWKGgsFoJUAeKGYgTeDGuTy+u4944NDVUBH05jTZgxT WFwVtzStX3/vnZ+6+U9v/cQnb7np5k998uabP/4nt3ziT9bec1tnW8Omhtv2 bM/VOfotohff2ndjAU0/+9Wr2x9+VIrrBrPN4fHXv7TQY2zY3Fz/gLjX3Npl aNzaBgtQAEd2X4DiBLPdhQSx+qddoiDJPEyWciVP0SHYrapJNLhkj0cADwdB iKaNRiMwZTYb1m9YA5MIpBtQZ7I6yDVYIJfb2tXdSpKowdh5112fvvP2WwBI MiZDybU1N4EUbG3a0Lx5Q8vW9QAEuingMyhSiMLtjz3YBxydP/XixJnXJs/s /RARrF++sXfXY08oybTbhwZgnLA8HEF+8+W+9h7TpuZ2sNM33Xo7+GrQYqPD DSEOgqHD5fR4XWCIuQh9XaYIMGngBMAVkFQI4AwNDWWBrVSqWCyyLGs09oDE ASKgCTrIH3BDBY6M9kPfNTat29rcuGVrA5Tlpoa1nW1bIKQ7rAazoRP6KKFx YGfYsJ9l/AGfyWpu7Whd39O54ZmvPDA3tf/8yX+P6IW9bwNNDzz1BUBktNh9 aAiGY3N7l8Ptg/IDRE3N7ZtaOjZsagaauoxWL0aYHM4Nm5qkqASyDQoMO1y7 7u6OzpZeQye0xvW/LIbE43FAAfUGNCEIQpIkXAQBBws0vn0EnAP8wXwhDcoA fcRFqADittoM9YerQZ/LbkpokiyEizkdcjqOOfzeXqu57bZb/7/bP3XTJz/+ J/fccSseNH/3W09Dhv0Q0f8P55zuSA== "], {{0, 70.}, {70., 0}}, {0, 255}, ColorFunction -> RGBColor, ImageResolution -> {72, 72}], BoxForm`ImageTag[ "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> <| "Exif" -> <| "Orientation" -> <| "CameraTopOrientation" -> Top, "Mirrored" -> False|>, "XResolution" -> 72, "YResolution" -> 72, "ResolutionUnit" -> "inch", "Software" -> "Adobe Photoshop CS4 Macintosh", "DateTime" -> DateObject[{2011, 4, 1, 13, 34, 26.}, "Instant", "Gregorian", -5.], "ColorSpace" -> "Uncalibrated", "PixelXDimension" -> 176, "PixelYDimension" -> 176|>, "XMP" -> <| "DublinCoreSchema" -> <|"Format" -> "image/jpeg"|>, "PhotoshopSchema" -> <|"ColorMode" -> 3|>, "BasicSchema" -> <| "CreateDate" -> DateObject[{2011, 4, 1, 12, 54, 52.}, "Instant", "Gregorian", -5.], "CreatorTool" -> "Adobe Photoshop CS4 Macintosh", "MetadataDate" -> DateObject[{2011, 4, 1, 13, 34, 26.}, "Instant", "Gregorian", -5.], "ModifyDate" -> DateObject[{2011, 4, 1, 13, 34, 26.}, "Instant", "Gregorian", -5.]|>, "MediaManagementSchema" -> <| "DocumentID" -> "xmp.did:D2131C929122681192B0E8FF9C0FC98E", "History" -> <| "History[1]" -> <| "Action" -> "created", "InstanceID" -> "xmp.iid:D2131C929122681192B0E8FF9C0FC98E", "When" -> DateObject[{2011, 4, 1, 13, 34, 26}, "Instant", "Gregorian", -5.], "SoftwareAgent" -> "Adobe Photoshop CS4 Macintosh"|>|>, "InstanceID" -> "xmp.iid:D2131C929122681192B0E8FF9C0FC98E", "OriginalDocumentID" -> "xmp.did:D2131C929122681192B0E8FF9C0FC98E"|>, "RightsManagementSchema" -> <| "History" -> <| "History[1]" -> <| "Action" -> "created", "InstanceID" -> "xmp.iid:D2131C929122681192B0E8FF9C0FC98E", "When" -> DateObject[{2011, 4, 1, 13, 34, 26}, "Instant", "Gregorian", -5.], "SoftwareAgent" -> "Adobe Photoshop CS4 Macintosh"|>|>|>, "PagedTextSchema" -> <| "History" -> <| "History[1]" -> <| "Action" -> "created", "InstanceID" -> "xmp.iid:D2131C929122681192B0E8FF9C0FC98E", "When" -> DateObject[{2011, 4, 1, 13, 34, 26}, "Instant", "Gregorian", -5.], "SoftwareAgent" -> "Adobe Photoshop CS4 Macintosh"|>|>|>|>|>], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {70., 70.}, PlotRange -> {{0, 70.}, {0, 70.}}]}, "RowDefault"]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, Key["Image"]}, "Item", False], "Mouse"], ImageSize -> {{56, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}]}, { Item[ Pane[ Annotation[" Sumerian Calendar", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, Key["Title"]}, "Item", False], "Mouse"], ImageSize -> {{235.20000000000002`, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation["Organizing time", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, Key["Tagline"]}, "Item", False], "Mouse"], ImageSize -> {{526.4000000000001, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["\"-2500\""], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, Key["Date"]}, "Item", False], "Mouse"], ImageSize -> {{75, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["\"Babylonia\""], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, Key["Region"]}, "Item", False], "Mouse"], ImageSize -> {{60, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ "The first known calendar system is established, rounding \ the lunar month to 30 days to create a 360-day year.", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, Key["Description"]}, "Item", False], "Mouse"], ImageSize -> {{560., Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes[ TemplateBox[{"\" \"", GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJx9uWdQm1ue7tvT3dO9k/fezsYGTM5BZJCEJJQDKOcslFBEKAICkXPOOeeM MWBMzjna2z3dPd0zc86p6lNzzj1fbtX9fl+b7n36zpm6VQ+rFi+F9f7W8/8/ ay3jnZ5JV/3yF7/4heUrYKDLHClmsyyH8SPwDcto0aiNSgXBaFWqlebE9F8B D7F//fo8v7rYudf15e69Li53zv+mi6tdQFfXex9uDz/eHf304fh+/PTx5Oan 46uPR1e3R7d3px/uLj7cXX64O/lwdwjo44cjQB/uDj5+OLm7Ob+9Pru5Or29 ObvX9e3J9d3Jzd0JMPkyHl9c7Z1fbn35uP2rm6OrmxNANx+Pvuj44sPJxd3J +YfT89uzy9vzqw8X1x8vgfEC+PbuHBAwObs+Ob06Pr85BeY/g/ysy8vdexBA l9d7gK6u92+v9+9uDn7mAoju7j/x9uDu7vinDyef7k6AH/2VCBiB5zf7H+6O bz6cAu9/dXd4ebt3cbv9RUfnd6f3uvx4dv75fXbPb96f36yf32yeX2+fX++c X+9e3x7efNHl1d7V5R4wXlwf3VMAOMAIvP+9AJaTy6OfiW6u9u71v4mu9v4K crN/fXsACHjtn1m+4Bx/+un09uPZ9Yezq9vj2w/HwJt/vDu++3h289PlzYeL m48XV8Dq3Z7d/XT1u083Hz6c394e3t7t3X3Y+fBx+/anw7ufjm/vF+TD4c3H w4vrXeCzLm8OLq8Bg44vr0+urk9v7i5v7i5ugTW/Ory+Ori53D+/Ojr78s73 AnwBBFAA498T/Sce/SdEn3F+1pfaO77+eHX18eryw/nNh7OfPp1/+qfzzwZd 73642bu92rm+2AJ0dbp+sbv4T+frf77bvjtevNyfvtyb+ni5vL8xdnv29uZ0 6ep48RYYz9bOz7Yuz3Yuz/Zur08+3Jx/uLm4vAGW5erm7ury+vzq+uzq5gxY JeDl73F+NujnkrsXMP//qbp7qM9cf6u3v+LcAkV1+OnjxaePZ5/uji5P184O Fg83J2/3Ju82Bv75ZOaPR1N/PJz608nsH44m95Ya/+vHxf/xx/VPh+PLo2U7 8027b7r2lnqvdqbONkY35zuBye+vVq6P57ZX+v9wu365P//hdPX2ZPXmbB1Y n7vr/ZtbwLjTv7Gc/j3O3xMBNt3r/yT638lw30dAGV/tAf8yQPG7n07/6dPZ 739/+bufzj4drZ69G9mYbHo7ULw7U/2Xj/P/5Xr+dmvkv92u/PdPG//3vx7+ 5eP7m+3ho3edf75Z+i8fN/58vbH3ZvT9VN+7ye7zzfk/Xm7//mLzaufN6mTP 9c7M//znvX//A6CDD3sL/3K1ebo6/KfjsT+fTv35+u3d+fLVxfqn351cfzi/ AHLg7j8nOr44vNcVYMrFzgUQd5e79/Mv2r4EauZq8+Jq63Or3h6eXR59duRq 8+PR/OZkzUJH9nync6G/arSt7P1I4+1K1387nzyca1gbr18aqrpc6/+X07nz 9ZE/3W2/X+gsyZYMNJS0VBR2VhTXOvPtFosrz1HkMDcU5hjTBS5HZlOZa6Cm eHmsbX+p+/BN++XG1MHy+MGbnsXhprWxpp2plsneuonR9vOjd0BJABV4fHF2 en16cXf4OXBujs+vDk7O945Od+4FhNjN5zDZvde9TTeArnYuLwGizeOL92c3 e3d35wdbi1dbEx82+qfr9bMNupYSbVudqzjXXG5VduSph8tNI1WZg5XGpjxF S47obLZ+obukriDr+mh1ZqjOKheU5VlLzBl5Bo3ZYhaLuBUuR4ndkJOp1mdI xHy2hC/U67R2k7LAItHLKMxUmF3DdzrMDrVstMbVW1ucbZS9Ham+2hm7Pts+ uzg7uTg5B6rxFgiTg/OL3dOz7ePTzXtdX25fXQBduXl5/nl+C8Tm9f7V1cHV 1f6Xktu+vt76dLuzvzTcW5l1867/f33a2ZxszzdJjNp0V46pIt/QXWoYKNV3 uvQD5abl/tLF3tKBcv3WcHlHqSHPmD7S2fJuYbyh0KlJ53XUFJRmG3VyQV1J TmWhpTQ/y5al1mXIM1RSlVYukWfw2CK7VtVTV9BaaZvpLM0xqUwygZadqhXR 6vL1fzoYvltv/XSycHWycXlxfHp5enpxdHaxe6+Ts+2/6mD5eP8toIPtxcPd pZP95dPjdeD56fnO2fnO1dn676433o03rHa5Nvvzfr/eN1yVY5LxqASkSCQs K8yuL9Kuj1VqqUl5ctZ0o2t9uGaus3Ss1jJYqhuuz7VnCO16hZBJWhjqlvGp jaV52XplRY4136DRp/PzHaZCZ45OqdMrxE6LXK1SSviiUoe1t7ZIJ6SW2dU5 BrFdwmzJMerENLua0+bg/369/XK1+3dAZ52un13sH5/vA+958tm1z1DAHNC7 N8N/1eLQ+7ejGytjW++ntjbnt7aWdreXrnYX3vaVLrXYzsaKtvot/3Y4UmqU OpSifJNCwMDXF5m6K0xOFblAyxOi4iuNvOFqW1uR0S4mLbUXdJZkWZQ8l1mR rZf11RYujHdxcSk1edb8LCOXSDTJJXQcKg2FlAukaj4vP0unVmuk6QqjNsPl sBpV6iyVMM/Iy+YT2uwZ1Xn6juq8+izxRm/RbJt9vr/4dzfvTk7fnwAIF7vH p1v3Fpx8rr2txamOe81PtAHj0mz3ynz36mLfypvhjbdju7Mdg/ni88G8D/NF s02Su83O3vLs7iLrwURtT5m6WJP6X08XptsrjpfHarIE+TJ8YQbHJiHbBYTJ WnutQwUstYiUouHSirSCo3cjSwMtVQ4lHgPGIhLlLEJtrlFGxxmUfAGFREhO QSCJiVBEGgFFxYAj/Dxtav5cb0lnjiby8ffRAc/r8zTz7WWjDbbDhfqpDvvy TPMVwHKye09xeLxxPzk62ZyfaJ+f6FiYAKA6l2a63872rsx2rcx2v5sbWJ3u Gqk2L9doLvvt+wOWiXrZ5mzVYk9lmZq62qSfKE/vyxetdBdU2eU5amYmC1ab ydkaaZ5rK34/ULXWU15nU7s00mq7HhropaMhsXG+gxWWt51OMROlEjHM6Zzx hvzWfE2dS1NkklOTISR4CgkGxUf5Tddaltuc7YWaybacjsLMlZGuN2NNl6t9 //3j2tHblvXp6ovN/tP1ofPDtePjHYACSIPD43VgBHAAtLmxzvnxroWJ7jdT vUvTfYBWJvuXZgbXpgfn+urKTJxhJ3+6RDRfr21zCoabrBsT1fPttqPx4jed ecvD5T8dTWwvNh6ttC90uxyyVAEuySollhq5821FNSapFAddHWvuqcpqcpl4 eAQi8LE5LWG4NKe5IMco5qQmhrCTQ6ptKi4+qa82Z6DG2VeR7VIyRchQPtyv 2iZJZyBZqbCashxOKjLPKP790difjga2ZpsqchQTzfadN13A1nl8unF8un50 Auj9F63/PdG93k73z830rS+O1LgMTh29RpfWYqUud9neDZR0V2fNdhUNVmr3 x4t/dzBwsNa5s9Kz+aZvbbrtzVDl6mTLwlDT6gQwb/hpb+4vHzd25zr+7W7r f/3r0V/++eyPl+/fj9evDTbfvp9YGW1sKrOX21X9dc7D9YWZMaDaWxYnW5dn uvdWhjYW2vaWu/50t7u3NrM4PdjdXtfX1dhcU7A6XHO92NJXZMhXcYfKTMuD DcBh7/D4PaCDo7Wf9TPR4mTPveanemYXehfGm9vL9KeLDUf9OX9439RXLp9u cWxOt2JjPI4Wmpe77Uv1sned1v5yi0MuMkkFRgnfwCM32jWdLmuFTtZgTh8s zZitMw0Xq+faslb689712PbGC0eqst935O8OVZRoucOV2V0FFpOIpxIL9FpZ pkri1CvGGguPZlr+r4+rF+961ifr/nj+5nht6GR95PcXy2tjrSsdJQ0miU1A rcoULw01n59uAwgA0f7hu5/1nxDN9LxZ6h9tdXa7RJeThcuFrPNBx95U1VSD 6c+nk384nvzXk8mNoaLuHFqDmeZU0CVpmOwMuZpLMwlpMmKylo6rMKTny6hN dkGlnl4gIbiU6Hw5otlMGquQqsgQJx9WmZGqpUFdSnoWCyun4qkYOCsVwyZi 9EKOhJhiFpD6y7M2RutrbWKbGN+Qo+SgYvvq8rsbSp1KZotDXmVT2dKpI92V B18MAioNANk7WAX0nxNNdrxd7OqrNIyWKqZLpTX8xMXKjKOpug9vG87miz6t 1f3rXv/eSOXqSGVNgbql2mrTcXvqcltLMgtNosmuyrnBOjkdnqOkFxnYmQJS tkrs0jKK1NTO/PTROl2NVdRgF/ZVZbaXZTY604u01HKHtMQq7CnX1eeqOsrt tXlGk4LpyhJtT9dXZtFbc/lL3XnzPcULA5VdTRU2Mbk7W2YVEvN0nPoKy+bO G6CPDr8U2z3U7v7K/0n0ZqJ9cbKhPlu81OZcaMlryZIZaeiFBuvZeP7+kO50 3PwvW13b/RWDFeaGPHVtnqoqW7oz33a9Nni6PNgKnByqrXNtBcC5CBvySs9I JSZGFSvSOsz8TrtovFKx1Z09U2XOlaZ1Fhoazbw2G7uvSLXQYn7XljldqZmu MU/VWLoKlV2F6YdjpQu16joVstOc9r4re2+8prUs35XObFBTGk2CGovIoWO+ Wx07OdsEQACbADSAC5gDOPPjnV8CHIjx1tmx5sWx1rmhSqcudXWgzMxGVqh5 IyVZ45WqnQ7jXb/xTYV0Z7jycLRqaay0v9E23gwcMm3LfUV9ufzFRu1yu+Pi zeB6d+HBSGFtvhJI8lw5vSebt9qsqs4iN+fK3tQb19ssM5Wqt42Gtdasd83m 5Qb7u1brepdptc2y1GyfqsocrdBO15nGy7W9LqmBnFSrZVTrGGUmVW1xkVPF a8qS9Fj4c9XGgWrL+/nu47MtwJ0vWbd+7xTg0dxYx9x4+8xoy/RI4+Rw3dxo w3h3fo6OONFiv3rbstTimCjNmq+zvK1U7demj2XTZ6v1CzXqg5mau5X+pab8 4fKsRptgtko3Wy2bKJNO19qrlLjtgYKRzoLlgYqxhlyXED5TI6nKojjT04by BVtdhvcdmo1OzXqn7k29aqXJuNllX20xLDfrFxt1i01Zk5WG2YacvAxepoS2 M9dnERJEuLgMPqO0wG6WpuookH6HsNcuyJWR5wbqgMPqzyl3X3gzI+0zI20z o60zo80zo00TQ7VvpjpLHRn0lOgSo7BUwyhXM7mJ4ZkU5GBO+vsa7YRLsNSQ eTpSNl6qH3fpBqzprSZBi0XY7UgfcYmGC3jNZnqLkXgyDWyw9HqnAhfjbaRB lzrs4y22kQrzbIVyrzdnoVaz3Kx712YEnGrNYkyXync7zTvdprVW3VKDbrnR Wp8pyFRITBkam1o611uz1N/wdqKjqdoxWGup0DH7HIICHtzCQS8O1B+fbQK9 s/8lE+77aHa0Y3a0fXasbXbss0dTw/VL090qPjs5NLSr1ClEJyjxUAUezkcl 0JMCORB/OTaSnxxRZlCUWeXlWs5YoaYnWzxQoBp0agfs/JEicYedPuigbA2V 3GyO/dvl0tpEc29Z9upI/e7bgZ2prjdNlmYTs8HAWGzIfNtsWmm1NRgZcxXq 437bRqtpq8O+1ekcKUhvtfKNUo6UyaSnJFVlCk1sZHVu+mRvVZmR05mvnq/S A6u30GxZHq44vdg+PF77Oe7uk+FvVdc8OVQ/PdIwO1HHSkVQENDhJldfpbbC QC1QUCpM6c2F+nyjUEKGdZTkyXlSqYzvMkvbciSAKZPl2oUqe7eFN1qt73Jw lypEa92WySrDu76SAj1HmIpWidgGlUwvEVTaZPVmZmcOd75RM1kjW+0ybQ7k rHVkLtWp3rda2zK5enxMhZI0Vq4rzeRbpKxyoyJPnJYjxLUWaUZbCysNbKeE 2GnjHAzkbPbbRhqMJ0AfAQZ9ie6f0/ueaG68FfBobrx5YqSciIynoTG5Om6J mbU9U7Mz07jRX/v//NvJv//Lyb//88HWXF9CXBIhjaYRMBtM3IkScX8uZ9Kl WWt05GtoZXLSXrv65o3r42xlh5VfaRFKmXQajSGRayQSldWkLlTRarTUkTL5 cCmwzrpeF6/TwV6sy1xusmwNlr/vrVhuK262ydpcn2O/3KDMl3BsIpIrS95R aWq0MRps/LX27LYsys6As9UlPTjZAHzZ2Vve2ln6XH6H74CquycCjqxA0M1P tIz11cFAEVIyvqc0q0yVttlZsNaS/76jcKTUNNRZs7s+lathCUkoGhrBhUd3 5im1aUkmOrgmk6elwbLVbDkVUqqAjRQwlmq0RUqGlElhMzl0vpzMSefx0yVc XoNFMlwgX2gw/7TVN9GUNVafeTbfsNBor9DR79a6V9uzx8r0Nh42T0mrsIpz FFwdiyoh46061epwxaCLO1Gqna9Wd2enDjsZNUYqcJs7OFjZPVjZ3Fna2189 PHw/M9wO9NFnj8YAj5rmJ1sG6ooIEcH1VulEjUUMC5fBQihhHqUykoEM59Ep xkwtBR7bU+jYnm4dKTd2FepXR3qGym11OQqrnPOn89WFkUpCjGejkV2SwZUx yHIOVykSphFSiVhsagrMJOb35klW6nUj+eLJOuPJSvv7kdKZGl2bhVWupQI/ mi6RTJfKWq28zlxthZ5tl6RmsMlUNErAovZVmsZKlW8bnF25vMFSzts6dYuN f7a3sr/7Znt3aXtvZW9/7fhgfWqoFci6z8kw2jI13DA30dxXadeRU4BbW2uB riHP0FCQWWHNcKUzROg4pYgHBicJ6Gll1sxGly6TjpZhE1f769+327d7nb/f Hu8okC31ZO/PtcoZJDaZRiaQtUK+kkIoUNKn6sx6WlKLU/621bJcqxvNFbRk 0t+0ONptwk4TayCX1+3gjRZI58vkgLmzlbphh6jPwW+2Ch0SJhOVrOLTZrsq shVEZJhPjpgwVKp1cHE1dsU50DtfiHaBPtpfO9xbmxxsmRoCUq4ZMGhisB4g qi82QsNeSmkpxVnpAiJcTiOWW7UuraQhL0sp4GAxBBqZYlXLqrNV0/WOqkyJ jopYKFdOZJOny7UDhapPy63FRlF8TAIMS0UQaCQSj45CjlZm3My4hl3C/qL0 7lLFZLV+OE+01GBqtrBrtcx2E2/AKW40Mup0tMZMdrWe2W4TdWdxWzJppSqy U8qw8Mk1ZslUY/5UW+5ib3l/QUZ9BosZF4KLCzrZXTrYW9r7XHire3vv9ndW AaLJQSDlmqaGG4Gsm59srSswcDHxRjGjMEvTWuFqrS7qbyovserLci2ZKhUS jpWLhGJCIiXB20iP1zIQGhq6XkEas5AaMtIaDaKVphwVDYNAYBCpFDyDTiSy hQx2Y4GxIVeWo6DqRYQsDb2tWNORLZisUE3W6pqyWE0mfqtN3GwW1JpErgxu vlbgEJOrtZxiNc0swLtUgkI5uyWL96bF1VeiGClVzFeoCxjgblu6U0XfW587 OQZSbmVnf3Vnd3Vve+VnIsAjoOrmp1pb8jNKlDTgSKbncbhpBAwyBRTq67Ia woIDEmMT0vA0QSq+L4f7ptVZmcnGxgQJ8Ml1GWlr1dIaNbEig1sgJSrS0EQk hpBGwpLQeBSWy+QQ8GksJidDLjUo08U8uo5L6rKJ3tRo1tpMy43GNguvRkMf ypdXG3gFOrE1ne2UMwsB6YVKHlnBYRg41HIte7a1ZKzaMF4gWCwT57HjCsUp pZm0o+03pyfvdveXAY/+A9HkUOPkYP3MWFNHqcHGR0kJCDWXl4rBx0UnkjCo PEtmNAiUEA9JgWIokJjhbBqwyIN1OYN1VUYupVyKr5NjCkSYCg3HzsXxkBAO gQROTEhOhiLAcCyeBEOnovE0Fpkmo7HlXG4mnzFeZFyu1CyUSroNpN4sZq+V O2DntmWx82Q0Ey81T0wpkNKqzDKDjItOhhFSkDm69OHG0iaH4HgwdzSfNlku 7ndJeko0W6tTR0eAQW8/Z/ju6u7OyvRw2/QwkHIt90SL022l2ZoUUCCHhBIK BGAEmkDECVg0EUeAgiHDw6NRaCwM5N9q4fYUaWvzM3VChgoLrZJS9eSkXD7G yUTq02AZNDwFlYLDErF4MiQRikbik5NgODhcJ+AoyBg+AWIWUVwy8nC+dKFC 3mGkLJTIe23M4UJZmyE1T4DJZOLtLHylklWr5Zr5ZDaJxGUDdUEAGnm1p3h7 IGe0mAkE3VyZrljFWlsc3t1fWt9Z3N5a2tkGNqbVvyNqAPpoeb6ryCTmwKOE JJiYy4yHQJgcFgaNIKdRCHhSdExSEhiGigntsovnKoVX75r+fPU2T4zLpSfV aNJqNam5zKQSOVmRCpeQSTgIPCosNjA0MS4hBZEMZ2GT23IVYyWKPBG625ne myvqdgicPHieBN9qZpRIEeUZ9HoNy0BF2qXsAiWzXMerNvBbc3R2uUjBYqVT KSpWap6OX2pgqEmxMlSogZwowYPfzQ0dHq9u7b/d2QYE7ErL/8GjuYmWpjyV lZmiY2LS2WQ2i44nESNjYkhpqSloTFQ8NDERjk+MLRYRy8XgdEwQKc53sEAz bGX3aTF2coQKF20TkVkoKCQiLMovwN/DOyAsIgwUmZwUo2Rg223iQTu318ob yOEtViuHXTI7G+VS0brz5Q4+0iGmVGp4aiqWT0SZRVQlA6dn4lwyWo4gNVdI qTXIprsqJnvKK8yyybo8PQUuRceKCZC3033HZ2vbB8t7uys728sb20t/S29g M2qcGKgDkqHMxGfG+2XLmZkytsOsh6FQfmERaeQ0FAYbA0bEJyFJyVAxLHKk 3L63Oj892G5Lp5QocROFgiYTz8Shw0ERCVGxoIhocCI4PCQ4MNAnKjIUlwKm IeLMHKSLj8jjItqy6N1WSreZmc9F1mWyKzUME5vgSGdWGLh6PlHCSNNwaVJy qopKNNHRhWJ8s5HdmCUcqLYDe6WdT+zL1YwV6/+8NeiUpy5O9p6crQEeHeyt AkTrW0sTA81AMkwNA+HQODFYB3hUbldSICCjhKXgpCESQT6BgdFJMK1KCQFD 4yGokGgoGgYDHKxQUNrs8k+bY0udtvKM5H4nrdMuVqdihRQKBIx84R7gGxjh 6x/8/Mkrf58AeBIYGRdh4OJLMmhNJnazkdaiJ9UrMA0ZxBYT00BKMNDxfHRC JgthEqVqREybnJ/JY5q49FIVp1HPdonxKgZmvKVgqavoL8dvuixiGxWy1pKn JCQsTvScXW5sHy7v7wGxsLq1szze1zQx0PQl6xoAooXJ1vwsReDLZyQUjIGH g6OCvPx8Q0DxAjojHhQTEQP1Co0NDQulpsQosAkOJtbJQlRIYX02cpuaWM5H ZLNgcioODkG4vw5zcw9+/OS1f2Ck+2v/1x6+QZ6eYiLKISBXKnD1Kny9Al+T jmg1puYLkbk8jJ6KlOJgekqKjk1Q8VJNIny+nG7mEUtVzJECfSYDT8bgM/hU IweVGunRYGCbyWAlMpILCx/rbTi/3AA8Aoj2997tHrwDPAKIJgYBg+rvParP 16OjgtkUDJOZFhkdHRIVGxgWi8XgwsJBXt4BL91e+bx4yoAn5AN5xccWikh5 0lQuPIwU4V6uwNWp00SYOM/Xr554+nj6Bzx9+fzla3/f0NjXAeGRYWEcPLRI RW3Up7XqqVVSXJkA2agmNqjxDRmkAhGeHBfAQUNSk6IUNGS5QeBU8UusygaH qFqRViACjrncAquqs1idm45uMdNtTEiJDGUWoDsbSoCqe789t729uLu7tHPw 9u+JxgcAoubGfAMuMpSCTAbS7YfvnweFxcUlIHF4nIfHay8Pj5DXr2jQWBIo IB0XpyXFZvOwLES0Rc6XkhAJ7j8qcRAJhejjG/DY7bWXb6C3j3eAv7+vr69/ QFBkRASPiNKRwU4mpDGD3GaglAig9Qpst5FeLUVnM8HZEgoJFkfHIzk4uFHE FjF4yLgop5ww6FRkEFFSPqWzxrbU4dgYyB3J55dKsSV8cI4Y29dWeXL+fn1n fmdnAdDW3uL/l6gWOAUVGAW1FsVMW5WSTkyKCHv6+EliEjgpPjYGFB4XFpyT IRkuszdnSSABHsSo4LossYaBcWYIBqsdjdYMQnyE59NnkMhYKpCMMXHIqFh8 SjI8KhAVF4lIAAuJ+DIpLY+WVMhOGnAw24yE6vSUchG6mIcol+HtojQqKjkx JjoxNg4GhjJIafkqDnBCmC9RV2VISiyKaoeir0BVZ6SOOkW9dlmDkmjjojob S4Cq29hd2Nt7AxBt7MxPD7UByTA+0HBfdQtTbRXZYjkpyiEi2IVkm4LDoWJf PP1er5bXVpQ4s/TAzSgtLrxSyV4b7lPgU7T46IPxJiMT9rYrr9WmTE2MDfD0 gkREJAT7JUYGBnm9DvLwpkFipAQ4KjpSjE/utwl6M1Pr5fBGFaZGjsmmx1Yp sWUSVD4PrqUh8JA4SBIkLDI+BoyMh8Ay2MQOC6PVzOch4A6lNFcr7S23DVdb 2q1iCSy6Ws2yidJ6W8pPL9Y39j4T7e4ubu7+lWisHzDos0eL0+3V2WpKjL+Z QzayKcwUCA2NpOJQ0IRYWloqGgFzWbLyNIq0uNCuEsfbtsJCHrQ2g5otxDdY ZaiI4DD/UHd3Hy+fwKfuHt+5Pf/ezT3gdSDI4wU/JVaAiktHhzUrEa1KcGsG ok1DKBchbdTYUjmyUoF1clPsAgIFnpAYGwNH4pOQqdGJaBIcoaZA00mJfCyi sSDLrBSmQqNZKRH0OF9CuB8fGkkFhw12VB+erL7bmtnent8FTg77b8b7m8b7 GwGPgCYa6a0CiMrM8tRoPzYyya4StFXk2RXp9gw5n82Iiop+8uxlEhgRERwR 6uuPBgVWqKhtBmZlBoWDjOUTEIG+3l999cD9xYvHz194B0U+8wx48PTVKw/P AM/n4IDnXLBPUwZhzEoZysJNOenjTuZ8hQLYmErkmFI53slDackQZIQvKiku IjwyKjYJkoxGJaNZeAQbEy8kpBRqBQP1hQu9VU25sjar0EjDNBiEGTREf3vV wfHK6ub05sbs1ubc+vbcaG/DaG/9WH/dWH/tSG/lwlSLI53FhUVz8VCDlJWp 4BvS+Zp0YTIcRWMLcfi0525ufn5+0FgILDo6NTaQD41iJEaIseDQV495xOQC rSjK2/3B19++dPd78uTVDw+fPnz0LNTjRVq0v5aYmE2HdGlJ0w5GtzqlR4ca dtBbjZQsGtjOTHbQwYLkEHyUFwUeBwJFBIBiI+OSkAgsmYinEzBCPDZbxWvM M3a7NGeLrSut1iYjY8Qld0rws0PtwP3o3cb0+63Ztc2Z1Y3pkZ76kR7Andov RFWz401OpSjZz5cMTxKR8XwizmpQub965v3a78cfnzKJ+GytCALySQkPDXL3 5GKSSw1SERZsZcJNbHy5nlutZ2fLOODQYI8nzyLDIz083KMCvakx3kZCQlp0 CDE6KAMbWcJMbBDDGyXwFjnWhAmzMeDm1PgcBthEhwlRUTIKPDw82BeUGB8P ZpOIFDSCBIOq07AFOnqdU58joQMH8vEqY5eDdTCQL0MFTfc1nx0CG+s8UHir 27NrW7NDXXVDXbVDXTVD3ZUDnWUTg7WV2ZmJQf5JEYGFWRk8LDjE40cRHUVO jrYpBFx4fLGabeVjlLhYEQaCDvWaqrUMlGYocMEDZTpcrB8DHtNbmEWK8GZA IyFRYU8ffkuGBuVLcFpSIsj9qfv33+GiAw3kZDsjuZCb4mJCsvAgGyUpixSv QUcZqfAMMkKAgySCwkBRscnxsYSkWHRidEJoMHDur8lR5mbJ5ay0/vqqEq1E TwED5Zonw84MtB7uLK5vzq6uT71bn1pbn+pqKv+isu7mko7GguGeqrJcExaa kAgKKchSiokJIlLiZEfxUneZFJNIjwumRvlQQK/bbLzN/sI2h8jCSiFFvOZA QmG+T9LTYOJUJCIyGBLiG+nlBvJ+iYgKjXvtngoKi3nxLOTFS//nT1koMCU5 Ls7ziQgW7qBD9eiwTGy4HgNSpIAU6AQWJIoMjUMlxsVHhKfCoISE6CRQMCw+ FrikOTI4+VYVn4xTMclyEqo2U5xFjtbRkuZHOrfeTS2vjC2vjq0sAxqtKc79 rJLshgpnfXl2V3OxM0sR4e8FjYs2K7gb402rw40qJmag0jFZX1CUIdQxiHYB udWpzGSgk7xeIEN9k3zcYMG+ajI2IxVOTY6BQZISoCkJCeAYPw8RDkxKAiWH +GQwqSHPn9KBF47x9fzhG5DXK2FKTBY5yUKKMaJDrWkJckQkKz6Yi4bEhwVH h4aAQoIQcQkkWDIWAwdFRkBCQ+VMbFWuno2FZqezc8Q0p5gqSAwQoaLHehvf zg/Oz/UtzPUvzvQtTvWW5dm+yFKWby7PN1WX2AosSt/nTzDQ5HyjutKSnk7B SqmpJTpxdaaAi4sxCemtuWYWMg44EmGgCAoOW+U0N5fnZyt4cO9H2VLgJhHH YNCR8GTfZw9R4d4uLWOspaTRZVVRcUJ4pDEt3v/xg3CP50oC1MGAmfCRNlK0 iRClxUVxwEExAZ4+fv6vff2Ba1hQQJS/d1BQVPQrX//44FA5HddbY+cTwBJi CjE2Bh0ZSUmITIkK6Gurmp3onBxrHx9unRpsAdqq0JFV6DAVOjILHPqiHGNx rrHYqoKGB0b4BWmFfAYqEREVDg4NJydE6qiIyY6injKHkphSaEiPDPYLCQul 0ejwpEQkFCJjEilJYUl+L+iIaDI8OvjVoxh/nzgfzyIFBxUawIBB+QiwFBZu Y0AggZ642LB0dKyTjTDhIrLJ8Tm0RCs5To6NiQrwevHa73VQuE9QmId3zJMX /s/8Q71Do0CBwQDRYGMuPMoPDYpIASUFunkToEnwhPCeprLRgcbh/oaRvobR 7rqxjtoCu+FehQ4joKJsU4VDj4n09X/5Is+ahYMm+rg9jw/2AxoLHh2Pjolw qriM5Miw549xyQlJ8VEvnrs9+P7Ro4fPfT19nz/6McjnVVSQT4TPq2g/DyQo FBsT7hAzyw0KQkKUOCW6WUUsl+B5GDAO5GMHLg54kBYRZMSAHGmJRlwsKznG 4+mz5y+9Xnr6PX/l9co35LlXiJt35GvvUO+Xbho+ucxqQoLCUhPC2HAw2D8Q GhGOhsT2tlYAAnYlIN8GOqr726pcNv29irIzAaICu7HYlC5GghCRARoBXUrB VOdZc7SShJhoJpFoV4rtCiYLGQsPD4gI8Ar09YiJjgoMCv72m+8efffAz9Pz +cOHz79/4Of2KMrHLTHgZVLgqxifF4nebgFPfpQRITVKAi/KnZsCSksAdvxA OSJIlOilx8dk8wkp4d7Pfvj2h8fPvn747Jmnl6ev3zN3rx+fe716HebjE+L+ 5HEqPLbSpBEgwVxkAgsJD3vlFRsQjIclDnbWdDeX9bVV3KMByrfqfhbAVeAw usyaTAEVHhvOwCExCVESDisywCcqPIhHJWj4FA0Xr2LjjFK2XEhLgSeEhgZA wIkxEaEhXu5CZhqfQQRHhgS4PYn0fJ4c7JPg585CJpCjghFhweEeTwuU9AwC GB3pIyEjgVGJT5DBgtXoaGK0n/ezHx89fPTgqftvH796+trXwy/ANyj0qdvr V+5+QX6hYX4+VCy0WCVQYBJosJhof/9QL6A0/ZkE9EBnTXt9CdBNPS2VfW3V /e01eRbtve5rD4AqyTFzsNCYIG8JPRUcHkwhEkucOVgExCDnG6XMQrNSTMfJ OGQugyiX8UlEHAoBU4kFlBRwkMfjxKiAdE6qTshMiQhMCQmwCJldeXpTKpST AvZ/+QwTFchDQaJ9PYO9vCL8/BnQWH58oBabRI4MgAb6QGPiv3/o/uPLADfv cO+giPCo6MDAEH/vz/9ZkRARhobGZwvpRjI8DRwJ8vXzee4V6uWn4LHa6kob yvPb60o7Gyr6WmsA/WzQfR8BE+ARBx7FQcYVZAg0dAwdi2DiUGgoBAeL4xAR eHAcJAoUHuQb5OsV5O8XHBDo8fwFDYN2ahTejx5884tf+D9/SIHFKmkYHQun oSBt9BQzNREL8ot+/YoUHUCMCQBKMSrIP8g/MNrHg5UUZmKRROhkdFigv5vH o0fuT9wCnr309/Dy9/P3CwsOjvAPCvHyDvbyTIiOMHIZtPgwYlwIFZacGBzx /JsHNp26uaq4ptjZUF4AqK22rKuxqjzfeq8Kl63cZSvJzaotyVfQcWwMJIOJ FxKSY8OBe3hodHBYSiKIBEuEx8SCgsLDQ0JCA0OC/EJiQQnB3oGIGABfnRwW gEoECdJQ2Fjg1vpERkg2sVLl6CQpOlxEgqiIqOEcTaUqrVxLIEIDAwM8UOBw KSUZGhUA7EJEGNjX29fdO+iFp79fQKCPt4eb24sAr9fwmJiYwIAQ79fR4aEc IgkW4p8S5s1GJGGjol9+9115XnZHfUV9mauuNB/QPVRTeXZzRU5LZW5zZe7n sSKnu6EwWytICPHgkJBYSHxSTGwKGEJITtIIGNSUJGRcdHxkZFRktF9gWFBg SMjncgb5BoSqeWSLikXDJ8f4ueNjQ4VoKHAnooBBdjlbx8UjQIEcFKQinfG2 VD2eJ6jTp2WkJXBgQSoaHBkXiofGxYWF+vgEeXoFxoGiYHEgIgKanARJiEvk 4qAaJi4uOgYOhRMxOERsNAcNZqaAY/18IMGBvXUVzXUlTbXFTTVFjYCqi4B5 f3PRQEvJYGvpcHs5oIHmkvHuytJsVbjXIwEFi0qMQSUmYiGJyaBAOYOYJeWo eTQ8AgpNTIoHw+JiYkL8A919Qr959EwlJgO/xaMQiODYOC83VEQAIjIwwuuZ 55NvcfFhSjoJOKRJcPAWo8TJRo44heM29mQ2p9nEIyVFEyCxEb5eYSGRoLCo oJcv4ZHh6LjYxOiY8DCQnpeqpqF8fIMCgyJIRHxCWKAAEZcKCsZFh7FRkKme xrbmiq62akDd7TX3GuuqGu+unuipme6vn+5vmOqrmxlp7Wou9Xv1I+ARGQGm wCFESDyLgEwIfI2PD4/wfBHh4wmNi8URyTwOVyYUUekc/5BwEZdMwybjYRA4 CKgxTCokFguOig7xIsCThWkYGQXn1AEZieJgUkQ4qIkBb9DS6zKoGgo8wt+X kAIFRwVHhofjUpC0lBREZBQ0PAKbnAiOi+dg4VRY4ksP3+BwYKMIl1BxKkxS c6acnwIxy1grM70DPY2jg23jwx0/CwCZGWiYHWycH25eGGlZHG2dGeuYnegF RwcmRwej4yO1XOrnP0gJWEDtZCsFNgXfrpaohdz4BFhcXFIaicgTinVmm6uo QC7i07AYGY1cbNKVWrSFFmWVy8jBJ6fEBoe+fuL99EGIl5vbD1+HuT8CeT4N fvUk5PXLyEC/sAD/AE+3AI9ncZERccFB6OgIQnwCJByY+8QBLRzgBRxaXjx7 +crdIzoyXExLlaemgP08gDvX1EDb6vzw/PTg0vzI24XR+3F5cQxgmRtq+hnn zVjb/Hj7xtsxoCPCvF8gYsKpKclMDFLKovAIKSWZCpOAouOR+SQUAY3jMZlK EYdBwTOYVK1en2O31ZUUzXS3j9ZXjDeWzHdVbk219pVbhhqLBltKJjvLB+tz FwZrh+tc5VkZJhm7yGowKyQ2lUgv5hvlCoNSySVgHek8GRkvolFy9FqbTiWm YpmYpAwRx5ahJKWgY4OC8EkgX7dHWHTy6eHWu6XJteWp9dWZ9Xez71dmNt7N bq7NzQHuDDUt/B3R4kjT7vJwjkEK8vNIjomIDQlJQ6FpeDSQDAV6aWOuIS9D qOdT1EyykUcuMXAK9XQZPUUr4xOxKYw0jIZHyxYzShXM6gx6lYaVLWLahczJ 2vxGI7fFKqq0ylx6aZaEa5LQlew0EiQ2Dgi9+CQ/N78Ad+/aXGtbvlHJQNNw iFRYChCAah7WKESL8WBWAigVBosL8lWRUVFeL3Ms2v395bXVCQDn/cr0+5XP XPdEU/2N0wNNM4PNc0Ot88OtCyPtCyNNq1MdfU2l3/3yF75uz4FTYlxwMAkM skmZNRZ5hY7fYJO35+tazentNnGdgdNmF09UG53pFKOYzU9DpxOgxen0Or0g l4syUmAsGIydDLFSkdM5kkIWVJQSh02M0wgELaV5KjY1SyGyG8RmhaDCZlUx qEoqQU1F1jo1FrUoFYE0y/k9FYbhSm2hPE2BTaIjoYTEaCY4MtLt0fxQ5/7W wvrq1Oba4vvVubWV2fXV+Y21hc33ix31pR0NZZ2NFT0tVX1tNf3ttQOdVf0d FbNjXclxoEdffeXzwh0WBeKiExjwKDkZUWaUyVOTrfzUCiWnUsOx8RiaVEx9 JnWl3lScztNRcC4+3kKHaxlYSRpSSIDTUSlp8GQJKmHeJR+18AqlLA2bXaDP 0DAJ8jSMRcJ+M9o41Vk4XpeLBPmnk3GVDpNOwFDyKHQiyqkVlWQwzMzkKpNQ TkOyMMm4xBjvxz9QsYjL/c3t5bmdtaWdjeWt90uba0vbG8u7myt7W6v6jHSD Rm7UKkwGldmYYcnU2swZlixltk2fqVM9f/Tom3/8+snDh0EBr8HxIDGLquax WKgUAQ7LxaLkNLKSSpbhIVXatLUGc62GrcYn9OUoZJi4VEgCFgxGJSQgwEmR ISF8LLxURLSToWIkVIJHORRcm4IjJhPIyYjk8Ih0KqlAr1TyWVlyYVWe3ZAu 0adL0lDQlop8MiymwpYhJEKBAxkiNtztx++e//igq6V2enxgfLR3YqxncrRz aqxrarxrZrJ3brpvfqafxWaw2UwOh8XmACOTy2XzBSy+gMnjM4UiHovJfPz4 6T/8wy+efP/b5w9+Q0tJMnLJWjIyk4ZRA+dSPEFGwLjSKRWqtBplmosDGbBz BhwCeqwfYA00Ki7MB9iDw8LCIiP9fVDBXhxwNC4qSpACE2KhYa+fRAcFgiMS iRAMPCKKmBBTk5NZ7tBR4PHgkAAiOImfikYlRge8dnf78YHbg6+Ag250iM+L Zz+AIgMLCrOtdqPFkWnLNWXnmHKcWbl55tx8S57Lml9gkyvS/yrlX6VQyb4I eChTZyilMsmrl26//cUv3L7/1v/ZDzGej6gJ/vmyND0DzUyMlyHBBfJUCRLE hUdayNHZeL9KISyThkDFgEI9Xnv8+OjJk2ceHt7uT58Hu7thE2P9X7yIfemB B4V5/vBVmK/Py0cvYkIi4JER5MRYMjSag4xVUpAceIKaQhCRkJDIUOB64uPx OsDDPfjV0++/+pWP32ulSqrUyBUauVKnkOsUMl2GTKeWGzQKo1aVqVebDFqN 6j9Io1FqNAqNRq7VAmO6waDM0CgCAwK/++rrH7/+6ul3Xz35+tfhXm4Rrx6n xsVS4qKIsX7J4d5hvl7MpJB8aqKBEE+IDXny7bcB7u4JwYEej58//u4H92cv vvntb3747uvvvv7Nq99+hYkICnv5OMrP98XDx1/99tc+r55CQ4Kg4aHwEH9y AkiCTaYlRZKTooJfPnn2zdfPv//+xfffB7m/jAwNyszU5eTarPYsi8NszbVY cq02Z47NmW3Pux9zHflOvVb5H6TTyD9za6Q6jUSjFug0Qr1WbM1UoYC9+8kP j7/9+vtf//arX/zq4bcP3B++ePb1tz/++h/cHj747sEjv6ePCUGeyGCfVz/8 8PVXD77+7Vfujx+++u6HH3/1jw9++9Uvf/XLX/7jL3/z1a/dvv1NhNuPsV5P H//ql9/86te//urXP/zwjefjx+HefqGvvDy/exDu9gT06mHYs+8Dn3wf8Ozh q++/jQr0Vwn4uTaLzZKVZTJYLFkWm9mcbbHZs5wOc64jKy/H4sq1FTjthXmO /xcwBy03 "], {{0, 70.}, {70., 0}}, {0, 255}, ColorFunction -> RGBColor, ImageResolution -> {72, 72}], BoxForm`ImageTag[ "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> <| "Exif" -> <| "Orientation" -> <| "CameraTopOrientation" -> Top, "Mirrored" -> False|>, "XResolution" -> 72, "YResolution" -> 72, "ResolutionUnit" -> "inch", "Software" -> "Adobe Photoshop CS4 Macintosh", "DateTime" -> DateObject[{2011, 4, 1, 13, 34, 26.}, "Instant", "Gregorian", -5.], "ColorSpace" -> "Uncalibrated", "PixelXDimension" -> 176, "PixelYDimension" -> 176|>, "XMP" -> <| "DublinCoreSchema" -> <|"Format" -> "image/jpeg"|>, "PhotoshopSchema" -> <|"ColorMode" -> 3|>, "BasicSchema" -> <| "CreateDate" -> DateObject[{2011, 4, 1, 12, 55, 29.}, "Instant", "Gregorian", -5.], "CreatorTool" -> "Adobe Photoshop CS4 Macintosh", "MetadataDate" -> DateObject[{2011, 4, 1, 13, 34, 26.}, "Instant", "Gregorian", -5.], "ModifyDate" -> DateObject[{2011, 4, 1, 13, 34, 26.}, "Instant", "Gregorian", -5.]|>, "MediaManagementSchema" -> <| "DocumentID" -> "xmp.did:D3131C929122681192B0E8FF9C0FC98E", "History" -> <| "History[1]" -> <| "Action" -> "created", "InstanceID" -> "xmp.iid:D3131C929122681192B0E8FF9C0FC98E", "When" -> DateObject[{2011, 4, 1, 13, 34, 26}, "Instant", "Gregorian", -5.], "SoftwareAgent" -> "Adobe Photoshop CS4 Macintosh"|>|>, "InstanceID" -> "xmp.iid:D3131C929122681192B0E8FF9C0FC98E", "OriginalDocumentID" -> "xmp.did:D3131C929122681192B0E8FF9C0FC98E"|>, "RightsManagementSchema" -> <| "History" -> <| "History[1]" -> <| "Action" -> "created", "InstanceID" -> "xmp.iid:D3131C929122681192B0E8FF9C0FC98E", "When" -> DateObject[{2011, 4, 1, 13, 34, 26}, "Instant", "Gregorian", -5.], "SoftwareAgent" -> "Adobe Photoshop CS4 Macintosh"|>|>|>, "PagedTextSchema" -> <| "History" -> <| "History[1]" -> <| "Action" -> "created", "InstanceID" -> "xmp.iid:D3131C929122681192B0E8FF9C0FC98E", "When" -> DateObject[{2011, 4, 1, 13, 34, 26}, "Instant", "Gregorian", -5.], "SoftwareAgent" -> "Adobe Photoshop CS4 Macintosh"|>|>|>|>|>], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {70., 70.}, PlotRange -> {{0, 70.}, {0, 70.}}]}, "RowDefault"]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, Key["Image"]}, "Item", False], "Mouse"], ImageSize -> {{56, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}]}, { Item[ Deploy[ Pane[ Row[{ Spacer[2], Style[ Row[{ Button[ MouseAppearance[ Mouseover[ Graphics[{{ EdgeForm[None], FaceForm[None], Rectangle[{0, 0}, {18, 18}, RoundingRadius -> 2]}, Rotate[ Translate[{ CapForm[Round], Line[{{0, 0}, {4, 5}, {8, 0}}], Line[{{0, 5}, {8, 5}}]}, {5, 6.5}], 0, {9, 9}]}, ImageSize -> (1 -> 1), ImagePadding -> {{0, 1}, {1, 0}}, BaselinePosition -> Scaled[0.35], BaseStyle -> RGBColor[0.5372549019607843, 0.5372549019607843, 0.5372549019607843]], Graphics[{{ EdgeForm[ RGBColor[ 0.27450980392156865`, 0.5411764705882353, 0.796078431372549]], FaceForm[None], Rectangle[{0, 0}, {18, 18}, RoundingRadius -> 2]}, Rotate[ Translate[{ CapForm[Round], RGBColor[ 0.27450980392156865`, 0.5411764705882353, 0.796078431372549], Line[{{0, 0}, {4, 5}, {8, 0}}], Line[{{0, 5}, {8, 5}}]}, {5, 6.5}], 0, {9, 9}]}, ImageSize -> (1 -> 1), ImagePadding -> {{0, 1}, {1, 0}}, BaselinePosition -> Scaled[0.35]]], "LinkHand"], If[ TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[ TypeSystem`NestedGrid`PackagePrivate`$state$$], TypeSystem`NestedGrid`PackagePrivate`$vPos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$vPos$$ + (-5) If[True, 186, 1], {1, 186 - -5 + 1}]; TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$vPos$$, TypeSystem`NestedGrid`PackagePrivate`$hPos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]], True][ TypeSystem`NestedGrid`PackagePrivate`$path$$]], Appearance -> None], Button[ MouseAppearance[ Mouseover[ Graphics[{{ EdgeForm[None], FaceForm[None], Rectangle[{0, 0}, {18, 18}, RoundingRadius -> 2]}, Rotate[ Translate[{ CapForm[Round], Line[{{0, 0}, {4, 5}, {8, 0}}]}, {5, 6.5}], 0, {9, 9}]}, ImageSize -> (1 -> 1), ImagePadding -> {{0, 1}, {1, 0}}, BaselinePosition -> Scaled[0.35], BaseStyle -> RGBColor[0.5372549019607843, 0.5372549019607843, 0.5372549019607843]], Graphics[{{ EdgeForm[ RGBColor[ 0.27450980392156865`, 0.5411764705882353, 0.796078431372549]], FaceForm[None], Rectangle[{0, 0}, {18, 18}, RoundingRadius -> 2]}, Rotate[ Translate[{ CapForm[Round], RGBColor[ 0.27450980392156865`, 0.5411764705882353, 0.796078431372549], Line[{{0, 0}, {4, 5}, {8, 0}}]}, {5, 6.5}], 0, {9, 9}]}, ImageSize -> (1 -> 1), ImagePadding -> {{0, 1}, {1, 0}}, BaselinePosition -> Scaled[0.35]]], "LinkHand"], If[ TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[ TypeSystem`NestedGrid`PackagePrivate`$state$$], TypeSystem`NestedGrid`PackagePrivate`$vPos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$vPos$$ + (-5) If[False, 186, 1], {1, 186 - -5 + 1}]; TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$vPos$$, TypeSystem`NestedGrid`PackagePrivate`$hPos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]], True][ TypeSystem`NestedGrid`PackagePrivate`$path$$]], Appearance -> None], " ", Style[ Mouseover[ Style[ Row[{"rows ", 1, "\[Dash]", 5, " of ", Style[186, FontWeight -> Bold]}], FontSize -> 9.333333333333332, FontColor -> RGBColor[ 0.5098039215686274, 0.5098039215686274, 0.5098039215686274]], Style[ Row[{"rows ", 1, "\[Dash]", 5, " of ", Style[186, FontWeight -> Bold]}], FontSize -> 9.333333333333332, FontColor -> RGBColor[ 0.5098039215686274, 0.5098039215686274, 0.5098039215686274]]], ContextMenu -> { MenuItem["Hide", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$vPos$$, TypeSystem`NestedGrid`PackagePrivate`$hPos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]}, "Rows", 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`$vPos$$, TypeSystem`NestedGrid`PackagePrivate`$hPos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]}, "Rows", 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`$vPos$$, TypeSystem`NestedGrid`PackagePrivate`$hPos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]}, "Rows", 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`$vPos$$, TypeSystem`NestedGrid`PackagePrivate`$hPos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]}, "Rows", 100, {}]], MenuEvaluator -> Automatic], MenuItem["Show All", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$vPos$$, TypeSystem`NestedGrid`PackagePrivate`$hPos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]}, "Rows", 100000000, {}]], MenuEvaluator -> Automatic]}], " ", Button[ MouseAppearance[ Mouseover[ Graphics[{{ EdgeForm[None], FaceForm[None], Rectangle[{0, 0}, {18, 18}, RoundingRadius -> 2]}, Rotate[ Translate[{ CapForm[Round], Line[{{0, 0}, {4, 5}, {8, 0}}]}, {5, 6.5}], 180 Degree, { 9, 9}]}, ImageSize -> (1 -> 1), ImagePadding -> {{0, 1}, {1, 0}}, BaselinePosition -> Scaled[0.35], BaseStyle -> RGBColor[0.5372549019607843, 0.5372549019607843, 0.5372549019607843]], Graphics[{{ EdgeForm[ RGBColor[ 0.27450980392156865`, 0.5411764705882353, 0.796078431372549]], FaceForm[None], Rectangle[{0, 0}, {18, 18}, RoundingRadius -> 2]}, Rotate[ Translate[{ CapForm[Round], RGBColor[ 0.27450980392156865`, 0.5411764705882353, 0.796078431372549], Line[{{0, 0}, {4, 5}, {8, 0}}]}, {5, 6.5}], 180 Degree, { 9, 9}]}, ImageSize -> (1 -> 1), ImagePadding -> {{0, 1}, {1, 0}}, BaselinePosition -> Scaled[0.35]]], "LinkHand"], If[ TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[ TypeSystem`NestedGrid`PackagePrivate`$state$$], TypeSystem`NestedGrid`PackagePrivate`$vPos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$vPos$$ + 5 If[False, 186, 1], {1, 186 - 5 + 1}]; TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$vPos$$, TypeSystem`NestedGrid`PackagePrivate`$hPos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]], True][ TypeSystem`NestedGrid`PackagePrivate`$path$$]], Appearance -> None], Button[ MouseAppearance[ Mouseover[ Graphics[{{ EdgeForm[None], FaceForm[None], Rectangle[{0, 0}, {18, 18}, RoundingRadius -> 2]}, Rotate[ Translate[{ CapForm[Round], Line[{{0, 0}, {4, 5}, {8, 0}}], Line[{{0, 5}, {8, 5}}]}, {5, 6.5}], 180 Degree, {9, 9}]}, ImageSize -> (1 -> 1), ImagePadding -> {{0, 1}, {1, 0}}, BaselinePosition -> Scaled[0.35], BaseStyle -> RGBColor[0.5372549019607843, 0.5372549019607843, 0.5372549019607843]], Graphics[{{ EdgeForm[ RGBColor[ 0.27450980392156865`, 0.5411764705882353, 0.796078431372549]], FaceForm[None], Rectangle[{0, 0}, {18, 18}, RoundingRadius -> 2]}, Rotate[ Translate[{ CapForm[Round], RGBColor[ 0.27450980392156865`, 0.5411764705882353, 0.796078431372549], Line[{{0, 0}, {4, 5}, {8, 0}}], Line[{{0, 5}, {8, 5}}]}, {5, 6.5}], 180 Degree, {9, 9}]}, ImageSize -> (1 -> 1), ImagePadding -> {{0, 1}, {1, 0}}, BaselinePosition -> Scaled[0.35]]], "LinkHand"], If[ TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[ TypeSystem`NestedGrid`PackagePrivate`$state$$], TypeSystem`NestedGrid`PackagePrivate`$vPos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$vPos$$ + 5 If[True, 186, 1], {1, 186 - 5 + 1}]; TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$vPos$$, TypeSystem`NestedGrid`PackagePrivate`$hPos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]], True][ TypeSystem`NestedGrid`PackagePrivate`$path$$]], Appearance -> None]}], ContextMenu -> {}]}], ImageMargins -> {{0, -1}, {-1, 1}}]], Background -> RGBColor[ 0.9764705882352941, 0.9764705882352941, 0.9764705882352941], Alignment -> {Left, Top}], SpanFromLeft, SpanFromLeft, SpanFromLeft, SpanFromLeft, SpanFromLeft}}, BaseStyle -> { ContextMenu -> Dynamic[ TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger; Which[TypeSystem`NestedGrid`PackagePrivate`$lastOutputID =!= TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$], {}, TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger === TypeSystem`NestedGrid`PackagePrivate`$\ lastContextMenuTrigger, TypeSystem`NestedGrid`PackagePrivate`$lastContextMenu, True, TypeSystem`NestedGrid`PackagePrivate`$\ lastContextMenuTrigger = TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger; TypeSystem`NestedGrid`PackagePrivate`$lastContextMenu = Block[{TypeSystem`NestedGrid`PackagePrivate`$\ globalScrollPos = {TypeSystem`NestedGrid`PackagePrivate`$vPos$$, TypeSystem`NestedGrid`PackagePrivate`$hPos$$}}, With[{TypeSystem`NestedGrid`PackagePrivate`lastPath$ = TypeSystem`NestedGrid`PackagePrivate`$lastPath, TypeSystem`NestedGrid`PackagePrivate`lastPathType$ = TypeSystem`NestedGrid`PackagePrivate`$lastPathType, TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$ = TypeSystem`NestedGrid`PackagePrivate`$\ lastPathIsLeafHeader, TypeSystem`NestedGrid`PackagePrivate`headerHidden$ = And[ MatchQ[TypeSystem`NestedGrid`PackagePrivate`$lastPathType, Alternatives["RowHeader", "ColumnHeader"]], TypeSystem`NestedGrid`PackagePrivate`headerHiddenQ[ TypeSystem`NestedGrid`PackagePrivate`$lastPath, TypeSystem`NestedGrid`PackagePrivate`$state$$]], TypeSystem`NestedGrid`PackagePrivate`allHidden$ = TypeSystem`NestedGrid`PackagePrivate`allHiddenQ[ TypeSystem`NestedGrid`PackagePrivate`$lastPath, TypeSystem`NestedGrid`PackagePrivate`$state$$], TypeSystem`NestedGrid`PackagePrivate`anyHidden$ = TypeSystem`NestedGrid`PackagePrivate`anyHiddenQ[ TypeSystem`NestedGrid`PackagePrivate`$lastPath, TypeSystem`NestedGrid`PackagePrivate`$state$$], TypeSystem`NestedGrid`PackagePrivate`sortDirection$ = TypeSystem`NestedGrid`PackagePrivate`columnSortDirection[ TypeSystem`NestedGrid`PackagePrivate`$lastPath, TypeSystem`NestedGrid`PackagePrivate`$state$$[ "SortPaths"], TypeSystem`NestedGrid`PackagePrivate`$state$$[ "SortDirections"]], TypeSystem`NestedGrid`PackagePrivate`haveData$ = Not[ FailureQ[ TypeSystem`NestedGrid`PackagePrivate`datasetInitialData[ TypeSystem`NestedGrid`PackagePrivate`$state$$]]], TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$ = Not[ FreeQ[ TypeSystem`NestedGrid`PackagePrivate`$lastPath, Keys]]}, Join[{ If[ Or[ Not[TypeSystem`NestedGrid`PackagePrivate`haveData$], Not[TypeSystem`NestedGrid`PackagePrivate`anyHidden$], TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$], Nothing, MenuItem[ "Show " <> Which[ TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == "Item", "", TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == "RowHeader", "Row", TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == "ColumnHeader", "Column", True, ""], KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`updateHiddenItems[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$vPos$$, TypeSystem`NestedGrid`PackagePrivate`$hPos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][ TypeSystem`NestedGrid`PackagePrivate`lastPath$, "remove"]], MenuEvaluator -> Automatic]], If[ Or[ Not[TypeSystem`NestedGrid`PackagePrivate`haveData$], TypeSystem`NestedGrid`PackagePrivate`pathEmptyQ[ TypeSystem`NestedGrid`PackagePrivate`$lastPath, TypeSystem`NestedGrid`PackagePrivate`$state$$], TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$, And[ TypeSystem`NestedGrid`PackagePrivate`allHidden$, TypeSystem`NestedGrid`PackagePrivate`headerHidden$]], Nothing, MenuItem[ "Hide " <> Which[ TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == "Item", "", TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == "RowHeader", "Row", TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == "ColumnHeader", "Column", True, ""], KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`updateHiddenItems[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$vPos$$, TypeSystem`NestedGrid`PackagePrivate`$hPos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][ TypeSystem`NestedGrid`PackagePrivate`lastPath$, "add"]], MenuEvaluator -> Automatic]], Delimiter}, If[ And[TypeSystem`NestedGrid`PackagePrivate`haveData$, MatchQ[TypeSystem`NestedGrid`PackagePrivate`lastPathType$, Alternatives["ColumnHeader", "KeyDummy"]], TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$, Not[TypeSystem`NestedGrid`PackagePrivate`allHidden$]], { If[ TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= "Ascending", MenuItem["Sort", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`updateSort[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$vPos$$, TypeSystem`NestedGrid`PackagePrivate`$hPos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][ TypeSystem`NestedGrid`PackagePrivate`lastPath$, "Ascending"]], MenuEvaluator -> Automatic], Nothing], If[ TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= "Descending", MenuItem["Reverse Sort", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`updateSort[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$vPos$$, TypeSystem`NestedGrid`PackagePrivate`$hPos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][ TypeSystem`NestedGrid`PackagePrivate`lastPath$, "Descending"]], MenuEvaluator -> Automatic], Nothing], If[ TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= None, MenuItem["Unsort", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`updateSort[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$vPos$$, TypeSystem`NestedGrid`PackagePrivate`$hPos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][ TypeSystem`NestedGrid`PackagePrivate`lastPath$, None]], MenuEvaluator -> Automatic], Nothing], Delimiter}, {}], { MenuItem["Copy Position to Clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], If[TypeSystem`NestedGrid`PackagePrivate`haveData$, MenuItem["Copy Data to Clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], Nothing], Delimiter, MenuItem["Paste Position in New Cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic], If[TypeSystem`NestedGrid`PackagePrivate`haveData$, MenuItem["Paste Data in New Cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic], Nothing]}]]]]], FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> Plain}, Dividers -> All, FrameStyle -> GrayLevel[0.7490196078431373], Spacings -> {0, 0}, Alignment -> Left, BaseStyle -> { FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> Plain}], LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> False, ShowAutoStyles -> False]], TypeSystem`NestedGrid`PackagePrivate`initialQ = True}, 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`datasetData[ TypeSystem`NestedGrid`PackagePrivate`$state$$]}, TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = If[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpData$], TypeSystem`NestedGrid`PackagePrivate`renderedGrid, TypeSystem`NestedGrid`PackagePrivate`renderGrid[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$vPos$$, TypeSystem`NestedGrid`PackagePrivate`$hPos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][ 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`$vPos$$; TypeSystem`NestedGrid`PackagePrivate`$hPos$$; If[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], TypeSystem`SparseGrid[ TypeSystem`H["(data no longer present)"]], TypeSystem`NestedGrid`PackagePrivate`renderedGrid]], TrackedSymbols :> { TypeSystem`NestedGrid`PackagePrivate`$vPos$$, TypeSystem`NestedGrid`PackagePrivate`$hPos$$}], DynamicModuleValues :> {}], TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[ TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[ TypeSystem`PackageScope`SubViewPathbar[ TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$vPos$$, TypeSystem`NestedGrid`PackagePrivate`$hPos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Style[ Framed[ Dynamic[ Replace[ TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$, { TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][Null, Blank[]] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][ Pattern[TypeSystem`NestedGrid`PackagePrivate`path$, Blank[]], Pattern[TypeSystem`NestedGrid`PackagePrivate`pathType$, Blank[]], Pattern[TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$, Blank[]]] :> ( Increment[ TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger]; TypeSystem`NestedGrid`PackagePrivate`$lastPath = TypeSystem`NestedGrid`PackagePrivate`path$; TypeSystem`NestedGrid`PackagePrivate`$lastPathType = TypeSystem`NestedGrid`PackagePrivate`pathType$; TypeSystem`NestedGrid`PackagePrivate`$lastPathIsLeafHeader = TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$; TypeSystem`NestedGrid`PackagePrivate`$lastOutputID = TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]; TypeSystem`NestedGrid`PackagePrivate`makePathTrail[ TypeSystem`NestedGrid`PackagePrivate`path$, TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> Spacer[10], Blank[] :> Spacer[10]}], TrackedSymbols :> { TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$}], FrameStyle -> None, ImageMargins -> 0, FrameMargins -> 0, Alignment -> Top, ImageSize -> {Automatic, 15}], FontSize -> 1], TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$ = Null}, DynamicWrapperBox[ DynamicBox[ ToBoxes[ Dataset`DatasetContent[ 2, "Path" -> Hold[TypeSystem`NestedGrid`PackagePrivate`$path$$], "Grid" -> Hold[TypeSystem`NestedGrid`PackagePrivate`$grid$$], "State" -> Hold[TypeSystem`NestedGrid`PackagePrivate`$state$$], "VPos" -> Hold[TypeSystem`NestedGrid`PackagePrivate`$vPos$$], "HPos" -> Hold[TypeSystem`NestedGrid`PackagePrivate`$hPos$$], "TopBar" -> Hold[TypeSystem`NestedGrid`PackagePrivate`$topBar$$], "BottomBar" -> Hold[TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$], "OutputID" -> Hold[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]], StandardForm], ImageSizeCache -> {0., {0., 0.}}, TrackedSymbols :> { TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$}], TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$ = MouseAnnotation[], ImageSizeCache -> {0., {0., 0.}}], BaseStyle -> {LineBreakWithin -> False}, DynamicModuleValues :> {}, Initialization :> (TypeSystem`NestedGrid`PackagePrivate`$outputID$$ = CreateUUID[]), UnsavedVariables :> {TypeSystem`NestedGrid`PackagePrivate`$outputID$$}], Deploy, DefaultBaseStyle -> "Deploy"]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->("Dataset[<>]"& )], False, BoxID -> 7201998223423199399355743002848217204732719738684380229640, Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellContext->"Notebook$$60$373257`", 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.7059785126133204`*^9, 3.7059786121906147`*^9, 3.706283327802884*^9, 3.7062863918491783`*^9, 3.706291296596656*^9, 3.7063715263082533`*^9, 3.70637326745197*^9, 3.8862400623731813`*^9}, CellLabel->"Out[1]="] }, Open ]], Cell["Create a word cloud of regions represented in the timeline:", "Text", 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.706283454817778*^9, 3.70628347209094*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"WordCloud", "[", RowBox[{"CommonName", "[", RowBox[{"DeleteMissing", "[", RowBox[{"Normal", "@", RowBox[{ RowBox[{ "ResourceData", "[", "\"\\"", "]"}], "[", RowBox[{"All", ",", "\"\\""}], "]"}]}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.706257156603005*^9, 3.706257222604589*^9}, { 3.706257266033502*^9, 3.706257358453998*^9}, {3.7062574287179728`*^9, 3.706257466533585*^9}, {3.7062575231409082`*^9, 3.7062575261863194`*^9}, { 3.706257616628829*^9, 3.706257645262638*^9}, {3.70628347863004*^9, 3.706283479527656*^9}, 3.886240089298308*^9}], Cell[BoxData[ GraphicsBox[{InsetBox[ StyleBox["\<\"United States\"\>", StripOnInput->False, FontSize->Scaled[0.16826923076923078`], FontColor->RGBColor[0.368417, 0.506779, 0.709798]], {0, 0}, Center, Automatic], InsetBox[ StyleBox["\<\"United Kingdom\"\>", StripOnInput->False, FontSize->Scaled[0.09158958130477118], FontColor->RGBColor[0.880722, 0.611041, 0.142051]], {-0.5, -40.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Europe\"\>", StripOnInput->False, FontSize->Scaled[0.07150681596884129], FontColor->RGBColor[0.560181, 0.691569, 0.194885]], {-2.5, 46.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Roman Empire\"\>", StripOnInput->False, FontSize->Scaled[0.0313412852969815], FontColor->RGBColor[0.772079, 0.431554, 0.102387]], {-5.5, -61.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Greece\"\>", StripOnInput->False, FontSize->Scaled[0.042295520934761445`], FontColor->RGBColor[0.922526, 0.385626, 0.209179]], {0.5, 63.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Babylonia\"\>", StripOnInput->False, FontSize->Scaled[0.03499269717624148], FontColor->RGBColor[0.528488, 0.470624, 0.701351]], {63.5, 61.5}, Center, Automatic], InsetBox[ StyleBox["\<\"China\"\>", StripOnInput->False, FontSize->Scaled[0.027689873417721517`], FontColor->RGBColor[0.363898, 0.618501, 0.782349]], {-38.5, 26.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Japan\"\>", StripOnInput->False, FontSize->Scaled[0.02403846153846154], FontColor->RGBColor[0.571589, 0.586483, 0.]], {61.5, 38.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Egypt\"\>", StripOnInput->False, FontSize->Scaled[0.02403846153846154], FontColor->RGBColor[1, 0.75, 0]], {-64.5, 38.5}, Center, Automatic], InsetBox[ StyleBox["\<\"India\"\>", StripOnInput->False, FontSize->Scaled[0.02403846153846154], FontColor->RGBColor[0.647624, 0.37816, 0.614037]], {0.5, -74.5}, Center, Automatic]}, DefaultBaseStyle->{"Graphics", FontFamily -> "Helvetica"}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}, PlotRange->{{-207., 209.}, {-80., 75.}}]], "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.706283485751745*^9, 3.7062863994515667`*^9, 3.706291306360623*^9, 3.7063715423397093`*^9, 3.70637326939296*^9}] }, Open ]], Cell["\<\ Create a word cloud from descriptions of events in the 20th century:\ \>", "Text", 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.706286258981819*^9, 3.7062862961643133`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"WordCloud", "[", RowBox[{ RowBox[{"StringRiffle", "@", RowBox[{"DeleteStopwords", "@", RowBox[{"Normal", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{ "ResourceData", "[", "\"\\"", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"DateObject", "[", RowBox[{"{", "1900", "}"}], "]"}], "<", "#Date", "<", RowBox[{"DateObject", "[", RowBox[{"{", "2000", "}"}], "]"}]}], "&"}]}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "\"\\""}], "]"}], "]"}], "]"}]}]}], ",", RowBox[{"IgnoreCase", "\[Rule]", "True"}]}], "]"}]], "Input", 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.706286252126171*^9, 3.7062862559050617`*^9}, {3.706291282474489*^9, 3.706291293274919*^9}, { 3.706371546397357*^9, 3.706371546542502*^9}, 3.886240091807949*^9}], Cell[BoxData[ GraphicsBox[{InsetBox[ StyleBox["\<\"system\"\>", StripOnInput->False, FontSize->Scaled[0.1715686274509804], FontColor->RGBColor[0.368417, 0.506779, 0.709798]], {0, 0}, Center, Automatic], InsetBox[ StyleBox["\<\"knowledge\"\>", StripOnInput->False, FontSize->Scaled[0.09803921568627451], FontColor->RGBColor[0.560181, 0.691569, 0.194885]], {-0.5, 43.5}, Center, Automatic], InsetBox[ StyleBox["\<\"computers\"\>", StripOnInput->False, FontSize->Scaled[0.09803921568627451], FontColor->RGBColor[0.880722, 0.611041, 0.142051]], {-0.5, -48.5}, Center, Automatic], InsetBox[ StyleBox["\<\"information\"\>", StripOnInput->False, FontSize->Scaled[0.08333333333333333], FontColor->RGBColor[0.772079, 0.431554, 0.102387]], {0.5, 75.5}, Center, Automatic], InsetBox[ StyleBox["\<\"begins\"\>", StripOnInput->False, FontSize->Scaled[0.08333333333333333], FontColor->RGBColor[0.528488, 0.470624, 0.701351]], {-0.5, -80.5}, Center, Automatic], InsetBox[ StyleBox["\<\"computer\"\>", StripOnInput->False, FontSize->Scaled[0.06862745098039216], FontColor->RGBColor[0.363898, 0.618501, 0.782349]], {9.5, 102.5}, Center, Automatic], InsetBox[ StyleBox["\<\"computations\"\>", StripOnInput->False, FontSize->Scaled[0.05392156862745098], FontColor->RGBColor[0.736782672705901, 0.358, 0.5030266573755369]], {3.5, -108.5}, Center, Automatic], InsetBox[ StyleBox["\<\"web\"\>", StripOnInput->False, FontSize->Scaled[0.09803921568627451], FontColor->RGBColor[0.922526, 0.385626, 0.209179]], {86.5, -74.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Internet\"\>", StripOnInput->False, FontSize->Scaled[0.06862745098039216], FontColor->RGBColor[0.571589, 0.586483, 0.]], {-14.5, 122.5}, Center, Automatic], InsetBox[ StyleBox["\<\"provide\"\>", StripOnInput->False, FontSize->Scaled[0.06862745098039216], FontColor->RGBColor[0.915, 0.3325, 0.2125]], {-97.5, -76.5}, Center, Automatic], InsetBox[ StyleBox["\<\"introduces\"\>", StripOnInput->False, FontSize->Scaled[0.05392156862745098], FontColor->RGBColor[ 0.6753413537738198, 0.3589675436319385, 0.5991466155654507]], {-0.5, -129.5}, Center, Automatic], InsetBox[ StyleBox["\<\"founds\"\>", StripOnInput->False, FontSize->Scaled[0.06862745098039216], FontColor->RGBColor[1, 0.75, 0]], {-100.5, 102.5}, Center, Automatic], InsetBox[ StyleBox["\<\"publishes\"\>", StripOnInput->False, FontSize->Scaled[0.05392156862745098], FontColor->RGBColor[0.7748409210981391, 0.358, 0.4444755060028629]], {-0.5, 144.5}, Center, Automatic], InsetBox[ StyleBox["\<\"language\"\>", StripOnInput->False, FontSize->Scaled[0.05392156862745098], FontColor->RGBColor[0.5407932311309059, 0.715, 0.09762679674248334]], {-13.5, -146.5}, Center, Automatic], InsetBox[ StyleBox["\<\"standard\"\>", StripOnInput->False, FontSize->Scaled[0.05392156862745098], FontColor->RGBColor[ 0.8613800418100862, 0.48092002787339083`, 0.02824203762907758]], {109.5, 94.5}, Center, Automatic], InsetBox[ StyleBox["\<\"provides\"\>", StripOnInput->False, FontSize->Scaled[0.05392156862745098], FontColor->RGBColor[0.47401116530937026`, 0.47809330081437784`, 0.85]], {127.5, 68.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Records\"\>", StripOnInput->False, FontSize->Scaled[0.05392156862745098], FontColor->RGBColor[ 0.16397784358994957`, 0.7038177251280403, 0.6117734123079395]], {-126.5, 72.5}, Center, Automatic], InsetBox[ StyleBox["\<\"representation\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[0.4567336004533182, 0.4884598397280091, 0.85]], {88.5, 122.5}, Center, Automatic], InsetBox[ StyleBox["\<\"index\"\>", StripOnInput->False, FontSize->Scaled[0.06862745098039216], FontColor->RGBColor[0.647624, 0.37816, 0.614037]], {126.5, -34.5}, Center, Automatic], InsetBox[ StyleBox["\<\"created\"\>", StripOnInput->False, FontSize->Scaled[0.05392156862745098], FontColor->RGBColor[ 0.5833680111493557, 0.4126186601628758, 0.8290799721266107]], {133.5, 29.5}, Center, Automatic], InsetBox[ StyleBox["\<\"defines\"\>", StripOnInput->False, FontSize->Scaled[0.05392156862745098], FontColor->RGBColor[ 0.8439466852489265, 0.3467106629502147, 0.3309221912517893]], {-128.5, -30.5}, Center, Automatic], InsetBox[ StyleBox["\<\"concept\"\>", StripOnInput->False, FontSize->Scaled[0.05392156862745098], FontColor->RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965]], {-103.5, -100.5}, Center, Automatic], InsetBox[ StyleBox["\<\"computation\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[0.7513196300394465, 0.358, 0.48066210763162087`]], {114.5, -95.5}, Center, Automatic], InsetBox[ StyleBox["\<\"creates\"\>", StripOnInput->False, FontSize->Scaled[0.05392156862745098], FontColor->RGBColor[0.8996399512215667, 0.7463488834690629, 0.]], {-133.5, 29.5}, Center, Automatic], InsetBox[ StyleBox["\<\"mathematical\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.5750747800184488, 0.4174563783225715, 0.8498130499538777]], {100.5, -122.5}, Center, Automatic], InsetBox[ StyleBox["\<\"photocopier\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.922066817647527, 0.5213778784316846, 0.08286013588277422]], {-96.5, -122.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Intelligence\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.6319174318193065, 0.38429816477207124`, 0.7077064204517338]], {-103.5, 124.5}, Center, Automatic], InsetBox[ StyleBox["\<\"sequences\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[0.15725938678540247`, 0.715, 0.5857607804549424]], {72.5, -143.5}, Center, Automatic], InsetBox[ StyleBox["\<\"algorithmic\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.35558897405758294`, 0.5505288207539337, 0.8417067688690995]], {87.5, 138.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Public\"\>", StripOnInput->False, FontSize->Scaled[0.05392156862745098], FontColor->RGBColor[ 0.9874666782805795, 0.6948333914028977, 0.033839968642435214`]], {-126.5, -51.5}, Center, Automatic], InsetBox[ StyleBox["\<\"codes\"\>", StripOnInput->False, FontSize->Scaled[0.05392156862745098], FontColor->RGBColor[ 0.9728288904374106, 0.621644452187053, 0.07336199581899142]], {-127.5, 49.5}, Center, Automatic], InsetBox[ StyleBox["\<\"systematic\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.9603267270590103, 0.5591336352950514, 0.10711783694067224`]], {-87.5, 144.5}, Center, Automatic], InsetBox[ StyleBox["\<\"languages\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[0.38354466123747527`, 0.5323732032575149, 0.85]], {49.5, 163.5}, Center, Automatic], InsetBox[ StyleBox["\<\"hierarchical\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.8745421494417032, 0.39318677583744527`, 0.11135537360425793`]], {25.5, -164.5}, Center, Automatic], InsetBox[ StyleBox["\<\"create\"\>", StripOnInput->False, FontSize->Scaled[0.05392156862745098], FontColor->RGBColor[ 0.838355547812947, 0.44746667828057946`, 0.0208888695323676]], {140.5, 0.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Standards\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[0.7989994773739094, 0.735166608597101, 0.]], {133.5, 49.5}, Center, Automatic], InsetBox[ StyleBox["\<\"processes\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.6670481226429111, 0.3638052617916352, 0.6198796933927223]], {-97.5, -138.5}, Center, Automatic], InsetBox[ StyleBox["\<\"documents\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[0.8493197142977551, 0.7407577460330839, 0.]], {-29.5, 164.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Congress\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[0.2187618985811806, 0.715, 0.5074848563512248]], {-66.5, -160.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Company\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.9784200278733908, 0.649600139366954, 0.058265924741844846`]], {102.5, -160.5}, Center, Automatic], InsetBox[ StyleBox["\<\"represent\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.8926354502560807, 0.366046824615879, 0.15658862564020168`]], {-105.5, 160.5}, Center, Automatic], InsetBox[ StyleBox["\<\"introduced\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[0.7175796237092107, 0.7261199581899123, 0.]], {126.5, 154.5}, Center, Automatic], InsetBox[ StyleBox["\<\"collecting\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.9038177251280404, 0.3492734123079395, 0.18454431282010084`]], {-136.5, -157.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Cheaper\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.6536293927965667, 0.37163285420200276`, 0.6534265180085832]], {-142.5, -1.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Food\"\>", StripOnInput->False, FontSize->Scaled[0.05392156862745098], FontColor->RGBColor[ 0.9324333565611593, 0.5282889043741062, 0.0921900209050434]], {149.5, -57.5}, Center, Automatic], InsetBox[ StyleBox["\<\"code\"\>", StripOnInput->False, FontSize->Scaled[0.05392156862745098], FontColor->RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85]], {139.5, -142.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Drug\"\>", StripOnInput->False, FontSize->Scaled[0.05392156862745098], FontColor->RGBColor[ 0.28240003484173815`, 0.6090799721266095, 0.7538800418100857]], {-8.5, -180.5}, Center, Automatic], InsetBox[ StyleBox["\<\"character\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.9052934053395919, 0.510195603559728, 0.06776406480563275]], {18.5, 179.5}, Center, Automatic], InsetBox[ StyleBox["\<\"program\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[0.5788038738141875, 0.715, 0.049249615145579635`]], {156.5, -71.5}, Center, Automatic], InsetBox[ StyleBox["\<\"barcodes\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[0.7132613816472081, 0.358, 0.5392132590042952]], {-50.5, 180.5}, Center, Automatic], InsetBox[ StyleBox["\<\"systems\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[0.7042770479220728, 0.358, 0.5530353108891188]], {46.5, -180.5}, Center, Automatic], InsetBox[ StyleBox["\<\"launched\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.969373377466199, 0.6043668873309952, 0.08269188084126262]], {-67.5, -179.5}, Center, Automatic], InsetBox[ StyleBox["\<\"abstracts\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.6184987019729621, 0.39212575718243875`, 0.7412532450675947]], {87.5, 176.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Security\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[0.7658565873730018, 0.358, 0.4582975578876895]], {159.5, 135.5}, Center, Automatic], InsetBox[ StyleBox["\<\"New\"\>", StripOnInput->False, FontSize->Scaled[0.05392156862745098], FontColor->RGBColor[ 0.8857244243136628, 0.3764133635295058, 0.1393110607841571]], {-167.5, -66.5}, Center, Automatic], InsetBox[ StyleBox["\<\"efficient\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.9492067688690977, 0.5394711792460651, 0.10728609198218791`]], {-115.5, 173.5}, Center, Automatic], InsetBox[ StyleBox["\<\"statistics\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.8774935098648088, 0.34000129802703827`, 0.2750108168919853]], {109.5, -179.5}, Center, Automatic], InsetBox[ StyleBox["\<\"defining\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.8342400905885153, 0.4628267270590103, 0.0038160815296638794`]], {-156.5, 143.5}, Center, Automatic], InsetBox[ StyleBox["\<\"domains\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.8607200975568693, 0.34335598048862614`, 0.30296650407188447`]], {-133.5, -173.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Opinion\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.26512246998569167`, 0.6229020240114467, 0.73314696398283]], {-164.5, -138.5}, Center, Automatic], InsetBox[ StyleBox["\<\"attempt\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.9637822400302223, 0.5764112001511111, 0.0977879519184]], {152.5, 170.5}, Center, Automatic], InsetBox[ StyleBox["\<\"machine\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[0.31827505306025683`, 0.715, 0.3808317506505822]], {170.5, -15.5}, Center, Automatic], InsetBox[ StyleBox["\<\"catalog\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.8168067340273636, 0.3521386531945273, 0.3761554432877274]], {-170.5, -83.5}, Center, Automatic], InsetBox[ StyleBox["\<\"retrieval\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.9840111653093676, 0.677555826546838, 0.04316985366470745]], {-0.5, 194.5}, Center, Automatic], InsetBox[ StyleBox["\<\"material\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.845266573755366, 0.437100139366951, 0.03816643438841502]], {-173.5, 92.5}, Center, Automatic], InsetBox[ StyleBox["\<\"indexes\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.19193353076984873`, 0.681453175384121, 0.6453202369238185]], {-172.5, -99.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Library\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[0.7277983389807635, 0.358, 0.5168487092603637]], {166.5, 113.5}, Center, Automatic], InsetBox[ StyleBox["\<\"initiates\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.8781534541180211, 0.4921023027453475, 0.04333810870621905]], {58.5, 194.5}, Center, Automatic], InsetBox[ StyleBox["\<\"storing\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.3383114092015346, 0.5643508726387724, 0.8209736910418415]], {-165.5, -115.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Bureau\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[0.9810598048862722, 0.7553955338762525, 0.]], {-171.5, 108.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Social\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.8510135028964549, 0.47400900193096995`, 0.018912152606809424`]], {176.5, 84.5}, Center, Automatic], InsetBox[ StyleBox["\<\"textual\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.8633598745697435, 0.40996018814538476`, 0.08339968642435877]], {174.5, -110.5}, Center, Automatic], InsetBox[ StyleBox["\<\"human\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.9930578157165594, 0.7227890785827968, 0.01874389756528967]], {-32.5, -194.5}, Center, Automatic], InsetBox[ StyleBox["\<\"space\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.6102054708420535, 0.39696347534213544`, 0.7619863228948663]], {54.5, -193.5}, Center, Automatic], InsetBox[ StyleBox["\<\"common\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[0.428777913273419, 0.5052332520359486, 0.85]], {-62.5, 196.5}, Center, Automatic], InsetBox[ StyleBox["\<\"edition\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.3103557220216354, 0.5867154223826917, 0.7874268664259625]], {-169.5, 124.5}, Center, Automatic], InsetBox[ StyleBox["\<\"collect\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[0.6361597700445392, 0.7170733077827265, 0.]], {110.5, 191.5}, Center, Automatic], InsetBox[ StyleBox["\<\"digital\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.596786740995709, 0.404791067752503, 0.7955331475107271]], {-179.5, 45.5}, Center, Automatic], InsetBox[ StyleBox["\<\"center\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.23716678280579248`, 0.645266573755366, 0.699600139366951]], {64.5, -25.5}, Center, Automatic], InsetBox[ StyleBox["\<\"begin\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[0.37977756485605163`, 0.715, 0.3025558265468435]], {182.5, -31.5}, Center, Automatic], InsetBox[ StyleBox["\<\"online\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.8335801463353031, 0.3487839707329394, 0.3481997561078282]], {-180.5, -44.5}, Center, Automatic], InsetBox[ StyleBox["\<\"movie\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[0.9307395679624266, 0.7498043964402695, 0.]], {-82.5, -194.5}, Center, Automatic], InsetBox[ StyleBox["\<\"using\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.9986489531525362, 0.7507447657626809, 0.0036478264881522893`]], {180.5, -86.5}, Center, Automatic], InsetBox[ StyleBox["\<\"huge\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[0.5019668524892619, 0.46131988850644284`, 0.85]], {-179.5, -14.5}, Center, Automatic], InsetBox[ StyleBox["\<\"world\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.2198892179497479, 0.6590886256402017, 0.6788670615396974]], {178.5, -126.5}, Center, Automatic], InsetBox[ StyleBox["\<\"kinds\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.9046334610863751, 0.334573307782725, 0.22977756485604156`]], {-115.5, 189.5}, Center, Automatic], InsetBox[ StyleBox["\<\"access\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[0.7678998606330495, 0.7317110956258943, 0.]], {104.5, -192.5}, Center, Automatic], InsetBox[ StyleBox["\<\"form\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[0.47929071933511125`, 0.715, 0.1759027208462221]], {6.5, -26.5}, Center, Automatic], InsetBox[ StyleBox["\<\"brain\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[0.5472001045252132, 0.43417993728487203`, 0.85]], {158.5, -159.5}, Center, Automatic], InsetBox[ StyleBox["\<\"book\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.8564488486273256, 0.42032672705901153`, 0.06612212156831418]], {-125.5, -188.5}, Center, Automatic], InsetBox[ StyleBox["\<\"way\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.8064401951137368, 0.3542119609772526, 0.39343300814377197`]], {184.5, 13.5}, Center, Automatic], InsetBox[ StyleBox["\<\"flow\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[0.6897400905885174, 0.358, 0.5753998606330502]], {-184.5, 13.5}, Center, Automatic], InsetBox[ StyleBox["\<\"idea\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.7896667828057927, 0.3575666434388414, 0.4213886953236787]], {-184.5, 61.5}, Center, Automatic], InsetBox[ StyleBox["\<\"text\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[0.4177882075393331, 0.715, 0.25417864494993975`]], {187.5, 26.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Act\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[ 0.8878600487784333, 0.33792799024431336`, 0.2577332520359445]], {185.5, 42.5}, Center, Automatic], InsetBox[ StyleBox["\<\"1960s\"\>", StripOnInput->False, FontSize->Scaled[0.024509803921568627`], FontColor->RGBColor[0.6672593867853922, 0.7205288207539324, 0.]], {-27.5, -28.5}, Center, Automatic], InsetBox[ StyleBox["\<\"1940s\"\>", StripOnInput->False, FontSize->Scaled[0.024509803921568627`], FontColor->RGBColor[ 0.8949268664259606, 0.5032845776173072, 0.05843417978336459]], {-125.5, 9.5}, Center, Automatic], InsetBox[ StyleBox["\<\"use\"\>", StripOnInput->False, FontSize->Scaled[0.0392156862745098], FontColor->RGBColor[0.529922539669161, 0.44454647619850335`, 0.85]], {185.5, 58.5}, Center, Automatic], InsetBox[ StyleBox["\<\"1970\"\>", StripOnInput->False, FontSize->Scaled[0.024509803921568627`], FontColor->RGBColor[ 0.9107287510704583, 0.33890687339431275`, 0.20182187767614543`]], {-152.5, 12.5}, Center, Automatic], InsetBox[ StyleBox["\<\"1949\"\>", StripOnInput->False, FontSize->Scaled[0.024509803921568627`], FontColor->RGBColor[ 0.6453361616656581, 0.37647057236169945`, 0.6741595958358548]], {187.5, -48.5}, Center, Automatic]}, DefaultBaseStyle->{"Graphics", FontFamily -> "Helvetica"}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}, PlotRange->{{-204., 204.}, {-204., 204.}}]], "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.706286300872505*^9, 3.7062863481540203`*^9, 3.70628640650042*^9, 3.70629131124697*^9, { 3.70637155339496*^9, 3.7063715606417418`*^9}, 3.706373275207849*^9}] }, Open ]], Cell["\<\ Show counts of events by region and century from 2000 B.C. to 2000 A.D.:\ \>", "Text", 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.706283763720244*^9, 3.706283777739765*^9}, {3.706283832935462*^9, 3.706283861299036*^9}, { 3.706291445069075*^9, 3.706291450181122*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"grouped", "=", RowBox[{ RowBox[{"GroupBy", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{ "ResourceData", "[", "\"\\"", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"-", "2000"}], "}"}], "]"}], "\[LessEqual]", "#Date", "\[LessEqual]", RowBox[{"DateObject", "[", RowBox[{"{", "2000", "}"}], "]"}]}], "&"}]}], "]"}], ",", RowBox[{"#Region", "&"}]}], "]"}], "[", RowBox[{"All", ",", "All", ",", "\"\\""}], "]"}]}], "}"}], ",", RowBox[{"DateHistogram", "[", RowBox[{"grouped", ",", "\"\\"", ",", RowBox[{"ChartLayout", "\[Rule]", "\"\\""}], ",", RowBox[{"ChartLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"CommonName", "@", RowBox[{"Normal", "[", RowBox[{"Keys", "[", "grouped", "]"}], "]"}]}], ",", "Bottom"}], "]"}]}]}], "]"}]}], "]"}]], "Input", 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.706283588513975*^9, 3.70628366761014*^9}, {3.706283703144445*^9, 3.706283737947878*^9}, { 3.706291327388351*^9, 3.706291345019577*^9}, {3.706291398661322*^9, 3.706291468005391*^9}, 3.886240094612466*^9}], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Thickness[Small], Opacity[0.42]]], RGBColor[ 0.987148, 0.8073604000000001, 0.49470040000000004`]], {{{{}, { Directive[ Opacity[0.5], Directive[ EdgeForm[ Directive[ Thickness[Small], Opacity[0.42]]], RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`]], Directive[ RGBColor[0.97858, 0.678934, 0.157834]]], {{{ RectangleBox[{-1.167291648*^11, 0.}, {-1.135734912*^11, 2}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-1.135734912*^11, 0.}, {-1.104177312*^11, 1}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-7.57051488*^10, 0.}, {-7.25493888*^10, 1}, "RoundingRadius" -> 0]}}}}, {}, {}}}, {{{}, { Directive[ Opacity[0.5], Directive[ EdgeForm[ Directive[ Thickness[Small], Opacity[0.42]]], RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`]], Directive[ RGBColor[0.368417, 0.506779, 0.709798]]], {{{ RectangleBox[{-1.009507104*^11, 0}, {-9.77949504*^10, 1}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-9.77949504*^10, 0}, {-9.46392768*^10, 1}, "RoundingRadius" -> 0]}}}}, {}, {}}}, {{{}, { Directive[ Opacity[0.5], Directive[ EdgeForm[ Directive[ Thickness[Small], Opacity[0.42]]], RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`]], Directive[ RGBColor[0.560181, 0.691569, 0.194885]]], {{{ RectangleBox[{-7.88608224*^10, 0}, {-7.57051488*^10, 1}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-7.57051488*^10, 1}, {-7.25493888*^10, 2}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-7.25493888*^10, 0}, {-6.93937152*^10, 4}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-6.93937152*^10, 0}, {-6.62380416*^10, 2}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-6.62380416*^10, 0}, {-6.3082368*^10, 1}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-6.3082368*^10, 0}, {-5.9926608*^10, 1}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-5.67709344*^10, 0}, {-5.36152608*^10, 2}, "RoundingRadius" -> 0]}}}}, {}, {}}}, {{{}, { Directive[ Opacity[0.5], Directive[ EdgeForm[ Directive[ Thickness[Small], Opacity[0.42]]], RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`]], Directive[ RGBColor[0.922526, 0.385626, 0.209179]]], {{{ RectangleBox[{-7.25493888*^10, 4}, {-6.93937152*^10, 5}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-3.46810464*^10, 0}, {-3.15253728*^10, 1}, "RoundingRadius" -> 0]}}}}, {}, {}}}, {{{}, { Directive[ Opacity[0.5], Directive[ EdgeForm[ Directive[ Thickness[Small], Opacity[0.42]]], RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`]], Directive[ RGBColor[0.528488, 0.470624, 0.701351]]], {{{ RectangleBox[{-6.3082368*^10, 1}, {-5.9926608*^10, 2}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-5.9926608*^10, 0}, {-5.67709344*^10, 2}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-5.67709344*^10, 2}, {-5.36152608*^10, 3}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-5.04595872*^10, 0}, {-4.73038272*^10, 1}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-4.41481536*^10, 0}, {-4.099248*^10, 1}, "RoundingRadius" -> 0]}}}}, {}, {}}}, {{{}, { Directive[ Opacity[0.5], Directive[ EdgeForm[ Directive[ Thickness[Small], Opacity[0.42]]], RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`]], Directive[ RGBColor[0.772079, 0.431554, 0.102387]]], {{{ RectangleBox[{-5.67709344*^10, 3}, {-5.36152608*^10, 4}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-3.15253728*^10, 0}, {-2.83696992*^10, 1}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-1.57469184*^10, 0}, {-1.25912448*^10, 1}, "RoundingRadius" -> 0]}}}}, {}, {}}}, {{{}, { Directive[ Opacity[0.5], Directive[ EdgeForm[ Directive[ Thickness[Small], Opacity[0.42]]], RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`]], Directive[ RGBColor[0.363898, 0.618501, 0.782349]]], {{{ RectangleBox[{-4.41481536*^10, 1}, {-4.099248*^10, 2}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-2.83696992*^10, 0}, {-2.52140256*^10, 1}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-2.20582656*^10, 0}, {-1.8902592*^10, 3}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-1.8902592*^10, 0}, {-1.57469184*^10, 1}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-1.57469184*^10, 1}, {-1.25912448*^10, 3}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-1.25912448*^10, 0}, {-9.4354848*^9, 2}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-9.4354848*^9, 0}, {-6.2798112*^9, 5}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-6.2798112*^9, 0}, {-3.1241376*^9, 2}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-3.1241376*^9, 0}, {3.1536*^7, 8}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{3.1536*^7, 0}, {3.187296*^9, 3}, "RoundingRadius" -> 0]}}}}, {}, {}}}, {{{}, { Directive[ Opacity[0.5], Directive[ EdgeForm[ Directive[ Thickness[Small], Opacity[0.42]]], RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`]], Directive[ RGBColor[1, 0.75, 0]]], {{{ RectangleBox[{-2.83696992*^10, 1}, {-2.52140256*^10, 2}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-1.25912448*^10, 2}, {-9.4354848*^9, 3}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-9.4354848*^9, 5}, {-6.2798112*^9, 15}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-6.2798112*^9, 2}, {-3.1241376*^9, 7}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-3.1241376*^9, 8}, {3.1536*^7, 21}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{3.1536*^7, 3}, {3.187296*^9, 12}, "RoundingRadius" -> 0]}}}}, {}, {}}}, {{{}, { Directive[ Opacity[0.5], Directive[ EdgeForm[ Directive[ Thickness[Small], Opacity[0.42]]], RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`]], Directive[ RGBColor[0.647624, 0.37816, 0.614037]]], {{{ RectangleBox[{-6.2798112*^9, 7}, {-3.1241376*^9, 11}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-3.1241376*^9, 21}, {3.1536*^7, 35}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{3.1536*^7, 12}, {3.187296*^9, 69}, "RoundingRadius" -> 0]}}}}, {}, {}}}, {{{}, { Directive[ Opacity[0.5], Directive[ EdgeForm[ Directive[ Thickness[Small], Opacity[0.42]]], RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`]], Directive[ RGBColor[0.571589, 0.586483, 0.]]], {{{ RectangleBox[{-6.2798112*^9, 11}, {-3.1241376*^9, 12}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{3.1536*^7, 69}, {3.187296*^9, 70}, "RoundingRadius" -> 0]}}}}, {}, {}}}}}, {{{{{}, {}, {}}, {}}}, {{{{}, {}}, {}}}, \ {{{{}, {}, {}, {}, {}, {}, {}}, {}}}, {{{{}, {}}, {}}}, {{{{}, {}, {}, {}, \ {}}, {}}}, {{{{}, {}, {}}, {}}}, {{{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \ {}}}, {{{{}, {}, {}, {}, {}, {}}, {}}}, {{{{}, {}, {}}, {}}}, {{{{}, {}}, \ {}}}}}, {AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {-1.19127494016*^11, 0}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {{{-1.04106384*^11, FormBox["\"-1400\"", TraditionalForm], {0, 0.01}}, {-8.83279296*^10, FormBox["\"-900\"", TraditionalForm], {0, 0.01}}, {-7.25493888*^10, FormBox["\"-400\"", TraditionalForm], {0, 0.01}}, {-5.67709344*^10, FormBox["\"101\"", TraditionalForm], {0, 0.01}}, {-4.099248*^10, FormBox["\"601\"", TraditionalForm], {0, 0.01}}, {-2.52140256*^10, FormBox["\"1101\"", TraditionalForm], {0, 0.01}}, {-9.4354848*^9, FormBox["\"1601\"", TraditionalForm], {0, 0.01}}}, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], PlotRange -> {{-1.167291648*^11, 3.187296*^9}, {All, All}}, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {{{-1.04106384*^11, FormBox["\"-1400\"", TraditionalForm], {0, 0.01}}, {-8.83279296*^10, FormBox["\"-900\"", TraditionalForm], {0, 0.01}}, {-7.25493888*^10, FormBox["\"-400\"", TraditionalForm], {0, 0.01}}, {-5.67709344*^10, FormBox["\"101\"", TraditionalForm], {0, 0.01}}, {-4.099248*^10, FormBox["\"601\"", TraditionalForm], {0, 0.01}}, {-2.52140256*^10, FormBox["\"1101\"", TraditionalForm], {0, 0.01}}, {-9.4354848*^9, FormBox["\"1601\"", TraditionalForm], {0, 0.01}}}, Automatic}}], FormBox[ FormBox[ TemplateBox[{ "\"Babylonia\"", "\"Egypt\"", "\"Greece\"", "\"India\"", "\"Roman Empire\"", "\"China\"", "\"Europe\"", "\"United Kingdom\"", "\"United States\"", "\"Japan\""}, "SwatchLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Directive[ PointSize[0.5], AbsoluteThickness[1.6], Opacity[0.5], EdgeForm[ Directive[ GrayLevel[0], Thickness[Small], Opacity[0.42]]], RGBColor[0.97858, 0.678934, 0.157834]], RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #, GraphicsBox[{ Directive[ PointSize[0.5], AbsoluteThickness[1.6], Opacity[0.5], EdgeForm[ Directive[ GrayLevel[0], Thickness[Small], Opacity[0.42]]], RGBColor[0.368417, 0.506779, 0.709798]], RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, GraphicsBox[{ Directive[ PointSize[0.5], AbsoluteThickness[1.6], Opacity[0.5], EdgeForm[ Directive[ GrayLevel[0], Thickness[Small], Opacity[0.42]]], RGBColor[0.560181, 0.691569, 0.194885]], RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3, GraphicsBox[{ Directive[ PointSize[0.5], AbsoluteThickness[1.6], Opacity[0.5], EdgeForm[ Directive[ GrayLevel[0], Thickness[Small], Opacity[0.42]]], RGBColor[0.922526, 0.385626, 0.209179]], RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #4, GraphicsBox[{ Directive[ PointSize[0.5], AbsoluteThickness[1.6], Opacity[0.5], EdgeForm[ Directive[ GrayLevel[0], Thickness[Small], Opacity[0.42]]], RGBColor[0.528488, 0.470624, 0.701351]], RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #5, GraphicsBox[{ Directive[ PointSize[0.5], AbsoluteThickness[1.6], Opacity[0.5], EdgeForm[ Directive[ GrayLevel[0], Thickness[Small], Opacity[0.42]]], RGBColor[0.772079, 0.431554, 0.102387]], RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0.5, 0.5}}}], "Grid"]}, { TagBox[ GridBox[{{ GraphicsBox[{ Directive[ PointSize[0.5], AbsoluteThickness[1.6], Opacity[0.5], EdgeForm[ Directive[ GrayLevel[0], Thickness[Small], Opacity[0.42]]], RGBColor[0.363898, 0.618501, 0.782349]], RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #7, GraphicsBox[{ Directive[ PointSize[0.5], AbsoluteThickness[1.6], Opacity[0.5], EdgeForm[ Directive[ GrayLevel[0], Thickness[Small], Opacity[0.42]]], RGBColor[1, 0.75, 0]], RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #8, GraphicsBox[{ Directive[ PointSize[0.5], AbsoluteThickness[1.6], Opacity[0.5], EdgeForm[ Directive[ GrayLevel[0], Thickness[Small], Opacity[0.42]]], RGBColor[0.647624, 0.37816, 0.614037]], RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #9, GraphicsBox[{ Directive[ PointSize[0.5], AbsoluteThickness[1.6], Opacity[0.5], EdgeForm[ Directive[ GrayLevel[0], Thickness[Small], Opacity[0.42]]], RGBColor[0.571589, 0.586483, 0.]], RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #10}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0.5, 0.5}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"SwatchLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.97858, 0.678934, 0.157834], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6523866666666667, 0.45262266666666673`, 0.10522266666666667`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.97858, 0.678934, 0.157834]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.97858, 0.678934, 0.157834]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.97858, 0.678934, 0.157834], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.922526, 0.385626, 0.209179], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6150173333333333, 0.25708400000000003`, 0.13945266666666667`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.922526, 0.385626, 0.209179]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.922526, 0.385626, 0.209179]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.922526, 0.385626, 0.209179], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.528488, 0.470624, 0.701351], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.3523253333333333, 0.3137493333333333, 0.46756733333333333`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.528488, 0.470624, 0.701351]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.528488, 0.470624, 0.701351]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.528488, 0.470624, 0.701351], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.772079, 0.431554, 0.102387], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.5147193333333333, 0.28770266666666666`, 0.06825800000000001], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.772079, 0.431554, 0.102387]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.772079, 0.431554, 0.102387]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.772079, 0.431554, 0.102387], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.363898, 0.618501, 0.782349], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.24259866666666668`, 0.412334, 0.521566], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.363898, 0.618501, 0.782349]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.363898, 0.618501, 0.782349]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.363898, 0.618501, 0.782349], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[1, 0.75, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6666666666666666, 0.5, 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[1, 0.75, 0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0.75, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[1, 0.75, 0], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.647624, 0.37816, 0.614037], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.4317493333333333, 0.2521066666666667, 0.40935800000000006`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.647624, 0.37816, 0.614037]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.647624, 0.37816, 0.614037]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.647624, 0.37816, 0.614037], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.571589, 0.586483, 0.], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.38105933333333336`, 0.39098866666666665`, 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.571589, 0.586483, 0.]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.571589, 0.586483, 0.]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.571589, 0.586483, 0.], Editable -> False, Selectable -> False]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.42`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, ",", #7, ",", #8, ",", #9, ",", #10}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "Automatic", ",", "Automatic", ",", "Automatic", ",", "Automatic", ",", "Automatic", ",", "Automatic", ",", "Automatic", ",", "Automatic", ",", "Automatic", ",", "Automatic"}], "}"}], ",", RowBox[{"{", "None", "}"}]}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Row\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}, { ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "Below"}], "]"}]}], "]"}]& )]], "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.7062836600119762`*^9, 3.706283674532773*^9}, {3.706283713040761*^9, 3.7062837494887657`*^9}, 3.706286424771171*^9, 3.7062913661047297`*^9, 3.706291404476307*^9, { 3.7062914598202343`*^9, 3.706291470027688*^9}, 3.7063715719724073`*^9, 3.706373281172534*^9}] }, Open ]], Cell["\<\ Show counts of events by region and decade from 1400 to present:\ \>", "Text", 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.706283853733232*^9, 3.706283871240369*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"grouped", "=", RowBox[{ RowBox[{"GroupBy", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{ "ResourceData", "[", "\"\\"", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"DateObject", "[", RowBox[{"{", "1400", "}"}], "]"}], "<", "#Date", "<", "Today"}], "&"}]}], "]"}], ",", RowBox[{"#Region", "&"}]}], "]"}], "[", RowBox[{"All", ",", "All", ",", "\"\\""}], "]"}]}], "}"}], ",", RowBox[{"DateHistogram", "[", RowBox[{"grouped", ",", "\"\\"", ",", RowBox[{"ChartLayout", "\[Rule]", "\"\\""}], ",", RowBox[{"ChartLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"CommonName", "@", RowBox[{"Normal", "[", RowBox[{"Keys", "[", "grouped", "]"}], "]"}]}], ",", "Bottom"}], "]"}]}]}], "]"}]}], "]"}]], "Input", 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.706283588513975*^9, 3.70628366761014*^9}, {3.706283703144445*^9, 3.706283737947878*^9}, { 3.7062837818368063`*^9, 3.706283814478457*^9}, {3.706291255445352*^9, 3.706291258917287*^9}, {3.706371583351924*^9, 3.706371584080798*^9}, 3.8862400972263517`*^9}], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Thickness[Small], Opacity[0.259]]], RGBColor[ 0.987148, 0.8073604000000001, 0.49470040000000004`]], {{{{}, { Directive[ Opacity[0.5], Directive[ EdgeForm[ Directive[ Thickness[Small], Opacity[0.259]]], RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`]], Directive[ RGBColor[0.97858, 0.678934, 0.157834]]], {{{ RectangleBox[{-1.57784544*^10, 0.}, {-1.54629216*^10, 1}, "RoundingRadius" -> 0]}}}}, {}, {}}}, {{{}, { Directive[ Opacity[0.5], Directive[ EdgeForm[ Directive[ Thickness[Small], Opacity[0.259]]], RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`]], Directive[ RGBColor[0.368417, 0.506779, 0.709798]]], {{{ RectangleBox[{-1.42006176*^10, 0}, {-1.38850848*^10, 2}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-1.00982592*^10, 0}, {-9.78264*^9, 1}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-9.78264*^9, 0}, {-9.4671072*^9, 1}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-8.8359552*^9, 0}, {-8.520336*^9, 2}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-8.520336*^9, 0}, {-8.2048032*^9, 1}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-6.9424992*^9, 0}, {-6.62688*^9, 2}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-4.7335104*^9, 0}, {-4.4179776*^9, 1}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-3.4712064*^9, 0}, {-3.1556736*^9, 1}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-3.1556736*^9, 0}, {-2.8401408*^9, 1}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-2.8401408*^9, 0}, {-2.524608*^9, 1}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-2.2089888*^9, 0}, {-1.893456*^9, 1}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-1.5778368*^9, 0}, {-1.262304*^9, 1}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-1.262304*^9, 0}, {-9.466848*^8, 2}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-9.466848*^8, 0}, {-6.31152*^8, 1}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-6.31152*^8, 0}, {-3.155328*^8, 1}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{3.155328*^8, 0}, {6.310656*^8, 1}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{1.5778368*^9, 0}, {1.8933696*^9, 1}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{2.8401408*^9, 0}, {3.1556736*^9, 1}, "RoundingRadius" -> 0]}}}}, {}, {}}}, {{{}, { Directive[ Opacity[0.5], Directive[ EdgeForm[ Directive[ Thickness[Small], Opacity[0.259]]], RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`]], Directive[ RGBColor[0.560181, 0.691569, 0.194885]]], {{{ RectangleBox[{-1.1676096*^10, 0}, {-1.13605632*^10, 1}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-9.4671072*^9, 0}, {-9.151488*^9, 2}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-9.151488*^9, 0}, {-8.8359552*^9, 1}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-7.889184*^9, 0}, {-7.5736512*^9, 2}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-7.5736512*^9, 0}, {-7.258032*^9, 3}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-6.9424992*^9, 2}, {-6.62688*^9, 4}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-4.7335104*^9, 1}, {-4.4179776*^9, 3}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-4.4179776*^9, 0}, {-4.1023584*^9, 1}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-3.7868256*^9, 0}, {-3.4712064*^9, 1}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-3.4712064*^9, 1}, {-3.1556736*^9, 2}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-3.1556736*^9, 1}, {-2.8401408*^9, 2}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-2.2089888*^9, 1}, {-1.893456*^9, 5}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-1.893456*^9, 0}, {-1.5778368*^9, 2}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-1.5778368*^9, 1}, {-1.262304*^9, 2}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-1.262304*^9, 2}, {-9.466848*^8, 3}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-9.466848*^8, 1}, {-6.31152*^8, 2}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-6.31152*^8, 1}, {-3.155328*^8, 2}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-3.155328*^8, 0}, {0., 1}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{0., 0}, {3.155328*^8, 1}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{3.155328*^8, 1}, {6.310656*^8, 2}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{9.466848*^8, 0}, {1.2622176*^9, 3}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{1.2622176*^9, 0}, {1.5778368*^9, 1}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{1.5778368*^9, 1}, {1.8933696*^9, 3}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{1.8933696*^9, 0}, {2.2089888*^9, 1}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{2.8401408*^9, 1}, {3.1556736*^9, 2}, "RoundingRadius" -> 0]}}}}, {}, {}}}, {{{}, { Directive[ Opacity[0.5], Directive[ EdgeForm[ Directive[ Thickness[Small], Opacity[0.259]]], RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`]], Directive[ RGBColor[0.922526, 0.385626, 0.209179]]], {{{ RectangleBox[{-5.3646624*^9, 0}, {-5.0491296*^9, 1}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-3.7868256*^9, 1}, {-3.4712064*^9, 2}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-3.4712064*^9, 2}, {-3.1556736*^9, 4}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-1.893456*^9, 2}, {-1.5778368*^9, 3}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-1.262304*^9, 3}, {-9.466848*^8, 6}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-9.466848*^8, 2}, {-6.31152*^8, 8}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-6.31152*^8, 2}, {-3.155328*^8, 4}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{-3.155328*^8, 1}, {0., 3}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{0., 1}, {3.155328*^8, 3}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{3.155328*^8, 2}, {6.310656*^8, 4}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{6.310656*^8, 0}, {9.466848*^8, 2}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{9.466848*^8, 3}, {1.2622176*^9, 9}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{1.2622176*^9, 1}, {1.5778368*^9, 7}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{1.5778368*^9, 3}, {1.8933696*^9, 9}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{1.8933696*^9, 1}, {2.2089888*^9, 13}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{2.2089888*^9, 0}, {2.5245216*^9, 7}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{2.5245216*^9, 0}, {2.8401408*^9, 6}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{2.8401408*^9, 2}, {3.1556736*^9, 8}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{3.1556736*^9, 0}, {3.4712928*^9, 8}, "RoundingRadius" -> 0]}}}}, {}, {}}}, {{{}, { Directive[ Opacity[0.5], Directive[ EdgeForm[ Directive[ Thickness[Small], Opacity[0.259]]], RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`]], Directive[ RGBColor[0.528488, 0.470624, 0.701351]]], {{{ RectangleBox[{-4.7335104*^9, 3}, {-4.4179776*^9, 4}, "RoundingRadius" -> 0]}}, {{ RectangleBox[{2.8401408*^9, 8}, {3.1556736*^9, 9}, "RoundingRadius" -> 0]}}}}, {}, {}}}}}, {{{{{}}, {}}}, {{{{}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {}}}, {{{{}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}}, {}}}, {{{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}}, {}}}, {{{{}, {}}, {}}}}}, { AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {-1.6163449344*^10, 0}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {{{-1.35694656*^10, FormBox["\"1470\"", TraditionalForm], {0, 0.01}}, {-1.1044944*^10, FormBox["\"1550\"", TraditionalForm], {0, 0.01}}, {-8.520336*^9, FormBox["\"1630\"", TraditionalForm], {0, 0.01}}, {-5.9958144*^9, FormBox["\"1710\"", TraditionalForm], {0, 0.01}}, {-3.4712064*^9, FormBox["\"1790\"", TraditionalForm], {0, 0.01}}, {-9.466848*^8, FormBox["\"1870\"", TraditionalForm], {0, 0.01}}, {1.5778368*^9, FormBox["\"1950\"", TraditionalForm], {0, 0.01}}}, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], PlotRange -> {{-1.57784544*^10, 3.4712928*^9}, {All, All}}, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {{{-1.35694656*^10, FormBox["\"1470\"", TraditionalForm], {0, 0.01}}, {-1.1044944*^10, FormBox["\"1550\"", TraditionalForm], {0, 0.01}}, {-8.520336*^9, FormBox["\"1630\"", TraditionalForm], {0, 0.01}}, {-5.9958144*^9, FormBox["\"1710\"", TraditionalForm], {0, 0.01}}, {-3.4712064*^9, FormBox["\"1790\"", TraditionalForm], {0, 0.01}}, {-9.466848*^8, FormBox["\"1870\"", TraditionalForm], {0, 0.01}}, {1.5778368*^9, FormBox["\"1950\"", TraditionalForm], {0, 0.01}}}, Automatic}}], FormBox[ FormBox[ TemplateBox[{ "\"China\"", "\"Europe\"", "\"United Kingdom\"", "\"United States\"", "\"Japan\""}, "SwatchLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Directive[ PointSize[0.5], AbsoluteThickness[1.6], Opacity[0.5], EdgeForm[ Directive[ GrayLevel[0], Thickness[Small], Opacity[0.259]]], RGBColor[0.97858, 0.678934, 0.157834]], RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #, GraphicsBox[{ Directive[ PointSize[0.5], AbsoluteThickness[1.6], Opacity[0.5], EdgeForm[ Directive[ GrayLevel[0], Thickness[Small], Opacity[0.259]]], RGBColor[0.368417, 0.506779, 0.709798]], RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, GraphicsBox[{ Directive[ PointSize[0.5], AbsoluteThickness[1.6], Opacity[0.5], EdgeForm[ Directive[ GrayLevel[0], Thickness[Small], Opacity[0.259]]], RGBColor[0.560181, 0.691569, 0.194885]], RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3, GraphicsBox[{ Directive[ PointSize[0.5], AbsoluteThickness[1.6], Opacity[0.5], EdgeForm[ Directive[ GrayLevel[0], Thickness[Small], Opacity[0.259]]], RGBColor[0.922526, 0.385626, 0.209179]], RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #4, GraphicsBox[{ Directive[ PointSize[0.5], AbsoluteThickness[1.6], Opacity[0.5], EdgeForm[ Directive[ GrayLevel[0], Thickness[Small], Opacity[0.259]]], RGBColor[0.528488, 0.470624, 0.701351]], RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0.5, 0.5}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"SwatchLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.97858, 0.678934, 0.157834], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6523866666666667, 0.45262266666666673`, 0.10522266666666667`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.97858, 0.678934, 0.157834]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.97858, 0.678934, 0.157834]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.97858, 0.678934, 0.157834], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.922526, 0.385626, 0.209179], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6150173333333333, 0.25708400000000003`, 0.13945266666666667`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.922526, 0.385626, 0.209179]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.922526, 0.385626, 0.209179]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.922526, 0.385626, 0.209179], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.528488, 0.470624, 0.701351], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.3523253333333333, 0.3137493333333333, 0.46756733333333333`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.528488, 0.470624, 0.701351]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.528488, 0.470624, 0.701351]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.528488, 0.470624, 0.701351], Editable -> False, Selectable -> False]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.259`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, (1.35 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], "GrayLevel[1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[1], Editable -> False, Selectable -> False]}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "Automatic", ",", "Automatic", ",", "Automatic", ",", "Automatic", ",", "Automatic"}], "}"}], ",", RowBox[{"{", "None", "}"}]}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Row\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}, { ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "Below"}], "]"}]}], "]"}]& )]], "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.7062837996824617`*^9, 3.706283821655528*^9}, 3.7062864345088367`*^9, 3.7062913191707687`*^9, { 3.706371578058359*^9, 3.706371586945232*^9}, 3.706373285857441*^9}] }, Open ]], Cell["Generate a timeline plot of events from 1850 to 1900:", "Text", 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.7062846578967733`*^9, 3.7062846685032454`*^9}, {3.706371621959391*^9, 3.706371627164163*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TimelinePlot", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{ "ResourceData", "[", "\"\\"", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"DateObject", "[", RowBox[{"{", "1850", "}"}], "]"}], "<", "#Date", "<", RowBox[{"DateObject", "[", RowBox[{"{", "1900", "}"}], "]"}]}], "&"}]}], "]"}], "[", RowBox[{"All", ",", RowBox[{ RowBox[{"#Date", "\[Rule]", RowBox[{"Column", "[", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"#Title", ",", "Bold"}], "]"}], ",", "#Tagline"}], "}"}], "]"}]}], "&"}]}], "]"}], "]"}]], "Input", 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.706284669702285*^9, 3.706284681552223*^9}, {3.706285158458597*^9, 3.706285207878937*^9}, { 3.706371598000252*^9, 3.706371616157427*^9}, 3.886240099958317*^9}], Cell[BoxData[ GraphicsBox[{ {AbsolutePointSize[0], Opacity[0], PointBox[NCache[{{-1514764800, 0}, {-63072000, 423/10}}, {{-1514764800, 0}, {-63072000, 42.3}}]], PointBox[NCache[{{-1514764800, (-1)/2}, {-63072000, 0}}, {{-1514764800, -0.5}, {-63072000, 0}}]]}, {}, { {PointSize[0], Opacity[0], PointBox[NCache[{{-1514764800, 0}, { 1.6727031936*^8, 209/5}}, {{-1514764800, 0}, {1.6727031936*^8, 41.8}}]]}, { {RGBColor[0.368417, 0.506779, 0.709798], AbsolutePointSize[7], AbsoluteThickness[1.6], Opacity[1], TagBox[ TooltipBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[ Directive[ RGBColor[0.368417, 0.506779, 0.709798], Thickness[Large], Opacity[0.2]]], FaceForm[{ RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], Opacity[1]}], CapForm["Round"], AbsoluteThickness[2.5], AbsolutePointSize[10], FrameBoxOptions -> {BoxFrame -> 2.5}], {}, {}], {{{ Directive[ Opacity[0.2]], { CapForm["Round"], LineBox[{{-63072000, 0}, {-63072000, 0}}]}}, {{}, {{{}, {}}, {{}}}}}, {{ CapForm["Butt"], JoinForm["Round"], LineBox[ NCache[{ Offset[{25, 0}, {-441763200, 123/20}], Offset[{15, 0}, {-441763200, 123/20}], Offset[{15, 0}, {-441763200, 3/2}], {-63072000, 3/ 2}, {-63072000, 0}}, { Offset[{25, 0}, {-441763200, 6.15}], Offset[{15, 0}, {-441763200, 6.15}], Offset[{15, 0}, {-441763200, 1.5}], {-63072000, 1.5}, {-63072000, 0}}]], PolygonBox[ NCache[{ Offset[{25, 5}, {-441763200, 123/20}], Offset[{20, 0}, {-441763200, 123/20}], Offset[{25, -5}, {-441763200, 123/20}]}, { Offset[{25, 5}, {-441763200, 6.15}], Offset[{20, 0}, {-441763200, 6.15}], Offset[{25, -5}, {-441763200, 6.15}]}]], InsetBox[ BoxData[ FormBox[ FrameBox[ StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Harvey Mark Thomas\"", Bold, StripOnInput -> False]}, { InterpretationBox[ TooltipBox["\[LongDash]", "(not available)"], Missing["NotAvailable"]]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], { GrayLevel[0.3]}, StripOnInput -> False], RoundingRadius -> 5, FrameMargins -> 5, Background -> GrayLevel[1], StripOnInput -> False], TraditionalForm]], NCache[ Offset[{25, 0}, {-441763200, 123/20}], Offset[{25, 0}, {-441763200, 6.15}]], {Left, Center}, { Automatic, Automatic}]}, { EdgeForm[], FaceForm[], RectangleBox[ NCache[ Offset[{0, 0}, {-441763200, 51/10}], Offset[{0, 0}, {-441763200, 5.1}]], NCache[ Offset[{0, 0}, {-9.093744*^7, 36/5}], Offset[{0, 0}, {-9.093744*^7, 7.2}]]]}}}}, ImageSizeCache->{{366.7606933090102, 510.23930669099}, { 174.70609900824098`, 280.98299896493813`}}], StyleBox[ TagBox[ GridBox[{{ TemplateBox[{ RowBox[{ StyleBox[ "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], "\"1898\""}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"1898", ",", "1", ",", "1"}], "}"}], ",", "\"Day\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "4.`"}], ",", RowBox[{"{", "\"Year\"", "}"}]}], "]"}]}, "DateObject", Editable -> False]}}, GridBoxAlignment -> {"Columns" -> {{Right}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], {}, StripOnInput -> False]], Annotation[#, Style[ Grid[{{ DateObject[{1898, 1, 1}, "Day", "Gregorian", -4., {"Year"}]}}, Alignment -> Right], {}], "Tooltip"]& ]}, {RGBColor[0.368417, 0.506779, 0.709798], AbsolutePointSize[7], AbsoluteThickness[1.6], Opacity[1], TagBox[ TooltipBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[ Directive[ RGBColor[0.368417, 0.506779, 0.709798], Thickness[Large], Opacity[0.2]]], FaceForm[{ RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], Opacity[1]}], CapForm["Round"], AbsoluteThickness[2.5], AbsolutePointSize[10], FrameBoxOptions -> {BoxFrame -> 2.5}], {}, {}], {{{ Directive[ Opacity[0.2]], { CapForm["Round"], LineBox[{{-63072000, 0}, {-63072000, 0}}]}}, {{}, {{{}, {}}, {{}}}}}, {{ CapForm["Butt"], JoinForm["Round"], LineBox[ NCache[{ Offset[{25, 0}, {-441763200, 37/4}], Offset[{15, 0}, {-441763200, 37/4}], Offset[{15, 0}, {-441763200, 3/2}], {-63072000, 3/ 2}, {-63072000, 0}}, { Offset[{25, 0}, {-441763200, 9.25}], Offset[{15, 0}, {-441763200, 9.25}], Offset[{15, 0}, {-441763200, 1.5}], {-63072000, 1.5}, {-63072000, 0}}]], PolygonBox[ NCache[{ Offset[{25, 5}, {-441763200, 37/4}], Offset[{20, 0}, {-441763200, 37/4}], Offset[{25, -5}, {-441763200, 37/4}]}, { Offset[{25, 5}, {-441763200, 9.25}], Offset[{20, 0}, {-441763200, 9.25}], Offset[{25, -5}, {-441763200, 9.25}]}]], InsetBox[ BoxData[ FormBox[ FrameBox[ StyleBox[ TagBox[ GridBox[{{ StyleBox["\"Fred Jane\"", Bold, StripOnInput -> False]}, { "\"Making military information available\""}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], { GrayLevel[0.3]}, StripOnInput -> False], RoundingRadius -> 5, FrameMargins -> 5, Background -> GrayLevel[1], StripOnInput -> False], TraditionalForm]], NCache[ Offset[{25, 0}, {-441763200, 37/4}], Offset[{25, 0}, {-441763200, 9.25}]], {Left, Center}, { Automatic, Automatic}]}, { EdgeForm[], FaceForm[], RectangleBox[ NCache[ Offset[{0, 0}, {-441763200, 41/5}], Offset[{0, 0}, {-441763200, 8.2}]], NCache[ Offset[{0, 0}, {8.026553088*^7, 103/10}], Offset[{0, 0}, {8.026553088*^7, 10.3}]]]}}}}, ImageSizeCache->{{366.7606933090102, 571.23930669099}, { 133.98257244212334`, 280.98299896493813`}}], StyleBox[ TagBox[ GridBox[{{ TemplateBox[{ RowBox[{ StyleBox[ "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], "\"1898\""}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"1898", ",", "1", ",", "1"}], "}"}], ",", "\"Day\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "4.`"}], ",", RowBox[{"{", "\"Year\"", "}"}]}], "]"}]}, "DateObject", Editable -> False]}}, GridBoxAlignment -> {"Columns" -> {{Right}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], {}, StripOnInput -> False]], Annotation[#, Style[ Grid[{{ DateObject[{1898, 1, 1}, "Day", "Gregorian", -4., {"Year"}]}}, Alignment -> Right], {}], "Tooltip"]& ]}, {RGBColor[0.368417, 0.506779, 0.709798], AbsolutePointSize[7], AbsoluteThickness[1.6], Opacity[1], TagBox[ TooltipBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[ Directive[ RGBColor[0.368417, 0.506779, 0.709798], Thickness[Large], Opacity[0.2]]], FaceForm[{ RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], Opacity[1]}], CapForm["Round"], AbsoluteThickness[2.5], AbsolutePointSize[10], FrameBoxOptions -> {BoxFrame -> 2.5}], {}, {}], {{{ Directive[ Opacity[0.2]], { CapForm["Round"], LineBox[{{-315532800, 0}, {-315532800, 0}}]}}, {{}, {{{}, {}}, {{}}}}}, {{ CapForm["Butt"], JoinForm["Round"], LineBox[ NCache[{ Offset[{25, 0}, {-441763200, 247/20}], Offset[{10, 0}, {-441763200, 247/20}], Offset[{10, 0}, {-441763200, 1}], {-315532800, 1}, {-315532800, 0}}, { Offset[{25, 0}, {-441763200, 12.35}], Offset[{10, 0}, {-441763200, 12.35}], Offset[{10, 0}, {-441763200, 1}], {-315532800, 1}, {-315532800, 0}}]], PolygonBox[ NCache[{ Offset[{25, 5}, {-441763200, 247/20}], Offset[{20, 0}, {-441763200, 247/20}], Offset[{25, -5}, {-441763200, 247/20}]}, { Offset[{25, 5}, {-441763200, 12.35}], Offset[{20, 0}, {-441763200, 12.35}], Offset[{25, -5}, {-441763200, 12.35}]}]], InsetBox[ BoxData[ FormBox[ FrameBox[ StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Herman Hollerith\"", Bold, StripOnInput -> False]}, { "\"Automating the census with punched cards\""}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], { GrayLevel[0.3]}, StripOnInput -> False], RoundingRadius -> 5, FrameMargins -> 5, Background -> GrayLevel[1], StripOnInput -> False], TraditionalForm]], NCache[ Offset[{25, 0}, {-441763200, 247/20}], Offset[{25, 0}, {-441763200, 12.35}]], {Left, Center}, { Automatic, Automatic}]}, { EdgeForm[], FaceForm[], RectangleBox[ NCache[ Offset[{0, 0}, {-441763200, 113/10}], Offset[{0, 0}, {-441763200, 11.3}]], NCache[ Offset[{0, 0}, {1.6727031936*^8, 67/5}], Offset[{0, 0}, {1.6727031936*^8, 13.4}]]]}}}}, ImageSizeCache->{{366.7606933090102, 602.23930669099}, { 93.75904587600567, 280.98299896493813`}}], StyleBox[ TagBox[ GridBox[{{ TemplateBox[{ RowBox[{ StyleBox[ "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], "\"1890\""}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"1890", ",", "1", ",", "1"}], "}"}], ",", "\"Day\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "4.`"}], ",", RowBox[{"{", "\"Year\"", "}"}]}], "]"}]}, "DateObject", Editable -> False]}}, GridBoxAlignment -> {"Columns" -> {{Right}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], {}, StripOnInput -> False]], Annotation[#, Style[ Grid[{{ DateObject[{1890, 1, 1}, "Day", "Gregorian", -4., {"Year"}]}}, Alignment -> Right], {}], "Tooltip"]& ]}, {RGBColor[0.368417, 0.506779, 0.709798], AbsolutePointSize[7], AbsoluteThickness[1.6], Opacity[1], TagBox[ TooltipBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[ Directive[ RGBColor[0.368417, 0.506779, 0.709798], Thickness[Large], Opacity[0.2]]], FaceForm[{ RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], Opacity[1]}], CapForm["Round"], AbsoluteThickness[2.5], AbsolutePointSize[10], FrameBoxOptions -> {BoxFrame -> 2.5}], {}, {}], {{{ Directive[ Opacity[0.2]], { CapForm["Round"], LineBox[{{-347068800, 0}, {-347068800, 0}}]}}, {{}, {{{}, {}}, {{}}}}}, {{ CapForm["Butt"], JoinForm["Round"], LineBox[ NCache[{ Offset[{25, 0}, {-441763200, 371/20}], Offset[{5, 0}, {-441763200, 371/20}], Offset[{5, 0}, {-441763200, 1/2}], {-347068800, 1/ 2}, {-347068800, 0}}, { Offset[{25, 0}, {-441763200, 18.55}], Offset[{5, 0}, {-441763200, 18.55}], Offset[{5, 0}, {-441763200, 0.5}], {-347068800, 0.5}, {-347068800, 0}}]], PolygonBox[ NCache[{ Offset[{25, 5}, {-441763200, 371/20}], Offset[{20, 0}, {-441763200, 371/20}], Offset[{25, -5}, {-441763200, 371/20}]}, { Offset[{25, 5}, {-441763200, 18.55}], Offset[{20, 0}, {-441763200, 18.55}], Offset[{25, -5}, {-441763200, 18.55}]}]], InsetBox[ BoxData[ FormBox[ FrameBox[ StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Giuseppe Peano\"", Bold, StripOnInput -> False]}, { "\"Formalizing the rules of arithmetic\""}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], { GrayLevel[0.3]}, StripOnInput -> False], RoundingRadius -> 5, FrameMargins -> 5, Background -> GrayLevel[1], StripOnInput -> False], TraditionalForm]], NCache[ Offset[{25, 0}, {-441763200, 371/20}], Offset[{25, 0}, {-441763200, 18.55}]], {Left, Center}, { Automatic, Automatic}]}, { EdgeForm[], FaceForm[], RectangleBox[ NCache[ Offset[{0, 0}, {-441763200, 35/2}], Offset[{0, 0}, {-441763200, 17.5}]], NCache[ Offset[{0, 0}, {5.5006076160000026`*^7, 98/5}], Offset[{0, 0}, {5.5006076160000026`*^7, 19.6}]]]}}}}, ImageSizeCache->{{366.7606933090102, 562.23930669099}, { 13.311992743770304`, 280.98299896493813`}}], StyleBox[ TagBox[ GridBox[{{ TemplateBox[{ RowBox[{ StyleBox[ "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], "\"1889\""}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"1889", ",", "1", ",", "1"}], "}"}], ",", "\"Day\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "4.`"}], ",", RowBox[{"{", "\"Year\"", "}"}]}], "]"}]}, "DateObject", Editable -> False]}}, GridBoxAlignment -> {"Columns" -> {{Right}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], {}, StripOnInput -> False]], Annotation[#, Style[ Grid[{{ DateObject[{1889, 1, 1}, "Day", "Gregorian", -4., {"Year"}]}}, Alignment -> Right], {}], "Tooltip"]& ]}, {RGBColor[0.368417, 0.506779, 0.709798], AbsolutePointSize[7], AbsoluteThickness[1.6], Opacity[1], TagBox[ TooltipBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[ Directive[ RGBColor[0.368417, 0.506779, 0.709798], Thickness[Large], Opacity[0.2]]], FaceForm[{ RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], Opacity[1]}], CapForm["Round"], AbsoluteThickness[2.5], AbsolutePointSize[10], FrameBoxOptions -> {BoxFrame -> 2.5}], {}, {}], {{{ Directive[ Opacity[0.2]], { CapForm["Round"], LineBox[{{-441763200, 0}, {-441763200, 0}}]}}, {{}, {{{}, {}}, {{}}}}}, {{ CapForm["Butt"], JoinForm["Round"], LineBox[ NCache[{ Offset[{25, 0}, {-441763200, 161/4}], Offset[{0, 0}, {-441763200, 161/4}], Offset[{0, 0}, {-441763200, 3}], {-441763200, 3}, {-441763200, 0}}, { Offset[{25, 0}, {-441763200, 40.25}], Offset[{0, 0}, {-441763200, 40.25}], Offset[{0, 0}, {-441763200, 3}], {-441763200, 3}, {-441763200, 0}}]], PolygonBox[ NCache[{ Offset[{25, 5}, {-441763200, 161/4}], Offset[{20, 0}, {-441763200, 161/4}], Offset[{25, -5}, {-441763200, 161/4}]}, { Offset[{25, 5}, {-441763200, 40.25}], Offset[{20, 0}, {-441763200, 40.25}], Offset[{25, -5}, {-441763200, 40.25}]}]], InsetBox[ BoxData[ FormBox[ FrameBox[ StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Reuben H. Donnelly\"", Bold, StripOnInput -> False]}, { "\"A directory of every business\""}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], { GrayLevel[0.3]}, StripOnInput -> False], RoundingRadius -> 5, FrameMargins -> 5, Background -> GrayLevel[1], StripOnInput -> False], TraditionalForm]], NCache[ Offset[{25, 0}, {-441763200, 161/4}], Offset[{25, 0}, {-441763200, 40.25}]], {Left, Center}, { Automatic, Automatic}]}, { EdgeForm[], FaceForm[], RectangleBox[ NCache[ Offset[{0, 0}, {-441763200, 196/5}], Offset[{0, 0}, {-441763200, 39.2}]], NCache[ Offset[{0, 0}, {-9.545863680000007*^6, 413/10}], Offset[{0, 0}, {-9.545863680000007*^6, 41.3}]]]}}}}, ImageSizeCache->{{366.7606933090102, 539.23930669099}, {-268.2526932190534, 280.98299896493813`}}], StyleBox[ TagBox[ GridBox[{{ TemplateBox[{ RowBox[{ StyleBox[ "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], "\"1886\""}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"1886", ",", "1", ",", "1"}], "}"}], ",", "\"Day\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "4.`"}], ",", RowBox[{"{", "\"Year\"", "}"}]}], "]"}]}, "DateObject", Editable -> False]}}, GridBoxAlignment -> {"Columns" -> {{Right}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], {}, StripOnInput -> False]], Annotation[#, Style[ Grid[{{ DateObject[{1886, 1, 1}, "Day", "Gregorian", -4., {"Year"}]}}, Alignment -> Right], {}], "Tooltip"]& ]}, {RGBColor[0.368417, 0.506779, 0.709798], AbsolutePointSize[7], AbsoluteThickness[1.6], Opacity[1], TagBox[ TooltipBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[ Directive[ RGBColor[0.368417, 0.506779, 0.709798], Thickness[Large], Opacity[0.2]]], FaceForm[{ RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], Opacity[1]}], CapForm["Round"], AbsoluteThickness[2.5], AbsolutePointSize[10], FrameBoxOptions -> {BoxFrame -> 2.5}], {}, {}], {{{ Directive[ Opacity[0.2]], { CapForm["Round"], LineBox[{{-567993600, 0}, {-567993600, 0}}]}}, {{}, {{{}, {}}, {{}}}}}, {{ CapForm["Butt"], JoinForm["Round"], LineBox[ NCache[{ Offset[{30, 0}, {-725760000, 309/20}], Offset[{20, 0}, {-725760000, 309/20}], Offset[{20, 0}, {-725760000, 3/2}], {-567993600, 3/ 2}, {-567993600, 0}}, { Offset[{30, 0}, {-725760000, 15.45}], Offset[{20, 0}, {-725760000, 15.45}], Offset[{20, 0}, {-725760000, 1.5}], {-567993600, 1.5}, {-567993600, 0}}]], PolygonBox[ NCache[{ Offset[{30, 5}, {-725760000, 309/20}], Offset[{25, 0}, {-725760000, 309/20}], Offset[{30, -5}, {-725760000, 309/20}]}, { Offset[{30, 5}, {-725760000, 15.45}], Offset[{25, 0}, {-725760000, 15.45}], Offset[{30, -5}, {-725760000, 15.45}]}]], InsetBox[ BoxData[ FormBox[ FrameBox[ StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"United States Geological Survey\"", Bold, StripOnInput -> False]}, {"\"Mapping the rocks of America\""}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], { GrayLevel[0.3]}, StripOnInput -> False], RoundingRadius -> 5, FrameMargins -> 5, Background -> GrayLevel[1], StripOnInput -> False], TraditionalForm]], NCache[ Offset[{30, 0}, {-725760000, 309/20}], Offset[{30, 0}, {-725760000, 15.45}]], {Left, Center}, { Automatic, Automatic}]}, { EdgeForm[], FaceForm[], RectangleBox[ NCache[ Offset[{0, 0}, {-725760000, 72/5}], Offset[{0, 0}, {-725760000, 14.4}]], NCache[ Offset[{0, 0}, {-2.2337751168*^8, 33/2}], Offset[{0, 0}, {-2.2337751168*^8, 16.5}]]]}}}}, ImageSizeCache->{{277.0175189231253, 479.4961323051051}, { 53.535519309888, 280.98299896493813`}}], StyleBox[ TagBox[ GridBox[{{ TemplateBox[{ RowBox[{ StyleBox[ "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], "\"1882\""}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"1882", ",", "1", ",", "1"}], "}"}], ",", "\"Day\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "4.`"}], ",", RowBox[{"{", "\"Year\"", "}"}]}], "]"}]}, "DateObject", Editable -> False]}}, GridBoxAlignment -> {"Columns" -> {{Right}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], {}, StripOnInput -> False]], Annotation[#, Style[ Grid[{{ DateObject[{1882, 1, 1}, "Day", "Gregorian", -4., {"Year"}]}}, Alignment -> Right], {}], "Tooltip"]& ]}, {RGBColor[0.368417, 0.506779, 0.709798], AbsolutePointSize[7], AbsoluteThickness[1.6], Opacity[1], TagBox[ TooltipBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[ Directive[ RGBColor[0.368417, 0.506779, 0.709798], Thickness[Large], Opacity[0.2]]], FaceForm[{ RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], Opacity[1]}], CapForm["Round"], AbsoluteThickness[2.5], AbsolutePointSize[10], FrameBoxOptions -> {BoxFrame -> 2.5}], {}, {}], {{{ Directive[ Opacity[0.2]], { CapForm["Round"], LineBox[{{-631152000, 0}, {-631152000, 0}}]}}, {{}, {{{}, {}}, {{}}}}}, {{ CapForm["Butt"], JoinForm["Round"], LineBox[ NCache[{ Offset[{30, 0}, {-725760000, 433/20}], Offset[{15, 0}, {-725760000, 433/20}], Offset[{15, 0}, {-725760000, 9/8}], {-631152000, 9/ 8}, {-631152000, 0}}, { Offset[{30, 0}, {-725760000, 21.65}], Offset[{15, 0}, {-725760000, 21.65}], Offset[{15, 0}, {-725760000, 1.125}], {-631152000, 1.125}, {-631152000, 0}}]], PolygonBox[ NCache[{ Offset[{30, 5}, {-725760000, 433/20}], Offset[{25, 0}, {-725760000, 433/20}], Offset[{30, -5}, {-725760000, 433/20}]}, { Offset[{30, 5}, {-725760000, 21.65}], Offset[{25, 0}, {-725760000, 21.65}], Offset[{30, -5}, {-725760000, 21.65}]}]], InsetBox[ BoxData[ FormBox[ FrameBox[ StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Oxford English Dictionary\"", Bold, StripOnInput -> False]}, {"\"Collecting every word in English\""}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], { GrayLevel[0.3]}, StripOnInput -> False], RoundingRadius -> 5, FrameMargins -> 5, Background -> GrayLevel[1], StripOnInput -> False], TraditionalForm]], NCache[ Offset[{30, 0}, {-725760000, 433/20}], Offset[{30, 0}, {-725760000, 21.65}]], {Left, Center}, { Automatic, Automatic}]}, { EdgeForm[], FaceForm[], RectangleBox[ NCache[ Offset[{0, 0}, {-725760000, 103/5}], Offset[{0, 0}, {-725760000, 20.6}]], NCache[ Offset[{0, 0}, {-2.5705678464*^8, 227/10}], Offset[{0, 0}, {-2.5705678464*^8, 22.7}]]]}}}}, ImageSizeCache->{{277.0175189231253, 468.4961323051051}, {-26.911533822347337`, 280.98299896493813`}}], StyleBox[ TagBox[ GridBox[{{ TemplateBox[{ RowBox[{ StyleBox[ "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], "\"1880\""}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"1880", ",", "1", ",", "1"}], "}"}], ",", "\"Day\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "4.`"}], ",", RowBox[{"{", "\"Year\"", "}"}]}], "]"}]}, "DateObject", Editable -> False]}}, GridBoxAlignment -> {"Columns" -> {{Right}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], {}, StripOnInput -> False]], Annotation[#, Style[ Grid[{{ DateObject[{1880, 1, 1}, "Day", "Gregorian", -4., {"Year"}]}}, Alignment -> Right], {}], "Tooltip"]& ]}, {RGBColor[0.368417, 0.506779, 0.709798], AbsolutePointSize[7], AbsoluteThickness[1.6], Opacity[1], TagBox[ TooltipBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[ Directive[ RGBColor[0.368417, 0.506779, 0.709798], Thickness[Large], Opacity[0.2]]], FaceForm[{ RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], Opacity[1]}], CapForm["Round"], AbsoluteThickness[2.5], AbsolutePointSize[10], FrameBoxOptions -> {BoxFrame -> 2.5}], {}, {}], {{{ Directive[ Opacity[0.2]], { CapForm["Round"], LineBox[{{-662688000, 0}, {-662688000, 0}}]}}, {{}, {{{}, {}}, {{}}}}}, {{ CapForm["Butt"], JoinForm["Round"], LineBox[ NCache[{ Offset[{30, 0}, {-725760000, 99/4}], Offset[{10, 0}, {-725760000, 99/4}], Offset[{10, 0}, {-725760000, 3/4}], {-662688000, 3/ 4}, {-662688000, 0}}, { Offset[{30, 0}, {-725760000, 24.75}], Offset[{10, 0}, {-725760000, 24.75}], Offset[{10, 0}, {-725760000, 0.75}], {-662688000, 0.75}, {-662688000, 0}}]], PolygonBox[ NCache[{ Offset[{30, 5}, {-725760000, 99/4}], Offset[{25, 0}, {-725760000, 99/4}], Offset[{30, -5}, {-725760000, 99/4}]}, { Offset[{30, 5}, {-725760000, 24.75}], Offset[{25, 0}, {-725760000, 24.75}], Offset[{30, -5}, {-725760000, 24.75}]}]], InsetBox[ BoxData[ FormBox[ FrameBox[ StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"John Shaw Billings\"", Bold, StripOnInput -> False]}, { "\"Indexing all medical literature\""}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], { GrayLevel[0.3]}, StripOnInput -> False], RoundingRadius -> 5, FrameMargins -> 5, Background -> GrayLevel[1], StripOnInput -> False], TraditionalForm]], NCache[ Offset[{30, 0}, {-725760000, 99/4}], Offset[{30, 0}, {-725760000, 24.75}]], {Left, Center}, { Automatic, Automatic}]}, { EdgeForm[], FaceForm[], RectangleBox[ NCache[ Offset[{0, 0}, {-725760000, 237/10}], Offset[{0, 0}, {-725760000, 23.7}]], NCache[ Offset[{0, 0}, {-2.9073605759999996`*^8, 129/5}], Offset[{0, 0}, {-2.9073605759999996`*^8, 25.8}]]]}}}}, ImageSizeCache->{{277.0175189231253, 455.4961323051051}, {-67.13506038846504, 280.98299896493813`}}], StyleBox[ TagBox[ GridBox[{{ TemplateBox[{ RowBox[{ StyleBox[ "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], "\"1879\""}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"1879", ",", "1", ",", "1"}], "}"}], ",", "\"Day\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "4.`"}], ",", RowBox[{"{", "\"Year\"", "}"}]}], "]"}]}, "DateObject", Editable -> False]}}, GridBoxAlignment -> {"Columns" -> {{Right}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], {}, StripOnInput -> False]], Annotation[#, Style[ Grid[{{ DateObject[{1879, 1, 1}, "Day", "Gregorian", -4., {"Year"}]}}, Alignment -> Right], {}], "Tooltip"]& ]}, {RGBColor[0.368417, 0.506779, 0.709798], AbsolutePointSize[7], AbsoluteThickness[1.6], Opacity[1], TagBox[ TooltipBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[ Directive[ RGBColor[0.368417, 0.506779, 0.709798], Thickness[Large], Opacity[0.2]]], FaceForm[{ RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], Opacity[1]}], CapForm["Round"], AbsoluteThickness[2.5], AbsolutePointSize[10], FrameBoxOptions -> {BoxFrame -> 2.5}], {}, {}], {{{ Directive[ Opacity[0.2]], { CapForm["Round"], LineBox[{{-662688000, 0}, {-662688000, 0}}]}}, {{}, {{{}, {}}, {{}}}}}, {{ CapForm["Butt"], JoinForm["Round"], LineBox[ NCache[{ Offset[{30, 0}, {-725760000, 557/20}], Offset[{10, 0}, {-725760000, 557/20}], Offset[{10, 0}, {-725760000, 3/4}], {-662688000, 3/ 4}, {-662688000, 0}}, { Offset[{30, 0}, {-725760000, 27.85}], Offset[{10, 0}, {-725760000, 27.85}], Offset[{10, 0}, {-725760000, 0.75}], {-662688000, 0.75}, {-662688000, 0}}]], PolygonBox[ NCache[{ Offset[{30, 5}, {-725760000, 557/20}], Offset[{25, 0}, {-725760000, 557/20}], Offset[{30, -5}, {-725760000, 557/20}]}, { Offset[{30, 5}, {-725760000, 27.85}], Offset[{25, 0}, {-725760000, 27.85}], Offset[{30, -5}, {-725760000, 27.85}]}]], InsetBox[ BoxData[ FormBox[ FrameBox[ StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Gottlob Frege\"", Bold, StripOnInput -> False]}, { "\"Axiomatizing knowledge through logic\""}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], { GrayLevel[0.3]}, StripOnInput -> False], RoundingRadius -> 5, FrameMargins -> 5, Background -> GrayLevel[1], StripOnInput -> False], TraditionalForm]], NCache[ Offset[{30, 0}, {-725760000, 557/20}], Offset[{30, 0}, {-725760000, 27.85}]], {Left, Center}, { Automatic, Automatic}]}, { EdgeForm[], FaceForm[], RectangleBox[ NCache[ Offset[{0, 0}, {-725760000, 134/5}], Offset[{0, 0}, {-725760000, 26.8}]], NCache[ Offset[{0, 0}, {-1.8127842048000002`*^8, 289/10}], Offset[{0, 0}, {-1.8127842048000002`*^8, 28.9}]]]}}}}, ImageSizeCache->{{277.0175189231253, 494.4961323051051}, {-107.35858695458268`, 280.98299896493813`}}], StyleBox[ TagBox[ GridBox[{{ TemplateBox[{ RowBox[{ StyleBox[ "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], "\"1879\""}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"1879", ",", "1", ",", "1"}], "}"}], ",", "\"Day\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "4.`"}], ",", RowBox[{"{", "\"Year\"", "}"}]}], "]"}]}, "DateObject", Editable -> False]}}, GridBoxAlignment -> {"Columns" -> {{Right}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], {}, StripOnInput -> False]], Annotation[#, Style[ Grid[{{ DateObject[{1879, 1, 1}, "Day", "Gregorian", -4., {"Year"}]}}, Alignment -> Right], {}], "Tooltip"]& ]}, {RGBColor[0.368417, 0.506779, 0.709798], AbsolutePointSize[7], AbsoluteThickness[1.6], Opacity[1], TagBox[ TooltipBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[ Directive[ RGBColor[0.368417, 0.506779, 0.709798], Thickness[Large], Opacity[0.2]]], FaceForm[{ RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], Opacity[1]}], CapForm["Round"], AbsoluteThickness[2.5], AbsolutePointSize[10], FrameBoxOptions -> {BoxFrame -> 2.5}], {}, {}], {{{ Directive[ Opacity[0.2]], { CapForm["Round"], LineBox[{{-694224000, 0}, {-694224000, 0}}]}}, {{}, {{{}, {}}, {{}}}}}, {{ CapForm["Butt"], JoinForm["Round"], LineBox[ NCache[{ Offset[{30, 0}, {-725760000, 619/20}], Offset[{5, 0}, {-725760000, 619/20}], Offset[{5, 0}, {-725760000, 3/8}], {-694224000, 3/ 8}, {-694224000, 0}}, { Offset[{30, 0}, {-725760000, 30.95}], Offset[{5, 0}, {-725760000, 30.95}], Offset[{5, 0}, {-725760000, 0.375}], {-694224000, 0.375}, {-694224000, 0}}]], PolygonBox[ NCache[{ Offset[{30, 5}, {-725760000, 619/20}], Offset[{25, 0}, {-725760000, 619/20}], Offset[{30, -5}, {-725760000, 619/20}]}, { Offset[{30, 5}, {-725760000, 30.95}], Offset[{25, 0}, {-725760000, 30.95}], Offset[{30, -5}, {-725760000, 30.95}]}]], InsetBox[ BoxData[ FormBox[ FrameBox[ StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"US Public Health Service\"", Bold, StripOnInput -> False]}, {"\"Recording disease\""}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], { GrayLevel[0.3]}, StripOnInput -> False], RoundingRadius -> 5, FrameMargins -> 5, Background -> GrayLevel[1], StripOnInput -> False], TraditionalForm]], NCache[ Offset[{30, 0}, {-725760000, 619/20}], Offset[{30, 0}, {-725760000, 30.95}]], {Left, Center}, { Automatic, Automatic}]}, { EdgeForm[], FaceForm[], RectangleBox[ NCache[ Offset[{0, 0}, {-725760000, 299/10}], Offset[{0, 0}, {-725760000, 29.9}]], Offset[{0, 0}, {-3.2160872448*^8, 32}]]}}}}, ImageSizeCache->{{277.0175189231253, 445.4961323051051}, {-147.58211352070037`, 280.98299896493813`}}], StyleBox[ TagBox[ GridBox[{{ TemplateBox[{ RowBox[{ StyleBox[ "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], "\"1878\""}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"1878", ",", "1", ",", "1"}], "}"}], ",", "\"Day\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "4.`"}], ",", RowBox[{"{", "\"Year\"", "}"}]}], "]"}]}, "DateObject", Editable -> False]}}, GridBoxAlignment -> {"Columns" -> {{Right}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], {}, StripOnInput -> False]], Annotation[#, Style[ Grid[{{ DateObject[{1878, 1, 1}, "Day", "Gregorian", -4., {"Year"}]}}, Alignment -> Right], {}], "Tooltip"]& ]}, {RGBColor[0.368417, 0.506779, 0.709798], AbsolutePointSize[7], AbsoluteThickness[1.6], Opacity[1], TagBox[ TooltipBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[ Directive[ RGBColor[0.368417, 0.506779, 0.709798], Thickness[Large], Opacity[0.2]]], FaceForm[{ RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], Opacity[1]}], CapForm["Round"], AbsoluteThickness[2.5], AbsolutePointSize[10], FrameBoxOptions -> {BoxFrame -> 2.5}], {}, {}], {{{ Directive[ Opacity[0.2]], { CapForm["Round"], LineBox[{{-694224000, 0}, {-694224000, 0}}]}}, {{}, {{{}, {}}, {{}}}}}, {{ CapForm["Butt"], JoinForm["Round"], LineBox[ NCache[{ Offset[{30, 0}, {-725760000, 681/20}], Offset[{5, 0}, {-725760000, 681/20}], Offset[{5, 0}, {-725760000, 3/8}], {-694224000, 3/ 8}, {-694224000, 0}}, { Offset[{30, 0}, {-725760000, 34.05}], Offset[{5, 0}, {-725760000, 34.05}], Offset[{5, 0}, {-725760000, 0.375}], {-694224000, 0.375}, {-694224000, 0}}]], PolygonBox[ NCache[{ Offset[{30, 5}, {-725760000, 681/20}], Offset[{25, 0}, {-725760000, 681/20}], Offset[{30, -5}, {-725760000, 681/20}]}, { Offset[{30, 5}, {-725760000, 34.05}], Offset[{25, 0}, {-725760000, 34.05}], Offset[{30, -5}, {-725760000, 34.05}]}]], InsetBox[ BoxData[ FormBox[ FrameBox[ StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Phone Directory\"", Bold, StripOnInput -> False]}, { InterpretationBox[ TooltipBox["\[LongDash]", "(not available)"], Missing["NotAvailable"]]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], { GrayLevel[0.3]}, StripOnInput -> False], RoundingRadius -> 5, FrameMargins -> 5, Background -> GrayLevel[1], StripOnInput -> False], TraditionalForm]], NCache[ Offset[{30, 0}, {-725760000, 681/20}], Offset[{30, 0}, {-725760000, 34.05}]], {Left, Center}, { Automatic, Automatic}]}, { EdgeForm[], FaceForm[], RectangleBox[ Offset[{0, 0}, {-725760000, 33}], NCache[ Offset[{0, 0}, {-4.3667957376*^8, 351/10}], Offset[{0, 0}, {-4.3667957376*^8, 35.1}]]]}}}}, ImageSizeCache->{{277.0175189231253, 403.4961323051051}, {-187.30564008681802`, 280.98299896493813`}}], StyleBox[ TagBox[ GridBox[{{ TemplateBox[{ RowBox[{ StyleBox[ "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], "\"1878\""}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"1878", ",", "1", ",", "1"}], "}"}], ",", "\"Day\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "4.`"}], ",", RowBox[{"{", "\"Year\"", "}"}]}], "]"}]}, "DateObject", Editable -> False]}}, GridBoxAlignment -> {"Columns" -> {{Right}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], {}, StripOnInput -> False]], Annotation[#, Style[ Grid[{{ DateObject[{1878, 1, 1}, "Day", "Gregorian", -4., {"Year"}]}}, Alignment -> Right], {}], "Tooltip"]& ]}, {RGBColor[0.368417, 0.506779, 0.709798], AbsolutePointSize[7], AbsoluteThickness[1.6], Opacity[1], TagBox[ TooltipBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[ Directive[ RGBColor[0.368417, 0.506779, 0.709798], Thickness[Large], Opacity[0.2]]], FaceForm[{ RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], Opacity[1]}], CapForm["Round"], AbsoluteThickness[2.5], AbsolutePointSize[10], FrameBoxOptions -> {BoxFrame -> 2.5}], {}, {}], {{{ Directive[ Opacity[0.2]], { CapForm["Round"], LineBox[{{-725760000, 0}, {-725760000, 0}}]}}, {{}, {{{}, {}}, {{}}}}}, {{ CapForm["Butt"], JoinForm["Round"], LineBox[ NCache[{ Offset[{30, 0}, {-725760000, 743/20}], Offset[{0, 0}, {-725760000, 743/20}], Offset[{0, 0}, {-725760000, 3}], {-725760000, 3}, {-725760000, 0}}, { Offset[{30, 0}, {-725760000, 37.15}], Offset[{0, 0}, {-725760000, 37.15}], Offset[{0, 0}, {-725760000, 3}], {-725760000, 3}, {-725760000, 0}}]], PolygonBox[ NCache[{ Offset[{30, 5}, {-725760000, 743/20}], Offset[{25, 0}, {-725760000, 743/20}], Offset[{30, -5}, {-725760000, 743/20}]}, { Offset[{30, 5}, {-725760000, 37.15}], Offset[{25, 0}, {-725760000, 37.15}], Offset[{30, -5}, {-725760000, 37.15}]}]], InsetBox[ BoxData[ FormBox[ FrameBox[ StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Thomas Edison\"", Bold, StripOnInput -> False]}, { "\"Recording the sound of anything\""}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], { GrayLevel[0.3]}, StripOnInput -> False], RoundingRadius -> 5, FrameMargins -> 5, Background -> GrayLevel[1], StripOnInput -> False], TraditionalForm]], NCache[ Offset[{30, 0}, {-725760000, 743/20}], Offset[{30, 0}, {-725760000, 37.15}]], {Left, Center}, { Automatic, Automatic}]}, { EdgeForm[], FaceForm[], RectangleBox[ NCache[ Offset[{0, 0}, {-725760000, 361/10}], Offset[{0, 0}, {-725760000, 36.1}]], NCache[ Offset[{0, 0}, {-2.4863696639999998`*^8, 191/5}], Offset[{0, 0}, {-2.4863696639999998`*^8, 38.2}]]]}}}}, ImageSizeCache->{{277.0175189231253, 471.4961323051051}, {-228.02916665293566`, 280.98299896493813`}}], StyleBox[ TagBox[ GridBox[{{ TemplateBox[{ RowBox[{ StyleBox[ "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], "\"1877\""}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"1877", ",", "1", ",", "1"}], "}"}], ",", "\"Day\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "4.`"}], ",", RowBox[{"{", "\"Year\"", "}"}]}], "]"}]}, "DateObject", Editable -> False]}}, GridBoxAlignment -> {"Columns" -> {{Right}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], {}, StripOnInput -> False]], Annotation[#, Style[ Grid[{{ DateObject[{1877, 1, 1}, "Day", "Gregorian", -4., {"Year"}]}}, Alignment -> Right], {}], "Tooltip"]& ]}, {RGBColor[0.368417, 0.506779, 0.709798], AbsolutePointSize[7], AbsoluteThickness[1.6], Opacity[1], TagBox[ TooltipBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[ Directive[ RGBColor[0.368417, 0.506779, 0.709798], Thickness[Large], Opacity[0.2]]], FaceForm[{ RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], Opacity[1]}], CapForm["Round"], AbsoluteThickness[2.5], AbsolutePointSize[10], FrameBoxOptions -> {BoxFrame -> 2.5}], {}, {}], {{{ Directive[ Opacity[0.2]], { CapForm["Round"], LineBox[{{-757382400, 0}, {-757382400, 0}}]}}, {{}, {{{}, {}}, {{}}}}}, {{ CapForm["Butt"], JoinForm["Round"], LineBox[ NCache[{ Offset[{20, 0}, {-883612800, 61/20}], Offset[{10, 0}, {-883612800, 61/20}], Offset[{10, 0}, {-883612800, 3/2}], {-757382400, 3/ 2}, {-757382400, 0}}, { Offset[{20, 0}, {-883612800, 3.05}], Offset[{10, 0}, {-883612800, 3.05}], Offset[{10, 0}, {-883612800, 1.5}], {-757382400, 1.5}, {-757382400, 0}}]], PolygonBox[ NCache[{ Offset[{20, 5}, {-883612800, 61/20}], Offset[{15, 0}, {-883612800, 61/20}], Offset[{20, -5}, {-883612800, 61/20}]}, { Offset[{20, 5}, {-883612800, 3.05}], Offset[{15, 0}, {-883612800, 3.05}], Offset[{20, -5}, {-883612800, 3.05}]}]], InsetBox[ BoxData[ FormBox[ FrameBox[ StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Melvil Dewey\"", Bold, StripOnInput -> False]}, { "\"Classifying the world's knowledge\""}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], { GrayLevel[0.3]}, StripOnInput -> False], RoundingRadius -> 5, FrameMargins -> 5, Background -> GrayLevel[1], StripOnInput -> False], TraditionalForm]], NCache[ Offset[{20, 0}, {-883612800, 61/20}], Offset[{20, 0}, {-883612800, 3.05}]], {Left, Center}, { Automatic, Automatic}]}, { EdgeForm[], FaceForm[], RectangleBox[ Offset[{0, 0}, {-883612800, 2}], NCache[ Offset[{0, 0}, {-3.92456736*^8, 41/10}], Offset[{0, 0}, {-3.92456736*^8, 4.1}]]]}}}}, ImageSizeCache->{{227.13593096966878`, 415.6145443516486}, { 214.42962557435868`, 280.98299896493813`}}], StyleBox[ TagBox[ GridBox[{{ TemplateBox[{ RowBox[{ StyleBox[ "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], "\"1876\""}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"1876", ",", "1", ",", "1"}], "}"}], ",", "\"Day\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "4.`"}], ",", RowBox[{"{", "\"Year\"", "}"}]}], "]"}]}, "DateObject", Editable -> False]}}, GridBoxAlignment -> {"Columns" -> {{Right}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], {}, StripOnInput -> False]], Annotation[#, Style[ Grid[{{ DateObject[{1876, 1, 1}, "Day", "Gregorian", -4., {"Year"}]}}, Alignment -> Right], {}], "Tooltip"]& ]}, {RGBColor[0.368417, 0.506779, 0.709798], AbsolutePointSize[7], AbsoluteThickness[1.6], Opacity[1], TagBox[ TooltipBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[ Directive[ RGBColor[0.368417, 0.506779, 0.709798], Thickness[Large], Opacity[0.2]]], FaceForm[{ RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], Opacity[1]}], CapForm["Round"], AbsoluteThickness[2.5], AbsolutePointSize[10], FrameBoxOptions -> {BoxFrame -> 2.5}], {}, {}], {{{ Directive[ Opacity[0.2]], { CapForm["Round"], LineBox[{{-851990400, 0}, {-851990400, 0}}]}}, {{}, {{{}, {}}, {{}}}}}, {{ CapForm["Butt"], JoinForm["Round"], LineBox[ NCache[{ Offset[{20, 0}, {-883612800, 123/20}], Offset[{5, 0}, {-883612800, 123/20}], Offset[{5, 0}, {-883612800, 3/4}], {-851990400, 3/ 4}, {-851990400, 0}}, { Offset[{20, 0}, {-883612800, 6.15}], Offset[{5, 0}, {-883612800, 6.15}], Offset[{5, 0}, {-883612800, 0.75}], {-851990400, 0.75}, {-851990400, 0}}]], PolygonBox[ NCache[{ Offset[{20, 5}, {-883612800, 123/20}], Offset[{15, 0}, {-883612800, 123/20}], Offset[{20, -5}, {-883612800, 123/20}]}, { Offset[{20, 5}, {-883612800, 6.15}], Offset[{15, 0}, {-883612800, 6.15}], Offset[{20, -5}, {-883612800, 6.15}]}]], InsetBox[ BoxData[ FormBox[ FrameBox[ StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Frank Shepard\"", Bold, StripOnInput -> False]}, { InterpretationBox[ TooltipBox["\[LongDash]", "(not available)"], Missing["NotAvailable"]]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], { GrayLevel[0.3]}, StripOnInput -> False], RoundingRadius -> 5, FrameMargins -> 5, Background -> GrayLevel[1], StripOnInput -> False], TraditionalForm]], NCache[ Offset[{20, 0}, {-883612800, 123/20}], Offset[{20, 0}, {-883612800, 6.15}]], {Left, Center}, { Automatic, Automatic}]}, { EdgeForm[], FaceForm[], RectangleBox[ NCache[ Offset[{0, 0}, {-883612800, 51/10}], Offset[{0, 0}, {-883612800, 5.1}]], NCache[ Offset[{0, 0}, {-6.169852224*^8, 36/5}], Offset[{0, 0}, {-6.169852224*^8, 7.2}]]]}}}}, ImageSizeCache->{{227.13593096966878`, 335.6145443516486}, { 174.70609900824098`, 280.98299896493813`}}], StyleBox[ TagBox[ GridBox[{{ TemplateBox[{ RowBox[{ StyleBox[ "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], "\"1873\""}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"1873", ",", "1", ",", "1"}], "}"}], ",", "\"Day\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "4.`"}], ",", RowBox[{"{", "\"Year\"", "}"}]}], "]"}]}, "DateObject", Editable -> False]}}, GridBoxAlignment -> {"Columns" -> {{Right}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], {}, StripOnInput -> False]], Annotation[#, Style[ Grid[{{ DateObject[{1873, 1, 1}, "Day", "Gregorian", -4., {"Year"}]}}, Alignment -> Right], {}], "Tooltip"]& ]}, {RGBColor[0.368417, 0.506779, 0.709798], AbsolutePointSize[7], AbsoluteThickness[1.6], Opacity[1], TagBox[ TooltipBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[ Directive[ RGBColor[0.368417, 0.506779, 0.709798], Thickness[Large], Opacity[0.2]]], FaceForm[{ RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], Opacity[1]}], CapForm["Round"], AbsoluteThickness[2.5], AbsolutePointSize[10], FrameBoxOptions -> {BoxFrame -> 2.5}], {}, {}], {{{ Directive[ Opacity[0.2]], { CapForm["Round"], LineBox[{{-883612800, 0}, {-883612800, 0}}]}}, {{}, {{{}, {}}, {{}}}}}, {{ CapForm["Butt"], JoinForm["Round"], LineBox[ NCache[{ Offset[{20, 0}, {-883612800, 37/4}], Offset[{0, 0}, {-883612800, 37/4}], Offset[{0, 0}, {-883612800, 3}], {-883612800, 3}, {-883612800, 0}}, { Offset[{20, 0}, {-883612800, 9.25}], Offset[{0, 0}, {-883612800, 9.25}], Offset[{0, 0}, {-883612800, 3}], {-883612800, 3}, {-883612800, 0}}]], PolygonBox[ NCache[{ Offset[{20, 5}, {-883612800, 37/4}], Offset[{15, 0}, {-883612800, 37/4}], Offset[{20, -5}, {-883612800, 37/4}]}, { Offset[{20, 5}, {-883612800, 9.25}], Offset[{15, 0}, {-883612800, 9.25}], Offset[{20, -5}, {-883612800, 9.25}]}]], InsetBox[ BoxData[ FormBox[ FrameBox[ StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Lord Kelvin\"", Bold, StripOnInput -> False]}, { "\"A machine for the tides\""}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], { GrayLevel[0.3]}, StripOnInput -> False], RoundingRadius -> 5, FrameMargins -> 5, Background -> GrayLevel[1], StripOnInput -> False], TraditionalForm]], NCache[ Offset[{20, 0}, {-883612800, 37/4}], Offset[{20, 0}, {-883612800, 9.25}]], {Left, Center}, { Automatic, Automatic}]}, { EdgeForm[], FaceForm[], RectangleBox[ NCache[ Offset[{0, 0}, {-883612800, 41/5}], Offset[{0, 0}, {-883612800, 8.2}]], NCache[ Offset[{0, 0}, {-5.2156061568*^8, 103/10}], Offset[{0, 0}, {-5.2156061568*^8, 10.3}]]]}}}}, ImageSizeCache->{{227.13593096966872`, 369.6145443516486}, { 133.98257244212334`, 280.98299896493813`}}], StyleBox[ TagBox[ GridBox[{{ TemplateBox[{ RowBox[{ StyleBox[ "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], "\"1872\""}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"1872", ",", "1", ",", "1"}], "}"}], ",", "\"Day\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "4.`"}], ",", RowBox[{"{", "\"Year\"", "}"}]}], "]"}]}, "DateObject", Editable -> False]}}, GridBoxAlignment -> {"Columns" -> {{Right}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], {}, StripOnInput -> False]], Annotation[#, Style[ Grid[{{ DateObject[{1872, 1, 1}, "Day", "Gregorian", -4., {"Year"}]}}, Alignment -> Right], {}], "Tooltip"]& ]}, {RGBColor[0.368417, 0.506779, 0.709798], AbsolutePointSize[7], AbsoluteThickness[1.6], Opacity[1], TagBox[ TooltipBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[ Directive[ RGBColor[0.368417, 0.506779, 0.709798], Thickness[Large], Opacity[0.2]]], FaceForm[{ RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], Opacity[1]}], CapForm["Round"], AbsoluteThickness[2.5], AbsolutePointSize[10], FrameBoxOptions -> {BoxFrame -> 2.5}], {}, {}], {{{ Directive[ Opacity[0.2]], { CapForm["Round"], LineBox[{{-978220800, 0}, {-978220800, 0}}]}}, {{}, {{{}, {}}, {{}}}}}, {{ CapForm["Butt"], JoinForm["Round"], LineBox[ NCache[{ Offset[{25, 0}, {-1104451200, 247/20}], Offset[{15, 0}, {-1104451200, 247/20}], Offset[{15, 0}, {-1104451200, 3/2}], {-978220800, 3/ 2}, {-978220800, 0}}, { Offset[{25, 0}, {-1104451200, 12.35}], Offset[{15, 0}, {-1104451200, 12.35}], Offset[{15, 0}, {-1104451200, 1.5}], {-978220800, 1.5}, {-978220800, 0}}]], PolygonBox[ NCache[{ Offset[{25, 5}, {-1104451200, 247/20}], Offset[{20, 0}, {-1104451200, 247/20}], Offset[{25, -5}, {-1104451200, 247/20}]}, { Offset[{25, 5}, {-1104451200, 12.35}], Offset[{20, 0}, {-1104451200, 12.35}], Offset[{25, -5}, {-1104451200, 12.35}]}]], InsetBox[ BoxData[ FormBox[ FrameBox[ StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Dmitri Mendeleev\"", Bold, StripOnInput -> False]}, { "\"A place for every kind of atom\""}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], { GrayLevel[0.3]}, StripOnInput -> False], RoundingRadius -> 5, FrameMargins -> 5, Background -> GrayLevel[1], StripOnInput -> False], TraditionalForm]], NCache[ Offset[{25, 0}, {-1104451200, 247/20}], Offset[{25, 0}, {-1104451200, 12.35}]], {Left, Center}, { Automatic, Automatic}]}, { EdgeForm[], FaceForm[], RectangleBox[ NCache[ Offset[{0, 0}, {-1104451200, 113/10}], Offset[{0, 0}, {-1104451200, 11.3}]], NCache[ Offset[{0, 0}, {-6.5820083328*^8, 67/5}], Offset[{0, 0}, {-6.5820083328*^8, 13.4}]]]}}}}, ImageSizeCache->{{157.3508522564586, 334.8294656384384}, { 93.75904587600567, 280.98299896493813`}}], StyleBox[ TagBox[ GridBox[{{ TemplateBox[{ RowBox[{ StyleBox[ "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], "\"1869\""}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"1869", ",", "1", ",", "1"}], "}"}], ",", "\"Day\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "4.`"}], ",", RowBox[{"{", "\"Year\"", "}"}]}], "]"}]}, "DateObject", Editable -> False]}}, GridBoxAlignment -> {"Columns" -> {{Right}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], {}, StripOnInput -> False]], Annotation[#, Style[ Grid[{{ DateObject[{1869, 1, 1}, "Day", "Gregorian", -4., {"Year"}]}}, Alignment -> Right], {}], "Tooltip"]& ]}, {RGBColor[0.368417, 0.506779, 0.709798], AbsolutePointSize[7], AbsoluteThickness[1.6], Opacity[1], TagBox[ TooltipBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[ Directive[ RGBColor[0.368417, 0.506779, 0.709798], Thickness[Large], Opacity[0.2]]], FaceForm[{ RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], Opacity[1]}], CapForm["Round"], AbsoluteThickness[2.5], AbsolutePointSize[10], FrameBoxOptions -> {BoxFrame -> 2.5}], {}, {}], {{{ Directive[ Opacity[0.2]], { CapForm["Round"], LineBox[{{-1009843200, 0}, {-1009843200, 0}}]}}, {{}, {{{}, {}}, {{}}}}}, {{ CapForm["Butt"], JoinForm["Round"], LineBox[ NCache[{ Offset[{25, 0}, {-1104451200, 309/20}], Offset[{10, 0}, {-1104451200, 309/20}], Offset[{10, 0}, {-1104451200, 1}], {-1009843200, 1}, {-1009843200, 0}}, { Offset[{25, 0}, {-1104451200, 15.45}], Offset[{10, 0}, {-1104451200, 15.45}], Offset[{10, 0}, {-1104451200, 1}], {-1009843200, 1}, {-1009843200, 0}}]], PolygonBox[ NCache[{ Offset[{25, 5}, {-1104451200, 309/20}], Offset[{20, 0}, {-1104451200, 309/20}], Offset[{25, -5}, {-1104451200, 309/20}]}, { Offset[{25, 5}, {-1104451200, 15.45}], Offset[{20, 0}, {-1104451200, 15.45}], Offset[{25, -5}, {-1104451200, 15.45}]}]], InsetBox[ BoxData[ FormBox[ FrameBox[ StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"The World Almanac\"", Bold, StripOnInput -> False]}, { InterpretationBox[ TooltipBox["\[LongDash]", "(not available)"], Missing["NotAvailable"]]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], { GrayLevel[0.3]}, StripOnInput -> False], RoundingRadius -> 5, FrameMargins -> 5, Background -> GrayLevel[1], StripOnInput -> False], TraditionalForm]], NCache[ Offset[{25, 0}, {-1104451200, 309/20}], Offset[{25, 0}, {-1104451200, 15.45}]], {Left, Center}, { Automatic, Automatic}]}, { EdgeForm[], FaceForm[], RectangleBox[ NCache[ Offset[{0, 0}, {-1104451200, 72/5}], Offset[{0, 0}, {-1104451200, 14.4}]], NCache[ Offset[{0, 0}, {-7.7327168256*^8, 33/2}], Offset[{0, 0}, {-7.7327168256*^8, 16.5}]]]}}}}, ImageSizeCache->{{157.3508522564586, 294.8294656384384}, { 54.035519309888, 280.98299896493813`}}], StyleBox[ TagBox[ GridBox[{{ TemplateBox[{ RowBox[{ StyleBox[ "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], "\"1868\""}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"1868", ",", "1", ",", "1"}], "}"}], ",", "\"Day\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "4.`"}], ",", RowBox[{"{", "\"Year\"", "}"}]}], "]"}]}, "DateObject", Editable -> False]}}, GridBoxAlignment -> {"Columns" -> {{Right}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], {}, StripOnInput -> False]], Annotation[#, Style[ Grid[{{ DateObject[{1868, 1, 1}, "Day", "Gregorian", -4., {"Year"}]}}, Alignment -> Right], {}], "Tooltip"]& ]}, {RGBColor[0.368417, 0.506779, 0.709798], AbsolutePointSize[7], AbsoluteThickness[1.6], Opacity[1], TagBox[ TooltipBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[ Directive[ RGBColor[0.368417, 0.506779, 0.709798], Thickness[Large], Opacity[0.2]]], FaceForm[{ RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], Opacity[1]}], CapForm["Round"], AbsoluteThickness[2.5], AbsolutePointSize[10], FrameBoxOptions -> {BoxFrame -> 2.5}], {}, {}], {{{ Directive[ Opacity[0.2]], { CapForm["Round"], LineBox[{{-1041379200, 0}, {-1041379200, 0}}]}}, {{}, {{{}, {}}, {{}}}}}, {{ CapForm["Butt"], JoinForm["Round"], LineBox[ NCache[{ Offset[{25, 0}, {-1104451200, 371/20}], Offset[{5, 0}, {-1104451200, 371/20}], Offset[{5, 0}, {-1104451200, 1/2}], {-1041379200, 1/ 2}, {-1041379200, 0}}, { Offset[{25, 0}, {-1104451200, 18.55}], Offset[{5, 0}, {-1104451200, 18.55}], Offset[{5, 0}, {-1104451200, 0.5}], {-1041379200, 0.5}, {-1041379200, 0}}]], PolygonBox[ NCache[{ Offset[{25, 5}, {-1104451200, 371/20}], Offset[{20, 0}, {-1104451200, 371/20}], Offset[{25, -5}, {-1104451200, 371/20}]}, { Offset[{25, 5}, {-1104451200, 18.55}], Offset[{20, 0}, {-1104451200, 18.55}], Offset[{25, -5}, {-1104451200, 18.55}]}]], InsetBox[ BoxData[ FormBox[ FrameBox[ StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Stock Ticker\"", Bold, StripOnInput -> False]}, { "\"The market on a tickertape\""}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], { GrayLevel[0.3]}, StripOnInput -> False], RoundingRadius -> 5, FrameMargins -> 5, Background -> GrayLevel[1], StripOnInput -> False], TraditionalForm]], NCache[ Offset[{25, 0}, {-1104451200, 371/20}], Offset[{25, 0}, {-1104451200, 18.55}]], {Left, Center}, { Automatic, Automatic}]}, { EdgeForm[], FaceForm[], RectangleBox[ NCache[ Offset[{0, 0}, {-1104451200, 35/2}], Offset[{0, 0}, {-1104451200, 17.5}]], NCache[ Offset[{0, 0}, {-6.974933184*^8, 98/5}], Offset[{0, 0}, {-6.974933184*^8, 19.6}]]]}}}}, ImageSizeCache->{{157.3508522564586, 320.8294656384384}, { 13.311992743770304`, 280.98299896493813`}}], StyleBox[ TagBox[ GridBox[{{ TemplateBox[{ RowBox[{ StyleBox[ "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], "\"1867\""}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"1867", ",", "1", ",", "1"}], "}"}], ",", "\"Day\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "4.`"}], ",", RowBox[{"{", "\"Year\"", "}"}]}], "]"}]}, "DateObject", Editable -> False]}}, GridBoxAlignment -> {"Columns" -> {{Right}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], {}, StripOnInput -> False]], Annotation[#, Style[ Grid[{{ DateObject[{1867, 1, 1}, "Day", "Gregorian", -4., {"Year"}]}}, Alignment -> Right], {}], "Tooltip"]& ]}, {RGBColor[0.368417, 0.506779, 0.709798], AbsolutePointSize[7], AbsoluteThickness[1.6], Opacity[1], TagBox[ TooltipBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[ Directive[ RGBColor[0.368417, 0.506779, 0.709798], Thickness[Large], Opacity[0.2]]], FaceForm[{ RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], Opacity[1]}], CapForm["Round"], AbsoluteThickness[2.5], AbsolutePointSize[10], FrameBoxOptions -> {BoxFrame -> 2.5}], {}, {}], {{{ Directive[ Opacity[0.2]], { CapForm["Round"], LineBox[{{-1104451200, 0}, {-1104451200, 0}}]}}, {{}, {{{}, {}}, {{}}}}}, {{ CapForm["Butt"], JoinForm["Round"], LineBox[ NCache[{ Offset[{25, 0}, {-1104451200, 433/20}], Offset[{0, 0}, {-1104451200, 433/20}], Offset[{0, 0}, {-1104451200, 3}], {-1104451200, 3}, {-1104451200, 0}}, { Offset[{25, 0}, {-1104451200, 21.65}], Offset[{0, 0}, {-1104451200, 21.65}], Offset[{0, 0}, {-1104451200, 3}], {-1104451200, 3}, {-1104451200, 0}}]], PolygonBox[ NCache[{ Offset[{25, 5}, {-1104451200, 433/20}], Offset[{20, 0}, {-1104451200, 433/20}], Offset[{25, -5}, {-1104451200, 433/20}]}, { Offset[{25, 5}, {-1104451200, 21.65}], Offset[{20, 0}, {-1104451200, 21.65}], Offset[{25, -5}, {-1104451200, 21.65}]}]], InsetBox[ BoxData[ FormBox[ FrameBox[ StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Gregor Mendel\"", Bold, StripOnInput -> False]}, { InterpretationBox[ TooltipBox["\[LongDash]", "(not available)"], Missing["NotAvailable"]]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], { GrayLevel[0.3]}, StripOnInput -> False], RoundingRadius -> 5, FrameMargins -> 5, Background -> GrayLevel[1], StripOnInput -> False], TraditionalForm]], NCache[ Offset[{25, 0}, {-1104451200, 433/20}], Offset[{25, 0}, {-1104451200, 21.65}]], {Left, Center}, { Automatic, Automatic}]}, { EdgeForm[], FaceForm[], RectangleBox[ NCache[ Offset[{0, 0}, {-1104451200, 103/5}], Offset[{0, 0}, {-1104451200, 20.6}]], NCache[ Offset[{0, 0}, {-8.378236224*^8, 227/10}], Offset[{0, 0}, {-8.378236224*^8, 22.7}]]]}}}}, ImageSizeCache->{{157.35085225645855`, 270.8294656384384}, {-26.411533822347337`, 280.98299896493813`}}], StyleBox[ TagBox[ GridBox[{{ TemplateBox[{ RowBox[{ StyleBox[ "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], "\"1865\""}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"1865", ",", "1", ",", "1"}], "}"}], ",", "\"Day\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "4.`"}], ",", RowBox[{"{", "\"Year\"", "}"}]}], "]"}]}, "DateObject", Editable -> False]}}, GridBoxAlignment -> {"Columns" -> {{Right}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], {}, StripOnInput -> False]], Annotation[#, Style[ Grid[{{ DateObject[{1865, 1, 1}, "Day", "Gregorian", -4., {"Year"}]}}, Alignment -> Right], {}], "Tooltip"]& ]}, {RGBColor[0.368417, 0.506779, 0.709798], AbsolutePointSize[7], AbsoluteThickness[1.6], Opacity[1], TagBox[ TooltipBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[ Directive[ RGBColor[0.368417, 0.506779, 0.709798], Thickness[Large], Opacity[0.2]]], FaceForm[{ RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], Opacity[1]}], CapForm["Round"], AbsoluteThickness[2.5], AbsolutePointSize[10], FrameBoxOptions -> {BoxFrame -> 2.5}], {}, {}], {{{ Directive[ Opacity[0.2]], { CapForm["Round"], LineBox[{{-1262304000, 0}, {-1262304000, 0}}]}}, {{}, {{{}, {}}, {{}}}}}, {{ CapForm["Butt"], JoinForm["Round"], LineBox[ NCache[{ Offset[{15, 0}, {-1514764800, 61/20}], Offset[{5, 0}, {-1514764800, 61/20}], Offset[{5, 0}, {-1514764800, 3/2}], {-1262304000, 3/ 2}, {-1262304000, 0}}, { Offset[{15, 0}, {-1514764800, 3.05}], Offset[{5, 0}, {-1514764800, 3.05}], Offset[{5, 0}, {-1514764800, 1.5}], {-1262304000, 1.5}, {-1262304000, 0}}]], PolygonBox[ NCache[{ Offset[{15, 5}, {-1514764800, 61/20}], Offset[{10, 0}, {-1514764800, 61/20}], Offset[{15, -5}, {-1514764800, 61/20}]}, { Offset[{15, 5}, {-1514764800, 3.05}], Offset[{10, 0}, {-1514764800, 3.05}], Offset[{15, -5}, {-1514764800, 3.05}]}]], InsetBox[ BoxData[ FormBox[ FrameBox[ StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Robert FitzRoy\"", Bold, StripOnInput -> False]}, { "\"Charting and forecasting the weather\""}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], { GrayLevel[0.3]}, StripOnInput -> False], RoundingRadius -> 5, FrameMargins -> 5, Background -> GrayLevel[1], StripOnInput -> False], TraditionalForm]], NCache[ Offset[{15, 0}, {-1514764800, 61/20}], Offset[{15, 0}, {-1514764800, 3.05}]], {Left, Center}, { Automatic, Automatic}]}, { EdgeForm[], FaceForm[], RectangleBox[ Offset[{0, 0}, {-1514764800, 2}], NCache[ Offset[{0, 0}, {-9.7870303872*^8, 41/10}], Offset[{0, 0}, {-9.7870303872*^8, 4.1}]]]}}}}, ImageSizeCache->{{27.69148652522432, 227.17009990720413`}, { 214.42962557435868`, 280.98299896493813`}}], StyleBox[ TagBox[ GridBox[{{ TemplateBox[{ RowBox[{ StyleBox[ "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], "\"1860\""}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"1860", ",", "1", ",", "1"}], "}"}], ",", "\"Day\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "4.`"}], ",", RowBox[{"{", "\"Year\"", "}"}]}], "]"}]}, "DateObject", Editable -> False]}}, GridBoxAlignment -> {"Columns" -> {{Right}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], {}, StripOnInput -> False]], Annotation[#, Style[ Grid[{{ DateObject[{1860, 1, 1}, "Day", "Gregorian", -4., {"Year"}]}}, Alignment -> Right], {}], "Tooltip"]& ]}, {RGBColor[0.368417, 0.506779, 0.709798], AbsolutePointSize[7], AbsoluteThickness[1.6], Opacity[1], TagBox[ TooltipBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[ Directive[ RGBColor[0.368417, 0.506779, 0.709798], Thickness[Large], Opacity[0.2]]], FaceForm[{ RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], Opacity[1]}], CapForm["Round"], AbsoluteThickness[2.5], AbsolutePointSize[10], FrameBoxOptions -> {BoxFrame -> 2.5}], {}, {}], {{{ Directive[ Opacity[0.2]], { CapForm["Round"], LineBox[{{-1262304000, 0}, {-1262304000, 0}}]}}, {{}, {{{}, {}}, {{}}}}}, {{ CapForm["Butt"], JoinForm["Round"], LineBox[ NCache[{ Offset[{15, 0}, {-1514764800, 123/20}], Offset[{5, 0}, {-1514764800, 123/20}], Offset[{5, 0}, {-1514764800, 3/2}], {-1262304000, 3/ 2}, {-1262304000, 0}}, { Offset[{15, 0}, {-1514764800, 6.15}], Offset[{5, 0}, {-1514764800, 6.15}], Offset[{5, 0}, {-1514764800, 1.5}], {-1262304000, 1.5}, {-1262304000, 0}}]], PolygonBox[ NCache[{ Offset[{15, 5}, {-1514764800, 123/20}], Offset[{10, 0}, {-1514764800, 123/20}], Offset[{15, -5}, {-1514764800, 123/20}]}, { Offset[{15, 5}, {-1514764800, 6.15}], Offset[{10, 0}, {-1514764800, 6.15}], Offset[{15, -5}, {-1514764800, 6.15}]}]], InsetBox[ BoxData[ FormBox[ FrameBox[ StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Henry Chadwick\"", Bold, StripOnInput -> False]}, { "\"Keeping records of sports\""}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], { GrayLevel[0.3]}, StripOnInput -> False], RoundingRadius -> 5, FrameMargins -> 5, Background -> GrayLevel[1], StripOnInput -> False], TraditionalForm]], NCache[ Offset[{15, 0}, {-1514764800, 123/20}], Offset[{15, 0}, {-1514764800, 6.15}]], {Left, Center}, { Automatic, Automatic}]}, { EdgeForm[], FaceForm[], RectangleBox[ NCache[ Offset[{0, 0}, {-1514764800, 51/10}], Offset[{0, 0}, {-1514764800, 5.1}]], NCache[ Offset[{0, 0}, {-1.1218399488*^9, 36/5}], Offset[{0, 0}, {-1.1218399488*^9, 7.2}]]]}}}}, ImageSizeCache->{{27.69148652522432, 176.17009990720413`}, { 174.20609900824098`, 280.98299896493813`}}], StyleBox[ TagBox[ GridBox[{{ TemplateBox[{ RowBox[{ StyleBox[ "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], "\"1860\""}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"1860", ",", "1", ",", "1"}], "}"}], ",", "\"Day\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "4.`"}], ",", RowBox[{"{", "\"Year\"", "}"}]}], "]"}]}, "DateObject", Editable -> False]}}, GridBoxAlignment -> {"Columns" -> {{Right}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], {}, StripOnInput -> False]], Annotation[#, Style[ Grid[{{ DateObject[{1860, 1, 1}, "Day", "Gregorian", -4., {"Year"}]}}, Alignment -> Right], {}], "Tooltip"]& ]}, {RGBColor[0.368417, 0.506779, 0.709798], AbsolutePointSize[7], AbsoluteThickness[1.6], Opacity[1], TagBox[ TooltipBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[ Directive[ RGBColor[0.368417, 0.506779, 0.709798], Thickness[Large], Opacity[0.2]]], FaceForm[{ RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], Opacity[1]}], CapForm["Round"], AbsoluteThickness[2.5], AbsolutePointSize[10], FrameBoxOptions -> {BoxFrame -> 2.5}], {}, {}], {{{ Directive[ Opacity[0.2]], { CapForm["Round"], LineBox[{{-1514764800, 0}, {-1514764800, 0}}]}}, {{}, {{{}, {}}, {{}}}}}, {{ CapForm["Butt"], JoinForm["Round"], LineBox[ NCache[{ Offset[{15, 0}, {-1514764800, 37/4}], Offset[{0, 0}, {-1514764800, 37/4}], Offset[{0, 0}, {-1514764800, 3}], {-1514764800, 3}, {-1514764800, 0}}, { Offset[{15, 0}, {-1514764800, 9.25}], Offset[{0, 0}, {-1514764800, 9.25}], Offset[{0, 0}, {-1514764800, 3}], {-1514764800, 3}, {-1514764800, 0}}]], PolygonBox[ NCache[{ Offset[{15, 5}, {-1514764800, 37/4}], Offset[{10, 0}, {-1514764800, 37/4}], Offset[{15, -5}, {-1514764800, 37/4}]}, { Offset[{15, 5}, {-1514764800, 9.25}], Offset[{10, 0}, {-1514764800, 9.25}], Offset[{15, -5}, {-1514764800, 9.25}]}]], InsetBox[ BoxData[ FormBox[ FrameBox[ StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Peter Mark Roget\"", Bold, StripOnInput -> False]}, { "\"Organizing English by concept\""}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], { GrayLevel[0.3]}, StripOnInput -> False], RoundingRadius -> 5, FrameMargins -> 5, Background -> GrayLevel[1], StripOnInput -> False], TraditionalForm]], NCache[ Offset[{15, 0}, {-1514764800, 37/4}], Offset[{15, 0}, {-1514764800, 9.25}]], {Left, Center}, { Automatic, Automatic}]}, { EdgeForm[], FaceForm[], RectangleBox[ NCache[ Offset[{0, 0}, {-1514764800, 41/5}], Offset[{0, 0}, {-1514764800, 8.2}]], NCache[ Offset[{0, 0}, {-1.06290122112*^9, 103/10}], Offset[{0, 0}, {-1.06290122112*^9, 10.3}]]]}}}}, ImageSizeCache->{{27.69148652522432, 197.17009990720413`}, { 133.98257244212334`, 280.98299896493813`}}], StyleBox[ TagBox[ GridBox[{{ TemplateBox[{ RowBox[{ StyleBox[ "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> Plain], "\"1852\""}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"1852", ",", "1", ",", "1"}], "}"}], ",", "\"Day\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "4.`"}], ",", RowBox[{"{", "\"Year\"", "}"}]}], "]"}]}, "DateObject", Editable -> False]}}, GridBoxAlignment -> {"Columns" -> {{Right}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], {}, StripOnInput -> False]], Annotation[#, Style[ Grid[{{ DateObject[{1852, 1, 1}, "Day", "Gregorian", -4., {"Year"}]}}, Alignment -> Right], {}], "Tooltip"]& ]}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {}}}, {}, {}}, AspectRatio->1, Axes->{False, False}, AxesOrigin->{0, 0}, Frame->{{None, None}, {True, None}}, FrameTicks-> FrontEndValueCache[{{None, None}, { Charting`getDateTicks[Automatic, {"Year"}, (Map[DateList, { SlotSequence[1]}]& )[ SlotSequence[1]], None, 7, {{0.01, 0}, {0.005, 0}}, Automatic]& , Automatic}}, {{None, None}, {{{-1.5778368*^9, FormBox["\"1850\"", TraditionalForm], {0.006666666666666666, 0.}}, {-1.262304*^9, FormBox["\"1860\"", TraditionalForm], {0.006666666666666666, 0.}}, {-9.466848*^8, FormBox["\"1870\"", TraditionalForm], {0.006666666666666666, 0.}}, {-6.31152*^8, FormBox["\"1880\"", TraditionalForm], {0.006666666666666666, 0.}}, {-3.155328*^8, FormBox["\"1890\"", TraditionalForm], {0.006666666666666666, 0.}}, { 0., FormBox["\"1900\"", TraditionalForm], {0.006666666666666666, 0.}}, { 3.155328*^8, FormBox["\"1910\"", TraditionalForm], {0.006666666666666666, 0.}}, {-1.5778368*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0.}}, {-1.5147648*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0.}}, {-1.4516064*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0.}}, {-1.3885344*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0.}}, {-1.325376*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0.}}, {-1.262304*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0.}}, {-1.1991456*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0.}}, {-1.1360736*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0.}}, {-1.0729152*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0.}}, {-1.0098432*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0.}}, {-9.466848*^8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0.}}, {-8.836128*^8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0.}}, {-8.204544*^8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0.}}, {-7.573824*^8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0.}}, {-6.94224*^8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0.}}, {-6.31152*^8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0.}}, {-5.679936*^8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0.}}, {-5.049216*^8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0.}}, {-4.417632*^8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0.}}, {-3.786912*^8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0.}}, {-3.155328*^8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0.}}, {-2.524608*^8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0.}}, {-1.893024*^8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0.}}, {-1.262304*^8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0.}}, {-6.3072*^7, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0.}}, {0., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0.}}, {6.3072*^7, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0.}}, {1.26144*^8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0.}}, {1.893024*^8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0.}}}, Automatic}}], GridLines->{None, None}, ImagePadding->All, ImageSize->{600, Automatic}, PlotRange->{{All, All}, {0, All}}, PlotRangePadding->{{ Scaled[0.04], Scaled[0.04]}, {None, Scaled[0.05]}}, Ticks->{{{-1.5778368*^9, FormBox["\"1850\"", TraditionalForm], { 0.006666666666666666, 0}}, {-1.262304*^9, FormBox["\"1860\"", TraditionalForm], { 0.006666666666666666, 0}}, {-9.466848*^8, FormBox["\"1870\"", TraditionalForm], { 0.006666666666666666, 0}}, {-6.31152*^8, FormBox["\"1880\"", TraditionalForm], { 0.006666666666666666, 0}}, {-3.155328*^8, FormBox["\"1890\"", TraditionalForm], {0.006666666666666666, 0}}, {0., FormBox["\"1900\"", TraditionalForm], {0.006666666666666666, 0}}, { 3.155328*^8, FormBox["\"1910\"", TraditionalForm], { 0.006666666666666666, 0}}, {-1.5778368*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0}}, {-1.5147648*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0}}, {-1.4516064*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0}}, {-1.3885344*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0}}, {-1.325376*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0}}, {-1.262304*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0}}, {-1.1991456*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0}}, {-1.1360736*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0}}, {-1.0729152*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0}}, {-1.0098432*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0}}, {-9.466848*^8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0}}, {-8.836128*^8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0}}, {-8.204544*^8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0}}, {-7.573824*^8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0}}, {-6.94224*^8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0}}, {-6.31152*^8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0}}, {-5.679936*^8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0}}, {-5.049216*^8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0}}, {-4.417632*^8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0}}, {-3.786912*^8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0}}, {-3.155328*^8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0}}, {-2.524608*^8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0}}, {-1.893024*^8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0}}, {-1.262304*^8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0}}, {-6.3072*^7, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0}}, {0., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0}}, {6.3072*^7, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0}}, {1.26144*^8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0}}, {1.893024*^8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}], Selectable -> False], TraditionalForm], { 0.006666666666666666, 0}}}, 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.706284678309759*^9, 3.7062851642446833`*^9, {3.7062852049831467`*^9, 3.7062852095860558`*^9}, 3.70628643689321*^9, {3.706371601192342*^9, 3.706371617952518*^9}, 3.706373287507049*^9}] }, Open ]] }, Open ]] }, ClosingSaveDialog->False, WindowSize->{830, 911}, WindowMargins->{{316, 534}, {0, Automatic}}, WindowTitle->"Timeline of Systematic Data & Computable Knowledge | 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[665, 24, 36, 0, 70, "Subsection",ExpressionUUID->"be442d9b-5bce-4e51-91e1-61f6399b5943"], Cell[704, 26, 205, 3, 70, "Text",ExpressionUUID->"f1b3b39c-0d21-4bde-9d85-378b1bc8dbe6"], Cell[CellGroupData[{ Cell[934, 33, 393, 9, 70, "Input",ExpressionUUID->"8a06c6e0-0ffa-42cc-aad0-28a6df4d5ac3"], Cell[1330, 44, 166632, 2875, 70, "Output",ExpressionUUID->"7f1677fe-3c47-4bc5-b3e7-abdcadd256a3"] }, Open ]], Cell[167977, 2922, 387, 5, 70, "Text",ExpressionUUID->"983f7c32-e396-4750-bd73-231934a12be5"], Cell[CellGroupData[{ Cell[168389, 2931, 707, 16, 70, "Input",ExpressionUUID->"7cf6f8e1-d44b-4ae9-aa0d-607b79661ce2"], Cell[169099, 2949, 2679, 61, 70, "Output",ExpressionUUID->"60f609ce-9ca5-447e-8701-b91be1b344f5"] }, Open ]], Cell[171793, 3013, 407, 7, 70, "Text",ExpressionUUID->"fdd53a8b-009d-495d-b67a-511924aef2f4"], Cell[CellGroupData[{ Cell[172225, 3024, 1218, 28, 70, "Input",ExpressionUUID->"ca9248e2-ab5f-4d53-a882-3ab7dd8b1785"], Cell[173446, 3054, 24250, 566, 70, "Output",ExpressionUUID->"14db183f-ac7a-4351-9f09-cba30c958ca7"] }, Open ]], Cell[197711, 3623, 505, 8, 70, "Text",ExpressionUUID->"1e26af64-3aeb-4e2f-a617-92835f1ac1eb"], Cell[CellGroupData[{ Cell[198241, 3635, 1713, 40, 70, "Input",ExpressionUUID->"610d553b-a36c-4225-9321-d44743cf19db"], Cell[199957, 3677, 137651, 2662, 70, "Output",ExpressionUUID->"9253b7eb-903e-4087-bbf7-839446746957"] }, Open ]], Cell[337623, 6342, 401, 7, 70, "Text",ExpressionUUID->"69a5064b-adf3-48c1-9906-8acf17240e56"], Cell[CellGroupData[{ Cell[338049, 6353, 1633, 38, 70, "Input",ExpressionUUID->"1a012e5e-1dd8-48fb-a13e-1bb61ea3b935"], Cell[339685, 6393, 175722, 3363, 70, "Output",ExpressionUUID->"73b758e7-81ff-4640-9798-aadf4ee2165b"] }, Open ]], Cell[515422, 9759, 432, 5, 70, "Text",ExpressionUUID->"3682f6e4-063d-46dd-84c4-69cdd7428c43"], Cell[CellGroupData[{ Cell[515879, 9768, 1180, 29, 70, "Input",ExpressionUUID->"ca9696e7-5658-4aaf-a74a-933870bc41a2"], Cell[517062, 9799, 118476, 2842, 70, "Output",ExpressionUUID->"037cb480-4a1b-476a-94ea-b9a53519cd50"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)