(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 245610, 5316] NotebookOptionsPosition[ 109230, 2653] NotebookOutlinePosition[ 232617, 5023] CellTagsIndexPosition[ 231630, 4991] WindowTitle->HitomezashiStitchPattern | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["HitomezashiStitchPattern", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->384848836], Cell["Generate a Hitomezashi stitch pattern", "Text", CellTags->{"Description", "TemplateCell"}, CellID->822707583], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Function", Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line \ above. You can add input cells and extra code to define additional input \ cases or prerequisites. All definitions, including dependencies, will be \ included in the generated resource function.\n\nThis section should be \ evaluated before creating the Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoFunction"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710], Cell[BoxData[{ RowBox[{"ClearAll", "[", RowBox[{"InvBoole", ",", "ValPrepare", ",", "HitomezashiStitchPattern"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"InvBoole", "[", "val_", "]"}], ":=", RowBox[{"ReplaceAll", "[", RowBox[{"val", ",", RowBox[{"{", RowBox[{ RowBox[{"1", "->", "True"}], ",", RowBox[{"0", "->", "False"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ValPrepare", "[", "val_Integer", "]"}], ":=", RowBox[{"InvBoole", "[", RowBox[{"IntegerDigits", "[", RowBox[{"val", ",", "2"}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ValPrepare", "[", "val_Real", "]"}], ":=", RowBox[{"InvBoole", "[", RowBox[{"First", "@", RowBox[{"RealDigits", "[", RowBox[{"val", ",", "2"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ValPrepare", "[", "val_List", "]"}], ":=", RowBox[{ RowBox[{"Map", "[", "TrueQ", "]"}], "[", "val", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ValPrepare", "[", "val_String", "]"}], ":=", RowBox[{"EvenQ", "[", RowBox[{"ToCharacterCode", "[", "val", "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"HitomezashiStitchPattern", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "xs", ",", "ys", ",", "width", ",", "height", ",", "hor", ",", "ver", ",", "lb"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"xs", "=", RowBox[{"ValPrepare", "[", "x", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ys", "=", RowBox[{"ValPrepare", "[", "y", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Head", "[", "xs", "]"}], "=!=", "ValPrepare"}], "\[And]", RowBox[{ RowBox[{"Head", "[", "ys", "]"}], "=!=", "ValPrepare"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"width", ",", "height"}], "}"}], "=", RowBox[{"Length", "/@", RowBox[{"{", RowBox[{"xs", ",", "ys"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"hor", "=", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"lb", "=", RowBox[{"If", "[", RowBox[{ RowBox[{"ys", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "1", ",", "2"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "i"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"j", "+", "1"}], ",", "i"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "lb", ",", RowBox[{"width", "-", "1"}], ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "ys", "]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ver", "=", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"lb", "=", RowBox[{"If", "[", RowBox[{ RowBox[{"xs", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "1", ",", "2"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"j", "+", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "lb", ",", RowBox[{"height", "-", "1"}], ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "xs", "]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"hor", "//=", "Catenate"}], ";", "\[IndentingNewLine]", RowBox[{"ver", "//=", "Catenate"}], ";", "\[IndentingNewLine]", RowBox[{"Line", "[", RowBox[{"Join", "[", RowBox[{"hor", ",", "ver"}], "]"}], "]"}]}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"Line", "[", RowBox[{"{", "}"}], "]"}]}], "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}]}]}], "Input", TaggingRules->{}, CellChangeTimes->{ 3.849195870588902*^9, {3.8492008033764963`*^9, 3.849200825790304*^9}}, CellTags->"DefaultContent", CellLabel->"In[146]:=", CellID->133226972] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Editable->False, Deletable->False, CellTags->{"Documentation", "TemplateSection"}, CellID->94487535], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Usage", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Document input usage cases by first typing an input structure, \ then pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " to add a brief explanation of the function\[CloseCurlyQuote]s \ behavior for that structure. Pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " repeatedly will create new cases as needed. Every input usage \ case defined above should be demonstrated explicitly here.\n\nSee existing \ documentation pages for examples."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"}, CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HitomezashiStitchPattern", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["x", "TI"], StyleBox["1", "TR"]], ",", " ", SubscriptBox[ StyleBox["x", "TI"], StyleBox["2", "TR"]], ",", " ", SubscriptBox[ StyleBox["x", "TI"], StyleBox["3", "TR"]], ",", " ", "\[Ellipsis]"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["y", "TI"], StyleBox["1", "TR"]], ",", " ", SubscriptBox[ StyleBox["y", "TI"], StyleBox["2", "TR"]], ",", " ", SubscriptBox[ StyleBox["y", "TI"], StyleBox["3", "TR"]], ",", " ", "\[Ellipsis]"}], "}"}]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->628169291], Cell[TextData[{ "returns the lines of a Hitomezashi stitch pattern based on the Boolean \ values ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["x", "TI"], StyleBox["i", "TI"]], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["y", "TI"], StyleBox["i", "TI"]], TraditionalForm]]], "." }], "UsageDescription", CellID->419271896] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HitomezashiStitchPattern", "[", RowBox[{ StyleBox["n", "TI"], ",", StyleBox["m", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->439049407], Cell[TextData[{ "returns the lines of a Hitomezashi stitch pattern based on the integers, \ reals, or strings ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ StyleBox["m", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->162482576] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Notes", Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828], Cell["\<\ Hitomezashi stitch patterns are based on horizontal and vertical dashing \ patterns. Based on whether the dashing is 'odd' or 'even', the dashing is \ active on odd positions or even positions.\ \>", "Notes", TaggingRules->{}, CellChangeTimes->{{3.849198853179652*^9, 3.849198942072381*^9}, { 3.849200817308405*^9, 3.8492008184175*^9}}, CellID->225134976], Cell["\<\ Inputs in the horizontal and vertical directions are either are a list of \ Boolean values, integers, reals or strings.\ \>", "Notes", TaggingRules->{}, CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.849196654539234*^9, 3.849196654927764*^9}, { 3.849196721407892*^9, 3.8491967496146917`*^9}, {3.849196804510337*^9, 3.8491968115596533`*^9}, {3.84919685399743*^9, 3.8491968547906923`*^9}, { 3.850235499987915*^9, 3.8502355523079233`*^9}}, CellTags->{"DefaultContent", "TabNext"}, CellID->205926883], Cell[TextData[{ "If items are ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["True", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/True", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " the line are positioned on the odd places, and if they are ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["False", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/False", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " they are placed on the even places." }], "Notes", TaggingRules->{}, CellChangeTimes->{{3.84919686300007*^9, 3.8491969100215073`*^9}, { 3.849197117304779*^9, 3.8491971195601683`*^9}}, CellID->702606440], Cell[TextData[{ "Integers and real numbers are converted to base 2, after that 1s are \ converted to ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["True", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/True", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", and 0s are converted to ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["False", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/False", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", TaggingRules->{}, CellChangeTimes->{{3.849196677417693*^9, 3.849196677788775*^9}, { 3.8491968137050734`*^9, 3.849196851597158*^9}, {3.84919691424933*^9, 3.8491969153462963`*^9}, {3.849197026601741*^9, 3.8491970293476877`*^9}, { 3.8491971214681597`*^9, 3.8491971234698963`*^9}, {3.849200939818788*^9, 3.8492009426052017`*^9}}, CellID->421314552], Cell[TextData[{ "Strings are fed to ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ToCharacterCode", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/ToCharacterCode", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", even codes become ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["True", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/True", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " and off codes become ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["False", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/False", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", TaggingRules->{}, CellChangeTimes->{{3.849196916442831*^9, 3.8491969348309*^9}, { 3.849196983359105*^9, 3.8491969842550497`*^9}, {3.8491970376876087`*^9, 3.849197115022196*^9}, 3.850235584166244*^9}, CellID->572928696] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Examples", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and \ Subsubsection cells similarly to existing documentation pages. Here are some \ typical Subsection names and the types of examples they normally contain:\n \ ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", TaggingRules->{}, CellTags->"DefaultContent", CellID->279727361], Cell["Create simple Hitemezashi pattern:", "Text", TaggingRules->{}, CellChangeTimes->{{3.849198317020838*^9, 3.8491983271125793`*^9}}, CellTags->"DefaultContent", CellID->716171736], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HitomezashiStitchPattern", "[", RowBox[{ RowBox[{"{", RowBox[{ "True", ",", "True", ",", "False", ",", "True", ",", "False", ",", "False", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "False", ",", "True", ",", "False", ",", "False"}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.8491959670042877`*^9, 3.849198329468693*^9, 3.849200829989518*^9}, CellTags->"DefaultContent", CellLabel->"In[153]:=", CellID->789629144], Cell[BoxData[ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "3"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "4"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "5"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "3"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "5"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "4"}], "}"}]}], "}"}]}], "}"}], "]"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.849195968386508*^9, {3.849198329830709*^9, 3.84919834595461*^9}, 3.8491984474915733`*^9, 3.849199020308838*^9, 3.8491992520196238`*^9, 3.84920083051725*^9}, CellTags->"DefaultContent", CellLabel->"Out[153]=", CellID->753776593] }, Open ]], Cell["Visualize it:", "Text", TaggingRules->{}, CellChangeTimes->{{3.849198335468093*^9, 3.8491983387073793`*^9}}, CellID->601524694], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "Graphics"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.849198341124505*^9, 3.849198343404113*^9}}, CellLabel->"In[154]:=", CellID->760150810], Cell[BoxData[ GraphicsBox[ LineBox[{{{2, 1}, {3, 1}}, {{4, 1}, {5, 1}}, {{6, 1}, {7, 1}}, {{2, 2}, {3, 2}}, {{4, 2}, {5, 2}}, {{6, 2}, {7, 2}}, {{1, 3}, {2, 3}}, {{3, 3}, {4, 3}}, {{5, 3}, {6, 3}}, {{2, 4}, {3, 4}}, {{4, 4}, {5, 4}}, {{6, 4}, {7, 4}}, {{2, 5}, {3, 5}}, {{4, 5}, {5, 5}}, {{6, 5}, {7, 5}}, {{1, 1}, {1, 2}}, {{1, 3}, {1, 4}}, {{2, 1}, {2, 2}}, {{2, 3}, {2, 4}}, {{3, 2}, {3, 3}}, {{3, 4}, {3, 5}}, {{4, 1}, {4, 2}}, {{4, 3}, {4, 4}}, {{5, 2}, {5, 3}}, {{5, 4}, {5, 5}}, {{6, 2}, {6, 3}}, {{6, 4}, {6, 5}}, {{7, 1}, {7, 2}}, {{7, 3}, {7, 4}}}]]], "Output", TaggingRules->{}, CellChangeTimes->{{3.849198343773806*^9, 3.849198346791642*^9}, 3.8491984481937017`*^9, 3.849199020959847*^9, 3.8491992533254433`*^9, 3.84920083154609*^9}, CellLabel->"Out[154]=", CellID->502393262] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", TaggingRules->{}, CellTags->"DefaultContent", CellID->513869560], Cell["Use integers rather than a list of booleans:", "Text", TaggingRules->{}, CellChangeTimes->{{3.849198414234663*^9, 3.849198429277668*^9}, 3.849198484506709*^9}, CellTags->"DefaultContent", CellID->70133110], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"HitomezashiStitchPattern", "[", RowBox[{"1234", ",", "5678"}], "]"}], "//", "Graphics"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8491983570592012`*^9, 3.849198402490059*^9}, 3.8492008336326303`*^9}, CellTags->"DefaultContent", CellLabel->"In[155]:=", CellID->385995849], Cell[BoxData[ GraphicsBox[LineBox[CompressedData[" 1:eJxt0LlxREEIBNDPDQ0ThFLaEDYBBaHExVbJ0xh40MD7en+/3vI8z88W/xUR k5CSkVNQUhGIWVjZ2Dk4uRjc28QiomLiEpJSgh1jFVU1dQ1NLcWOiamZuYWl lcF6g8TVzd3D08vhvdESGhYeERkViN71nJKalp6RmZXY9VJaVl5RWVWo3hMZ AoXBEUgUAGpuaW1r7+jsajQNj4yOjU9MTg2Gjxw9dvzEyVMHpw/dED7TN4hP wn+KltncG0jvfrIby/gNZvYyihvPXHg6Z7+4Ic3+doNqzIWqe/r8AiAKD4A= "]]]], "Output", TaggingRules->{}, CellChangeTimes->{{3.849198369081994*^9, 3.8491984028075027`*^9}, 3.8491984523670063`*^9, 3.849199024590124*^9, 3.8491992551280117`*^9, 3.849200834098577*^9}, CellTags->"DefaultContent", CellLabel->"Out[155]=", CellID->189480557] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell["Use real numbers instead:", "Text", TaggingRules->{}, CellChangeTimes->{{3.849198414234663*^9, 3.849198429277668*^9}, { 3.8491984794663258`*^9, 3.849198490914207*^9}}, CellTags->"DefaultContent", CellID->733310375], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"HitomezashiStitchPattern", "[", RowBox[{ RowBox[{"N", "[", RowBox[{"Pi", ",", "30"}], "]"}], ",", RowBox[{"N", "[", RowBox[{"E", ",", "25"}], "]"}]}], "]"}], "//", "Graphics"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8491983570592012`*^9, 3.849198402490059*^9}, { 3.849198497790036*^9, 3.849198504938702*^9}, {3.849199259460978*^9, 3.849199270680484*^9}, 3.8492008364222317`*^9}, CellTags->"DefaultContent", CellLabel->"In[156]:=", CellID->714245499], Cell[BoxData[ GraphicsBox[LineBox[CompressedData[" 1:eJwkl1u3uY77tX9kv98kpCghqZRIolTSVoWs/X5Zn/P/+z97vmM8B/crmGPe 87rw+//Fd+B///sfiP3vf8n//f9LJJIJIJFKpBOZRDaRS+QThUQxUUqUE5VE NVFL1BONRDMBJloJKNFOdBLdBJzoJZAEmugnBgksgSeGCSIxSowTkwSZmCao xCxBJ5gEm5gnuASfWCSExDKxSoiJdUJKbBJyYpvYJZSEmtgntISeMBKHhJk4 JqyEnXASbsJL+IlTIkiEiShxTlwS10ScuCUeEo+Jp8Rz4iXxmnhLvCc+Ep+J r8R34ifxm7gn/hL/EskkkEwl08lMMpvMJfPJQrKYLCXLyUqymqwl68lGspkE k60klGwnO8luEk72kkgSTfaTgySWxJPDJJEcJcfJSZJMTpNUcpakk0ySTc6T XJJPLpJCcplcJcXkOiklN0k5uU3ukkpSTe6TWlJPGslD0kwek1bSTjpJN+kl /eQpGSTDZJQ8Jy/JazJO3pIPycfkU/I5+ZJ8Tb4l35Mfyc/kV/I7+ZP8Td6T f/8FkQQAIAWkgQyQBXJAHigARaAElIEKUAVqQB1oAE0ABFoABLSBDtAFYKAH IAAK9IEBgAE4MAQIYASMgQlAAlOAAmYADTAAC8wBDuCBBSAAS2AFiMAakIAN IANbYAcogArsAQ3QAQM4ACZwBCzABhzABTzAB05AAIRABJyBC3AFYuAGPACP wBPwDLwAr8Ab8A58AJ/AF/AN/AC/wB34A/79FwSQSqXSqUwqm8ql8qlCqpgq pcqpSqqaqqXqqUaqmQJTrRSUaqc6qW4KTvVSSApN9VODFJbCU8MUkRqlxqlJ ikxNU1RqlqJTTIpNzVNcik8tUkJqmVqlxNQ6JaU2KTm1Te1SSkpN7VNaSk8Z qUPKTB1TVspOOSk35aX81CkVpMJUlDqnLqlrKk7dUg+px9RT6jn1knpNvaXe Ux+pz9RX6jv1k/pN3VN//xUimQbSqXQ6nUln07l0Pl1IF9OldDldSVfTtXQ9 3Ug302C6lYbS7XQn3U3D6V4aSaPpfnqQxtJ4epgm0qP0OD1Jk+lpmkrP0nSa SbPpeZpL8+lFWkgv06u0mF6npfQmLae36V1aSavpfVpL62kjfUib6WPaSttp J+2mvbSfPqWDdJiO0uf0JX1Nx+lb+iH9mH5KP6df0q/pt/R7+iP9mf5Kf6d/ 0r/pe/ov/e+/WiczQCaVSWcymWwml8lnCplippQpZyqZaqaWqWcamWYGzLQy UKad6WS6GTjTyyAZNNPPDDJYBs8MM0RmlBlnJhkyM81QmVmGzjAZNjPPcBk+ s8gImWVmlREz64yU2WTkzDazyygZNbPPaBk9Y2QOGTNzzFgZO+Nk3IyX8TOn TJAJM1HmnLlkrpk4c8s8ZB4zT5nnzEvmNfOWec98ZD4zX5nvzE/mN3PP/GX+ /VdrIJvKprOZbDaby+azhWwxW8qWs5VsNVvL1rONbDMLZltZKNvOdrLdLJzt ZZEsmu1nB1ksi2eHWSI7yo6zkyyZnWap7CxLZ5ksm51nuSyfXWSF7DK7yorZ dVbKbrJydpvdZZWsmt1ntayeNbKHrJk9Zq2snXWybtbL+tlTNsiG2Sh7zl6y 12ycvWUfso/Zp+xz9iX7mn3Lvmc/sp/Zr+x39if7m71n//57r8kckEvl0rlM LpvL5fK5Qq6YK+XKuUqumqvl6rlGrpkDc60clGvnOrluDs71ckgOzfVzgxyW w3PDHJEb5ca5SY7MTXNUbpajc0yOzc1zXI7PLXJCbplb5cTcOiflNjk5t83t ckpOze1zWk7PGblDzswdc1bOzjk5N+fl/NwpF+TCXJQ75y65ay7O3XIPucfc U+4595J7zb3l3nMfuc/cV+4795P7zd1zf7l//41EMg/kU/l0PpPP5nP5fL6Q L+ZL+XK+kq/ma/l6vpFv5sF8Kw/l2/lOvpuH8708kkfz/fwgj+Xx/DBP5Ef5 cX6SJ/PTPJWf5ek8k2fz8zyX5/OLvJBf5ld5Mb/OS/lNXs5v87u8klfz+7yW 1/NG/pA388e8lbfzTt7Ne3k/f8oH+TAf5c/5S/6aj/O3/EP+Mf+Uf86/5F/z b/n3/Ef+M/+V/87/5H/z9/xf/t9/U5csAIVUIV3IFLKFXCFfKBSKhVKhXKgU qoVaoV5oFJoFsNAqQIV2oVPoFuBCr4AU0EK/MChgBbwwLBCFUWFcmBTIwrRA FWYFusAU2MK8wBX4wqIgFJaFVUEsrAtSYVOQC9vCrqAU1MK+oBX0glE4FMzC sWAV7IJTcAtewS+cCkEhLESFc+FSuBbiwq3wUHgsPBWeCy+F18Jb4b3wUfgs fBW+Cz+F38K98Ff4999gJ4tAMVVMFzPFbDFXzBcLxWKxVCwXK8VqsVasFxvF ZhEstopQsV3sFLtFuNgrIkW02C8OilgRLw6LRHFUHBcnRbI4LVLFWZEuMkW2 OC9yRb64KArFZXFVFIvrolTcFOXitrgrKkW1uC9qRb1oFA9Fs3gsWkW76BTd olf0i6diUAyLUfFcvBSvxbh4Kz4UH4tPxefiS/G1+FZ8L34UP4tfxe/iT/G3 eC/+Ff/9hx3JElBKldKlTClbypXypUKpWCqVyqVKqVqqleqlRqlZAkutElRq lzqlbgku9UpICS31S4MSVsJLwxJRGpXGpUmJLE1LVGlWoktMiS3NS1yJLy1K QmlZWpXE0roklTYlubQt7UpKSS3tS1pJLxmlQ8ksHUtWyS45JbfklfzSqRSU wlJUOpcupWspLt1KD6XH0lPpufRSei29ld5LH6XP0lfpu/RT+i3dS3+lf//B U7IMlFPldDlTzpZz5Xy5UC6WS+VyuVKulmvlerlRbpbBcqsMldvlTrlbhsu9 MlJGy/3yoIyV8fKwTJRH5XF5UibL0zJVnpXpMlNmy/MyV+bLi7JQXpZXZbG8 LkvlTVkub8u7slJWy/uyVtbLRvlQNsvHslW2y07ZLXtlv3wqB+WwHJXP5Uv5 Wo7Lt/JD+bH8VH4uv5Rfy2/l9/JH+bP8Vf4u/5R/y/fyX/nff/AEVFKVdCVT yVZylXylUClWSpVypVKpVmqVeqVRaVbASqsCVdqVTqVbgSu9ClJBK/3KoIJV 8MqwQlRGlXFlUiEr0wpVmVXoClNhK/MKV+Eri4pQWVZWFbGyrkiVTUWubCu7 ilJRK/uKVtErRuVQMSvHilWxK07FrXgVv3KqBJWwElXOlUvlWokrt8pD5bHy VHmuvFReK2+V98pH5bPyVfmu/FR+K/fK33/4B1RT1XQ1U81Wc9V8tVAtVkvV crVSrVZr1Xq1UW1WwWqrClXb1U61W4WrvSpSRav96qCKVfHqsEpUR9VxdVIl q9MqVZ1V6SpTZavzKlflq4uqUF1WV1Wxuq5K1U1Vrm6ru6pSVav7qlbVq0b1 UDWrx6pVtatO1a16Vb96qgbVsBpVz9VL9VqNq7fqQ/Wx+lR9rr5UX6tv1ffq R/Wz+lX9rv5Uf6v36t9/AAvUUrV0LVPL1nK1fK1QK9ZKtXKtUqvWarV6rVFr 1sBaqwbV2rVOrVuDa70aUkNr/dqghtXw2rBG1Ea1cW1SI2vTGlWb1egaU2Nr 8xpX42uLmlBb1lY1sbauSbVNTa5ta7uaUlNr+5pW02tG7VAza8eaVbNrTs2t eTW/dqoFtbAW1c61S+1ai2u32kPtsfZUe6691F5rb7X32kfts/ZV+6791H5r 99rffwgO1FP1dD1Tz9Zz9Xy9UC/WS/VyvVKv1mv1er1Rb9bBeqsO1dv1Tr1b h+u9OlJH6/36oI7V8fqwTtRH9XF9Uifr0zpVn9XpOlNn6/M6V+fri7pQX9ZX dbG+rkv1TV2ub+u7ulJX6/u6VtfrRv1QN+vHulW3607drXt1v36qB/WwHtXP 9Uv9Wo/rt/pD/bH+VH+uv9Rf62/19/pH/bP+Vf+u/9R/6/f6338qlGwAjVQj 3cg0so1cI98oNIqNUqPcqDSqjVqj3mg0mg2w0WpAjXaj0+g24EavgTTQRr8x aGANvDFsEI1RY9yYNMjGtEE1Zg26wTTYxrzBNfjGoiE0lo1VQ2ysG1Jj05Ab 28auoTTUxr6hNfSG0Tg0zMaxYTXshtNwG17Db5waQSNsRI1z49K4NuLGrfHQ eGw8NZ4bL43XxlvjvfHR+Gx8Nb4bP43fxr3x1/j3nwoBzVQz3cw0s81cM98s NIvNUrPcrDSrzVqz3mw0m02w2WpCzXaz0+w24WaviTTRZr85aGJNvDlsEs1R c9ycNMnmtEk1Z026yTTZ5rzJNfnmoik0l81VU2yum1Jz05Sb2+auqTTV5r6p NfWm0Tw0zeaxaTXtptN0m17Tb56aQTNsRs1z89K8NuPmrfnQfGw+NZ+bL83X 5lvzvfnR/Gx+Nb+bP83f5r3595+SJkEATIFpMANmwRyYBwtgESyBZbACVsEa WAcbYBMEwRYIgW2wA3ZBGOyBCIiCfXAAYiAODkECHIFjcAKS4BSkwBlIgwzI gnOQA3lwAQrgElyBIrgGJXADyuAW3IEKqIJ7UAN10AAPoAkeQQu0QQd0QQ/0 wRMYgCEYgWfwAl7BGLyBD+Aj+AQ+gy/gK/gGvoMf4Cf4BX6DP+AveAf/wH// KSnQSrXSrUwr28q18q1Cq9gqtcqtSqvaqrXqrUar2QJbrRbUarc6rW4LbvVa SAtt9VuDFtbCW8MW0Rq1xq1Ji2xNW1Rr1qJbTIttzVtci28tWkJr2Vq1xNa6 JbU2Lbm1be1aSktt7VtaS28ZrUPLbB1bVstuOS235bX81qkVtMJW1Dq3Lq1r K27dWg+tx9ZT67n10nptvbXeWx+tz9ZX67v10/pt3Vt/rQSUhAAoBaWhDJSF clAeKkBFqASVoQpUhWpQHWpATQiEWhAEtaEO1IVgqAchEAr1oQGEQTg0hAho BI2hCURCU4iCZhANMRALzSEO4qEFJEBLaAWJ0BqSoA0kQ1toBymQCu0hDdIh AzpAJnSELMiGHMiFPMiHTlAAhVAEnaELdIVi6AY9QI/QE/QMvUCv0Bv0Dn1A n9AX9A39QL/QHfqD/kHJNtBOtdPtTDvbzrXz7UK72C61y+1Ku9qutevtRrvZ BtutNtRutzvtbhtu99pIG23324M21sbbwzbRHrXH7UmbbE/bVHvWpttMm23P 21ybby/aQnvZXrXF9rottTdtub1t79pKW23v21pbbxvtQ9tsH9tW2247bbft tf32qR20w3bUPrcv7Ws7bt/aD+3H9lP7uf3Sfm2/td/bH+3P9lf7u/3T/m3f 23/tZAfopDrpTqaT7eQ6+U6hU+yUOuVOpVPt1Dr1TqPT7ICdVgfqtDudTrcD d3odpIN2+p1BB+vgnWGH6Iw6486kQ3amHaoz69AdpsN25h2uw3cWHaGz7Kw6 YmfdkTqbjtzZdnYdpaN29h2to3eMzqFjdo4dq2N3nI7b8Tp+59QJOmEn6pw7 l861E3dunYfOY+ep89x56bx23jrvnY/OZ+er89356fx27p2/TrILdFPddDfT zXZz3Xy30C12S91yt9KtdmvderfRbXbBbqsLddvdTrfbhbu9LtJFu/3uoIt1 8e6wS3RH3XF30iW70y7VnXXpLtNlu/Mu1+W7i67QXXZXXbG77krdTVfubru7 rtJVu/uu1tW7RvfQNbvHrtW1u07X7Xpdv3vqBt2wG3XP3Uv32o27t+5D97H7 1H3uvnRfu2/d9+5H97P71f3u/nR/u/fuXzcBJ2EATsFpOANn4RychwtwES7B ZbgCV+EaXIcbcBMG4RYMwW24A3dhGO7BCIzCfXgAYzAOD2ECHsFjeAKT8BSm 4BlMwwzMwnOYg3l4AQvwEl7BIryGJXgDy/AW3sEKrMJ7WIN12IAPsAkfYQu2 YQd2YQ/24RMcwCEcwWf4Al/hGL7BD/Aj/AQ/wy/wK/wGv8Mf8Cf8BX/DP/Av fIf/4H9wsgf0Ur10L9PL9nK9fK/QK/ZKvXKv0qv2ar16r9Fr9sBeqwf12r1O r9uDe70e0kN7/d6gh/Xw3rBH9Ea9cW/SI3vTHtWb9ege02N78x7X43uLntBb 9lY9sbfuSb1NT+5te7ue0lN7+57W03tG79Aze8ee1bN7Ts/teT2/d+oFvbAX 9c69S+/ai3u33kPvsffUe+699F57b7333kfvs/fV++799H57995fL4EkEQBJ IWkkg2SRHJJHCkgRKSFlpIJUkRpSRxpIEwGRFgIhbaSDdBEY6SEIgiJ9ZIBg CI4MEQIZIWNkgpDIFKGQGUIjDMIic4RDeGSBCMgSWSEiskYkZIPIyBbZIQqi IntEQ3TEQA6IiRwRC7ERB3ERD/GRExIgIRIhZ+SCXJEYuSEPyCPyhDwjL8gr 8oa8Ix/IJ/KFfCM/yC9yR/6Qf0gCTaIAmkLTaAbNojk0jxbQIlpCy2gFraI1 tI420CYKoi0UQttoB+2iMNpDERRF++gAxVAcHaIEOkLH6AQl0SlKoTOURhmU Recoh/LoAhXQJbpCRXSNSugGldEtukMVVEX3qIbqqIEeUBM9ohZqow7qoh7q oyc0QEM0Qs/oBb2iMXpDH9BH9Al9Rl/QV/QNfUc/0E/0C/1Gf9Bf9I7+of/Q ZB/op/rpfqaf7ef6+X6hX+yX+uV+pV/t1/r1fqPf7IP9Vh/qt/udfrcP93t9 pI/2+/1BH+vj/WGf6I/64/6kT/anfao/69N9ps/2532uz/cXfaG/7K/6Yn/d l/qbvtzf9nd9pa/2932tr/eN/qFv9o99q2/3nb7b9/p+/9QP+mE/6p/7l/61 H/dv/Yf+Y/+p/9x/6b/23/rv/Y/+Z/+r/93/6f/27/2/fnIADFKD9CAzyA5y g/ygMCgOSoPyoDKoDmqD+qAxaA7AQWsADdqDzqA7gAe9ATJAB/3BYIAN8MFw QAxGg/FgMiAH0wE1mA3oATNgB/MBN+AHi4EwWA5WA3GwHkiDzUAebAe7gTJQ B/uBNtAHxuAwMAfHgTWwB87AHXgDf3AaBINwEA3Og8vgOogHt8HD4HHwNHge vAxeB2+D98HH4HPwNfge/Ax+B/fB3yCJAVgKS2MZLIvlsDxWwIpYCStjFayK 1bA61sCaGIi1MAhrYx2si8FYD0MwFOtjAwzDcGyIEdgIG2MTjMSmGIXNMBpj MBabYxzGYwtMwJbYChOxNSZhG0zGttgOUzAV22MapmMGdsBM7IhZmI05mIt5 mI+dsAALsQg7YxfsisXYDXvAHrEn7Bl7wV6xN+wd+8A+sS/sG/vBfrE79ocl 8CQO4Ck8jWfwLJ7D83gBL+IlvIxX8Cpew+t4A2/iIN7CIbyNd/AuDuM9HMFR vI8PcAzH8SFO4CN8jE9wEp/iFD7DaZzBWXyOcziPL3ABX+IrXMTXuIRvcBnf 4jtcwVV8j2u4jhv4ATfxI27hNu7gLu7hPn7CAzzEI/yMX/ArHuM3/AF/xJ/w Z/wFf8Xf8Hf8A//Ev/Bv/Af/xe/4H/4PTw6BYWqYHmaG2WFumB8WhsVhaVge VobVYW1YHzaGzSE4bA2hYXvYGXaH8LA3RIbosD8cDLEhPhwOieFoOB5OhuRw OqSGsyE9ZIbscD7khvxwMRSGy+FqKA7XQ2m4GcrD7XA3VIbqcD/UhvrQGB6G 5vA4tIb20Bm6Q2/oD0/DYBgOo+F5eBleh/HwNnwYPg6fhs/Dl+Hr8G34PvwY fg6/ht/Dn+Hv8D78GyaIJAEQKSJNZIgskSPyRIEoEiWiTFSIKlEj6kSDaBIg 0SIgok10iC4BEz0CIVCiTwwIjMCJIUEQI2JMTAiSmBIUMSNogiFYYk5wBE8s CIFYEitCJNaERGwImdgSO0IhVGJPaIROGMSBMIkjYRE24RAu4RE+cSICIiQi 4kxciCsREzfigXgknohn4oV4Jd6Id+KD+CS+iG/ih/gl7sQf8Y9IjoBRapQe ZUbZUW6UHxVGxVFpVB5VRtVRbVQfNUbNEThqjaBRe9QZdUfwqDdCRuioPxqM sBE+Go6I0Wg0Hk1G5Gg6okazET1iRuxoPuJG/GgxEkbL0WokjtYjabQZyaPt aDdSRupoP9JG+sgYHUbm6DiyRvbIGbkjb+SPTqNgFI6i0Xl0GV1H8eg2ehg9 jp5Gz6OX0evobfQ++hh9jr5G36Of0e/oPvobJcfAODVOjzPj7Dg3zo8L4+K4 NC6PK+PquDaujxvj5hgct8bQuD3ujLtjeNwbI2N03B8PxtgYHw/HxHg0Ho8n Y3I8HVPj2ZgeM2N2PB9zY368GAvj5Xg1FsfrsTTejOXxdrwbK2N1vB9rY31s jA9jc3wcW2N77IzdsTf2x6dxMA7H0fg8voyv43h8Gz+MH8dP4+fxy/h1/DZ+ H3+MP8df4+/xz/h3fB//jZMTYJKapCeZSXaSm+QnhUlxUpqUJ5VJdVKb1CeN SXMCTloTaNKedCbdCTzpTZAJOulPBhNsgk+GE2Iymownkwk5mU6oyWxCT5gJ O5lPuAk/WUyEyXKymoiT9USabCbyZDvZTZSJOtlPtIk+MSaHiTk5TqyJPXEm 7sSb+JPTJJiEk2hynlwm10k8uU0eJo+Tp8nz5GXyOnmbvE8+Jp+Tr8n35Gfy O7lP/iYJMkkCZIpMkxkyS+bIPFkgi2SJLJMVskrWyDrZIJskSLZIiGyTHbJL wmSPREiU7JMDEiNxckgS5IgckxOSJKckRc5ImmRIlpyTHMmTC1Igl+SKFMk1 KZEbUia35I5USJXckxqpkwZ5IE3ySFqkTTqkS3qkT57IgAzJiDyTF/JKxuSN fCAfySfymXwhX8k38p38ID/JL/Kb/CF/yTv5R/4jk1Ngmpqmp5lpdpqb5qeF aXFampanlWl1WpvWp41pcwpOW1No2p52pt0pPO1NkSk67U8HU2yKT4dTYjqa jqeTKTmdTqnpbEpPmSk7nU+5KT9dTIXpcrqaitP1VJpupvJ0O91Nlak63U+1 qT41poepOT1Orak9dabu1Jv609M0mIbTaHqeXqbXaTy9TR+mj9On6fP0Zfo6 fZu+Tz+mn9Ov6ff0Z/o7vU//pgkqSQFUikpTGSpL5ag8VaCKVIkqUxWqStWo OtWgmhRItSiIalMdqkvBVI9CKJTqUwMKo3BqSBHUiBpTE4qkphRFzSiaYiiW mlMcxVMLSqCW1IoSqTUlURtKprbUjlIoldpTGqVTBnWgTOpIWZRNOZRLeZRP naiACqmIOlMX6krF1I16oB6pJ+qZeqFeqTfqnfqgPqkv6pv6oX6pO/VH/aOS M2CWmqVnmVl2lpvlZ4VZcVaalWeVWXVWm9VnjVlzBs5aM2jWnnVm3Rk8682Q GTrrzwYzbIbPhjNiNpqNZ5MZOZvOqNlsRs+YGTubz7gZP1vMhNlytpqJs/VM mm1m8mw7282UmTrbz7SZPjNmh5k5O86smT1zZu7Mm/mz0yyYhbNodp5dZtdZ PLvNHmaPs6fZ8+xl9jp7m73PPmafs6/Z9+xn9ju7z/5mCTpJA3SKTtMZOkvn 6DxdoIt0iS7TFbpK1+g63aCbNEi3aIhu0x26S8N0j0ZolO7TAxqjcXpIE/SI HtMTmqSnNEXPaJpmaJae0xzN0wtaoJf0ihbpNS3RG1qmt/SOVmiV3tMardMG faBN+khbtE07tEt7tE+f6IAO6Yg+0xf6Ssf0jX6gH+kn+pl+oV/pN/qd/qA/ 6S/6m/6hf+k7/Uf/oxNMkgGYFJNmMkyWyTF5psAUmRJTZipMlakxdabBNBmQ aTEQ02Y6TJeBmR6DMCjTZwYMxuDMkCGYETNmJgzJTBmKmTE0wzAsM2c4hmcW jMAsmRUjMmtGYjaMzGyZHaMwKrNnNEZnDObAmMyRsRibcRiX8RifOTEBEzIR c2YuzJWJmRvzwDwyT8wz88K8Mm/MO/PBfDJfzDfzw/wyd+aP+cck2CQLsCk2 zWbYLJtj82yBLbIltsxW2CpbY+tsg22yINtiIbbNdtguC7M9FmFRts8OWIzF 2SFLsCN2zE5Ykp2yFDtjaZZhWXbOcizPLliBXbIrVmTXrMRuWJndsjtWYVV2 z2qszhrsgTXZI2uxNuuwLuuxPntiAzZkI/bMXtgrG7M39oF9ZJ/YZ/aFfWXf 2Hf2g/1kv9hv9of9Ze/sH/uPTc6BeWqenmfm2Xlunp8X5sV5aV6eV+bVeW1e nzfmzTk4b82heXvemXfn8Lw3R+bovD8fzLE5Ph/OifloPp5P5uR8Oqfmszk9 Z+bsfD7n5vx8MRfmy/lqLs7Xc2m+mcvz7Xw3V+bqfD/X5vrcmB/m5vw4t+b2 3Jm7c2/uz0/zYB7Oo/l5fplf5/H8Nn+YP86f5s/zl/nr/G3+Pv+Yf86/5t/z n/nv/D7/mye4JAdwKS7NZbgsl+PyXIErciWuzFW4Klfj6lyDa3Ig1+Igrs11 uC4Hcz0O4VCuzw04jMO5IUdwI27MTTiSm3IUN+NojuFYbs5xHM8tOIFbcitO 5NacxG04mdtyO07hVG7PaZzOGdyBM7kjZ3E253Au53E+d+ICLuQi7sxduCsX czfugXvknrhn7oV75d64d+6D++S+uG/uh/vl7twf949L8Eke4FN8ms/wWT7H 5/kCX+RLfJmv8FW+xtf5Bt/kQb7FQ3yb7/BdHuZ7PMKjfJ8f8BiP80Oe4Ef8 mJ/wJD/lKX7G0zzDs/yc53ieX/ACv+RXvMiveYnf8DK/5Xe8wqv8ntd4nTf4 A2/yR97ibd7hXd7jff7EB3zIR/yZv/BXPuZv/AP/yD/xz/wL/8q/8e/8B//J f/Hf/A//y9/5P/4fn1wAi9QivcgssovcIr8oLIqL0qK8qCyqi9qivmgsmgtw 0VpAi/ais+gu4EVvgSzQRX8xWGALfDFcEIvRYryYLMjFdEEtZgt6wSzYxXzB LfjFYiEslovVQlysF9Jis5AX28VuoSzUxX6hLfSFsTgszMVxYS3shbNwF97C X5wWwSJcRIvz4rK4LuLFbfGweFw8LZ4XL4vXxdviffGx+Fx8Lb4XP4vfxX3x t0gISQEQUkJayAhZISfkhYJQFEpCWagIVaEm1IWG0BRAoSVAQlvoCF0BFnoC IqBCXxgImIALQ4EQRsJYmAikMBUoYSbQAiOwwlzgBF5YCIKwFFaCKKwFSdgI srAVdoIiqMJe0ARdMISDYApHwRJswRFcwRN84SQEQihEwlm4CFchFm7Cg/Ao PAnPwovwKrwJ78KH8Cl8Cd/Cj/Ar3IU/4Z+QXALL1DK9zCyzy9wyvywsi8vS srysLKvL2rK+bCybS3DZWkLL9rKz7C7hZW+JLNFlfzlYYkt8OVwSy9FyvJws yeV0SS1nS3rJLNnlfMkt+eViKSyXy9VSXK6X0nKzlJfb5W6pLNXlfqkt9aWx PCzN5XFpLe2ls3SX3tJfnpbBMlxGy/Pysrwu4+Vt+bB8XD4tn5cvy9fl2/J9 +bH8XH4tv5c/y9/lffm3TK6AVWqVXmVW2VVulV8VVsVVaVVeVVbVVW1VXzVW zRW4aq2gVXvVWXVX8Kq3Qlboqr8arLAVvhquiNVoNV5NVuRquqJWsxW9Ylbs ar7iVvxqsRJWy9VqJa7WK2m1Wcmr7Wq3Ulbqar/SVvrKWB1W5uq4slb2ylm5 K2/lr06rYBWuotV5dVldV/HqtnpYPa6eVs+rl9Xr6m31vvpYfa6+Vt+rn9Xv 6r76WyXEpAiIKTEtZsSsmBPzYkEsiiWxLFbEqlgT62JDbIqg2BIhsS12xK4I iz0REVGxLw5ETMTFoUiII3EsTkRSnIqUOBNpkRFZcS5yIi8uREFciitRFNei JG5EWdyKO1ERVXEvaqIuGuJBNMWjaIm26Iiu6Im+eBIDMRQj8SxexKsYizfx QXwUn8Rn8UV8Fd/Ed/FD/BS/xG/xR/wV7+Kf+E9MroF1ap1eZ9bZdW6dXxfW xXVpXV5X1tV1bV1fN9bNNbhuraF1e91Zd9fwurdG1ui6vx6ssTW+Hq6J9Wg9 Xk/W5Hq6ptazNb1m1ux6vubW/HqxFtbL9Wotrtdrab1Zy+vterdW1up6v9bW +tpYH9bm+ri21vbaWbtrb+2vT+tgHa6j9Xl9WV/X8fq2flg/rp/Wz+uX9ev6 bf2+/lh/rr/W3+uf9e/6vv5bJ6SkBEgpKS1lpKyUk/JSQSpKJaksVaSqVJPq UkNqSqDUkiCpLXWkrgRLPQmRUKkvDSRMwqWhREgjaSxNJFKaSpQ0k2iJkVhp LnESLy0kQVpKK0mU1pIkbSRZ2ko7SZFUaS9pki4Z0kEypaNkSbbkSK7kSb50 kgIplCLpLF2kqxRLN+lBepSepGfpRXqV3qR36UP6lL6kb+lH+pXu0p/0T0pu gE1qk95kNtlNbpPfFDbFTWlT3lQ21U1tU980Ns0NuGltoE1709l0N/Cmt0E2 6Ka/GWywDb4ZbojNaDPeTDbkZrqhNrMNvWE27Ga+4Tb8ZrERNsvNaiNu1htp s9nIm+1mt1E26ma/0Tb6xtgcNubmuLE29sbZuBtv429Om2ATbqLNeXPZXDfx 5rZ52DxunjbPm5fN6+Zt87752Hxuvjbfm5/N7+a++dsk5KQMyCk5LWfkrJyT 83JBLsoluSxX5Kpck+tyQ27KoNySIbktd+SuDMs9GZFRuS8PZEzG5aFMyCN5 LE9kUp7KlDyTaZmRWXkuczIvL2RBXsorWZTXsiRvZFneyjtZkVV5L2uyLhvy QTblo2zJtuzIruzJvnySAzmUI/ksX+SrHMs3+UF+lJ/kZ/lFfpXf5Hf5Q/6U v+Rv+Uf+le/yn/xPTm6BbWqb3ma22W1um98WtsVtaVveVrbVbW1b3za2zS24 bW2hbXvb2Xa38La3Rbbotr8dbLEtvh1uie1oO95OtuR2uqW2sy29Zbbsdr7l tvx2sRW2y+1qK27XW2m72crb7Xa3Vbbqdr/VtvrW2B625va4tbb21tm6W2/r b0/bYBtuo+15e9let/H2tn3YPm6fts/bl+3r9m37vv3Yfm6/tt/bn+3v9r79 2yZ3wC61S+8yu+wut8vvCrvirrQr7yq76q62q+8au+YO3LV20K696+y6O3jX 2yE7dNffDXbYDt8Nd8RutBvvJjtyN91Ru9mO3jE7djffcTt+t9gJu+VutRN3 65202+zk3Xa32yk7dbffaTt9Z+wOO3N33Fk7e+fs3J2383enXbALd9HuvLvs rrt4d9s97B53T7vn3cvudfe2e9997D53X7vv3c/ud3ff/e0SSlIBlJSSVjJK VskpeaWgFJWSUlYqSlWpKXWloTQVUGkpkNJWOkpXgZWegiio0lcGCqbgylAh lJEyViYKqUwVSpkptMIorDJXOIVXFoqgLJWVIiprRVI2iqxslZ2iKKqyVzRF VwzloJjKUbEUW3EUV/EUXzkpgRIqkXJWLspViZWb8qA8Kk/Ks/KivCpvyrvy oXwqX8q38qP8KnflT/mnJNSkCqgpNa1m1KyaU/NqQS2qJbWsVtSqWlPrakNt qqDaUiG1rXbUrgqrPRVRUbWvDlRMxdWhSqgjdaxOVFKdqpQ6U2mVUVl1rnIq ry5UQV2qK1VU16qkblRZ3ao7VVFVda9qqq4a6kE11aNqqbbqqK7qqb56UgM1 VCP1rF7UqxqrN/VBfVSf1Gf1RX1V39R39UP9VL/Ub/VH/VXv6p/6T03ugX1q n95n9tl9bp/fF/bFfWlf3lf21X1tX9839s09uG/toX1739l39/C+t0f26L6/ H+yxPb4f7on9aD/eT/bkfrqn9rM9vWf27H6+5/b8frEX9sv9ai/u13tpv9nL ++1+t1f26n6/1/b63tgf9ub+uLf29t7Zu3tv7+9P+2Af7qP9eX/ZX/fx/rZ/ 2D/un/bP+5f96/5t/77/2H/uv/bf+5/97/6+/9sntKQGaCktrWW0rJbT8lpB K2olraxVtKpW0+paQ2tqoNbSIK2tdbSuBms9DdFQra8NNEzDtaFGaCNtrE00 UptqlDbTaI3RWG2ucRqvLTRBW2orTdTWmqRtNFnbajtN0VRtr2marhnaQTO1 o2ZptuZoruZpvnbSAi3UIu2sXbSrFms37UF71J60Z+1Fe9XetHftQ/vUvrRv 7Uf71e7an/ZPS+qAntLTekbP6jk9rxf0ol7Sy3pFr+o1va439KYO6i0d0tt6 R+/qsN7TER3V+/pAx3RcH+qEPtLH+kQn9alO6TOd1hmd1ec6p/P6Qhf0pb7S RX2tS/pGl/WtvtMVXdX3uqbruqEfdFM/6pZu647u6p7u6yc90EM90s/6Rb/q sX7TH/RH/Ul/1l/0V/1Nf9c/9E/9S//Wf/Rf/a7/6QkjaQBGykgbGSNr5Iy8 UTCKRskoGxWjatSMutEwmgZotAzIaBsdo2vARs9ADNToGwMDM3BjaBDGyBgb E4M0pgZlzAzaYAzWmBucwRsLQzCWxsoQjbUhGRtDNrbGzlAM1dgbmqEbhnEw TONoWIZtOIZreIZvnIzACI3IOBsX42rExs14MB6NJ+PZeDFejTfj3fgwPo0v 49v4MX6Nu/Fn/DOSB+CQOqQPmUP2kDvkD4VD8VA6lA+VQ/VQO9QPjUPzAB5a B+jQPnQO3QN86B2QA3roHwYH7IAfhgfiMDqMD5MDeZgeqMPsQB+YA3uYH7gD f1gchMPysDqIh/VBOmwO8mF72B2Ug3rYH7SDfjAOh4N5OB6sg31wDu7BO/iH 0yE4hIfocD5cDtdDfLgdHg6Ph6fD8+Hl8Hp4O7wfPg6fh6/D9+Hn8Hu4H/4O CTNpAmbKTJsZM2vmzLxZMItmySybFbNq1sy62TCbJmi2TMhsmx2za8Jmz0RM 1OybAxMzcXNoEubIHJsTkzSnJmXOTNpkTNacm5zJmwtTMJfmyhTNtSmZG1M2 t+bOVEzV3JuaqZuGeTBN82hapm06pmt6pm+ezMAMzcg8mxfzasbmzXwwH80n 89l8MV/NN/Pd/DA/zS/z2/wxf827+Wf+M5NH4Jg6po+ZY/aYO+aPhWPxWDqW j5Vj9Vg71o+NY/MIHltH6Ng+do7dI3zsHZEjeuwfB0fsiB+HR+I4Oo6PkyN5 nB6p4+xIH5kje5wfuSN/XByF4/K4OorH9VE6bo7ycXvcHZWjetwftaN+NI6H o3k8Hq2jfXSO7tE7+sfTMTiGx+h4Pl6O12N8vB0fjo/Hp+Pz8eX4enw7vh8/ jp/Hr+P38ef4e7wf/44JK2kBVspKWxkra+WsvFWwilbJKlsVq2rVrLrVsJoW aLUsyGpbHatrwVbPQizU6lsDC7Nwa2gR1sgaWxOLtKYWZc0s2mIs1ppbnMVb C0uwltbKEq21JVkbS7a21s5SLNXaW5qlW4Z1sEzraFmWbTmWa3mWb52swAqt yDpbF+tqxdbNerAerSfr2XqxXq036936sD6tL+vb+rF+rbv1Z/2zEnbSBuyU nbYzdtbO2Xm7YBftkl22K3bVrtl1u2E3bdBu2ZDdtjt214btno3YqN23BzZm 4/bQJuyRPbYnNmlPbcqe2bTN2Kw9tzmbtxe2YC/tlS3aa1uyN7Zsb+2drdiq vbc1W7cN+2Cb9tG2bNt2bNf2bN8+2YEd2pF9ti/21Y7tm/1gP9pP9rP9Yr/a b/a7/WF/2l/2t/1j/9p3+8/+ZyecpAM4KSftZJysk3PyTsEpOiWn7FScqlNz 6k7DaTqg03Igp+10nK4DOz0HcVCn7wwczMGdoUM4I2fsTBzSmTqUM3Noh3FY Z+5wDu8sHMFZOitHdNaO5Gwc2dk6O0dxVGfvaI7uGM7BMZ2jYzm24ziu4zm+ c3ICJ3Qi5+xcnKsTOzfnwXl0npxn58V5dd6cd+fD+XS+nG/nx/l17s6f889J uEkXcFNu2s24WTfn5t2CW3RLbtmtuFW35tbdhtt0QbflQm7b7bhdF3Z7LuKi bt8duJiLu0OXcEfu2J24pDt1KXfm0i7jsu7c5VzeXbiCu3RXruiuXcnduLK7 dXeu4qru3tVc3TXcg2u6R9dybddxXddzfffkBm7oRu7ZvbhXN3Zv7oP76D65 z+6L++q+ue/uh/vpfrnf7o/7697dP/efm/CSHuClvLSX8bJezst7Ba/olbyy V/GqXs2rew2v6YFey4O8ttfxuh7s9TzEQ72+N/AwD/eGHuGNvLE38Uhv6lHe zKM9xmO9ucd5vLfwBG/prTzRW3uSt/Fkb+vtPMVTvb2nebpneAfP9I6e5dme 47me5/neyQu80Iu8s3fxrl7s3bwH79F78p69F+/Ve/PevQ/v0/vyvr0f79e7 e3/ePy/hJ33AT/lpP+Nn/Zyf9wt+0S/5Zb/iV/2aX/cbftMH/ZYP+W2/43d9 2O/5iI/6fX/gYz7uD33CH/ljf+KT/tSn/JlP+4zP+nOf83l/4Qv+0l/5or/2 JX/jy/7W3/mKr/p7X/N13/APvukffcu3fcd3fc/3/ZMf+KEf+Wf/4l/92L/5 D/6j/+Q/+y/+q//mv/sf/qf/5X/7P/6vf/f//H9+8gScUqf0KXPKnnKn/Klw Kp5Kp/Kpcqqeaqf6qXFqnsBT6wSd2qfOqXuCT70TckJP/dPghJ3w0/BEnEan 8WlyIk/TE3WanegTc2JP8xN34k+Lk3BanlYn8bQ+SafNST5tT7uTclJP+5N2 0k/G6XAyT8eTdbJPzsk9eSf/dDoFp/AUnc6ny+l6ik+308Pp8fR0ej69nF5P b6f308fp8/R1+j79nH5P99PfKREkAyBIBekgE2SDXJAPCkExKAXloBJUg1pQ DxpBMwCDVgAF7aATdAM46AVIgAb9YBBgAR4MAyIYBeNgEpDBNKCCWUAHTMAG 84AL+GARCMEyWAVisA6kYBPIwTbYBUqgBvtAC/TACA6BGRwDK7ADJ3ADL/CD UxAEYRAF5+ASXIM4uAUPwWPwFDwHL8Fr8Ba8Bx/BZ/AVfAc/wW9wD/6Cf0Ei TIZAmArTYSbMhrkwHxbCYlgKy2ElrIa1sB42wmYIhq0QCtthJ+yGcNgLkRAN ++EgxEI8HIZEOArH4SQkw2lIhbOQDpmQDechF/LhIhTCZbgKxXAdSuEmlMNt uAuVUA33oRbqoREeQjM8hlZoh07ohl7oh6cwCMMwCs/hJbyGcXgLH8LH8Cl8 Dl/C1/AtfA8/ws/wK/wOf8Lf8B7+hf/CRJSMgCgVpaNMlI1yUT4qRMWoFJWj SlSNalE9akTNCIxaERS1o07UjeCoFyERGvWjQYRFeDSMiGgUjaNJREbTiIpm ER0xERvNIy7io0UkRMtoFYnROpKiTSRH22gXKZEa7SMt0iMjOkRmdIysyI6c yI28yI9OURCFURSdo0t0jeLoFj1Ej9FT9By9RK/RW/QefUSf0Vf0Hf1Ev9E9 +ov+RckzcE6d0+fMOXvOnfPnwrl4Lp3L58q5eq6d6+fGuXkGz60zdG6fO+fu GT73zsgZPffPgzN2xs/DM3EencfnyZk8T8/UeXamz8yZPc/P3Jk/L87CeXle ncXz+iydN2f5vD3vzspZPe/P2lk/G+fD2Twfz9bZPjtn9+yd/fPpHJzDc3Q+ ny/n6zk+384P58fz0/n5/HJ+Pb+d388f58/z1/n7/HP+Pd/Pf+fkBbikLulL 5pK95C75S+FSvJQu5UvlUr3ULvVL49K8gJfWBbq0L51L9wJfehfkgl76l8EF u+CX4YW4jC7jy+RCXqYX6jK70Bfmwl7mF+7CXxYX4bK8rC7iZX2RLpuLfNle dhflol72F+2iX4zL4WJejhfrYl+ci3vxLv7ldAku4SW6nC+Xy/USX26Xh8vj 5enyfHm5vF7eLu+Xj8vn5evyffm5/F7ul79L8gpcU9f0NXPNXnPX/LVwLV5L 1/K1cq1ea9f6tXFtXsFr6wpd29fOtXuFr70rckWv/evgil3x6/BKXEfX8XVy Ja/TK3WdXekrc2Wv8yt35a+Lq3BdXldX8bq+StfNVb5ur7urclWv+6t21a/G 9XA1r8erdbWvztW9elf/eroG1/AaXc/Xy/V6ja+368P18fp0fb6+XF+vb9f3 68f18/p1/b7+XH+v9+vfNREnYyBOxek4E2fjXJyPC3ExLsXluBJX41pcjxtx MwbjVgzF7bgTd2M47sVIjMb9eBBjMR4PYyIexeN4EpPxNKbiWUzHTMzG85iL +XgRC/EyXsVivI6leBPL8TbexUqsxvtYi/XYiA+xGR9jK7ZjJ3ZjL/bjUxzE YRzF5/gSX+M4vsUP8WP8FD/HL/Fr/Ba/xx/xZ/wVf8c/8W98j//if3HilrwB t9QtfcvcsrfcLX8r3Iq30q18q9yqt9qtfmvcmjfw1rpBt/atc+ve4FvvhtzQ W/82uGE3/Da8EbfRbXyb3Mjb9EbdZjf6xtzY2/zG3fjb4ibclrfVTbytb9Jt c5Nv29vuptzU2/6m3fSbcTvczNvxZt3sm3Nzb97Nv51uwS28Rbfz/6vmPtAR DAMAAD9FtgaShLITIqMQqexC69t73f8MruE/yPtOhpPRZDyZTMAETtAET8iE TtiET8RETtRET8zETtzET8IkFoFAIB6L//seIAr0fzoCsD8RAbgfBZI/GwFw PxcBUB8FKh8FBh8F4h4Fvr4cAZyejCX/PT1PxVL/npanY+l/T8czscy/p+Er EYDfqxFA3WsRQNvZWPbfk+wocOtcLPfvOfVGBLB0Ppb/9xw6CtS5ECv8e8oc BaYcBYK8EwFgXIwV/z0hLkUACEeB/+5FAPfuRwDvHkQA5h5GAN4eRQDWRoHN lmPlf89io0BeK7HKvyetpxEAq1GgqOcRgKbVCCDSKBDRKPDPWqz273nnVQTw 5nUEYOZNBOBlFFhlPQJoshEBFHkXAfAYBc74EAGs2Iw1/z1HfIwANowCI2zF Wv+eCUaBALYjAPw6EQB83Vj33/O8KNC71wjAuiiwufcIoLgocLcoULavCEC1 XgQQWj8CwCwKfCwKNOw3AvBrEBv8e9Y1jADaGkUAZY0jgK4mEQBVIA6mwDRI gBkwC+bAPFgAi2AJLIMkSIE0yIAVsArWQBasgxzYAHmwCQpgC2yDHVAEJbAL 9sA+OACH4AgcgzI4ARVwCs7AOaiCC3AJauAKXIMbcAvqoAHuwD14AE3wCJ5A CzyDNuiALngBr+ANvIMP8Am+QA/0wTf4Ab9gAIZgBMZgAuNwCk7DBJyBs3AO zsMFuAiX4DJMwhRMwwxcgatwDWbhOszBDZiHm7AAt+A23IFFWIK7cA/uwwN4 CI/gMSzDE1iBp/AMnsMqvICXsAav4DW8gbewDhvwDt7DB9iEj/AJtuAzbMMO 7MIX+Arf4Dv8gJ/wC/ZgH37DH/gLB3AIR3AMJyiOptA0SqAZNIvm0DxaQIto CS2jJEqhNMqgFbSK1lAWraMc2kB5tIkKaAttox1URCW0i/bQPjpAh+gIHaMy OkEVdIrO0Dmqogt0iWroCl2jG3SL6qiB7tA9ekBN9IieUAs9ozbqoC56Qa/o Db2jD/SJvlAP9dE3+kG/aICGaITGaIJjOI6n8DRO4Bk8i+fwPF7Ai3gJL+Mk TuE0zuAVvIrXcBav4xzewHm8iQt4C2/jHVzEJbyL9/A+PsCH+Agf4zI+wRV8 is/wOa7iC3yJa/gKX+MbfIvruIHv8D1+wE38iJ9wCz/jNu7gLn7Br/gNv+MP /Im/cA/38Tf+wb94gId4hMckTqbINEmQGTJL5sg8WSCLZIkskyRJkTTJkBWy StZIlqyTHNkgebJJCmSLbJMdUiQlskv2yD45IIfkiByTMjkhFXJKzsg5qZIL cklq5IpckxtyS+qkQe7IPXkgTfJInkiLPJM26ZAueSGv5I28kw/ySb5Ij/TJ N/khv2RAhmRExmRCYzROp+g0TdAZOkvn6DxdoIt0iS7TJE3RNM3QFbpK12iW rtMc3aB5ukkLdItu0x1apCW6S/foPj2gh/SIHtMyPaEVekrP6Dmt0gt6SWv0 il7TG3pL67RB7+g9faBN+kifaIs+0zbt0C59oa/0jb7TD/pJv2iP9uk3/aG/ dECHdETHLM6m2DRLsBk2y+bYPFtgi2yJLbMkS7E0y7AVtsrWWJatsxzbYHm2 yQpsi22zHVZkJbbL9tg+O2CH7IgdszI7YRV2ys7YOauyC3bJauyKXbMbdsvq rMHu2D17YE32yJ5Yiz2zNuuwLnthr+yNvbMP9sm+WI/12Tf7Yb9swIZsxMZs wuN8ik/zBJ/hs3yOz/MFvsiX+DJP8hRP8wxf4at8jWf5Os/xDZ7nm7zAt/g2 3+FFXuK7fI/v8wN+yI/4MS/zE17hp/yMn/Mqv+CXvMav+DW/4be8zhv8jt/z B97kj/yJt/gzb/MO7/IX/srf+Dv/4J/8i/d4n3/zH/7LB3zIR3zMJyIupsS0 SIgZMSvmxLxYEItiSSyLpEiJtMiIFbEq1kRWrIuc2BB5sSkKYktsix1RFCWx K/bEvjgQh+JIHIuyOBEVcSrOxLmoigtxKWriSlyLG3Er6qIh7sS9eBBN8Sie REs8i7boiK54Ea/iTbyLD/EpvkRP9MW3+BG/YiCGYiTGYiJjMi6n5LRMyBk5 K+fkvFyQi3JJLsukTMm0zMgVuSrXZFauy5zckHm5KQtyS27LHVmUJbkr9+S+ PJCH8kgey7I8kRV5Ks/kuazKC3kpa/JKXssbeSvrsiHv5L18kE35KJ9kSz7L tuzIrnyRr/JNvssP+Sm/ZE/25bf8kb9yIIdyJMcqrqbUtEqoGTWr5tS8WlCL akktq6RKqbTKqBW1qtZUVq2rnNpQebWpCmpLbasdVVQltav21L46UIfqSB2r sjpRFXWqztS5qqoLdalq6kpdqxt1q+qqoe7UvXpQTfWonlRLPau26qiuelGv 6k29qw/1qb5UT/XVt/pRv2qghmqkxmqiYzqup/S0TugZPavn9Lxe0It6SS/r pE7ptM7oFb2q13RWr+uc3tB5vakLektv6x1d1CW9q/f0vj7Qh/pIH+uyPtEV farP9Lmu6gt9qWv6Sl/rG32r67qh7/S9ftBN/aifdEs/67bu6K5+0a/6Tb/r D/2pv3RP9/W3/tG/eqCHeqTHJmbiZspMm4SZMbNmzsybBbNolsyySZqUSZuM WTGrZs1kzbrJmQ2TN5umYLbMttkxRVMyu2bP7JsDc2iOzLEpmxNTMafmzJyb qrkwl6Zmrsy1uTG3pm4a5s7cmwfTNI/mybTMs2mbjumaF/Nq3sy7+TCf5sv0 TN98mx/zawZmaEZmbGM2bqfstE3YGTtr5+y8XbCLdsku26RN2bTN2BW7atds 1q7bnN2webtpC3bLbtsdW7Qlu2v37L49sIf2yB7bsj2xFXtqz+y5rdoLe2lr 9spe2xt7a+u2Ye/svX2wTfton2zLPtu27diufbGv9s2+2w/7ab9sz/btt/2x v3Zgh3Zkxy7upty0S7gZN+vm3LxbcItuyS27pEu5tMu4Fbfq1lzWrbuc23B5 t+kKbsttux1XdCW36/bcvjtwh+7IHbuyO3EVd+rO3Lmrugt36Wruyl27G3fr 6q7h7ty9e3BN9+ieXMs9u7bruK57ca/uzb27D/fpvlzP9d23+3G/buCGbuTG buLjfspP+4Sf8bN+zs/7Bb/ol/yyT/qUT/uMX/Grfs1n/brP+Q2f95u+4Lf8 tt/xRV/yu37P7/sDf+iP/LEv+xNf8af+zJ/7qr/wl77mr/y1v/G3vu4b/s7f +wff9I/+ybf8s2/7ju/6F//q3/y7//Cf/sv3fN9/+x//6wd+6Ed+7CchHqbC dEiEmTAb5sJ8WAiLYSksh2RIhXTIhJWwGtZCNqyHXNgI+bAZCmErbIedUAyl sBv2wn44CIfhKByHcjgJlXAazsJ5qIaLcBlq4Spch5twG+qhEe7CfXgIzfAY nkIrPId26IRueAmv4S28h4/wGb5CL/TDd/gJv2EQhmEUxmHyBwFWNLs= "]]]], "Output", TaggingRules->{}, CellChangeTimes->{3.849199421509364*^9, 3.849200837152638*^9}, CellTags->"DefaultContent", CellLabel->"Out[156]=", CellID->274661892] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell["Use strings instead:", "Text", TaggingRules->{}, CellChangeTimes->{{3.849198414234663*^9, 3.849198429277668*^9}, { 3.8491984794663258`*^9, 3.849198490914207*^9}, {3.84919853431907*^9, 3.849198535730196*^9}}, CellTags->"DefaultContent", CellID->222179742], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"HitomezashiStitchPattern", "[", RowBox[{ "\"\\"", ",", "\"\\""}], "]"}], "//", "Graphics"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8491983570592012`*^9, 3.849198402490059*^9}, { 3.849198497790036*^9, 3.849198504938702*^9}, {3.8491985389119997`*^9, 3.84919859698919*^9}, 3.849200839786614*^9}, CellTags->"DefaultContent", CellLabel->"In[157]:=", CellID->456819097], Cell[BoxData[ GraphicsBox[LineBox[CompressedData[" 1:eJyl1kfCtKCWBuBfAQGRIDkJ5gXdJdwN9KzX3w56BV8Nalxywnue47//85// gn///v0v/Pdv/Pf/vwEMcEDDNOCBDHSYBzYsAx/EIAc1rIMezGAHN/ghDHFI Qx7KUIdtaEMfxhGMcETjNOKRjHScRzYuIx/FKEc1rqMezWhHN/oxjHFMYx7L WMdtbGP//nYEAECAwAQwIICCGTCwAA4EkECBFWhggAUOeBBABAlkUEAFG2jf B48QQAgRnCCGBFI4QwYXyKGAEiq4Qg0NtNBBDwOMMMEMC6xwg+37XIAgQmhC GBFE0YwYWhBHAkmk0Io0MsgihzwKKKKEMiqoog011L+HgglOaJomPJGJTvPE pmXik5jkpKZ10pOZ7OQmP4UpTmnKU5nqtE1t6l+JAIYY4QljTDDFM2Z4wRwL LLHCK9bYYIsd9jjgiBPOuOCKN9xw/xozEkAgQWQimBBCyUwYWQgngkiiyEo0 McQSRzwJJJJEMimkko20ry2AQoroRDEllNKZMrpQTgWVVNGVamqopY56Gmik iWZaaKUbbbR/DQUznNE8zXgmM53nmc3LzGcxy1nN66xnM9vZzX4Oc5zTnOcy 13mb29y/MRoZYJAhNjHMCKNsZowtjDPBJFNsZZoZZpljngUWWWKZFVbZxto3 RGCBC1qmBS9kocu8sGVZ+CIWuahlXfRiFru4xS9hiUta8lKWumxLW/o3foBD jvjEMSec8pkzvnDOBZdc8ZVrbrjljnseeOSJZ1545RtvvH9DPwogoEBiElgQ QcUsmFgEF0JIocQqtDDCCie8CCKKJLIooopNtG9dRgkklEhOEksiqZwlk4vk UkgplVyllkZa6aSXQUaZZJZFVrnJ9i0LUFAhNSmsiKJqVkwtiiuhpFJqVVoZ ZZVTXgUVVVJZFVXVpprq35qBFa5onVa8kpWu88rWZeWrWOWq1nXVq1nt6la/ hjWuac1rWeu6rW3t33KPGmiokZ401kRTPWumF8210FIrvWqtjbbaaa+Djjrp rIuuetPti4XRAAMNMpPBhhhqZsPMYrgRRhplVqONMdY4400w0SSTTTHVbKZ9 oQAstMhOFltiqZ0ts4vlVlhplV2ttsZa66y3wUabbLbFVrvZZvsXRaMDDjrk JocdcdTNjrnFcSecdMqtTjvjrHPOu+CiSy674qrbXPuCCHjokZ889sRTP3vm F8+98NIrv3rtjbfeee+Djz757IuvfvPN9y/CQIABhSngQAINc2BhCTyIIIMK a9DBBBtc8CGEGFLIoYQattBC/8IPRBhRnCKOJNI4RxaXyKOIMqq4Rh1NtNFF H0OMMcUcS6xxiy32LzZBggmlKeFEEk1zYmlJPIkkk0pr0skkm1zyKaSYUsqp pJq21FL/wnrMIMOM8pRxJpnmObO8ZJ5FllnlNetsss0u+xxyzCnnXHLNW25f zI8FFFhQmQoupNAyF1aWwososqiyFl1MscUVX0KJJZVcSqllK+0LeVBhRXWq uJJK61xZXSqvosqq6lp1NdVWV30NNdZUcy211q222r/zADa4oW3a8EY2us0b 25aNb2KTm9rWTW9ms5vb/Ba2uKUtb2Wr27a1rX9HaWygwYba1HAjjba5sbY0 3kSTTbW16Waaba75FlpsqeVWWm1ba985GzvosKM+ddxJp33urC+dd9FlV33t uptuu+u+hx576rmXXvvWWx/2cQc73NE+7XgnO93nne3Lznexy13t6653s9vd 7X4Pe9zTnvey133b2z4e4IAHOqYDH+Sgx3ywYzn4IQ55qGM99GEOe7jDH+GI RzryUY56bEc7+jGc4wlOeKJzOvFJTnrOJzuXk5/ilKc611Of5rSnO/0Zznim M5/lrOd2tnO8wAUvdE0XvshFr/li13LxS1zyUtd66ctc9nKXv8IVr3Tlq1z1 2q529Wu4xxvc8Eb3dOOb3PSeb3YvN7/FLW91r7e+zW1vd/s73PFOd77LXe/t bvf4gAc+6Jke/JCHPvPDnuXhj3jko5710Y957OMe/4QnPunJT3nqsz3t6c/w ji944Yve6cUveek7v+xdXv6KV77qXV/9mte+7vVveOOb3vyWt77b297hF+js w1fr4Xv38Iyfen5gz9fv8av9+NXhe8vfCdTBDg5wggvcXz3/zqEOd3jAE17w /royoF94tKMDnehCN3q+Dv2CpX06pnO6pvubkgH/QqcdH/jEF77x803ML5Dq ZCcHOclFbvJ8s/cLrHZ60JNe9P7m/xdk7fMxn/M1398W/Z1bne3sYCe72P3t 4i/42pdjOZdrub+NHvgvFNv5wU9+8Zs/33b/nWVd7OIQp7jE/SXM34nW5S4P ecpL3l9ODeoXsu3qUKe61K2eL7N+Ady+Huu5Xuv95ebfKdf1rg996kvfX/r+ ArtudnOY01zmNs+XxIP9hXq7PexpL3vb58v0v7Ovu90d7nSXu7+7MvhfGLj7 w5/+8rd/vhszhF9YuIcjnOEKd3i+a/ULEvd4xDNe8f4u5pB+IeOejnSmK93p +a7nL4Dsec9HPvOV7/x8d/jvnOxlL0c5y1XuzwJD/YWXez3qWa961+dzwS/Y 3LdjO7druz+b/J2dve3taGe72v0J5xeE9r73o5/96nd/+vt/Q5o/Vw== "]]]], "Output", TaggingRules->{}, CellChangeTimes->{{3.849198369081994*^9, 3.8491984028075027`*^9}, 3.8491984523670063`*^9, 3.849198506251966*^9, {3.8491985449495792`*^9, 3.849198559049418*^9}, 3.849198597671359*^9, 3.8491990282766953`*^9, 3.84920084034479*^9}, CellTags->"DefaultContent", CellLabel->"Out[157]=", CellID->94655351] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107564], Cell["Create a zig-zag pattern:", "Text", TaggingRules->{}, CellChangeTimes->{{3.8492008486304407`*^9, 3.849200856173521*^9}}, CellID->162740776], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"HitomezashiStitchPattern", "[", RowBox[{ RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}], ",", "10"}], "]"}], "//", "Flatten"}], ",", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}], ",", "10"}], "]"}], "//", "Flatten"}]}], "]"}], "//", "Graphics"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8491986155782347`*^9, 3.849198653802342*^9}, 3.849200842786025*^9}, CellLabel->"In[159]:=", CellID->755063818], Cell[BoxData[ GraphicsBox[LineBox[CompressedData[" 1:eJyN0tERbScIBdCriIiIgNhAWkoJr4E0kOJzZtKAH/wysPf6688/f/+B3+/3 b/n96u//KaUWKK1g6YXKKFxmkbKKll2seIlySpZbaoXaKtZeqY7KdVapq2rd 1arXqKfmt6gCQAOEDgQDGCYILFDYYOAQcCDhfougtYatN2qjcZtN2mradrPm Ldpp+R1UEbAhYkfCgYwTBRcqbjR0DDyYeL+DoLeOvXfqo3OfXfrq2ne37j36 6fk9VgmoEVInokFMk4QWKW0ycgo6lHS/x2C0gaMPGmPwmEPGGjr2sOEjxhn5 BVQZuDFyZ+LBzJOFFytvNnYOPpx8v4BgtomzT5pj8pxT5po697TpM+aZ+QVd BaQJSheSISxTRJaobDFxCTmScr+gYbWFqy9aY/GaS9Zauvay5SvWWfkVVhW0 KWpX0qGsU0WXqm41dQ09mnq/wmC3jbtv2mPznlv22rr3tu079tn5FV8NrBla N7JhbNPElqltM3MLO5Z2v+LBm6N3Jx/OPl18ufp2c/fw4/kBqgHRAqMHxQiO GRIrNHZYeEScyLgfIDjt4OmHzjh85pGzjp597PiJc05+EGtCtsTsSTmSc6bk Ss2dlp6RJzNv1gu3Xbz90h2X77xy19W7r12/cc/NWx7h1wf48Ai/PcDHR/j9 AT49wh8P8PkR/nyAL4/w1wN8fYS/H+DbI3x/gB+P8M8D/HyEfx/g/wetiEBv "]]]], "Output", TaggingRules->{}, CellChangeTimes->{{3.849198624901869*^9, 3.849198654596129*^9}, { 3.849200843244478*^9, 3.849200857280264*^9}}, CellLabel->"Out[159]=", CellID->696398412] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Possible Issues", "Subsection", TaggingRules->{}, CellTags->"DefaultContent", CellID->84863745], Cell["Nothing might be returned if the input is too short:", "Text", TaggingRules->{}, CellChangeTimes->{{3.849199063334059*^9, 3.849199072289751*^9}}, CellID->915455732], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HitomezashiStitchPattern", "[", RowBox[{"1", ",", "1"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.849199034441193*^9, 3.8491990622092237`*^9}, 3.8492008592966633`*^9}, CellLabel->"In[160]:=", CellID->949010878], Cell[BoxData[ RowBox[{"Line", "[", RowBox[{"{", "}"}], "]"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.84919903833217*^9, 3.849199076351245*^9}, 3.849200860089443*^9}, CellLabel->"Out[160]=", CellID->134628758] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107565], Cell["Invalid input will return an empty line:", "Text", TaggingRules->{}, CellChangeTimes->{{3.849199063334059*^9, 3.849199120394208*^9}}, CellID->446144497], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HitomezashiStitchPattern", "[", RowBox[{ RowBox[{"<|", RowBox[{ RowBox[{"a", "->", "2"}], ",", RowBox[{"b", "->", "3"}]}], "|>"}], ",", "1"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.849199034441193*^9, 3.8491990987805347`*^9}, 3.8492008629737453`*^9}, CellLabel->"In[161]:=", CellID->561929449], Cell[BoxData[ RowBox[{"Line", "[", RowBox[{"{", "}"}], "]"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.84919903833217*^9, 3.849199099424862*^9}, 3.849200863391975*^9}, CellLabel->"Out[161]=", CellID->846042578] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107566], Cell[TextData[{ "Non-", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["True", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/True", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " objects are turned into ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["False", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/False", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " using ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["TrueQ", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/TrueQ", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.849199063334059*^9, 3.849199120394208*^9}, { 3.849199157296632*^9, 3.849199182897574*^9}}, CellID->634441768], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"HitomezashiStitchPattern", "[", RowBox[{ RowBox[{"{", RowBox[{"True", ",", "False", ",", "False", ",", RowBox[{"Xor", "[", RowBox[{"a", ",", "b"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "False", ",", "True", ",", "True"}], "}"}]}], "]"}], "//", "Graphics"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.849199034441193*^9, 3.8491991478643*^9}, 3.849200865183036*^9}, CellLabel->"In[162]:=", CellID->38581750], Cell[BoxData[ GraphicsBox[ LineBox[{{{1, 1}, {2, 1}}, {{3, 1}, {4, 1}}, {{2, 2}, {3, 2}}, {{1, 3}, {2, 3}}, {{3, 3}, {4, 3}}, {{1, 4}, {2, 4}}, {{3, 4}, {4, 4}}, {{1, 1}, {1, 2}}, {{1, 3}, {1, 4}}, {{2, 2}, {2, 3}}, {{3, 2}, {3, 3}}, {{4, 2}, {4, 3}}}]]], "Output", TaggingRules->{}, CellChangeTimes->{{3.84919903833217*^9, 3.849199099424862*^9}, { 3.849199135895903*^9, 3.8491991483531923`*^9}, 3.849200865657625*^9}, CellLabel->"Out[162]=", CellID->655703644] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Neat Examples", "Subsection", TaggingRules->{}, CellTags->"DefaultContent", CellID->510369528], Cell["Create some simple patterns:", "Text", TaggingRules->{}, CellChangeTimes->{{3.8491987732171593`*^9, 3.849198778704761*^9}}, CellID->414441928], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GraphicsRow", "[", RowBox[{"Map", "[", RowBox[{"Graphics", ",", RowBox[{"{", RowBox[{ RowBox[{"HitomezashiStitchPattern", "[", RowBox[{ RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}], ",", "10"}], "]"}], "//", "Flatten"}], ",", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}], ",", "10"}], "]"}], "//", "Flatten"}]}], "]"}], ",", RowBox[{"HitomezashiStitchPattern", "[", RowBox[{ RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}], ",", "10"}], "]"}], "//", "Flatten"}], ",", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}], ",", "10"}], "]"}], "//", "Flatten"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"HitomezashiStitchPattern", "[", RowBox[{ RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}], ",", "10"}], "]"}], "//", "Flatten"}], ",", RowBox[{"ConstantArray", "[", RowBox[{"False", ",", "20"}], "]"}]}], "]"}], ",", RowBox[{"HitomezashiStitchPattern", "[", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{"True", ",", "10"}], "]"}], ",", RowBox[{"ConstantArray", "[", RowBox[{"True", ",", "10"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.849198666188695*^9, 3.849198769405238*^9}, { 3.8492008676400957`*^9, 3.849200869425346*^9}}, CellLabel->"In[163]:=", CellID->811777181], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ GraphicsBox[LineBox[CompressedData[" 1:eJyN0tERbScIBdCriIiIgNhAWkoJr4E0kOJzZtKAH/wysPf6688/f/+B3+/3 b/n96u//KaUWKK1g6YXKKFxmkbKKll2seIlySpZbaoXaKtZeqY7KdVapq2rd 1arXqKfmt6gCQAOEDgQDGCYILFDYYOAQcCDhfougtYatN2qjcZtN2mradrPm Ldpp+R1UEbAhYkfCgYwTBRcqbjR0DDyYeL+DoLeOvXfqo3OfXfrq2ne37j36 6fk9VgmoEVInokFMk4QWKW0ycgo6lHS/x2C0gaMPGmPwmEPGGjr2sOEjxhn5 BVQZuDFyZ+LBzJOFFytvNnYOPpx8v4BgtomzT5pj8pxT5po697TpM+aZ+QVd BaQJSheSISxTRJaobDFxCTmScr+gYbWFqy9aY/GaS9Zauvay5SvWWfkVVhW0 KWpX0qGsU0WXqm41dQ09mnq/wmC3jbtv2mPznlv22rr3tu079tn5FV8NrBla N7JhbNPElqltM3MLO5Z2v+LBm6N3Jx/OPl18ufp2c/fw4/kBqgHRAqMHxQiO GRIrNHZYeEScyLgfIDjt4OmHzjh85pGzjp597PiJc05+EGtCtsTsSTmSc6bk Ss2dlp6RJzNv1gu3Xbz90h2X77xy19W7r12/cc/NWx7h1wf48Ai/PcDHR/j9 AT49wh8P8PkR/nyAL4/w1wN8fYS/H+DbI3x/gB+P8M8D/HyEfx/g/wetiEBv "]], DisplayFunction->Identity, ImagePadding->{{1.7763568394002505`*^-15, 1.}, {1.0000000000000568`, 1.1368683772161603`*^-13}}], {80.99949461698458, -78.62434944155311}, ImageScaled[{0.5, 0.5}], {149.999064105527, 149.7606656029583}], InsetBox[ GraphicsBox[LineBox[CompressedData[" 1:eJyN0skVricIBuBfmcQBVGggLaWE20AaSPH5FinABTvOYXifv/788/cf+P1+ /5bfr/7+rwIFCxUuUlrR0ssos6xixcsup9wSpdRaoWKlylVqq1p7HXXWVa16 3fXUW6Pm1wSAQMAg0EChw4AJCwwcNhy4EN+wioCIhIyCDRU7Dpy40NBx48GL gfkNA0IiYhJqpNRp0KRFRk6bDl2Kb+nKwMjEzMKNlTsPnrzY2Hnz4cvB+S0N gkLCItJEpcuQKUtMXLYcuRLf8bVBw0aNm7TWtPU22myrWfO222m3RcvveFBU UlbRpqpdh05dauq69ejV+J5YO3Ts1LlLb11776PPvrp177uffnv0/J4IAwcN HjLa0NHHGHOsYcPHHmfcEV8YdcLESZOnzDZ19jnmnGva9LnnmXfGzC8MWLho 8ZLVlq6+xpprLVu+9jrrrvhCrQaGRsYm1kyt27Bpy8zcth27FpZfqODo5Ozi zdW7D5++3Nx9+/Hr8eGoGzZu2rxlt62777HnXtu2773Pvjt2fjjg4KHDR047 evoZZ5517PjZ55x74kNWL1y8dPnKbVdvv+POu65dv/uee2/c/JBBYFBwSLTQ 6DFixgoLjx0nbkSUrAmJSckp2VKz58iZKy09d568GZlZPtUP9POFPhR4oZ8v 9KnQC/18oS9FXujnC30t+kI/X+iPMl7o5wv9VdYL/Xyh78Vf6OcL/VPOC/18 oR8lXujnC/3/AAanQIM= "]], DisplayFunction->Identity, ImagePadding->{{1.7763568394002505`*^-15, 1.}, {1.0000000000000568`, 1.1368683772161603`*^-13}}], {242.99848385095373, -78.62434944155311}, ImageScaled[{0.5, 0.5}], {149.999064105527, 149.7606656029583}], InsetBox[ GraphicsBox[LineBox[CompressedData[" 1:eJyN0sERdScIBeCniIiIgNhAWkoJfwOZSf+L3EUKcOHOUTjn++vPP3//gd/v 92/5/erv/1OgtIKlFyqjcJlFyipadrHiJcopWWqF2irWXqmOynVWqatq3dWq 16in5ncFoAFCB4IBDBMEFihsMHAIOJDfI9Baw9YbtdG4zSZtNW27WfMW7bT8 vgFsiNiRcCDjRMGFihsNHQMP5jcI9Nax9059dO6zS19d++7WvUc/Pb9RgRoh dSIaxDRJaJHSJiOnoEP5LQOjDRx90BiDxxwy1tCxhw0fMc7Ib13gxsidiQcz TxZerLzZ2Dn4cH6BwGwTZ580x+Q5p8w1de5p02fMM/OLDKQJSheSISxTRJao bDFxCTmSX6iw2sLVF62xeM0lay1de9nyFeus/GIHbYralXQo61TRpapbTV1D j+ZXDOy2cfdNe2zec8teW/fetn3HPju/6sCaoXUjG8Y2TWyZ2jYzt7Bj+ZUL 3hy9O/lw9uniy9W3m7uHH8+vfogWGD0oRnDMkFihscPCI+JEfkDgtIOnHzrj 8JlHzjp69rHjJ845+RGCbInZk3Ik50zJlZo7LT0jT2bWC7ddvP3SHZfvvHLX 1buvXb9xz81bSnkhfesDaijwwvq2B9hY8IX27Q+4qdAL7zsegHPhF+J3PiCX Ii/M73qArkVfqN/9gN2KvXC//gA+SryQv+cBfZZ8YX/vA/z/AHkRPss= "]], DisplayFunction->Identity, ImagePadding->{{1.7763568394002505`*^-15, 1.}, {1.0000000000000568`, 1.1368683772161603`*^-13}}], {404.9974730849229, -78.62434944155311}, ImageScaled[{0.5, 0.5}], {149.999064105527, 149.7606656029583}], InsetBox[ GraphicsBox[LineBox[CompressedData[" 1:eJxtz7lxQwEIBNDPLsdCF2rJJWicq//MBM5EQMJw7Hu9Pz9vPs/zu4X/MoPR 3MLSymRtsy2AcAQSBaExOwSSzmCyKDZn1+B09/D0cnn77CEEwyMio0LRMXsa yfSMzKxUds4+Q7G8orKqVF2z7yHKFUqVpNZsIDTbOzq7Wt09GxHD8YnJqdH0 zIb+huCA8ID4AYkDkgekDogOSB+QOSB/jdQKqg== "]], DisplayFunction->Identity, ImagePadding->{{0., 0.9999999999999432}, {1.0000000000000568`, 1.1368683772161603`*^-13}}], {566.9964623188921, -78.62434944155311}, ImageScaled[{0.5, 0.5}], {149.99906410552694, 149.7606656029583}]}, {}}, ImageSize->{ UpTo[600], UpTo[360]}, PlotRange->{{0, 647.9959569358766}, {-157.24869888310621`, 0}}, PlotRangePadding->{6, 5}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.849198662483078*^9, {3.84919870575029*^9, 3.849198771237671*^9}, 3.849200871869079*^9}, CellLabel->"Out[163]=", CellID->383019244] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107567], Cell["Create a random pattern and color it in:", "Text", TaggingRules->{}, CellChangeTimes->{{3.8492004956891203`*^9, 3.849200503381886*^9}}, CellID->856132934], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"p", "=", RowBox[{"HitomezashiStitchPattern", "[", RowBox[{ RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"WorkingPrecision", "\[Rule]", "30"}]}], "]"}], ",", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"WorkingPrecision", "\[Rule]", "20"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Rasterize", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"p", ",", RowBox[{"ImageSize", "\[Rule]", "250"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"CoordinateBounds", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"-", "0.5"}]}], "]"}]}]}], "]"}], ",", "\"\\"", ",", RowBox[{"ImageResolution", "\[Rule]", "144"}]}], "]"}], "//", "MorphologicalComponents"}], "//", " ", "Colorize"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.8492004944476624`*^9, 3.84920053748046*^9}, 3.849200873248172*^9, {3.850235802584023*^9, 3.850235808336776*^9}}, CellLabel->"In[166]:=", CellID->742240109], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnWm3XVXR7+ve++a+vJ+AEOnBJBiVJiQYCH2rNBIQ9AES+gBpQCCCEMwT WgXpRZoEaU0UCI0QAhgRLpCAKJCE0CPf4H6Au2SNUWNl1jpVs1bNdc4+O/85 /jpcp2ZTzDn379ReVXImnnHRcWf9TyJa+L+r/zru9J8fsGDB6Zcf/3+qhxMv XHju2RfOnXP4hYvmnj13wT5n/K/qh0f9D6L/V/3nP//775vX1Kr+97vTPhpJ lfW/lt/Bqh5P3XSxoqrDxjtPGkmV9cXnnmElnavHOx/ebyRV1iM/eWEkVdZ/ T36HJTtXPznn5h+ykg7V48zDjxhJlfWSnf7G0jvLsRecv4pF37T84ebkV045 gZXMXD2u/XoZK7iu3LHfn3LxSKqsO11yFSvpXD3uc8K5+TLXShz74JMjM6Vf KnmF7jjors6qhn929hms4GzepX+z21EjqbL+cu8PMmVOlaz7n8kfeqEP/Yd7 L+/PShaqHp88ZRPLdEM/DnnHXvjJLJb3Fk06dIaiqsOOd69jJf2rx+v2mc5q nQ1sB9vBdrAdbAfbwXawHWwH28H2wWc7NVoC86QlbJetCXbZEnq7rAnbk5bs mLeDbk2wVtDa6+S9OqbvWMJblzUhuXe47lgCc9dY845JlA2C1eyQADlpCcxd Y03HEqIOiNX0PHJPzFvUimVpbe0grZmBui6KhfG6KBDGB0XOyLzzWHN4cPL8 dc2lzR1TQmtdJNhu9nc5lh+oV9bPN+zNMhciAQTFaobWnWduPcpSYbzZ2fsN QomWXdZ42J9/HF567DT9OZZ55fQw3qV6LbBd33CwHWwH28H2bvQA28F2sB1s B9vBdrAdbAfbwXbTai4Ntm8jbCfR9ORpfmq1Nbs6lKnVyNheHYu4HXQsklpt dijumG5N2K4M7+BYQo+CbgeX1tOjweSp3iFiTVjtspqTR44jYbtrLPmTp8nk mYF6Zb308O+w9M5mJE+C3q76yfwwXnbWO5D1uzUS0ErA5g/3Tl7K7da13prw T5a5Y0qkTc4g31zrX9vPYHlPpwlzXfENLBUZBpd2hfGuQL2yzr1pDqu+7a7A fnS+AngDdYlrxarLPHdJ73xrLbAdbPeuBbYHNxBsB9vBdrC92+Sl3G5dC2wP biDYDraD7WB7t8lLud26Ftge3ECwHWwfBbZTo+np0YTtskVSq5HEq55aNTtE MrMRa6+T9+pYwvaCS5upVX14wnbXWD15mp9aHV9HmWAtaZHkqWS7a/hYWSmW Ho1Ym0t3cExaMwN1Xco8mUWSkX81jRLGB0XO2O+Bow5lucbWw7e/93WWPKxJ 332c5Z1cX3fd21c3JZduwlxXxDFSg/zW/k2Y65L/UHpkvvt7f2PpnWUkXz1e MHF3lvcWXbfo7yw588F7f48lrUet3aUpfWnyhPFm5ybMTZFg7M1PPMeS1rXT 7mHpnnQI+/Utyg/FZWQ+5/FNLH2qgp/o2u1Vs48H28F2sB1sB9tH2iKwHWwH 28F2nhxsB9vBdrCdh4PtYDvYDrYX+VBXbKdGQy5VWpMdK2jtdfJeHUMu1Tv5 wB5lQrmkIZcqreMol/rYYxtr0ZDWQJJa5ahb5W/Dzet/x9I7m2Ndw72Tl3K7 dS3UQAY3MD9uLCvyBOrjqAby2JU3s+T2KtZgGC/vsyuqNw/rsodOZcm1FGut oWe7qwPYnrMW2B7cQLAdbAfbwfZuk5dyu3UtsD24gWA72A62g+3dJi/lduta YHtwA8F2sH2U2Z40PbWqWyWuk6anRyPJ02QHvB10q+RzqbG9OhZxO+iYnh41 k6eR1GrEmp887eBYApOCbgeX1pOnkdSq2SFiTejtspqTR45DT56aR5nQ22VN 2M7/W4bx5iOJv4WtB+quxwTmehwud0zvoD8mVNQfXWPN4Ws2v84KOuZyu2qz Dz+X5d2xBNeux2WznmSRiOplf5djz8zcj2V21kscm4/1T9bOPIMl+yf00B+T sbsuu48lrdfuvJLVetv1tRJcJ4837bKMZXbWF5I/+fvsS1nS+t5fNrOkNcF1 5NF7HK5HPciXn7uE1Qm9XY9Ntici662Lq3ydxu3fXWpiUJeO3w7D89keUSup FLabO+Z6zeJiu+sVjXRMYbvs7HoJ42K7652Al+3SMX0t/a2LwnbXK5rWpUux PShziyL0yH8Jk8A5KLA953TAdrAdbAfbu9EDbAfbwXawHWwH23tiO5V7317D fEDet8s9dD0mGNQfXWPN4XjfjvftXrZ7l8b7du9xuB47v2/v8IJdZ3vSUCcj rZLPpcb26ljE7aBjCY1dVkKdjNMaXBp1MtIaOY7BqZPR37pMmHgYS+/cob79 yJdvY1HR+vZzDj6wKdlh0e4bWIk1EY2f+vZ3vlrPirjdutaZ9/6ZZe5YQu9L d92fRaXr2x8/4GSW93RQ305F69tf+vX/ZdW3PfN1jVck6H3An7/LklZzNn0D j9luBUvCpNf69idun8uSVjkD2A62e9cC24MbCLaD7WA72N5tcrAdbDeXBtvB 9nHN9gTvYDvY3joWbAfbh5jtSUMuVVqRS/VakUuV1gQmBd0OLo1cqrRGjmNA cqmob2/91dmkoi55WPljzeHByfPXNZc2d8wViidsn/HdRSxzKq9jx25+lKWP JX99uxL7kSdk1ce6rObSZJWsX33EnSyzczDY7mxFfTv+v0vdTgdsB9vBdrC9 Gz3AdrAdbAfbwXawHWwH28F2sN20mkuD7cPNdmq0hO1Jy0+etlqHMnkasfY6 ea+O6TsWSZ4mbPcO1x1L2O4aa96xBAgDYjU76OnRhO2usaZjCWAHxGp6Hrkn 5i1ScqPkT63edM01tWhrtuthPMUC9cr6xXFPskj9F8i4AvXKetT5W1iyc/WT G771FktuuB7iPnfwXJbeWY79+I8vserNLxh7n7jdMhYJOM9f9A4ruK7cMT20 3vjGZhYJODdhbspcK3GsCXNd+qVyBcM5Iet+D/2QFZzNu3R+oK7LnEoSsmCw nfD5oPWLWSToPf+ydSzTDf045B1bt/JElvcWmbH3ul/+iiXp/dnPHmW1zga2 g+1gO9gOtoPtYDvYDraD7WA72A62g+1gO9gOto8+26nRkEuV1gRrBa29Tt6r Y/qOIZc6OFazA3KpXs8j98S8RWVzqaiB1H+3RgLaYDxccPL8dc2lzR3TCxf1 wHtwaiBdd4xQA4kayNgtItS3g+1gO9gOtoPtYDvYDraD7WA72A62g+1gO9gO tg8X20k0PXman1ptza4OZWo1MrZXxyJuBx2LpFabHYo7plv1O9Yc3sGxhB4F 3Q4uradHg8lTvUPEmrDaZTUn7+8WmUfpTZ4mk+f/bY7bbvhvlt7ZjORJ0NtV P5kfxsvOegeyfrdGAloJ2Pzh3slLud26lmvHlEibnEG+uVbnL3T6pSr7VZG2 jb/Nkayr94+IAl8BvIG6fsfK3iJJ73xrLbAdbPeuBbYHNxBsB9vBdrC92+Sl 3PZeb9kZbJdrge1gO9gOtnebvJTb3ustO4Ptci2wHWwfBbZTo+np0YTtskVS q5HEa7Jj3g66daS9ilt7nbxXx/rbMTO12p9jkUtiTj6wR5lgLWmR5KnpmD58 rKym55F7kn+LOjgmrZmBui5lnswiyci/mib/d6VX5Imp5NnljzWHByfPX7fv aET3xFXiGHFMH0uef8FR2cOKXAPzKOVa+WG82dl71nqcn2+Nh/2l7ljkFhX8 RLPbYHupDQfbg46B7cFrALaD7U23wfZSGw62Bx0D24PXAGwH25tug+2lNhxs DzoGtgevAdgOtjfd7pw8zU+ttk4+lKnVyNheHYu4PYaONTsUd0y36nesObyD Y5HjCB6WvnQCPZc1/yg73IT+3DYn7+8WmUcZ/FBnBuqV9R9ffIeldzYjeRL0 7lw/qYfxsrPegTy/W/XO5ljXcO/kpdxuXavUjpE/2CvlmD5WV3wDCx5HZGm5 vT2Fu5JFBUWBrwBl71jZWxT/UIPtYLt3LbC9v8PqVWA72A62F/9Ugu1gex/H EVkabAfbwfb4pxJsB9v7OI7I0mD7cLOdGk1PjyZsly2SWo0kXpMd83bQrSPt Vdza6+S9Otbfjslff6PmWOSSmJMP7FHqGx5JnpqO6cPHymp6Hrkn+beog2PS mhmo61LmySyS7Fw/SZ7flV6RJ6aSZ5c/1hwenDx/3b6jEd0TV0AbcUwfW1m/ +MUPWeZCBQ8rcg3Mo9Q33BUPu8Jd71m7rPGwv9Qdk5v/r6ems8wrV+oTzW6D 7aU2HGwPOga2B68B2A62N90G20ttONgedAxsD14DsB1sb7oNtpfacLA96BjY HrwGYDvY3nS7c/I0P7XaOvlQplYjY3t1LOL2GDrW7FDcMd2asF0Z3sGxyHEE D0tfOoGey5p/lB1uQn9um5NHjiNhu2us6ZjpdmagXlm/9fBilt7ZjORJ0Ltz /aQextf/mHqHggWWrrGu4d7JS7ndutapLxzIiuwY+YM9fS1XsK2M1RXfwILH EVlabm/BcPfyIyaxJIsKigJfATrcMSUUT6y6zHOPf6iHnu2uDmB7zlpge3+H 1avAdrAdbC/+qQTbwfY+jiOyNNgOtoPt8U8l2A6293EckaXB9uFmOzWanh5N 2C5bJLUaSbzqqVWzQyQzG7H2OnmvjiVsL7i0/PXnGq4nQCNj81Or4+so9Q2P JE8l213Dx8pKsfRoxNpcuoNj0toEsh6oS7Ynj8nwBPUJvV2PCduVML5ea6TH +ieux2TH9MfPt3+U1brbIz3WPzls5wtZXmvkkRq4bnUsgbn+GPFEfu70HUuQ qz+6xh49dzNLWps/yXHMtQm33DKb5bU2O7Q6pm+4Kx7WA3XJdiWMl/1d1sij eccSILsev1i4miWtzZ90wIX+eNzjT2S+hNFFsVc0kdp4CvxFJ1PJjukile05 wzuzPaIEzq18TjooijgmP3dm/84vUvSxOtu9k3tvUYTtTavsoG+4612H7NzE r6mCbA/K3KL81yzyrYvCdu8rGu9HCWwH28F2sB1sV7YIbAfbwXawvXVysB1s H9ds1/EOtucMHwS210epdADbB5ntegd9w7dBtsvbLrdoCNhOoumFMfllM62T D2XZTMJ211gS9HZZ9cl1q173Ynbor2ym2aHVmiC0oDVhuzK8g2P6P3UCZ5fV 7KAvLbmXbzULY/QOEWvEbeqzMCZhu2us6ZhuTdiuR+Y//eI0lt7ZfEtDgt5L pzzDIk9tvB7GV48Tbzm2Kdlhl5NfZpH6LUDuZxPmulrPoonriOTkv5ryFEta 8+Pw1sj8z4dtz9Jnk0v/5XezWOT/aqMHz7+7dgVL76wH6rpcM+cE+cmLlP6k bzh54mFSA/XK+tDKDaz6trsC+8hXgLWv3c6SVvOO6dH1To+czZJ8bsJcl76Q jOSrx7lfHMKS1grmicB2sB1sB9vBdrAdbAfbwXawHWwH28ec7QnewXawHWwH 27c1ticNuVRplXxuNuRSyzrW7NBqTZhZ0Ipcqtea8NbbIWJFLlVaUd8+yDWQ S+6ez5JW1+T6ujLYfuzHm1iyQ36g7vXkB7/9I8ucipyR+WFr3mLpY8lfA7lk 8VoWCba7NiGB88efPMOS1olHPcCi0vXtM97+lGV29gbbD/x4NxYJej/9ymyW tOZ/v8j5AqJvkR5d64H3gNRAgu1gO9gOtoPtyRaB7WA72A62g+1gO9gOtsvh YDvYDraD7UU+1Mileq3JBiYNudSyjjU7tFoThBa0IpfqtSKXKq0DkkslqwZy zauzWHrnDjWQJx5xCouK1kDOf/OOpmSHZXOns2hYaiA3/e7nLGntXABZ0/uI Uy5k6bPJpY+/9noW+b/a6MHzH985jKV31gN11EDmhLt6WL7pyr+x6tvuCuxd XwESxyZ9f3eWtJp3TI+u5120gSX53GsN5FX73MSS1kh9O9gOtoPtYDvYDraD 7WA72A62g+1gO9gOtoPtYDvY3gfbk4ZcqrRKPjcbcqllHWt2aLUmzCxoRS7V a0146+0QsSKXKq2ogRzkGsh8a0Q0SH936flzz2aZUxH+Nof1FUBfmqyyxld/ eyfL7BwMtjtbgzK3SI+u9cB7QGogwXawHWwH28H2ZIvAdrAdbAfbWycH28F2 sB1sB9vBdrAdbI9/qCu2U6Pp2c/85GmrdSiTpxFrr5P36lh/ydOE7d7hCVEL jtWt5uQDe5QJ5ZKWsN011kyt6sPHykp9plbzk6cdHJPWFb/YrRZZVYsFA3US uC4VqMt/RlcHsn6Jv7V0E0vvbI51DfdOXsrt1rXyA3VSQ/HEaspcKxItd/4K 0GED8+PGsiJPoK7LnEqyvWCwnW7gdteyWrZ3ZGswjJf32RXVm4d1/ktXsORa irUW2A62e9cC24MbCLaD7WA72N5t8lJut64Ftgc3EGwH28F2sL3b5KXcbl0L bA9uINgOto8y25Omp1Z1q8R10vT0aCR5muyAt4NulXwuNbZXxyJuBx3T06Nm 8jSSWo1Y85OnHRxLYFLQ7eDSevI0klo1O0SsCb1dVnvywHHoyVPzKBN6u6xN ticiKzJ3lTiSGorrIk+gXla0NRV1ycPKH+sNtr2T569rLm3umCsUT9g+f+nX LHMqr2Prd1zE0seS8ysAqaE4eUJWfazLai5NaqBeWb/3vY0ss/OoBduJNShz iyL0yA/UE1YHBbbnnA7YDraD7WB7N3qA7WA72A62g+1gO9gOtoPtYLtpNZcG 24eb7dRoCduTlp88bbUOZfI0Yu118l4d03cskjxN2O4drjuWsN011rxjCRAG xGp20NOjCdtdY03HEsAOiNX0PHJPzFuk5EbJn1qdecGva9HWbNfDeIoF6pX1 8hXXsEiwvXOg/p+Z7/mcJTtXPzn4yZ+w5IbrIe6Ru7zF0jvLsYsn3cyqN79g 7P3hdjexSMD5i/U/YAXXlTumh9Z7nTaZRQLOTZibMtdKHGvCXJd+qVzBcE7I evHFL7CCs3mXzg/UdZlTSUIWDLYTPp+04HMWCXrf8P39WKYb+nHIO/bGjU+z vLfIjL0XP3czS9L7pqmLWK2zge1gO9gOtoPtYDvYDraD7WA72A62g+1gO9gO toPto892ajTkUqU1wVpBa6+T9+qYvmPIpQ6O1eyAXKrX88g9MW9R2VwqaiD1 362ugPbucz9jucbWwyfedymLBGCPOfwFlndyfd3L/3Z1U3Jp147phYt64D04 NZDXHvMTlrkQCSBMXH4eizyRedV5/ymrWHLmu+98iSWtf/jHu03pS9Mg1UC+ t8eFLGk95ImTWVT0K4C5RRF63L/sHJZ55crWQL5z+2qwHWwH28F2sB1sB9vB drAdbAfbwXawHWwH28F2sH302U6NhlyqtCaUK2jtdfJeHdN3DLnUwbGaHZBL 9XoeuSfmLSqbS/3o7RW1aHRrIGdNv5lFRWsg7/vRSlbrlj55zbssadVD3IOn 3MnSO8uxPzp7X1btWMHYe9Gk7Vkk4PzU+1tYwXXljumh9dc7T2URaiC/wcWU K5aygrN5lx7KGsgTv1zPIkHvCTuczTLd0I9D3rHd35vM8t4iM/Y+9KTlLEnv f/3zalbrbEPPdtkBbAfbwXawHWwH28F2sB1sB9vBdrAdbAfbwXawfczZTo2G XKq0JlgraO118l4d03cMudTBsZodkEv1eh65J+YtKptLbTawXVrBdmkF22UD 272Oge2ylWU76tv1702ulxXXn/YTlmtsPfyOtetYJAD77s6rWN7J9XUnXf9x U3Jp144pr0100SDVt5/367tY5kIkgHDfBx+yyPPWper8yIffYcmZJ18wmyWt 09a/3ZS+NA1SffsD0xewpPXpeaexEmv8lU7+SxgvPTbtcjvLvHKuCnbzfc6s cx8F28F2sB1sB9vBdrAdbAfbwXawHWwH28cX2+mbBraPU7YneAfbTbAPMdup 0ZBLldaEcgWtvU7eq2P6jiGXOjhWswNyqV7PI/fEvEVlc6nXHH5/LRrd+vZV a79gUdH69ruPeJIlO1c/uW/LvSy54XqIu+H8JSy9sxx7yMkHs+rNLxh7X7Du IBYJOP9z+UWs4Lpyx/TQepdJh7AI9e3f4OKcg+azgrN5lx7K+va9ZrzKIkHv uV/eyDLd0I9D3rEFVyxgeW+RGXuveWsnlqT30Z8dxGqdDWwH28F2sB1sB9vB drAdbAfbwXawHWwH28F2sB1sH322U6MhlyqtCdYKWnudvFfH9B1DLnVwrGYH 5FK9nkfuiXmLyuZSUQOp/251BbTXTZ7Cco2th986+SwWCcC+Nv87LO/k+rpP rJndlFzatWN64aIeeA9ODeS/N+zHMhciAYR5m5ewyBOZV52vOPz7LDnzgz+7 iSWtc9+d0pS+NA1SDeSFV17Kktbla3ZjUdGvAOYWRejx8ppXWeaVK1sDuWXB YrAdbAfbwXawHWwH28F2sB1sB9vBdrAdbAfbwXawffTZTo2GXKq0JpQraO11 8l4d03cMudTBsZodkEv1eh65J+YtKptLnTB7ai0a3RrIv793H4uK1kD+89Pp LNm5+smWT3/Gkhuuh7iL//QhS+8sxy7ddyKr3vyCsffu133OIgHnU/76Niu4 rtwxPbSe9+CLLEINZP1vm9lzFSs4m3fpoayB/HLBv1kk6L3zE8tYphv6ccg7 dtyGnVneW2TG3tvtOp8l6f29lbuyWmcD28F2sB1sB9vBdrAdbAfbwXawHWwH 28F2sB1sB9tHn+3UaMilSmuCtYLWXifv1TF9x5BLHRyr2QG5VK/nkXti3qKy uVTUQOq/WyMBbTAeLjh5/rrm0uaO6YWLeuA9ODWQh+6zmGUuRAIIitUMrTvP 3HqUpcJ4s7P3G4QSLbus8bA//zi89Pj5hPNY5pUrWwNZzQm26xsOtoPtYDvY 3o0eYDvYDraD7WA72A62g+1gO9huWs2lwfZthO0kmp48zU+ttmZXhzK1Ghnb q2MRt4OORVKrzQ7FHdOtCduV4R0cS+hR0O3g0np6NJg81TtErAmrXVZ78sBx JGx3jSV/8jSZPDNQr6zX/vITlt7ZjORJ0PvTCTuyyKqfzA/jq8epix5oSna4 cctPWWT9bo0EtBKw+cO9k98x/XJWxO3WtW6YujfL3LGE3q+9fCqLnEG+udaG cyayvKfThLmu+AaWigyDS7vCeFegXll/tv+lrPq2uwL7yFeAV25fw5JWezZ1 AzefeRlLwqQJc13muUt6f/HR1yxplTOA7WC7dy2wPbiBYDvYDraD7d0mB9vB dnNpsB1sB9u5M9gOtoPtYPu4Y3vSkEuVVuRSvVbkUqU1gUlBt4NLI5faMjxw HAOSS0UNZOuvzs7FhK6xrcNPeGAqKzh5/rr15Of+4V2Wa4cpVgN58SG/YplT eR2b+c/LWfpY8tdAXvjJWSx5WL4odOuxV758PEtaX3piV1brUXYO1Cvrzrct ZZmdvcH2tIVXsEgA9r7zH2BJK2ogUd8eFNgOtoPtYHtneoDtYDvYDraD7WA7 2A62g+1g+0awHWzPYzuJhlyqtCZULDi2V8cibgcdQy5VWhN6FHQ7uDRyqS3D A8cxILlUsmogN037Nkvv3KEG8vMlf2VR0RrIK356VlOyw82n7sEi63erHvG6 xrqGeye/7fcPsiJut6616KpnWeaOJfS+6uMXWVS6BvLRWx5geU8HNZBUtAZy zRXvs+rb7grsfd90tqb3t3Y5gCWt9mzqBu529IcsCZNeayCve+srlrTKGcB2 sN27Ftge3ECwHWwH28H2bpOD7WC7uTTYDraD7dwZbAfbwXawfdyxPWnIpUor cqleK3Kp0prApKDbwaWRS20ZHjiOAcmlogay9Vdn52JC19jW4V8t2MQKTp6/ bj35DhfdwXLtMMVqII/4xQqWOZXXsdMeuIiljyV/DeQ9x7/Pkofli0K3HvvG hpNZ0rpl1U9ZrUfZOVCvrGc99BXL7OwNtpefsyeLBGAnbjyNJa0FCyDNLYrQ Y0BqIMH21g0H28F2sH1Y2b6N1LeD7a0bDraD7WA72N6NHmA72A62g+1gO9je E9tJNORSpTWhYsGxvToWcTvoGHKp0prQo6DbwaWRS20ZHjiOAcmlklUDuesp L7L0zh1qIN+4fwKLitZAVu3bG77Nkh3OffN0Flm/W/WI1zXWNdw7+a0HPMKK uN261vSLH2KZO5bQ+5gPz2FR6RrIG6euYnlPBzWQVLQG8oUZN7Dq2+4K7H3f dLam9xkzLmJJqz2buoGPnzSHJWFSqgayld6fPvJXlrTKSYae7U2wg+1g+0hj wXawfXDYvrGtvh1sT/YHbAfbc/6hwHawHWwH28F2sD2ygWA72D6GbJePCtvr s0seE5h3Zrt8TGCe/75dElVnu3zUK1tcY5sdWh2LTK6zPVla7pjumMJ2+ZjP 9nqt5qO06o4pbDcfE3rLXGryONJsOUepwMT7mL90bU2WVthuPupTUQPvOUtH Hl1sbw5vdUzf8Hy2m4/mUXZmO4lcatJQJyOtqJPxWlEnI60Sg6XcDi6NOpmW 4YHjGJA6GdS3S9GY1rf/6JJjWMHJ89etJ7/0kf1Yrh2mWH37U4uuZplTeR2b sHwGSx9L/vr2Uy5awpKH5XvDsPXYpZc/z5LWp++/ndV6lPpa+luXte+9xzI7 e1+k7HLeOywSgL367f1Y0or6dvx/l4IC28F2sB1s70wPsB1sB9vBdrAdbAfb wfb+2E7fNLB9nLLdtTTYXu/Y0LOdREMuVVoTKhYc26tjEbeDjiGXKq0JPQq6 HVwaudSW4YHjGJBcKln17bc/8xhL79yhvv2lW79mUdH69n/84sCmZIevd/qM RdbvVv1thmusa7h38iNO3JEVcbt1rXPeP4Bl7lhC74Xn/ZhFpevb11+6B8t7 Oqhvp6L17RecejGrvu2uwN73TWdres87fRVLWu3Z1A18bKd1LAmTXuvb1x7z A5a0yhnAdrDduxbYHtxAsB1sB9vB9m6Tg+1gu7k02A62g+3cGWwH28F2sH3c sT1pyKVKK3KpXityqdKawKSg28GlkUttGR44jgHJpaIGsvVXZ6SYMFiLeNDs Z1jByfPXrSc/6qhzWa4dplgN5Op9jmGZU3kd2/+Hs1j6WPLXQB635z4seVi+ KHTrsdeccTRLWq/79tOs1qPsHKhX1i/PO5tldvYG24ftMIdFArA3PPs4S1pR 34769qDAdrAdbAfbO9MDbAfbwXawHWwH28F2sB1sB9s3gu1gex7bSTTkUqU1 oWLBsb06FnE76BhyqdKa0KOg28GlkUttGR44jgHJpZJVA/mX585i6Z071EDm B/nkrIF0dSDrd6se8brGuoZ7Jy/ldutan8zbgWXumBJpU+kayBNmv8ryng5q IKloDeSCP09i1bfdFdj7vumMHIfrVm+gLnGtWIvXQOZba4HtYLt3LbA9uIFg O9gOtoPt3SYv5XbrWmB7cAPBdrAdbAfbu01eyu3WtcD24AaC7WD7KLCdGk1P jyZsly2SWo0kXvXUqtkhkpmNWHudvFfHErYXXNpMrerDE7a7xurJ0/zU6vg6 ygRrSYskTyXbXcPHykqx9GjE2ly6g2PSmhmo61LmySyS7Fw/SWoYHxR5Yqqq 80c7vshyja2H73vtMpY8rJmz57C8k+vrXnrirU3JpZsw1xVxjNQgv7V/E+a6 5D+UHpm/dsVklt5ZRvLV46tPf8Xy3qIJd+3JkjO/cvRclrT+a+8bmtKXJk8Y b3ZuwtwUCcZ+tvo3LGnd47zfs3RPuoT96hblh+IyMj9h8q0sfaqCn+ja7cVz HgHbwXawHWwH20faIrAdbAfbwXaeHGwH28F2sJ2Hg+1gO9gOthf5UFdsp0ZD LlVakx0raO118l4dQy7VO/nAHmVCuaQhlyqt4yiX+v5rW2oRaiAzaiC33PMY S+9sjnUN905eyu3WtVADGdzA/LixrMgTqI+jGsjDnp3HkturWINhvLzPrqje PKxjtyxgybUUay2wHWz3rgW2BzcQbAfbwXawvdvkpdxuXQtsD24g2A62g+1g e7fJS7nduhbYHtxAsB1sH2W2J01PrepWieuk6enRSPI02QFvB90q+VxqbK+O RdwOOqanR83kaSS1GrHmJ087OJbApKDbwaX15GkktWp2iFgTerus5uSR49CT p+ZRJvR2WZtsT0T42xwi4tUlDyt/rDfY9k6ev665tLljrlA8YfuvL/4Ny5zK 69ib+/+bpY8l/9/mUGI/8oSs+liX1VyarD+3ccTE5Syz86gF24k1KHOLIvTI D9QTVgcFtuecDtgOtoPtYHs3eoDtYDvYDraD7WA72A62g+1gu2k1lwbbh5vt 1GgJ25OWnzxttQ5l8jRi7XXyXh3TdyySPE3Y7h2uO5aw3TXWvGMJEAbEanbQ 06MJ211jTccSwA6I1fQ8ck/MW6TkRsmfWj3tzUdq0dZs18N4igXqlfXaqbex SLC9c6BeWb++bSZLdq5+8u1Jd7Dkhush7tK3P2LpneXYZ751KKve/IKx94tn rGeRgPPdy15gBdeVO6aH1isX7MwiAecmzE2ZayWONWGuS79UrmA4J2R9dq/9 WMHZvEvnB+q6zKkkIQsG2wmfd1l/NYsEvc98YwPLdEM/DnnHrrr3DJb3Fpmx 9+MTn2dJeu//5nRW62xgO9gOtoPtYDvYDraD7WA72A62g+1gO9gOtoPtYPvo s50aDblUaU2wVtDa6+S9OqbvGHKpg2M1OyCX6vU8ck/MW1Q2l4oaSP13qyug Pfxf17BcY+vhv7rrERYJwL5/7E9Y3sn1dbeftg+rvhVKoG7umF64qAfeg1MD OX3fr1nmQiSAcN8zS1jkicyrzk8+eChLzvz8eS+xpLVqJ6/dl6UvTYNUA7nw zr1Y0rr0rjNZVO4rQL1j+YG6lx4rlz7GMq9c2RrIAw67BGwH25tsr/EOto9T tjfBDrZn4h1sB9vBdrAdbAfbwXawHWwH28F2sH2s2E6NhlyqtCaUK2jtdfJe HdN3DLnUwbGaHZBL9XoeuSfmLSqbSz3xoeNqkWB7fg0kibidBK6Tx8dX38WS 1gTmSqDe8njGHFbrlk7623yWtCZYSx4veHhnltk5eVx83bWs2jHXcP3xucf+ wpLWHU97lqVPlbOWEqjLx+VnvsiS1gTm+qO5lh6o64/GpRKfyoQArse//vsu VnAq5bG1QwJkPVDXH/WpJCETqBZ8/OCd9SxpPff+iSwSMb/sr29gchMuXvA6 y3uLEhpLOP/j8lks2eH7r/+D1TrbSGzvu749n+3e+vaE7bJDPtsl9BS2m68+ dLZHFGF7h7UUtsvXJvls33bq2xW29yoa0vr2CNsjr2h0tpu3yHyv0pnttcB2 sB1sB9vBdrAdbAfbwXawHWwfv2yXj3jfrrPdfBwX79tzHFPYLh8j79ubP6kf B/B9e/J455i+bzc74H17YpU/0Tcwn+3mY9/v26nRUCcjrZJ7pay9Tt6rY/qO oU5mcKxmB9TJeD2P3BPzFpWtk0F9u/69KfKyIviuo+Dk+euaS5s7prw20UWD VN/uumOEv7uEv7sUu0VUur59I/6mHtgOtoPtYDvYDraD7WA72A62g+1g+3hj O33TwPZxynbX0mB7vWNDz3YSTU+e5qdWW7OrQ5lajYzt1bGI20HHIqnVZofi julW/Y41h3dwTAK5lNvBpfX0aDB5qneIWCWu863m5P3dIvMovcnTZPLMQL2y zlj3AUvvbEbyJOjtqo3PD+NlZ70DWb9bIwGtBGz+cO/kpdxuXeuyTR+xzB1T Im1yBvnmWlf88VCW93SUS1X2qyJZL1L6EwXCeFegXlkPOP1UVn3bXYH96HwF 8AbqOi7K3iJJ73xrLbAdbPeuBbYHNxBsB9vBdrC92+Sl3G5dC2wPbiDYDraD 7WB7t8lLud26Ftge3ECwHWwfBbZTo+np0YTtskVSq5HEa7Jj3g66daS9ilt7 nbxXxxK2F1zaTK3qwxO2u8ZGLok5+cAeZYK1pEWSp5LtruFjZaU+70n+Lerg mLRmBuq6lHkyiyQ710+S53elV+SM/Y6d/xTLNbYefuXuf2LJw/rwqfNZ3sn1 db+YMbMpuXQT5roijpEa5Lf2b8Jcl/yH0s997zdOZJl3TE6+YN8rWN5bNHvq SSw58/WLbmJJ65uTTm5KX5o8YbzZuQlzUyQYe+XqP7Gk9drzv2LpnnQI+/Ut itDjriM3scwrV+oTXbs94bI7wHawHWwH28H2kbYIbAfbwXawnScH28F2sB1s 5+FgO9gOtoPtRT7UFdup0ZBLldZkxwpae528V8eQS/VOPrBHmVAuacilSmvk nuTfog6OSevRU6fVItRAZtRAXrbbGyy9sxx74w0HseRxRFRN9flHm1nyn1Gx dlgLNZDBDZx5/I9ZBa9BztL5gfo4qoG8Z/WNLBL0VqzBMN6kTeQWVR0evGpX llxLsdYC28F271pge3ADwXawHWwH2zMnB9vB9pylwXawHWxv3W2wHWwH28H2 ccf2pOmpVd0qcZ00PT0aSZ4mO+DtoFsTtrvGSrYXdCyht8va647p6VEzeRpJ rUas+h1rDu/gWML2gm6bHRKOJU1PnkZSq2aHiDWht8tqTt7fLTKPMqG3y9pk eyLC3+YQgboueVhNmJuSwz9Y/DBLWpu4jkhuYPWTw49Zx3LtMMX+NseKLb9k mVN5HXtvxvdY+lj5qTQn37zv4yx5WE2Y65Jjj1z4KUta739+Iav1KDsH6pX1 6WMfY5mdvcH2IYcezSIB2KO++pIlrU1cB2VuUYQerncCTVYHBbbnnA7YDraD 7WB7N3qA7WA72A62g+1gO9gOtoPtYPtGsB1sz2M7iYZcqrQil+q1Ipcqrcil lrUil9o6eX4N5GXvHsrSO3eogVz96HoWFa2B/HLJm03JDpOfeZlF1u/W8VID ec361SxpDa418Qc/ZJk7ltB715VHs6h0DeSBG3dneU+nYPWauda2UAO56cQJ rPq2uwJ711eAhN43XrkjS1rN2fQNvO3gF1gSJgVvkaT3O2ftxZJWOQPYDrZ7 1wLbgxsItoPtYDvYnjk52A625ywNtoPtYHvrboPtYDvYDraPO7YnDblUaUUu 1WtFLlVakUsta0UutXVy1EDqvzrHsAZy9obVLGnttQZy3t53s1w7TLEayHuf O5hlTuV1bMXVT7D0sfJTaU4+ZemhLHlYkRrIadN2ZEnrg8uvYbUeZedAvbI+ s+/rLLOzN9h+d/UeLBKAPXDK1SxpRQ0k6tuDAtvBdrAdbO9MD7AdbAfbwXaw HWwH28F2sB1s3wi2g+15bCfRkEuVVuRSvVbkUqUVudSyVuRSWyfPr4H85ZSd WHrnDjWQ+UE+OWsgXR3I+t06Xmog860d1nLtmBJpU+kayM5f6PRLVfarIm0b NZDJunr/iAh/myNc3w62g+0ddgxsl2uB7WA72A62Z04OtoPtOUuD7WA72N66 22A72A62g+3jgu3UaHp6NGG7bJHUaiTxmuyYt4NuHWmv4tZeJ+/Vsf52zEyt 9udY5JKYkw/sUSZYS1okeWo6pg8fK6vpeeSe5N+iDo5Ja2agrkuZJ7NIsnP9 JHl+V3pFnphKnl3+WHN4cHLXuvrS/cW0pAb5pucux/SxJMKJyOQFb5FpdS1N njDe7Ow9az3Oz7cGY35ziyL0WPnwEyzzypX6RLPbYHupDR8OtnsxWPCKgu3B a2AepVxrG2e76TnYDrYHP9HBD3X8GnTGYMErCrYHrwHYDrY33QbbS2042B50 DGwPXgOwHWxvut05eZqfWm2dfChTq5GxvToWcXsMHWt2KO6YbtXvWHN4B8ci xxE8LH3pBHoua/5RdrgJ/bltTh45joTtrrGmY6bbSpVj8njnHhNY0tr8Sf2Y sF0J402rXj+phFi1J8mHNOmgD1d+t5qd9bHe4RHHXG6bHQruWGLVH8s6po/V H3s9rMijd+nkMcGg/qhPJR1znbXr0fUVgETA4DoOJRSXVv1RObscx0y3M1/C kMp271saievOtfH6KxrZ2QWERPp+6jJJFVHkGnRYq9SOJVZT5lqdX9bpl6rs a8CyxxFZWm5vT68yJKkKysv24B3LZ7su89zjH2qwHWz3rgW293dYvQpsB9vB 9uKfSrAdbO/jOCJLg+3bJtvlo/6+XWe7Tm/TWup9u5ftrv30jvUOjziW73bO WgV3LLHqj2Ud08fqj70eVqnHnKV1DA7l+3YJc9dx9Pe+3dwx7y2iRtNLXxK2 yxYpm4kU1cjPnauDbpUbXsra6+S9OtbfjkmYj5pjkUtiTj6wR6lveKQwxnRM Hz5WVtNzvfQlYm0u3cExac18CaNLmSezAL5zbTwF/qJT2W/fFHgnYA4PTp6/ rrl0f+8ryPmyIuKYPray/v6N11jmQgUPK3INzKPUN1wGtJ1fwgTP2mUNytyi /Ncs8q3LO9f9iKVPVfATzW6D7WA72A62g+0j+Qm2g+1gO9gePyyw3WsF20dy G2wH25OZwfbxy3bX0mC7vO3SzyFgO4mmJ0/zU6utkw9lajUytlfHIm6PoWPN DsUd060J25XhHRyLHEfwsPSlJffyrflH2eEm9Oe2OXkkPZqw3TXWdMx0OzNQ r6wH//Z1lt7ZjORJ0LtzbbwexsvOegeywrlkP/VwzhViRaQ7FnG7da3zfjSL Fdkx8gd7+lquYFsZqyu+gQWPI7K03N6CrzLe+/AWlmRRQVHgK0DrbJ1D8cSq S19IRvJyLdNtsB1s964Ftvd3WL0KbAfbwfbin0qwHWzv4zgiS4PtYDvYHv9U gu1gex/HEVkabB9utlOj6enRhO2yRVKrkcSrnlo1O0QysxFrr5P36ljC9oJL y19/ruF6AjQyNj+1Or6OUt/wSPJUst01fKysFEuPRqzNpTs4Jq2ZgbouZZ7M IsnO9ZMU+ItOpsgZ+x1/4B0s19h6+Fkr3mKR+FQq1ohoa1bLUFx2UBRxjJwB LQWCbX1sZZ227FGWuZA+ufcWnTPzDyw5c75VdtA33BUP64G6KXnWna3xsD8/ UHepGnvxqvdY+lS6G15Vs7026xGwHWwH28F2sB1sB9uVTwrYDrbLycF2sB1s B9vBdrAdbAfby7KdRNOTp/mp1dbJhzK1mrDdNZYEvV1WfXLdqudGzQ79pVab HVqtCUILWhO2K8M7OKb/UydwdlnNDvrSCfRcVjN5qneIWCNuU5/J04TtrrGm Y7o1YbsemR/7q9tYemczkidB7+tf/guLPPWTehhfPd760qqmZIdXtzuORc4C yybMdcmxtDWuI5KTrzz1DZa05sfhrZH5dsvnsPTZ5NIXTbmeRf6vNnrwfMm6 vVh6Zz1Q1+WaOSfIT4Lt/qRvODn/vTd6WH7/vgtZ9W13BfaRrwBznr+MJa1m xKtH1xc9fx9L8rkJc136QjKSrx6Xf/dplrRWME8EtoPtYDvYDraD7WA72A62 g+1gO9gOtoPtYDvYDraPLduThlyqtEo+NxtyqWUda3ZotSbMLGhFLtVrTXjr 7RCxIpcqraiBHOQayGcf+jlLWl2T6+vKYPuTeStZskN+oO715Ovph7PMqcgZ mf91yf0sfSz5ayA3nrWQRUVrID/dcxNLWi/f8jWLStdA3rzoOJbZ2Rts7/rK BBYJep/5nRNY0pr//SLnC0jnMN4MvAekBhJsB9vBdrAdbAfbwXawHWwH28F2 sB1sB9vBdrAdbB99tpNoyKVKa/LRSBpyqWUda3ZotSYILWhFLtVrRS5VWgck l0pWDeSc6+az9M4daiAfuP+/WVS0BvKrG+5tSnb41s/OYdGw1ECedNIGlrR2 LoCs6b39YdNY+mxy6ak/WMYi/1cbPXg+ZP4vWHpnPVBHDWROuKuH5Rc+8Sar vu2uwN71FSBxbMnpH7Kk1Yx49eh6y7pZLMnnXmsgJ+/0IEtaI/XtYDvYDraD 7WA72A62g+1gO9gOtoPtYDvYDraD7WB7H2xPGnKp0ir53GzIpZZ1rNmh1Zow s6AVuVSvNeGtt0PEilyqtKIGcpBrIPOtEdEg/W2OW868g2VORfjbHNZXAH1p ssoa35rwKsvsHAy2O1uDom2gBhJsB9vBdrAdbAfbwXb5SQHbwXY5OdgOtoPt YDvYDraD7WB7EbZTo+nZz/zkaat1KJOnEWuvk/fqWH/J04Tt3uEJUQuO1a3m 5AN7lAnlkpaw3TXWTK3qw8fKSn2mVvOTpx0ck9YmUfXAu2CgTgLXpQJ1EpfZ 1YGsOMcVWOpjXcO9k5dyu3Wt/EDd5Zgpc61ItNz5K0CHDUzwUuoaeJfWA3Vd 5lSS7QWD7fzvF7o1GMZLorqiejP2vmufM1hyLcVaC2wH271rge3BDQTbwXaw HWzvNnkpt1vXAtuDGwi2g+1gO9jebfJSbreuBbYHNxBsB9tHme1J01OrulXi Oml6ejSSPE0us7eDbpV8LjW2V8cibo+hY80OxR3TrfnJ0w6OJTAp6HZwaT15 Gkmtmh0i1ojb5uQJUV1WPXmqjyVBb5e1yXYZWuuRuavEkdRQXBd5AvXicU7n qNI11htseyd3rasvXXDHpCc33nEKy5wq4pg+lpxfAUgNxckTsupjTatraVID 9cq6ZsXDLLPzqAXbuicu1TvWOYw3A+/8QD1hdVBgO9jeSjmwffyyXXcMbO/w cglsB9vBdrAdbAfbwXawHWwH28F2sL0/tlOj6dnP/ORpq3Uok6cRa6+T9+pY fzuWsH00HYtcEhrg/5el3iGhXNIStrvGmo7pw8fKanquJ0AjVmrgXbdmplZP P3mHWiTYroTx9dgE5iMF6rVVCcVNq17EKD93yUd4pPhNt9Ydkse1l57FMjtL mHz81PxaiZ85w/XHHSb/nuW1yj3R13LtmBKKS6tke/JY0DF9rHnHko9/AgT9 8ccLT2J5x+qPpmMJ2fRAXX/Up5KOJUTVh7seT9/vtyxpbXZotSaP+g4nfNat +iNtDXMJ54U3X1Ir6Vx3YGvdIbFW/z0S2/VXNHpnb406qWx3vYTRP7Nmh8Sa iFS266IG2FvZHhEF2N5hLdeO5bPdlLlWvmP6WNcbGK90tvcq8ryE0WVOpbC9 rEy2K1bTc7mB+Ww339iY71V0eivWWmA72A62g+1gO9gOtoPtYDvYDraD7WPO dv0jD7aD7WA72D5obK93rCDbk6aXzehWieuk6aUvkcIYyXZXB92asN01VrK9 oGMJvV3WXndML30xC2MiZTMRq37HSKQsR7K2dkjY7hqrW80OCceSphfGRMpm zA4Ra0Jvl9WcPHIcemGMXvdCgt4ua5Pticjzl5LIKl+nwF9HIk+gXla0Ncx1 kcBFE+am5PAZN81kSWsT1xHJDax+Mu+VLSzXDpMzFE/YvuSIC1nmVF7HXnn9 KZY+lgTbzXh4z9Ufs+RHvglzXXLsvk/9hiWt9674kiX9pECgXlnfXjaPZXb2 BtsfP/U5iwRgL99xP5a0NnEdlLlFkW9JrkC9yeqg6rX+P3hBeSI= "], {{0, 332.}, {500., 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{500., 332.}, PlotRange->{{0, 500.}, {0, 332.}}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.8492004062843323`*^9, {3.849200505146264*^9, 3.849200538385833*^9}, { 3.849200680164405*^9, 3.849200681738471*^9}, {3.849200874802997*^9, 3.84920087756462*^9}}, CellLabel->"Out[167]=", CellID->66792188] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Editable->False, Deletable->False, CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Contributed By", Cell[ BoxData[ FrameBox[ Cell[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457], Cell["Sander Huisman", "Text", CellID->130075600] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Keywords", Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms (e.g. functional areas, algorithm names, related \ concepts) that should be used to include the function in search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136], Cell["Hitomezashi", "Item", CellID->49888280], Cell["Pattern", "Item", CellID->605495997], Cell["dashing", "Item", CellID->356986034], Cell["stitching", "Item", CellID->359360848], Cell["truchet tiling", "Item", CellID->586293413] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420], Cell["Just For Fun", "Item", CellID->732882047], Cell["Visualization & Graphics", "Item", CellID->891139041] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Symbols", Cell[ BoxData[ FrameBox[ Cell[ "List up to twenty documented, system-level Wolfram Language symbols \ related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728], Cell["SymbolName (documented Wolfram Language symbol)", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->332817449] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Resource Objects", Cell[ BoxData[ FrameBox[ Cell[ "List the names of published resource objects from any Wolfram \ repository that are related to this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769], Cell["LSystem", "Item", CellID->213306766] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Source/Reference Citation", Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->91842863] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Links", Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842], Cell[TextData[ButtonBox["Hitomezashi Stitch Patterns - Numberphile", BaseStyle->"Hyperlink", ButtonData->{ URL["https://www.youtube.com/watch?v=JbfhzlMk2eY"], None}, ButtonNote->"https://www.youtube.com/watch?v=JbfhzlMk2eY"]], "Item", CellID->805128905] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"VerificationTests", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Specify an optional list of tests for verifying that the function \ is working properly in any environment. Tests can be specified as \ Input/Output cell pairs or as symbolic ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "VerificationTest", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/VerificationTest", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " expressions for including additional options."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoVerificationTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel->"In[3]:=", CellID->667877521], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellLabel->"Out[3]=", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Author Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Author Notes", Cell[ BoxData[ FrameBox[ Cell[ "This section, when used, will appear near the bottom of the \ published resource. Content displayed in this section can include background, \ possible improvements, additional information and/or implementation details \ that are otherwise beyond the scope of the function documentation.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->991784503] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Submission Notes", Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->932041030] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"HitomezashiStitchPattern | Definition Notebook", TaggingRules->{"CompatibilityTest" -> HoldComplete[ BinaryDeserialize[ BaseDecode[ "OEM6eJzVWVtT20YUrjEQBhxaMulMkyc98EAyadJpO9NL2iauDcQdIMCa9JW1dGQ0rHeV3RWg\ X9a/17MrydhGciTbTFNPJsja1XfOnut3LH9JPWqJQSgi7u3ehBKUCgT3a2rlJApA+/nLS2qp4+P/\ 9Sb38M/K7seIMrW5/QGkWT+KBj2Q0refnbdmB6EDOMGLRiuSErj+QFkE/\ hfq0e4VXlFtnhIaekJc4q7lg0Bp1ejSfj/g/dOIgSKNU1Aiki504xDIcptqimouv+\ cuFGq58icT7qXZlgButwTXcKOPqb7w60UnPwLwFNnJ5JFYaRi0WIBqn7fBD3gwqu757SOOUSp7LG+\ rWj6KGEPFXt5dTAWcQh9VBYma+kE/ktY0w+O+KavUKYRCBVrIOAFMcFQKVLf+\ q6m1PRqwSKJnaurhMXUZ6A5XmjJGvinS0F+\ dxdgzmbXRFWOeWSdaYjz8JQIjr35IQ3uGiLvmSX8lkUyeFBrXKkeVCeuNBIuELNDmNmFCt2qkdk6Wf\ v195MbS63WrPMavIs/KKv/\ cXy6wUp2AkbfeFtfcJoFSv5RFzS7eRxrdCJ5JqHX0NKMuNDGuFgi7YZKuDYzG4CHuxjvBPHQkBiZXf\ 5QFPpbBFQKeXyVlYV8CfpPqwRlXaTnIsUa7KjoNQ+DeGb+\ g3GPgtYAxNdUwi5IwxUb4tbKVXITFipcikK0uDPAAGoy4fSmicH5QzN1Gk5krLAdXGNBft3BTX8gA1\ LetC3Ave+IGb2/e3jbSSSNbs982UR6NmLb5zXWOpuTL7BaBJDdzXV26mg0doS674iz08Dqt+\ 8VeXgD4mIPreONBlgJr+0z0KDu/MC1t1KLqp7Ji90G/\ CzwPeFKIyqfrHuVu3LoQgQvtgDLRH1WskSomNXZJ7K9YlCm/\ zFOd4uqWXTU9icDHCPDU5FFqAeZlAk+\ wXQzPOy5gBCxrKStdGdnUnrNKVGl22UUWdCkNUd9XVYH3quRYSmUmpY5ZKLPnEVwP7Zlr4yRB1GFVl\ bcjBQfQp27c6XMhk+qU+VotG2/kJ9/rspJycCcSb1oazilmWo1dUqsH+\ KQtjHtV7dYHnZWxcYkLSyVMiQ3UHLAuUgXqPtQtzEak0JY1r5rdnbbJS6ufetDBmt3HSF3rcCss/\ oSR60OtCw6eApeue9mJ1LAz3IHt3Vp7KH5EZk3tVm6DlAseuJQdSxECWsvyuVl1HlE0f4hYSotho6m\ UcAPLvU9Us3Juh6m2JEb144GJobWmJSNdsRg4GyZkk1igQ9DUM/\ NBOoGRtVagkwHkSbLj1Sn4IE10O9nSbXVZjFdGhE6olUxPwxkqGUGXD9Dmd0bPL+zn+\ VucCeYZVqZMEhX4/fNClGqEvhrONAb/YyESDoGXtA/ERYdU4+1nhZhJt8uLg0TYzET+3kROZ/\ YlrVeGz88E9Zmx+OP5vVCB1t+HtFl4/k6hHpPEvjht/ydMfqZqgQDffbJeTVLn1tzOtQz+\ VSHMfVD2YqXHzDMzUX9RiD8fM6+KW5aK/1bOHv8tAZ9Lyc+Idv9ceA7iShpi/ZnMkHl49+\ uS7SqXbc+s6ox0uzPlN/bsx3HMtiicFDuddi8UdpH0ex7nlCTdtbHf2yfeAuUz8R/sZ+etcc9oqyP/\ 1LoXgXJ4qqpjqBiVytHC6YHj2i7iOb4UA4c6HK5BOmmHeeEogf8G4Pi4KcIocAY0NkjOtZCIpBy4CT\ F2wHvptIUTi8i5DtSFgdYydmikxQAPizZgseMKjrgaw8/RYwrhboqrgxC39hhk0t/cTg/\ 1dHpYy6aH8TlCbaLrk2YjJJVx4TBiHTj5bmz4CqLgfdhDgg6L1CGioG9x+\ xY6tG9AO9zDs2EcDuvRetMalxpasHaEJNB0BOvNVRIPeoKRp8nbn0PKEUyeJ9+Snkce5811pZ/+\ KouXDOV2vNqeXMp9D7QyIujZnSeKiMG4/\ WyabbVsUI30dbWyR5mC4Y6npzAQV7A7CHW8e0ORJGTUV01ufdzMGR2GbTwVmCj3d8A9cd0NNHoiRcl\ 98fkvn3IKDA=="]]], "CreationTimestamp" -> 3.850236326842612`16.338062376407088*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.850236326880223`16.33806237641133*^9, "VersionInformation" -> {"ResourceVersion" -> "1.0.0"}, "TemplateVersion" -> "1.6.3", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"13.0 for Linux x86 (64-bit) (November 22, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.921569, 0.341176, 0.105882], CellTags -> {"MainDockedCell"}, CacheGraphics -> False], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{0, 0}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CacheGraphics -> False, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, PrivateNotebookOptions -> { "FileOutlineCache" -> False, "SafeFileOpen" -> "IgnoreCache"}, CellLabelAutoDelete -> False, CodeAssistOptions -> {"AutoDetectHyperlinks" -> False}, AutoQuoteCharacters -> {}], Cell["Hint Styles", "Section"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell["Template Boxes", "Section"], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.627441, 0.627441, 0.627441, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.5, 0.5, 0.5, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "]]}, { FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], ButtonFunction :> (NotebookDelete[ CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}]]; If[ And[ MatchQ[ CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}], Blank[CellObject]], CurrentValue[ ParentCell[ EvaluationCell[]], { TaggingRules, "AttachedMoreInfoTag"}] === #], CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = Inherited; CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = Inherited; Null, CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = #; CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], ButtonFunction :> (NotebookDelete[ CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}]]; If[ And[ MatchQ[ CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}], Blank[CellObject]], CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] === #], CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = Inherited; CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = Inherited; Null, CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = #; CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ReleaseHold[#3], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{RSNB`clickTime$$ = 0., RSNB`timeout$$ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[AbsoluteTime[] - RSNB`clickTime$$ > RSNB`timeout$$, (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Mouseover[ Graphics[{ GrayLevel[0.65], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], Graphics[{ RGBColor[0.988235, 0.419608, 0.203922], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]], "Click to copy to the clipboard"], (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Graphics[{ RGBColor[0, 2/3, 0], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "Copied"]], UpdateInterval -> 1, TrackedSymbols :> {RSNB`clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> (RSNB`clickTime$$ = AbsoluteTime[]; CopyToClipboard[ BinaryDeserialize[ BaseDecode[#2], Defer]]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ RSNB`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Template Input"; DefinitionNotebookClient`TemplateInput[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Literal Input"; DefinitionNotebookClient`LiteralInput[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Insert Delimiter"; DefinitionNotebookClient`DelimiterInsert[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Subscripted Variable"; DefinitionNotebookClient`SubscriptInsert[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ActionMenuBox[ ButtonBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Tables\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], { "\"Insert table with two columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with two columns"; DefinitionNotebookClient`TableInsert[2]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Insert table with three columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with three columns"; DefinitionNotebookClient`TableInsert[3]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Add a row to the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Add a row to the selected table"; DefinitionNotebookClient`TableRowInsert[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Sort the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Sort the selected table"; DefinitionNotebookClient`TableSort[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Merge selected tables\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Merge selected tables"; DefinitionNotebookClient`TableMerge[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ ButtonBox[ StyleBox[ TemplateBox[{ "\"Cells\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\ \""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], { "\"Insert comment for reviewer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Insert comment for reviewer"; DefinitionNotebookClient`CommentInsert[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as comments\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as comments"; DefinitionNotebookClient`CommentToggle[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as excluded\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as excluded"; DefinitionNotebookClient`ExclusionToggle[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { GrayLevel[0.9]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.5}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.988235, 0.419608, 0.203922], ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> RGBColor[1., 1., 1.]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", ItemBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "Text", FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Open Sample"; DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]])& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Style Guidelines"; DefinitionNotebookClient`ViewStyleGuidelines[ ButtonNotebook[]])& , "\"View general guidelines for authoring resource functions\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{5, 2.5}, {5, 7.5}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5], True -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Tools"; DefinitionNotebookClient`ToggleToolbar[ ButtonNotebook[]])& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Check"; DefinitionNotebookClient`CheckDefinitionNotebook[ ButtonNotebook[]])& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Preview\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"In a notebook\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`$ClickedAction = "In a notebook"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Notebook"]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"On the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`$ClickedAction = "On the cloud"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Cloud"]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Deploy\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Locally on this computer"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "Local"]]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"For my cloud account\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "For my cloud account"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPrivate"]]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Publicly in the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Publicly in the cloud"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPublic"]]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"In this session only (without documentation)\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "In this session only (without documentation)"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "KernelSession"]]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "SubmitUpdate"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb], "ShowProgress" -> True]])& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function \ Repository\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Submit"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepository[RSNB`nb], "ShowProgress" -> True]])& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {-1 -> Right}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.988235, 0.419608, 0.203922], RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 0.25}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, { 23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, { 33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, { 31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> 12, AspectRatio -> Automatic, Background -> None, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], GrayLevel[1], RGBColor[0.9568627450980391, 0.8019607843137255, 0.75]], Evaluator -> "System"], StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[]}, If[#4, CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]]; With[{RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[DefinitionNotebookClient`$ButtonCode = HoldForm[ #2[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]; CurrentValue[ RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqPnQeIQhCyIrAwodd2K5Yo5IwQB2XDFcGXPAsWu mjNdNmVARkARoDhc2aswqWtWLGhqIAgoDpSFuBao5QqGURB0BWwgAxgQo4xI 04h3G5E+JT7ciIkFYuIUAMJyEaA= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqMHARIQhCyIrAwotcmIc7UuOwQB2XDFcGX3/MXX 6LEv12ZDRkARoDhc2cswqY2GnGhqIAgoDpSFuBaoZTWGURC0GmwgAxgQo4xI 04h3G5E+JT7ciIkFYuIUAJxlBG4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqN3hfYQhCyIrAwo9e36ma8PbkIQkA1XDFf2vtzt 28Obu6Jsl2uzQRCQDRQBisOVvYlR+nb99I5gU7gaCAKKAMWBshDXArV8unUR TQ0EAcWBsgxgQIwyIk0j3m1E+pT4cCMmFoiJUwBBtDmK "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> Baseline, ImageSize -> Full], RowBox[{ AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.5], " "}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -0.5}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.05555555555555555], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, { 9.741542500000001, 7.416875}, {8.175292500000001, 7.416875}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW 1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7 2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro 0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/ ACBxmlc= "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["FormEditValuesButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TemplateBox[{ TagBox[ PaneBox[ PaneSelectorBox[{False -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWHlMVEcYf28XlGM5VlcRapRDDFK0sBaLBWVXUDxTKpe4JgvoQlALAsvV hHIoV4KK6wGiQlUqoqDcKKysDSZtPZJWTTzaxGrV2mqrNtqKB3Qnz8+Zd6Cv tn90vkgyv+/4zc58M9/3dEtIXZoooSgqw8r8Z2l8tjo9PT43wtE8iUrJSE5K 0a1akKLXJenSAxKkZlD58h9y+X+M8Z7a/I3G7V/lHQgKp2kGmzw9rcrQb+j/ ZItPIGBvNywsVVGVJ01DWAqbpBYUFZ1hGsTYvssRqTLHt4nvoIgvbP6ZjM+I Nt9PzUePPdbvcvX+ZwzTQ9vv8yMh6R04fFNY0/ciOkM8wzjXY4+F47xJgiPF cqRuY3kOlnUGLFq4khsv53NPv8zd7NXs/lYsR+158Gm9l1Tu7IYwmq7oJaMd uWMnR7jMMXLd/isYt7UXx4F9Rjtj1NmNXPPsCKyh6S9+AHzUOHEcpR3gMWM+ iQdHrq1kZFkmidvYQS633399ZBf31G21F/ZdLmmvPo0zVcyalCFg33Qr78Ce 7+qv5jdOm8W3e39u9yN+npR3ieHQ5ArlWGwW28pBIXwfilvFcESnC2eyMoS0 ii8UstncZ2XDjiaROihGjbMcyWVJLBP0N2ELC8vm229icHFPKKo+Y3zK3Jj6 q2lV3gFvZpk4BfSqKHwfFC4fLNDml3cVt2IGO7m+5sRzfoSNxglemGVV8dZT yRXqaKeJ5V1gkWIALX5bk8r5u+3x3qEbwvuN3kJ1DN9j5mLQdz60skXIeM9X PoPMnWYzdD4cjoGRMC3XRyI5+CNolyQhJK4A5mWdXGs7Ofs3HP+z9nz16fbf Scz41Muf67c8B7Q7z6L5RiPMAxZxbfU1OFbDtVDNSGtmnb4qQz/W1F1ElYsc 8rG9A6BF8x1fw2zhSnbddHHHJ115kl3rJNI1mzBL6HI2x9SglrugQzHzG7Ft RQ95IglF+DfwqylNb2gRugnWMnNteFWLj/+FsNlLyd3tfoTrTPWZV+vUcBnQ cHbre8HoTzy3ljGYxzT2Cep3MespaibRtZWwGy9vnPmkmXPgjy1fgte7Mxlk fhwZa/8V+9EQTZuPzwg4HBSA1J4XZqCotB1gExTO58hrYOoYM5RzcCcAHHIn QKpPD8eBzx12GHP0PAlfjXPI3C8J7JXlSNjt9vuSYVrKkjbwUs4R2quCwxLU mFJTZpCoaQjXuPqrgPmqhBhs7XH1lTsxmP889su24lOEZuzEyJE7ZJ3Gu23o Z9bDHvitrb2A0Um+NedwxKO/IGzrKZhn15FnRFHeAdh2zSZuXxscCXtpGorR kxqpRWx2zxPQsTk8/bgrxe+MaWj9UXw/be11pZih5VduxzPCqu03kiPFALPM 3VyOCV5kv9P3ovJk6rbkipI2du3n39AwLegO3UBzn0CYH3vMfzHUMeyM4Mu6 7Vwfiqr6BrRxBWhO0/suAxK5jm8fpoX7LszAz4bJStAanylcGCwiFbD9V2ja xk4ZosmNTsc+Xv51F4Xit9yduwJbqaJ0JYEfoT4xaw9YFDaBVuaId93cVb58 MxPLsL/UIlSz2URmft3FGL2tA7YI1UAONF7HOeWnxhb6XULrJFnQsLHz+XDW x6ooZQjcOD4DKXsvkfnu6i1kYxpaVcw/H/5QRQl7L0lk27HfLJCtp8Rw6EqF fDe08F+54MjaC0jX8aDpFtglV4jhCAoH+44HzPvdfFuTy63xMGwd5GMpKq8B fNTRpNZj2vw4RvznkfhoZ7A/fBO9AdzTEhrM70HiNBGj1jJcRY3PJvmSHod+ Ao3Yr2j8HVXeNXMx7Cr7K7HmHOzFZGXWHpytjmPEcXx2kIzWcG15juOYqUHk dz+S2OwRVmFa3DkhaboljgF1R9wc6R3A/RJIz5PWe1wsNlssB0XFZgllI8Qe TrOhxcJSPAfqIjabhOLkNYSvFsL3XlqsG67qv264eqcYuv4gI9V/bz+Kptcf IbETz4ualXP+zf/+WMuWJO08i2J1P0qrYjJTIl2WyXx5NV6PK1C88/bR/7vx N3kqZvY= "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}], True -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWG1MU1cY7m1vS4GWttBLy0dLWyhl5aultrT0C2QzM5rMIWgyluDHkMwf YgBF9gc1cWpijDNuRNFsv2Rmuqmb/NjIYIFkG2qyAYnAljidODfdmItu+AHs Xi6n59x7D3LH9mPnRJLzvB/Pue95z3nfat3UWLVFKpFImpX0n6qNrRVNTRvb 1mrpRc225tcbttW/tnJbS31DfZN/k4wGS+b/MSb/jxFvt7QX95R86TytXyMh WEztye1w97v7c97SBAG2tEHIqRpXX/ksnPlnCVIiMTWXz0DMN5rZSGqX4l+u t+wp+wn1z05Lu7ZCiIYfOjoTnf+MQfd8aFLoiZmRR4FbeEl02tQsnkFpCT/E +1lsUtViOezHOJYzhZdSVqVt5vvLe0/ldpzk7mbZN2I5vEPAJnjPdlBpnQOJ 4s9Qb2V3SB0Dk9rM7b4xiJNJ4jigjSINiaAV3TO1FjEgSr+PWRjFcRR+AiyS X0RxqjrnCDtNO1Bcpga5HJp8tud4m/2Yd9g3WvixZxBmqpg96SqBfmDCeXrZ t6XjzjOaMEbvhfADYZ4UdYvhMLfhcsy8k6sl1+PvQ8EFMRymJnwm6ypRLcse nI7rc1kC1xshk+sVRmkcn8V2AGvfi1jKy24vxhBvs+71XI4+Zm9M6XhuR5J/ cZaE54CcqoH3IS49eaWlvai74AJkIHWOE9GnQg/FPQl5kMW6zz2QfSh1nTKr qBto2I8CKXxbbQeF0VYVB27i4828hanrhRYpq4E8dF+WOBcFe8xmZv5OcxhC 9xdiYKexjm9DSP0/AGl6A4NYdoN14SW+NqnjfkPkT++QZzD0G4pFH6u9fDvz LiD1XGHWxT1gnbKKr+s4AX35rxtqpfHsPrXl7n4o8Y4wlQsditTIIyBl1iVf gVXaZm7djLfBk3b1cWsdIcs5DFkMr3A5NKHg3RgH7dN5BsmUT9ETse6F34Cp pkTBedxNkKno2hCrxZG/GIyq4mTKA1hnPJdj+6wVMEiYlzg6PX8mT2UqFlMV cU/Q0cnuJ/8ciuYcAdGYv3H0SbPnIByuL4BVUoBFjBtQX74xeQrwZmmHZwQ4 5PrYmQ7hGSSS3HeADt0XCTicXWwdY4duOewEAIfCEMu/wYU44LmDCEOOyFTG VphDdL+EiZU0DkQ7NEks0FIWXgRWuuW4WOV/QDCNqSTJh6Lls7DGlY4DTFuO YyCTYPVVGFgseQX3Zct6Yy6mxyFSdget0zDa7n52P9wB31rvMERVLs9VxOPP DOYeAOu8d9Ezor/Qj0TwML+vpapBLOlvb0ElBGlujUzF7iCHQ+Xm7xS+M3RN /AjeTzLJth8yBH/hdzxSZfBXlMN+NHZfTvI5EvLQfic67eqzH8s+VHiRW/uF N9RYB2SBm8xaEwTr8EPhi5G6npsRwml/m29Dv4FfA6llNxs+3yhAMrcL9Y11 4L7jGYTZoC6JffmTuHQWy2wEmG+MvvRqXaW5zdSE2Hi9Izj/wbuGV6EWVWN7 U/8S0yc6TsXux1kgJbUw6nRXOf9m2g5Ae4I01Lp60cz3jphaSA3UMNSCHPDf gDmlrYAajk7cPlEWZsjUmjL9y1SNrhLcOCEDOn3X0HxPdOJ0ymet+4TnIxxU Dd46fQtXj/tmgekeEMNh24+zLTgvfOWoau8wIwv9HpgAetmHxHDo1wB92nbu /S67bW7j13gwSI0ila6+XcAmdR0qVRUZN7AzeQWKK9KAfuAW8wbwTws32O9h pjILojIVrKLRJyoXahH4EUjE/oqGv6OKulNWg6hyfyV6roJYqEscp2C2yilx HM73UW/+6+ZdckoTQn/3M9PcKlUa62DnNBerCXEMTHfEz5HII9gvxbCp4D0+ Zm4Vy0H3kjtx2Qh8LyShs1UunoPpIly9OD/OroytONx3La1+oar/rJHotB8N /4F6Kv1Onkz3hx+iWPRp/jm6Y/gX//sjU6U3eK4wvsIPcjvYzCRkph3sLy// DcvuuIyle//vxt/PCE6d "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], ImageSize -> {Automatic, 15}, ImageSizeAction -> "ResizeToFit"], MouseAppearanceTag["LinkHand"]], "\"Edit values\""}, "PrettyTooltipTemplate"]& )}], Cell["Documentation", "Section"], Cell["Usage", "Subsection"], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell["", "UsageDescription"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell["Details & Options", "Subsection"], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell["Examples", "Subsection"], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.906]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["ExampleImage"], PageWidth :> 650, CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> False, MenuSortingValue -> 10000, RasterBoxOptions -> {ImageEditMode -> False}], Cell["Links", "Section"], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.855, 0.396, 0.145], RGBColor[0.02, 0.286, 0.651]]]], Cell[ StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]], FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.969, 0.467, 0.], GrayLevel[0.467]]]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell["Annotation", "Section"], Cell[ StyleData["Excluded"], CellBracketOptions -> { "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Excluded"}, "Message" -> {"Message", "MSG", "Excluded"}, "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 4, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Comment"}, "Message" -> {"Message", "MSG", "Comment"}, "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, "PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.982, 0.942, 0.871]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "AuthorComment"}, "Message" -> {"Message", "MSG", "AuthorComment"}, "Output" -> {"Output", "AuthorComment"}, "Print" -> {"Print", "AuthorComment"}, "PrintTemporary" -> {"PrintTemporary", "AuthorComment"}}, CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.905, 0.926, 0.956]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "ReviewerComment"}, "Message" -> {"Message", "MSG", "ReviewerComment"}, "Output" -> {"Output", "ReviewerComment"}, "Print" -> {"Print", "ReviewerComment"}, "PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}}, CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.934, 0.954, 0.879]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell["Special Input", "Section"], Cell[ StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}], Cell[ StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["FileOpen"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell[ StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["Directory"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell["Misc", "Section"], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.459, 0.459, 0.459]], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "13.0 for Linux x86 (64-bit) (November 22, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[640, 23, 107, 2, 70, "Title",ExpressionUUID->"4e8151d9-cf48-4029-8d76-696eccd40b2f", CellTags->{"Name", "TemplateCell", "Title"}, CellID->384848836]}, "TemplateCell"->{ Cell[640, 23, 107, 2, 70, "Title",ExpressionUUID->"4e8151d9-cf48-4029-8d76-696eccd40b2f", CellTags->{"Name", "TemplateCell", "Title"}, CellID->384848836], Cell[750, 27, 117, 2, 70, "Text",ExpressionUUID->"094da2c6-6f4d-47b0-a98c-eb5533282cd7", CellTags->{"Description", "TemplateCell"}, CellID->822707583]}, "Title"->{ Cell[640, 23, 107, 2, 70, "Title",ExpressionUUID->"4e8151d9-cf48-4029-8d76-696eccd40b2f", CellTags->{"Name", "TemplateCell", "Title"}, CellID->384848836]}, "Description"->{ Cell[750, 27, 117, 2, 70, "Text",ExpressionUUID->"094da2c6-6f4d-47b0-a98c-eb5533282cd7", CellTags->{"Description", "TemplateCell"}, CellID->822707583]}, "Definition"->{ Cell[892, 33, 1104, 27, 70, "Section",ExpressionUUID->"492ea88d-9596-41a9-8db9-17502b1f3c0c", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710]}, "Function"->{ Cell[892, 33, 1104, 27, 70, "Section",ExpressionUUID->"492ea88d-9596-41a9-8db9-17502b1f3c0c", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710]}, "TemplateCellGroup"->{ Cell[892, 33, 1104, 27, 70, "Section",ExpressionUUID->"492ea88d-9596-41a9-8db9-17502b1f3c0c", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710], Cell[7262, 205, 1880, 48, 70, "Subsection",ExpressionUUID->"3cf9c474-7202-448c-ad78-44739b1f117a", CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898], Cell[10978, 333, 1329, 30, 70, "Subsection",ExpressionUUID->"3aec1f3e-69cb-42d5-b374-d0eafb7872c0", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828], Cell[17999, 531, 6926, 150, 70, "Section",ExpressionUUID->"be25c148-3288-4619-9afd-add297c688a3", CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657], Cell[96564, 2271, 918, 24, 70, "Subsection",ExpressionUUID->"7fe76c84-ae4e-492e-9313-28cc35d6af06", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457], Cell[97572, 2303, 893, 24, 70, "Subsection",ExpressionUUID->"02fc1d1d-0a54-45ce-81c2-4011cfcbd348", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136], Cell[98744, 2347, 167, 5, 70, "Subsection",ExpressionUUID->"b2156664-7fe7-4df0-a9fa-a73ef1bb19c0", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420], Cell[99062, 2363, 870, 24, 70, "Subsection",ExpressionUUID->"4107139c-cab2-456e-8016-09c0df807c7f", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728], Cell[100474, 2402, 919, 24, 70, "Subsection",ExpressionUUID->"116ac934-8e93-444c-8244-f647a4672b7b", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769], Cell[101476, 2434, 971, 25, 70, "Subsection",ExpressionUUID->"b8d1c885-2519-4b2e-91de-5fb923a64b92", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429], Cell[102982, 2474, 823, 24, 70, "Subsection",ExpressionUUID->"7f890ccd-4b1c-41ca-bc89-ab124298d58d", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842], Cell[104105, 2510, 1762, 43, 70, "Subsection",ExpressionUUID->"57191941-0df9-4e74-9ce2-f0bf9c0ec783", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343], Cell[106178, 2573, 1048, 26, 70, "Section",ExpressionUUID->"ce29e9fa-7b5b-4015-a700-1defee6f2156", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325], Cell[107775, 2614, 929, 25, 70, "Section",ExpressionUUID->"3109f2ed-6637-4886-ac68-850bab07a3be", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082]}, "DefaultContent"->{ Cell[1999, 62, 5064, 130, 70, "Input",ExpressionUUID->"1136ef61-14b2-432d-845f-6d3fa889603b", CellTags->"DefaultContent", CellID->133226972], Cell[12683, 375, 888, 16, 70, "Notes",ExpressionUUID->"de194803-6569-48e4-b8d6-82eabcdb44d5", CellTags->{"DefaultContent", "TabNext"}, CellID->205926883], Cell[24950, 685, 104, 3, 70, "Subsection",ExpressionUUID->"8e6ad962-3870-4d04-9780-ad9e3307a888", CellTags->"DefaultContent", CellID->279727361], Cell[25057, 690, 186, 4, 70, "Text",ExpressionUUID->"e6d7a15d-e710-4cb1-9615-d0a991b299d6", CellTags->"DefaultContent", CellID->716171736], Cell[25268, 698, 521, 15, 70, "Input",ExpressionUUID->"8f0ec61b-f639-4122-808b-be01d48bb83b", CellTags->"DefaultContent", CellID->789629144], Cell[25792, 715, 5326, 185, 70, "Output",ExpressionUUID->"c5114eef-4ed5-4adc-b842-b79ef029f99c", CellTags->"DefaultContent", CellID->753776593], Cell[32364, 938, 95, 3, 70, "Subsection",ExpressionUUID->"a526dc0b-11a6-434e-8fd9-1234d5c99a7b", CellTags->"DefaultContent", CellID->513869560], Cell[32462, 943, 219, 5, 70, "Text",ExpressionUUID->"3237583f-7c2f-4c49-956d-ad2fbfd3978b", CellTags->"DefaultContent", CellID->70133110], Cell[32706, 952, 327, 9, 70, "Input",ExpressionUUID->"44f40d0f-7c82-4c76-841d-59b1a0e266fd", CellTags->"DefaultContent", CellID->385995849], Cell[33036, 963, 640, 15, 70, "Output",ExpressionUUID->"36112479-236f-4f73-9f55-01e6251712c4", CellTags->"DefaultContent", CellID->189480557], Cell[33859, 989, 226, 5, 70, "Text",ExpressionUUID->"3a2c58e5-75ec-4b36-9a56-4556d85272b4", CellTags->"DefaultContent", CellID->733310375], Cell[34110, 998, 532, 14, 70, "Input",ExpressionUUID->"82ea4dcc-103e-4415-8cad-764096724fad", CellTags->"DefaultContent", CellID->714245499], Cell[34645, 1014, 22430, 371, 70, "Output",ExpressionUUID->"ddc19cac-0cb2-46f7-b139-652c1546d824", CellTags->"DefaultContent", CellID->274661892], Cell[57270, 1397, 269, 6, 70, "Text",ExpressionUUID->"43702a1f-16f0-43da-b0da-c6e0bb439a5f", CellTags->"DefaultContent", CellID->222179742], Cell[57564, 1407, 511, 13, 70, "Input",ExpressionUUID->"46106be6-e564-4909-985b-009971e574f8", CellTags->"DefaultContent", CellID->456819097], Cell[58078, 1422, 3086, 54, 70, "Output",ExpressionUUID->"6dfc7b2a-2261-4741-b7ef-2f942101bdd1", CellTags->"DefaultContent", CellID->94655351], Cell[63217, 1544, 104, 3, 70, "Subsection",ExpressionUUID->"eafbe31a-3eee-40ff-ad7c-6e04e30c777e", CellTags->"DefaultContent", CellID->84863745], Cell[67873, 1711, 103, 3, 70, "Subsection",ExpressionUUID->"7ff6c2f0-b60b-46a7-97c8-6bdac9d9f019", CellTags->"DefaultContent", CellID->510369528]}, "Documentation"->{ Cell[7100, 197, 137, 4, 70, "Section",ExpressionUUID->"13d18c5a-4980-4de9-868c-eed05f6a5420", CellTags->{"Documentation", "TemplateSection"}, CellID->94487535]}, "TemplateSection"->{ Cell[7100, 197, 137, 4, 70, "Section",ExpressionUUID->"13d18c5a-4980-4de9-868c-eed05f6a5420", CellTags->{"Documentation", "TemplateSection"}, CellID->94487535], Cell[96365, 2263, 174, 4, 70, "Section",ExpressionUUID->"9026fc07-b80e-4f72-b7de-66db8af21b72", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224]}, "Usage"->{ Cell[7262, 205, 1880, 48, 70, "Subsection",ExpressionUUID->"3cf9c474-7202-448c-ad78-44739b1f117a", CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898]}, "Details & Options"->{ Cell[10978, 333, 1329, 30, 70, "Subsection",ExpressionUUID->"3aec1f3e-69cb-42d5-b374-d0eafb7872c0", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828]}, "Notes"->{ Cell[10978, 333, 1329, 30, 70, "Subsection",ExpressionUUID->"3aec1f3e-69cb-42d5-b374-d0eafb7872c0", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828]}, "TabNext"->{ Cell[12683, 375, 888, 16, 70, "Notes",ExpressionUUID->"de194803-6569-48e4-b8d6-82eabcdb44d5", CellTags->{"DefaultContent", "TabNext"}, CellID->205926883], Cell[99935, 2389, 502, 8, 70, "Item",ExpressionUUID->"527135ad-e606-41b4-84ad-4026348c7452", CellTags->"TabNext", CellID->332817449], Cell[102450, 2461, 495, 8, 70, "Text",ExpressionUUID->"f2c7d5b7-52b3-4fd5-af96-9263c59b6f4a", CellTags->"TabNext", CellID->91842863], Cell[107229, 2601, 509, 8, 70, "Text",ExpressionUUID->"738e1e17-cdcb-4d96-a891-686182938cdf", CellTags->"TabNext", CellID->991784503], Cell[108707, 2641, 495, 8, 70, "Text",ExpressionUUID->"f1fd805c-6a81-4236-b811-bb03812244ec", CellTags->"TabNext", CellID->932041030]}, "Examples"->{ Cell[17999, 531, 6926, 150, 70, "Section",ExpressionUUID->"be25c148-3288-4619-9afd-add297c688a3", CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657]}, "Source & Additional Information"->{ Cell[96365, 2263, 174, 4, 70, "Section",ExpressionUUID->"9026fc07-b80e-4f72-b7de-66db8af21b72", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224]}, "Contributed By"->{ Cell[96564, 2271, 918, 24, 70, "Subsection",ExpressionUUID->"7fe76c84-ae4e-492e-9313-28cc35d6af06", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457]}, "ContributorInformation"->{ Cell[96564, 2271, 918, 24, 70, "Subsection",ExpressionUUID->"7fe76c84-ae4e-492e-9313-28cc35d6af06", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457]}, "Keywords"->{ Cell[97572, 2303, 893, 24, 70, "Subsection",ExpressionUUID->"02fc1d1d-0a54-45ce-81c2-4011cfcbd348", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136]}, "Categories"->{ Cell[98744, 2347, 167, 5, 70, "Subsection",ExpressionUUID->"b2156664-7fe7-4df0-a9fa-a73ef1bb19c0", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420]}, "Related Symbols"->{ Cell[99062, 2363, 870, 24, 70, "Subsection",ExpressionUUID->"4107139c-cab2-456e-8016-09c0df807c7f", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728]}, "Related Resource Objects"->{ Cell[100474, 2402, 919, 24, 70, "Subsection",ExpressionUUID->"116ac934-8e93-444c-8244-f647a4672b7b", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769]}, "Source/Reference Citation"->{ Cell[101476, 2434, 971, 25, 70, "Subsection",ExpressionUUID->"b8d1c885-2519-4b2e-91de-5fb923a64b92", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429]}, "Links"->{ Cell[102982, 2474, 823, 24, 70, "Subsection",ExpressionUUID->"7f890ccd-4b1c-41ca-bc89-ab124298d58d", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842]}, "Tests"->{ Cell[104105, 2510, 1762, 43, 70, "Subsection",ExpressionUUID->"57191941-0df9-4e74-9ce2-f0bf9c0ec783", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343]}, "VerificationTests"->{ Cell[104105, 2510, 1762, 43, 70, "Subsection",ExpressionUUID->"57191941-0df9-4e74-9ce2-f0bf9c0ec783", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343]}, "Author Notes"->{ Cell[106178, 2573, 1048, 26, 70, "Section",ExpressionUUID->"ce29e9fa-7b5b-4015-a700-1defee6f2156", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325]}, "Submission Notes"->{ Cell[107775, 2614, 929, 25, 70, "Section",ExpressionUUID->"3109f2ed-6637-4886-ac68-850bab07a3be", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 220191, 4768}, {"TemplateCell", 220374, 4772}, {"Title", 220710, 4779}, {"Description", 220892, 4783}, {"Definition", 221070, 4787}, {"Function", 221267, 4791}, {"TemplateCellGroup", 221473, 4795}, {"DefaultContent", 224038, 4838}, {"Documentation", 226791, 4893}, {"TemplateSection", 226983, 4897}, {"Usage", 227355, 4904}, {"Details & Options", 227549, 4908}, {"Notes", 227753, 4912}, {"TabNext", 227959, 4916}, {"Examples", 228708, 4932}, {"Source & Additional Information", 228918, 4936}, {"Contributed By", 229130, 4940}, {"ContributorInformation", 229365, 4944}, {"Keywords", 229586, 4948}, {"Categories", 229777, 4952}, {"Related Symbols", 229974, 4956}, {"Related Resource Objects", 230186, 4960}, {"Source/Reference Citation", 230408, 4964}, {"Links", 230612, 4968}, {"Tests", 230796, 4972}, {"VerificationTests", 231014, 4976}, {"Author Notes", 231227, 4980}, {"Submission Notes", 231427, 4984} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[640, 23, 107, 2, 70, "Title",ExpressionUUID->"4e8151d9-cf48-4029-8d76-696eccd40b2f", CellTags->{"Name", "TemplateCell", "Title"}, CellID->384848836], Cell[750, 27, 117, 2, 70, "Text",ExpressionUUID->"094da2c6-6f4d-47b0-a98c-eb5533282cd7", CellTags->{"Description", "TemplateCell"}, CellID->822707583], Cell[CellGroupData[{ Cell[892, 33, 1104, 27, 70, "Section",ExpressionUUID->"492ea88d-9596-41a9-8db9-17502b1f3c0c", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710], Cell[1999, 62, 5064, 130, 70, "Input",ExpressionUUID->"1136ef61-14b2-432d-845f-6d3fa889603b", CellTags->"DefaultContent", CellID->133226972] }, Open ]], Cell[CellGroupData[{ Cell[7100, 197, 137, 4, 70, "Section",ExpressionUUID->"13d18c5a-4980-4de9-868c-eed05f6a5420", CellTags->{"Documentation", "TemplateSection"}, CellID->94487535], Cell[CellGroupData[{ Cell[7262, 205, 1880, 48, 70, "Subsection",ExpressionUUID->"3cf9c474-7202-448c-ad78-44739b1f117a", CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898], Cell[CellGroupData[{ Cell[9167, 257, 780, 27, 70, "UsageInputs",ExpressionUUID->"dea89af9-a092-4ed4-896f-b2505eac9869", CellID->628169291], Cell[9950, 286, 389, 16, 70, "UsageDescription",ExpressionUUID->"e7603cc4-b2fc-42e7-930a-6ba20497a210", CellID->419271896] }, Open ]], Cell[CellGroupData[{ Cell[10376, 307, 198, 6, 70, "UsageInputs",ExpressionUUID->"80edfffe-ba51-471f-af17-63e3b0f75c28", CellID->439049407], Cell[10577, 315, 352, 12, 70, "UsageDescription",ExpressionUUID->"e248e8a3-ede6-4172-8c07-ea482df25bc3", CellID->162482576] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[10978, 333, 1329, 30, 70, "Subsection",ExpressionUUID->"3aec1f3e-69cb-42d5-b374-d0eafb7872c0", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828], Cell[12310, 365, 370, 8, 70, "Notes",ExpressionUUID->"d6a72fe3-ebea-4c95-a01e-a0871d1e4c55", CellID->225134976], Cell[12683, 375, 888, 16, 70, "Notes",ExpressionUUID->"de194803-6569-48e4-b8d6-82eabcdb44d5", CellTags->{"DefaultContent", "TabNext"}, CellID->205926883], Cell[13574, 393, 1220, 36, 70, "Notes",ExpressionUUID->"28f413d3-7592-48a3-a018-be7e999a5921", CellID->702606440], Cell[14797, 431, 1423, 40, 70, "Notes",ExpressionUUID->"3d491ef5-5dbb-441e-aef1-212ca2fa1640", CellID->421314552], Cell[16223, 473, 1727, 52, 70, "Notes",ExpressionUUID->"b90da099-4b2c-415c-9031-73e07109fe8a", CellID->572928696] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17999, 531, 6926, 150, 70, "Section",ExpressionUUID->"be25c148-3288-4619-9afd-add297c688a3", CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657], Cell[CellGroupData[{ Cell[24950, 685, 104, 3, 70, "Subsection",ExpressionUUID->"8e6ad962-3870-4d04-9780-ad9e3307a888", CellTags->"DefaultContent", CellID->279727361], Cell[25057, 690, 186, 4, 70, "Text",ExpressionUUID->"e6d7a15d-e710-4cb1-9615-d0a991b299d6", CellTags->"DefaultContent", CellID->716171736], Cell[CellGroupData[{ Cell[25268, 698, 521, 15, 70, "Input",ExpressionUUID->"8f0ec61b-f639-4122-808b-be01d48bb83b", CellTags->"DefaultContent", CellID->789629144], Cell[25792, 715, 5326, 185, 70, "Output",ExpressionUUID->"c5114eef-4ed5-4adc-b842-b79ef029f99c", CellTags->"DefaultContent", CellID->753776593] }, Open ]], Cell[31133, 903, 136, 3, 70, "Text",ExpressionUUID->"f9c782f0-e7dd-49ce-bc48-02904dda73b5", CellID->601524694], Cell[CellGroupData[{ Cell[31294, 910, 187, 5, 70, "Input",ExpressionUUID->"9199a7d7-4189-413f-9b9a-a611bf7b46bd", CellID->760150810], Cell[31484, 917, 831, 15, 70, "Output",ExpressionUUID->"eb2a6b94-9b89-46c3-8ef9-037e6bb8a670", CellID->502393262] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[32364, 938, 95, 3, 70, "Subsection",ExpressionUUID->"a526dc0b-11a6-434e-8fd9-1234d5c99a7b", CellTags->"DefaultContent", CellID->513869560], Cell[32462, 943, 219, 5, 70, "Text",ExpressionUUID->"3237583f-7c2f-4c49-956d-ad2fbfd3978b", CellTags->"DefaultContent", CellID->70133110], Cell[CellGroupData[{ Cell[32706, 952, 327, 9, 70, "Input",ExpressionUUID->"44f40d0f-7c82-4c76-841d-59b1a0e266fd", CellTags->"DefaultContent", CellID->385995849], Cell[33036, 963, 640, 15, 70, "Output",ExpressionUUID->"36112479-236f-4f73-9f55-01e6251712c4", CellTags->"DefaultContent", CellID->189480557] }, Open ]], Cell[CellGroupData[{ Cell[33713, 983, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"ccc19094-aecf-4294-a3a1-dcbb4662bbfe", CellID->14107562], Cell[33859, 989, 226, 5, 70, "Text",ExpressionUUID->"3a2c58e5-75ec-4b36-9a56-4556d85272b4", CellTags->"DefaultContent", CellID->733310375], Cell[CellGroupData[{ Cell[34110, 998, 532, 14, 70, "Input",ExpressionUUID->"82ea4dcc-103e-4415-8cad-764096724fad", CellTags->"DefaultContent", CellID->714245499], Cell[34645, 1014, 22430, 371, 70, "Output",ExpressionUUID->"ddc19cac-0cb2-46f7-b139-652c1546d824", CellTags->"DefaultContent", CellID->274661892] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[57124, 1391, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"5b2e7bf9-4f27-421b-8363-323d3621b56d", CellID->14107563], Cell[57270, 1397, 269, 6, 70, "Text",ExpressionUUID->"43702a1f-16f0-43da-b0da-c6e0bb439a5f", CellTags->"DefaultContent", CellID->222179742], Cell[CellGroupData[{ Cell[57564, 1407, 511, 13, 70, "Input",ExpressionUUID->"46106be6-e564-4909-985b-009971e574f8", CellTags->"DefaultContent", CellID->456819097], Cell[58078, 1422, 3086, 54, 70, "Output",ExpressionUUID->"6dfc7b2a-2261-4741-b7ef-2f942101bdd1", CellTags->"DefaultContent", CellID->94655351] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[61213, 1482, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"c3d8e8db-b392-476c-8ae6-e90e8bafa87d", CellID->14107564], Cell[61359, 1488, 148, 3, 70, "Text",ExpressionUUID->"57114454-42c6-4df1-8cfa-395a8c2cbdc6", CellID->162740776], Cell[CellGroupData[{ Cell[61532, 1495, 636, 20, 70, "Input",ExpressionUUID->"91f3aa12-e640-47e7-9ebb-9c9d1ffaf857", CellID->755063818], Cell[62171, 1517, 985, 20, 70, "Output",ExpressionUUID->"79f075da-c48c-4b3a-be07-986bf8b75e05", CellID->696398412] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[63217, 1544, 104, 3, 70, "Subsection",ExpressionUUID->"eafbe31a-3eee-40ff-ad7c-6e04e30c777e", CellTags->"DefaultContent", CellID->84863745], Cell[63324, 1549, 173, 3, 70, "Text",ExpressionUUID->"83c94643-f481-4e50-966e-0848a2c08db4", CellID->915455732], Cell[CellGroupData[{ Cell[63522, 1556, 260, 7, 70, "Input",ExpressionUUID->"d8355e4b-c998-4a9a-843a-a549397a2727", CellID->949010878], Cell[63785, 1565, 231, 7, 70, "Output",ExpressionUUID->"ac0ebf97-c8e6-4f29-814b-b47a2f00dcee", CellID->134628758] }, Open ]], Cell[CellGroupData[{ Cell[64053, 1577, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"13a60da1-8a9d-495b-a884-0f1eb74540c0", CellID->14107565], Cell[64199, 1583, 161, 3, 70, "Text",ExpressionUUID->"bc3c02a3-a89b-496b-b667-935d16a95987", CellID->446144497], Cell[CellGroupData[{ Cell[64385, 1590, 365, 11, 70, "Input",ExpressionUUID->"4b1af580-67c3-4fd4-a9ff-eda5b25f4954", CellID->561929449], Cell[64753, 1603, 231, 7, 70, "Output",ExpressionUUID->"03442529-d405-4023-a908-4f6755dc0b73", CellID->846042578] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[65033, 1616, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"02d1a44a-fe16-4dd6-a400-2af90e553375", CellID->14107566], Cell[65179, 1622, 1606, 51, 70, "Text",ExpressionUUID->"488e9088-b844-479d-a58b-22a03a3a4ce0", CellID->634441768], Cell[CellGroupData[{ Cell[66810, 1677, 516, 15, 70, "Input",ExpressionUUID->"6b960d2b-9716-487b-810e-8129c87fe923", CellID->38581750], Cell[67329, 1694, 483, 10, 70, "Output",ExpressionUUID->"b370106f-c4a2-4a30-bd1d-f372f05046cd", CellID->655703644] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[67873, 1711, 103, 3, 70, "Subsection",ExpressionUUID->"7ff6c2f0-b60b-46a7-97c8-6bdac9d9f019", CellTags->"DefaultContent", CellID->510369528], Cell[67979, 1716, 151, 3, 70, "Text",ExpressionUUID->"d80f8a2c-4f02-4b8f-bf2c-6302f8fb8000", CellID->414441928], Cell[CellGroupData[{ Cell[68155, 1723, 1993, 55, 70, "Input",ExpressionUUID->"7326aa26-664f-4acf-b5a8-ae194c52e59e", CellID->811777181], Cell[70151, 1780, 4098, 78, 70, "Output",ExpressionUUID->"7b7ab4c6-94ba-4cd1-b312-b6ac02a0a15d", CellID->383019244] }, Open ]], Cell[CellGroupData[{ Cell[74286, 1863, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"07e05dcb-e1cf-4b7d-85ee-986512c33cbd", CellID->14107567], Cell[74432, 1869, 163, 3, 70, "Text",ExpressionUUID->"321eb5bc-ca15-4f6c-89c0-6a4f815ec87d", CellID->856132934], Cell[CellGroupData[{ Cell[74620, 1876, 1281, 35, 70, "Input",ExpressionUUID->"eafe87e1-45e2-4e3b-bc18-8076011742ad", CellID->742240109], Cell[75904, 1913, 20388, 342, 70, "Output",ExpressionUUID->"55827880-e89f-4c05-9fef-eb7caf55560c", CellID->66792188] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[96365, 2263, 174, 4, 70, "Section",ExpressionUUID->"9026fc07-b80e-4f72-b7de-66db8af21b72", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224], Cell[CellGroupData[{ Cell[96564, 2271, 918, 24, 70, "Subsection",ExpressionUUID->"7fe76c84-ae4e-492e-9313-28cc35d6af06", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457], Cell[97485, 2297, 50, 1, 70, "Text",ExpressionUUID->"e3826870-25ef-49e3-bb22-9723d87ec483", CellID->130075600] }, Open ]], Cell[CellGroupData[{ Cell[97572, 2303, 893, 24, 70, "Subsection",ExpressionUUID->"02fc1d1d-0a54-45ce-81c2-4011cfcbd348", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136], Cell[98468, 2329, 46, 1, 70, "Item",ExpressionUUID->"e58cc500-1131-4c64-8f5e-94d41b4af2e7", CellID->49888280], Cell[98517, 2332, 43, 1, 70, "Item",ExpressionUUID->"0e60fdd4-e6c7-4f30-b651-1cc8b566ddec", CellID->605495997], Cell[98563, 2335, 43, 1, 70, "Item",ExpressionUUID->"8872aac9-f33c-47f0-8872-8cb36d66f06e", CellID->356986034], Cell[98609, 2338, 45, 1, 70, "Item",ExpressionUUID->"c3576087-a572-49a4-aab2-b299a16125a4", CellID->359360848], Cell[98657, 2341, 50, 1, 70, "Item",ExpressionUUID->"94a4b055-13b5-4c4a-97e7-9d6b2afefe22", CellID->586293413] }, Open ]], Cell[CellGroupData[{ Cell[98744, 2347, 167, 5, 70, "Subsection",ExpressionUUID->"b2156664-7fe7-4df0-a9fa-a73ef1bb19c0", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420], Cell[98914, 2354, 48, 1, 70, "Item",ExpressionUUID->"f0f5f84e-5f69-4bfc-9f5e-5837e6dcd942", CellID->732882047], Cell[98965, 2357, 60, 1, 70, "Item",ExpressionUUID->"10b4d5cc-d4c9-4f8d-be83-e395de116f44", CellID->891139041] }, Open ]], Cell[CellGroupData[{ Cell[99062, 2363, 870, 24, 70, "Subsection",ExpressionUUID->"4107139c-cab2-456e-8016-09c0df807c7f", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728], Cell[99935, 2389, 502, 8, 70, "Item",ExpressionUUID->"527135ad-e606-41b4-84ad-4026348c7452", CellTags->"TabNext", CellID->332817449] }, Open ]], Cell[CellGroupData[{ Cell[100474, 2402, 919, 24, 70, "Subsection",ExpressionUUID->"116ac934-8e93-444c-8244-f647a4672b7b", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769], Cell[101396, 2428, 43, 1, 70, "Item",ExpressionUUID->"95c05d1e-1123-4fca-a7cd-33cf4b13827f", CellID->213306766] }, Open ]], Cell[CellGroupData[{ Cell[101476, 2434, 971, 25, 70, "Subsection",ExpressionUUID->"b8d1c885-2519-4b2e-91de-5fb923a64b92", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429], Cell[102450, 2461, 495, 8, 70, "Text",ExpressionUUID->"f2c7d5b7-52b3-4fd5-af96-9263c59b6f4a", CellTags->"TabNext", CellID->91842863] }, Open ]], Cell[CellGroupData[{ Cell[102982, 2474, 823, 24, 70, "Subsection",ExpressionUUID->"7f890ccd-4b1c-41ca-bc89-ab124298d58d", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842], Cell[103808, 2500, 260, 5, 70, "Item",ExpressionUUID->"e6a802e2-8b0e-4513-932a-a7442495c9b0", CellID->805128905] }, Open ]], Cell[CellGroupData[{ Cell[104105, 2510, 1762, 43, 70, "Subsection",ExpressionUUID->"57191941-0df9-4e74-9ce2-f0bf9c0ec783", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343], Cell[CellGroupData[{ Cell[105892, 2557, 129, 4, 70, "Input",ExpressionUUID->"78cd45cb-509b-44f3-835a-087dcd1ede84", CellID->667877521], Cell[106024, 2563, 93, 3, 70, "Output",ExpressionUUID->"3806602e-9211-4f96-8717-30adc12f64de", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[106178, 2573, 1048, 26, 70, "Section",ExpressionUUID->"ce29e9fa-7b5b-4015-a700-1defee6f2156", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325], Cell[107229, 2601, 509, 8, 70, "Text",ExpressionUUID->"738e1e17-cdcb-4d96-a891-686182938cdf", CellTags->"TabNext", CellID->991784503] }, Open ]], Cell[CellGroupData[{ Cell[107775, 2614, 929, 25, 70, "Section",ExpressionUUID->"3109f2ed-6637-4886-ac68-850bab07a3be", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082], Cell[108707, 2641, 495, 8, 70, "Text",ExpressionUUID->"f1fd805c-6a81-4236-b811-bb03812244ec", CellTags->"TabNext", CellID->932041030] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)