PlaceholderImage.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    129424,       2699]
NotebookOptionsPosition[     42188,        952]
NotebookOutlinePosition[    121884,       2517]
CellTagsIndexPosition[    121231,       2495]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["PlaceholderImage", "Title",
 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.7595119560793147`*^9, 3.7595119600443172`*^9}},
 CellTags->{"Title", "TabNext"},
 CellID->362346026,ExpressionUUID->"22d316f8-4b28-4812-b552-68ceac42468a"],

Cell["Create a placeholder image of a specified dimension.", "Text",
 TaggingRules->{
  "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, 
   "TemplateVersion" -> "1.2.12", "StatusMessage" -> 
   ProgressIndicator[Appearance -> "Necklace"], "AttachedInlineCell" -> 
   CellObject[17137]},
 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.7595123687390184`*^9, 3.759512382642026*^9}},
 CellTags->{"Description", "TabNext"},
 CellID->450900334,ExpressionUUID->"0c5cca8c-8375-44f5-8069-0a2a462395f3"],

Cell[CellGroupData[{

Cell[TextData[{
 "Definition",
 Cell[BoxData[
  TemplateBox[{"Definition",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Define your function using the name above. All definitions, including \
dependencies, will be included in the resource function when it is generated. \
Additional cells can be added and definitions can be given for multiple input \
cases.\n\nThis section should be evaluated before evaluating creating the \
Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], 
       FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 
       5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoDefinition"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "e689cf4a-9ea5-4f32-bf7c-c2805e4e384e"]
}], "Section",
 Deletable->False,
 DefaultNewCellStyle->"Input",
 CellTags->"Definition",
 CellID->608264297,ExpressionUUID->"62ae898e-d06b-4fbf-8583-106a6d44d799"],

Cell[BoxData[
 RowBox[{
  RowBox[{"PlaceholderImage", "[", 
   RowBox[{"width_Integer", ",", "height_Integer", ",", 
    RowBox[{"col_:", " ", "Gray"}]}], "]"}], ":=", 
  RowBox[{"ImageCompose", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ConstantImage", "[", 
     RowBox[{"col", ",", 
      RowBox[{"{", 
       RowBox[{"width", ",", "height"}], "}"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"Text", "[", 
      RowBox[{"Style", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"ToString", "[", "width", "]"}], "<>", "\"\<x\>\"", "<>", 
         RowBox[{"ToString", "[", "height", "]"}]}], ",", 
        RowBox[{
         RowBox[{
         "ResourceFunction", "[", "\"\<FontColorFromBackgroundColor\>\"", 
          "]"}], "[", "col", "]"}], ",", 
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", 
         RowBox[{"0.2", "*", 
          RowBox[{"Min", "[", 
           RowBox[{"{", 
            RowBox[{"width", ",", "height"}], "}"}], "]"}]}]}]}], "]"}], 
      "]"}], "]"}]}], "]"}]}]], "Input",
 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.7595119653119698`*^9},
 CellTags->"TabNext",
 CellID->778396829,ExpressionUUID->"729b60e7-2f9d-476e-8e32-108f97294a49"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Documentation", "Section",
 Deletable->False,
 CellTags->"Documentation",
 CellID->855965831,ExpressionUUID->"fe2cc6dd-b015-4e6c-82fc-816fb47ab74e"],

Cell[CellGroupData[{

Cell[TextData[{
 "Usage",
 Cell[BoxData[
  TemplateBox[{"Usage",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Document every accepted input usage case. Use Enter to create new \
cases as needed.\n\nEach usage should contain a brief explanation saying what \
the function does for the given input structure.\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"]],ExpressionUUID->
  "64c63b17-68b9-4c66-999f-fceba2cefd53"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"UsageInputs",
 CellTags->"Usage",
 CellID->694807545,ExpressionUUID->"4212e255-39b4-4ab0-8c4a-b7971254fb6a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PlaceholderImage", "[", 
  StyleBox[
   RowBox[{"width", ",", "height"}],
   FontSlant->"Italic"], "]"}]], "UsageInputs",
 CellChangeTimes->{{3.759511972773158*^9, 3.759511981221158*^9}},
 CellTags->"TabNext",
 CellID->157543866,ExpressionUUID->"06682b01-8000-48c1-b7ca-56092634b9af"],

Cell["creates a placeholder image with the specified dimensions.", \
"UsageDescription",
 CellChangeTimes->{{3.75951199938883*^9, 3.7595120148048353`*^9}},
 CellTags->"TabNext",
 CellID->231889230,ExpressionUUID->"4d3237dd-fe6a-40ba-a1b3-c88719952127"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PlaceholderImage", "[", 
  StyleBox[
   RowBox[{"width", ",", "height", ",", "bgcolor"}],
   FontSlant->"Italic"], "]"}]], "UsageInputs",
 CellChangeTimes->{{3.759511972773158*^9, 3.759511991308716*^9}},
 CellTags->"TabNext",
 CellID->192243445,ExpressionUUID->"7f8bce04-9ed1-43cc-886a-af24f359545d"],

Cell["\<\
creates a placeholder image with the specified dimensions and background \
color.\
\>", "UsageDescription",
 CellChangeTimes->{{3.759512019324838*^9, 3.759512025123844*^9}},
 CellTags->"TabNext",
 CellID->300636923,ExpressionUUID->"04c8b5a3-c74b-49e8-9f07-71de56733f71"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Details & Options",
 Cell[BoxData[
  TemplateBox[{"Details & Options",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Give a detailed explanation of how the function is used. Add multiple \
cells including tables and hyperlinks as needed. Typical information \
includes: acceptable inputs, result formats, options specifications, and \
background information.", "MoreInfoText"], Background -> GrayLevel[0.95], 
       FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 
       5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoDetailsOptions"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "978cfbaa-1228-437a-9e14-aa316ab7b9fa"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"Notes",
 CellTags->"Details & Options",
 CellID->29639701,ExpressionUUID->"0e628727-f31d-4518-9b54-f13358182400"],

Cell["\<\
The font color is automatically chosen as either black or white depending on \
the background color.\
\>", "Notes",
 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.759512036059865*^9, 3.7595120556758747`*^9}},
 CellTags->"TabNext",
 CellID->521904482,ExpressionUUID->"daf209a4-cc42-4496-b23b-a06f189a1a3f"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Examples",
 Cell[BoxData[
  TemplateBox[{"Examples",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Demonstrate how to use the function. Examples should start with the \
most basic use case. Each example should be described using text cells. Use \
\"Subsection\" and \"Subsubsection\" cells to group examples as needed.\n\n\
Example groups can optionally be delimited by inserting page breaks between \
them (affects example count on documentation page).\n\nSee existing \
documentation pages for examples.", "MoreInfoText"], Background -> 
       GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], 
       RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoExamples"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "85b48637-277b-419e-ab1c-288671e10066"]
}], "Section",
 Deletable->False,
 CellTags->"Examples",
 CellID->847663398,ExpressionUUID->"693add99-1378-4848-a71d-2f6600a04660"],

Cell[CellGroupData[{

Cell["Basic Examples", "Subsection",
 CellID->462042388,ExpressionUUID->"cf76340b-0b34-4fa3-bc4d-f4911920c9ac"],

Cell["Create a standard placeholder image:", "Text",
 CellChangeTimes->{{3.7595120905954986`*^9, 3.7595120973394995`*^9}},
 CellID->13078159,ExpressionUUID->"0cfae6d7-15d1-4fa7-98a3-95a57abdd988"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PlaceholderImage", "[", 
  RowBox[{"300", ",", "200"}], "]"}]], "Input",
 CellChangeTimes->{{3.7595120643678827`*^9, 3.7595120667654095`*^9}, {
  3.7595121406465254`*^9, 3.7595121409725237`*^9}},
 CellLabel->"In[3]:=",
 CellID->443871870,ExpressionUUID->"1e78574a-364e-44ed-b745-a0392d13c1b3"],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzt3b+uHLcVB+CbPwjyDOnSu3L6NfIGhvMECuBUBgI4RZIuD6An0As4tXq5
lUqldDqnsyuncxndxIvsHNG7og5neGb2W2AMffC9d8jfLgdLDsn59e//+Mkf
fvrw8PCnX775zydP/vzbzz9/8tff/eIRnz757DcffvazN/989eb44CcPDz9/
+O/ro/8ff/uImZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZ2/7X11+fzsej//7FF6fz8ejXrz8+nY8ffv/i
9bafPfvV6Xz8z89O5+PR/3j9+nQ+KtR/a8f6x3xifrfyju/PvectX670efv+
+7+czse7fN6ib33+Xr18eTofFfKYnbf2LV9mZmZmPo6fPn16Oh8//P+L1/aO
/btvv/nmdD4q5NXrWP7e8b+1Hcuzt7zly1v6n199dTofj+7tv2/tWL4vX7w4
nY8Ked6y9i3fPefLzMzMzDln7/9v7dj/qv79NZavev/2lqvlLV/e0nH+afb9
ruZG/abmrX3Lt8fV8mVmZmbmnOP8/IfFa39u3B8ulffexgdvuVre8uU13Vh/
l3p/9+bnz5+fzof2nXe19i1fZmZmZq7kuH/Vw+LV7zj+1fj7V8vz9v3eseNp
s/fLaJw/VZ+4njOuV7pVnvjzo/srveWRb+18eensfJT4+3E8qPf6GX1rf8Le
8t7yv7/77nQ+tO98+Vw/j5UvMzMzM+ec7c80xpdWLW92/63G72+ad/b799br
d7J5b/35kO+2n+d7c3a+VbX1zY3+e1d9otduP9r3uuWV77rlZWZmZuacs/uv
rn2/PbrR3+sqb8OrlreRT+ny7q381ct39PLfm7P95erzPRr7tXfVb/T6rL23
j+rlr16+o5efmZmZme/OF6/38qrly85vqHZ/OLuec3T/Xb7r5stvuev9aHh2
+a+62niA9r206+e+8mVmZmZmDr543fbW+7dm5zNUe359tfpUK8/e6pPt71Xb
D3n0erjs/lMHcCq/7Pm173XrU6086sPMzMzMR3K2f7q3/Tmq9Z+z+/2P3n9M
vmPzze5HPvt5dHsv/2xn51+NHs/Uvpd2/dxXvszMzMx8387uL7v1fl36B0vr
f9XON7s/efTa+5Mfbf7YbGfnr4y+P6B9L+36ua98mZmZmfnYHv287MbzwDet
T3Y+yOz34x3cW5+h9ZPvuvXL9m8b7TdVHusD13W2PY3OU/tet37y3X39mJmZ
mXlFZ/vD0XH+RMH+aKp+BcpfvX6zz3/ofEfv553dX8b6wLHO3h/YYL5KV3ka
LpV3wfrNPv/R82VmZmbmHTvbX4qOf6+x/ml2/VP1K1D+6vWbff6j57twdn1Z
9K31vNYHjnVjfV9XnnH8cO31ob3la7hU/gXrN/v8R8+XmZmZmXfs2J+M/dPY
v8qOdxWYn9VV3oZLvX8F6zf7/EfP96pHz9+xPnCss+NV0RPWY6fKu0H59l6/
2ec/er7MzMzMfMeO9/uz/edGf3l0+bvK03Cp/AvWb/b5j57vVWf3Sx7te18f
OHp+6+z9A7Pln1DevdVv9vmPni8zMzMz84+6d3+c+PMrPJ/w6vnfwaXyLVi/
2ec/er5dbowfZct/1fe+PvCA41XRqfoUKH/1+s0+/9HzZWZmZmb+UTf6Xxev
2x49f8PznZZu5CHfwvlm3Rhf6n1/rvro6wPjfNMBn/eFC45XLax9L+36ua98
mZmZmZmvOfu8tMZ8hlR5ss9brNY/z64XG/28Mvmum2/W2fHk6MZ+TlPrt3Ze
2fGF+PvVx6uite+lXT/3lS8zMzMzc6cvXu/l1Pn1D5bW/9pXvllnnx8YfbT1
gqP3V5/wfMBVrX0v7fq5r3yZmZmZmTt98Xovp87/5YsXp/PxPud/9fLl6XxU
yLNRnq76NPKQb+F8ez36+YG3vLf92kfvVzV6vmg1a99Lu37uK19mZmZmHu6L
V79X2O885ez919H7X2T78435K1Pzzc6nGf28R/mum29/+cfuz9TravNBRo9X
HX39ZLT2vbTr577yZWZmZuaxzq4fqHa/MrseZ4Pv413laXj25ydV/g3GO1Pl
W6E8R8t34Wx/MY53Za9Hs+cjjV4PuLf9qjZwKs+9l9/1c/f5MjMzM3PC2fn2
sf+59fe/7Hyr6LX7i9n++db3u/c2niDfdcs7en1g/Hvx+pGdz7X2+Hp+/sqy
ftXmj1Wz9l27vPJlZmZm5i2d7S/G/ZWz40Fx/+Hsfh23yrt2vqOfxxa/f/eu
f4g/P3q909bzR+Rb+/rQu1/V6PY+eny9cf3oKo/xqj5r3/Ldc77MzMzMPNaj
v79W9+znc2X7v9Vc7flw8s05uz5wdHmz/dfs88Xu7fo4wNp3h10/13W1fJmZ
mZl5rEfv57K143yRavdbt35e22jHfGePB0bLd25eo+cXNeqfKl/v89Oy43l3
aO37il0/13X1fJmZmZl5Xcfxn9nPG4uO8zP29n019ver5RvvX8v3WPluvT4w
68b5usrb+7zRap+XHVj7vvDs9i3fWnkyMzMz81zH+QzZ/VXj99E4H+zennf9
9vjhcj5Ib38i/nz8e9Xmq8l3rKutD8w6u97pHfaf7vp7rH27fsqXmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmY/h/wAxUccd
    "], {{0, 200}, {300, 0}}, {0., 1.},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Real32", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSizeRaw->{300, 200},
  PlotRange->{{0, 300}, {0, 200}}]], "Output",
 CellChangeTimes->{3.7595120673444023`*^9, 3.7595121417435226`*^9, 
  3.759512233227354*^9},
 CellLabel->"Out[3]=",
 CellID->135097205,ExpressionUUID->"c8c23f78-e9df-4597-9f9b-0c6a92794d0a"]
}, Open  ]],

Cell["Create a placeholder image with a yellow background:", "Text",
 CellChangeTimes->{{3.7595120905954986`*^9, 3.7595121184755125`*^9}},
 CellID->21463016,ExpressionUUID->"3b691bb2-eee7-4c71-8bfe-a71bf4877257"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PlaceholderImage", "[", 
  RowBox[{"300", ",", "200", ",", "Yellow"}], "]"}]], "Input",
 CellChangeTimes->{{3.7595120643678827`*^9, 3.759512074644491*^9}, {
  3.7595121371035204`*^9, 3.7595121373245225`*^9}},
 CellLabel->"In[9]:=",
 CellID->167892409,ExpressionUUID->"bab0454b-963d-4f08-8a3b-fed7ae60fbf6"],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzt3buOHEUUANDlIUTAF5ARkRBBjBERKYKI0EggISGBTIDI+AC+wD8AsXOT
4tCEkEEGEWQO8Q6ydrpKnlHtre661XNaamuPvLN9685Ua6q6Hm98+tVHn794
dXX1zatP//no7rfv37t397uPX7nGZ3e/fOftL196+uOjp+dbL1xdvXx1fXz/
3v/n8c/MzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzM
zMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzM
zMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzM
zMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzM
zMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzM
zMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzM
zMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzM
zMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzM
zMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzM
zMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzM
zMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzM
zMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzM
zMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzM
zMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzM
zMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzM
zMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzM
zMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzM
zMzMzMzMzMzMzMzMzMxc+s8/7h7OZ/7pxzcP5zM/fvz4zvV58/rjo/b9+/fv
XJ83fv1wPvOvjz88nFnKv7XL8pf5KfN3Lt/l+3Pp+ZZfzvR5e/LkyZ3r8+b1
x0f88/folw8OZ5Z8jM63+i2/zMzMzLwf//DDa4fz5v+Pj+1dtu/+/uuLw7lW
+dd2GX9r/9/aLuOZLd/yy1v6998+OZzP3Np+39plfD8/fPdwPq982ax+y+/M
+WVmZmbmmKPP/7d22f7K/v21jC97+/acs+VbfnlLl+NPy/dvdtflU797Olv9
ll9mZmZmzuxyfP7V4pjP9fPhXPmerX/wnLPlW355Tdfz706/f3vzgwdvH86b
/1e/I85Wv+WXmZmZmTO5XL/qanG0u+z/qv/+6Xjq5719+9NGr5dRXz9WnnI+
Zzlf6Vw85e/3bq+0xiO/bd46v7x0dDxK+fqyP6j1/ln63PqErfGe87//fH04
bxuv+r20++e+8svMzMzMMUfbM3X/0rrxRtffql+/bb6j37+3nr8TzffWnw/5
3fbzfGmOjrfKNr+5br+3laf02vVH/V43Xvndtv4xMzMzc5uj66+u/by9dN3e
a4u39rrx1vnJHe9s8WePb+/xX5qj7eXs4z3q9drbytd7ftbs9SN7/Nnj23v8
zMzMzHxpPj5u43Xji45vyPZ8ODqfs3f7XX6Xzt4/Mr/b3o/ao+M/7Wz9Aer3
0u6fc+WXmZmZmXnp4+O8t16/NTqeIdv+9dnKky2e2coTbe9lWw+593y46PpT
8zuWv9nqw9rOVp5s8SgPMzMzM+/J0fbpbOtzZGs/R9f7773+mPwuHc1vdD3y
0fvRzR7/aEfHX/Xuz1S/l3b/nCu/zMzMzHzZjq4vu/V6XdoHS2t/5c5vdH3y
0muvT7638WOjHR2/0vv5gPq9tPvnXPllZmZm5n27937Z9X7g25YnOh5k9Ptx
3q3l6Vs++V23fNH2bV1/Y/GYH7iuo/Wpdz7V73XLJ7+zl4+ZmZmZ13S0PVy6
HD+Rrz0aK9/4+LOXb/T1953f3ut5R9eXMT+wr6PPB9Yfr9IWT+1c+c5XvtHX
33t+mZmZmXlmR9tLpcu/V89/Gl3+WPnGx5+9fKOvv/f8Lh2dX1b63Hxe8wP7
up7f15bPsv9w7fmhrfHVzpX/fOUbff2955eZmZmZZ3bZnizbp2X7KtrfNX58
Vlu8tXO9f/nKN/r6e8/vafcev2N+YF9H+6tKbz8fOxbv6PznL9/o6+89v8zM
zMx8yS6f90fbz3V7uXf8bfHUzpX/fOUbff295/e0o+sl9/alzw/sPb519PqB
0fhHvx/5yzf6+nvPLzMzMzPz8926Pk75+/33Jzx9/fPOld985Rt9/b3nt811
/1E0/tO+9PmB++uvmvvzP1/5Rl9/7/llZmZmZn6+6/bX8XHevcdv2N9p6Tof
8ps5v1HX/Utt5Tnnvc8PLMebxj/vS+frr1pa/V7a/XOu/DIzMzMzn3J0v7R6
PEMsnuh+i9na59H5Yr33K5PfpdffD67N0f7k0vV6TmPLt3a+ov0L5euz91eV
Vr+Xdv+cK7/MzMzMzG0+Pm7j2PW1D5bW/porv1FH9w8svbf5gr3XV99+f8B1
rX4v7f45V36ZmZmZmdt8fNzGsev//PDdw3nb6z/65YPDuV5+2lzH01aeOh/y
mzm/re69f+A5z7Zee+/1qnqPF81m9Xtp98+58svMzMzMvX18tLv/eucxR5+/
9l7/Itqer8evjM1vdDxN7/0e5Xfp9ffTPBd/3/WZWp1tPEjv/qq9z58srX4v
7f45V36ZmZmZua+j8weyPa+MzsdZ//t4Wzy1R39+YvGv398Zi09+2xxtL5b9
XdH70ejxSL3nA862XlX2+jF7/O6fs+eXmZmZmSOOjrcv259bf/+LjrcqvXZ7
Mdo+3/p592z9CfK7bry95weWf6+8f0THc63dvx4fv7IsX7bxY9msfueOV36Z
mZmZeUtH24vl+srR/qBy/eHoeh3n4l07v733Yyu/f7fOfyh/v/d8p63Hj8hv
7vtD63pVvet77/71+v7RFo/+KvX7lN0/95VfZmZmZu7r3t9fs3v0/lzR9m82
Z9sfTn5jjs4P7B1vtP0a3V/s0u6PcavfLXb/XNfZ8svMzMzMfd17PZetXY4X
yfa8dev92nq7zO/o/kD5zZWv3uOL6vLH4mvdPy3an3d5Vr9P2f1zXWfPLzMz
MzOv67L/Z/R+Y6XL8RmzfV8t2/vZ8ls+v5bfvh6d363nB0ZdX68t3tb9RrN9
XvJb/T726Potv7nyyczMzMxjXY5niK6vWn4fLceDXdp+13X/4XI8SGt7ovz9
8u9lG68mv32dbX5g1NH5TufXn277e6x+u3/KLzMzMzMzMzMzMzMzMzMzMzMz
MzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMz
MzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMz
MzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMz
MzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMz
MzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMz
MzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMz
MzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMz
MzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMz
MzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMz
MzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMz
MzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMz
MzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMz
MzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMz
MzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMz
MzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMz
MzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMz
MzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMz
MzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzPvw/8B49do
Og==
    "], {{0, 200}, {300, 0}}, {0., 1.},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Real32", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSizeRaw->{300, 200},
  PlotRange->{{0, 300}, {0, 200}}]], "Output",
 CellChangeTimes->{3.7595120753354883`*^9, 3.7595121380515213`*^9},
 CellLabel->"Out[9]=",
 CellID->386126897,ExpressionUUID->"6442479f-561a-45d5-8596-068cfd586be2"]
}, Open  ]],

Cell["Create a placeholder image with a brown background:", "Text",
 CellChangeTimes->{{3.7595120905954986`*^9, 3.759512128580518*^9}},
 CellID->429369666,ExpressionUUID->"b29e7ff2-a2f0-4158-a81a-206d3b161ddd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PlaceholderImage", "[", 
  RowBox[{"300", ",", "200", ",", "Brown"}], "]"}]], "Input",
 CellChangeTimes->{{3.7595120643678827`*^9, 3.759512081604493*^9}, {
  3.759512133110524*^9, 3.7595121333325195`*^9}},
 CellLabel->"In[8]:=",
 CellID->657325303,ExpressionUUID->"d9324e0e-789b-4f8f-860d-6ba3cf8e8168"],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzt3U/IZlUZAPAvG2JW1sKkNIoxRSEJ0TFaTN/FFllQghMItpsgKRUUXYiQ
kIsWbbJFGBVUILmxTVArWwxudDGCuzahEIi4m8g2atDMt2oe5Hu9Pufe85z7
/haP4w++773nPt89h/ece/6c+v4jZx+46uDg4PGTl/5z9twTdz322Lknv/uJ
y/jBuYfvuP3hj1/631cuxa0fOzg4cenf3/z6s9OrFy4cvnrh24cHBz+ZmJmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZ+YP9/B9vmv518eLhr5599sg3Xjwz3fnD66efn//3kZ87c9/0n+/d
NX3jyVuny94V37zm3PTQ7+6dnrnl60e+/O/fz3xx+vy9J458+XPe/utV02fe
/HOJ+1/b8f5jfmL+dkX8++x7vuWXKz1vvz19z/T2PXdOX/nR5z7U8zb3+Xvq
2tumF0+dnN65/3yJfPTOt/otv8zMzMy8Hb/y8t3Tn1740vSLZz75kfpTrSP2
7848csP0l++8dXjxbz8rka+5juWfO/63dMTyjJZv+eU1/al/3DJ9+ZfvHn7t
0eeOPLf/vnbE8j193enppZuvnk48+FqJfKrf8rvl/DIzMzNzztn3/2tH7H9V
//4ay1e9f7srquVbfnlNx/mnW4t4f73zrX7L78j5ZWZmZuac4/z80SO+j+2d
3+jRxgdHy7f88pKO6+/2Lc7+9KvTey9fM33r0/9UvxtEtfotv8zMzMxcyXH/
qmzE8a/4+bvKE9+Pth5P671fRrx+NuJ6zrheaVd54s+37q/MLY/81s4vX+ns
fJT4+3E8aG77uat9X3p+2B9+/4XpjddfP/zv+z9Wvwes3/Jbq31hZmZm5iud
7c/E8aWly5vdfyv+/tr5zn7/Xnv9Tjbfaz8f8lurfdmas/Otqq1vjv33bCxd
f9Rv7efI+WVmZmbmnLP7ry79vj069veysXR5Y36ql3e08lcv39bLv2/O9per
z/eI+7XPjdbrs0avH9XLX718Wy8/MzMzM++Xs7F0+bLzG6q9H86u52zdf5ff
ZfPLY7U3WVcbD1C/tZ8j55eZmZmZ+f89N9bevzU7n6Ha+fXV7qdaeUa7n2x/
r9p+yK3Xw2X3nxrd2RitPmytfo9WHvfDzMzMzFtytn862v4c1frP2f3+W+8/
Jr9t85vdj7z3eXSjl7+3s/OvWo9nqt/az5Hzy8zMzMz77ez+smvv16V/oP81
Un6z+5PHWHp/8q3NH+vt7PyV1u8H1G/t58j5ZWZmZuZtu/V52fE88LXvJzsf
pPffY5ezIb+185vt38b627p9yEa1/ndvZ+tT63yq39rPkfPLzMzMzGM72x+O
EedPVOuPZqN3+avfX+/rbz2/rffzzu4vY31gW2ffDyw9X6X387/1+t37+lvP
LzMzMzOP7Wx/KUb8vLj+qff9ZqN3+avfX+/rbz2/0dn1ZTF2ree1PrCt4/q+
uRHHD5deH1rt+d/a/fW+/tbzy8zMzMxjO/YnY/809q+y412952dlo/ffq/r9
9b7+1vO7y63n71gf2NbZ8aoYa6/Hrv78j35/va+/9fwyMzMz8347vu/P9p9j
f7l1ebPRO9/V76/39bee313O7pfcOvZ9fWDr+a299w+s/vyPfn+9r7/1/DIz
MzMzH+e5++PEn299PmE2euez+v31vv7W8zvXcfxo6dj39YFbG68a/fkf7f56
X3/r+WVmZmZmPs6x/zU3Ws/fcL7TlRHzIb+185t1HF9qHVtfHxjnm2af9xjV
xqvUb+3nlvLLzMzMzHycs+elxfkM2fJkz1us1j/PrhdrfV6Z/C6b36yz48kx
4n5Ove9v6Xxlxxfi71cfr1K/tZ9byi8zMzMz8xxnI3t9/QP9r5Hzm3X2/MAY
W1sv2Hp/9bXPB1za6rf2c+T8MjMzMzPPcTay13/6utPTSzdfPZ148LWPVJ6n
rr1tevHUyemd+8+XyGcsz9yI+ZDf2vmd69bnB+6K0fZrb71fVev5otWsfms/
R84vMzMzM7d1Nlrvd5519v1r6/0vsv35OH+ld36z82lan/cov8vmd65b7880
N6rNB2k9XrX19ZPqt/ZzS/llZmZm5rbOrh+o9r4yux5n6e/j2eid32wsPd4p
v+uOJ2f7i3G8K9se9Z6P1Ho94Gj7VVWvH6OXX/s5dn6ZmZmZOefsfPvY/1z7
+192vlWMpfuL2f752u+7RxtPkN9ly9t6fWD8vNh+ZOdzLT2+ns1HvL9q88eq
Wf2uXV75ZWZmZuY1ne0vxv2Vs+NBcf/h7H4du8q7dH5bn8cWv3/PXf8Qf771
eqe154/Ib+32Ye5+Va3re+vx9dh+zA3jVep3pfotv7Wed2ZmZmY+3q2/v1aP
3udzZfu/1aLa+XDym3N2fWDr8mb7r9nzxfatfcyG+j0vtJ/7lV9mZmZmbuvW
+7msHXG+SLX3rWuf17Z0fnuPB8pvrXy1nl8U7z8bc89Py47n7Vuo38eH9nO/
88vMzMzMyzqO//Q+byxGnJ8x2vfV2N+vlt/4/lp+t5XftdcHZh2vNzfmnjda
7XmpHup3rfotv7XyyczMzMx9HeczZPdXjd9H43ywfTvvOo4fxvkgc/sT8efj
51Wbrya/bV1tfWDW2fVOu/afFvOi9/Ow7/VbfpmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZ2/l/jwrU
7A==
    "], {{0, 200}, {300, 0}}, {0., 1.},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Real32", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSizeRaw->{300, 200},
  PlotRange->{{0, 300}, {0, 200}}]], "Output",
 CellChangeTimes->{3.759512082089492*^9, 3.75951213405252*^9},
 CellLabel->"Out[8]=",
 CellID->109749580,ExpressionUUID->"96ee3a97-1ab6-4a97-b729-95b9143a236a"]
}, Open  ]]
}, Open  ]],

Cell["Scope", "Subsection",
 CellID->964056545,ExpressionUUID->"cbb6772f-d9b4-4870-b518-e7e605576d1d"],

Cell["Options", "Subsection",
 CellID->776923543,ExpressionUUID->"87b21ae9-6c6e-4787-9714-988b5a039d79"],

Cell["Applications", "Subsection",
 CellID->568056528,ExpressionUUID->"4582b7b6-6216-45e4-bee8-a5e4ee41c90b"],

Cell["Properties and Relations", "Subsection",
 CellID->754506620,ExpressionUUID->"d5324ab7-34a5-48ef-96d3-9889d36d4a19"],

Cell["Possible Issues", "Subsection",
 CellID->92483860,ExpressionUUID->"382ce20a-4102-427e-8c8b-7b076d765238"],

Cell["Neat Examples", "Subsection",
 CellID->540091361,ExpressionUUID->"88d0498f-da9a-4fab-ad3c-1dfd2215d0b7"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Source & Additional Information", "Section",
 Deletable->False,
 CellTags->"Source & Additional Information",
 CellID->318391102,ExpressionUUID->"848bb4ad-81be-41d4-bcf5-f27cf360b3d3"],

Cell[CellGroupData[{

Cell[TextData[{
 "Contributed By",
 Cell[BoxData[
  TemplateBox[{"Contributed By",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Name of the person, people or organization that should be publicly \
credited with contributing the 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"]],ExpressionUUID->
  "6321bcdc-35da-4933-ba00-7f1419e5bd75"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"Text",
 CellTags->"Contributed By",
 CellID->757508554,ExpressionUUID->"9463e6f7-f39f-493b-bac8-05588531e58d"],

Cell["Arnoud Buzing", "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},
 CellChangeTimes->{{3.7595122440586658`*^9, 3.7595122455476694`*^9}},
 CellTags->"TabNext",
 CellID->832483124,ExpressionUUID->"7d6d4bab-e6fd-406a-aa94-3a1a95be763f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Keywords",
 Cell[BoxData[
  TemplateBox[{"Keywords",Cell[
     BoxData[
      FrameBox[
       Cell[
       "List relevant terms that should be used to include this resource 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"]],ExpressionUUID->
  "1b696822-6fa1-40bf-a045-1cb2581bf7a5"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"Item",
 CellTags->"Keywords",
 CellID->246422893,ExpressionUUID->"8bdd71c0-f39c-41fa-b0cb-5c08bc9a5f2d"],

Cell[CellGroupData[{

Cell["placeholder", "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},
 CellChangeTimes->{{3.7595122484276695`*^9, 3.7595122505386696`*^9}},
 CellTags->"TabNext",
 CellID->123227828,ExpressionUUID->"75ad81ae-5453-4bd0-9419-cbc20206d504"],

Cell["image", "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},
 CellChangeTimes->{{3.7595122484276695`*^9, 3.75951225234767*^9}},
 CellID->387381105,ExpressionUUID->"a3721f94-1a78-4c33-93dc-f422ab7d7f81"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Related Symbols",
 Cell[BoxData[
  TemplateBox[{"Related Symbols",Cell[
     BoxData[
      FrameBox[
       Cell[
       "List related Wolfram Language symbols. Include up to twenty \
documented, system-level symbols.", "MoreInfoText"], Background -> 
       GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], 
       RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoRelatedSymbols"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "bc553cc5-49c7-4901-a63e-a4a513461d07"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"Item",
 CellTags->"Related Symbols",
 CellID->911170439,ExpressionUUID->"6fd77241-d710-4194-b329-b8d807e00974"],

Cell[CellGroupData[{

Cell["ConstantImage", "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},
 CellChangeTimes->{{3.759512259842675*^9, 3.75951226605768*^9}},
 CellTags->"TabNext",
 CellID->79477165,ExpressionUUID->"3186ba54-f443-4552-b72e-0b575076e31a"],

Cell["ImageCompose", "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},
 CellChangeTimes->{{3.759512259842675*^9, 3.75951227101068*^9}},
 CellID->196730633,ExpressionUUID->"902df05c-4561-4fd3-8521-2224ca6c3aea"],

Cell["ResourceFunction", "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},
 CellChangeTimes->{{3.759512259842675*^9, 3.7595122734586825`*^9}},
 CellID->15815804,ExpressionUUID->"5dc99e4a-4a4f-4c47-9731-d812b4d3d90b"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Related Resource Objects",
 Cell[BoxData[
  TemplateBox[{"Related Resource Objects",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Names of published resource objects from any Wolfram repository that \
are related to this resource.", "MoreInfoText"], Background -> 
       GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], 
       RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "ab1c3934-ae83-4530-bb45-6b2b302a2324"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"Item",
 CellTags->"Related Resource Objects",
 CellID->217060377,ExpressionUUID->"be5dc5a6-acef-4111-995b-aa8bbd470eb7"],

Cell["FontColorFromBackgroundColor", "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},
 CellChangeTimes->{3.759512331029986*^9},
 CellTags->"TabNext",
 CellID->960273585,ExpressionUUID->"26394391-c496-4f81-8564-42d48b969c62"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Source/Reference Citation",
 Cell[BoxData[
  TemplateBox[{"Source/Reference Citation",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Citation for original source of the function or its components. For \
example, original publication of an algorithm or public 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"]],ExpressionUUID->
  "d04b5422-e7ef-41cf-904b-bc5ff9db4234"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"Text",
 CellTags->"Source/Reference Citation",
 CellID->967310595,ExpressionUUID->"e43bc5c4-7dfb-47b9-b907-71ec9b540562"],

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->343081869,ExpressionUUID->"660d37f2-9932-4a73-ae3d-24112131749f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Links",
 Cell[BoxData[
  TemplateBox[{"Links",Cell[
     BoxData[
      FrameBox[
       Cell[
       "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"]],ExpressionUUID->
  "b558d3e7-0a09-4cf6-9e06-f2f6c595a457"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"Item",
 CellTags->"Links",
 CellID->593846556,ExpressionUUID->"87d567e7-3a8c-4641-9b00-2c7ba67103ef"],

Cell["Link to other related material", "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->485448166,ExpressionUUID->"ec54368b-1e1f-4f9f-b543-2c15cf6e8ee3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Tests",
 Cell[BoxData[
  TemplateBox[{"Tests",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Optional list of tests that can be used to verify that the function \
is working properly in any environment.\nTests can be specified as \
Input/Output cell pairs or as literal VerificationTest expressions if you \
need to specify options.", "MoreInfoText"], Background -> GrayLevel[0.95], 
       FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 
       5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoTests"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "8b1e064a-23db-4ec9-b73c-9e8726209040"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"Input",
 CellTags->"Tests",
 CellID->16051757,ExpressionUUID->"4dee5d80-dea1-4ca4-89c7-fddbd71fc050"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MyFunction", "[", 
  RowBox[{"x", ",", "y"}], "]"}]], "Input",
 CellLabel->"In[3]:=",
 CellID->667877521,ExpressionUUID->"541f33f8-d743-4cc0-88d6-17c7fde54d33"],

Cell[BoxData[
 RowBox[{"x", " ", "y"}]], "Output",
 CellLabel->"Out[3]=",
 CellID->993233288,ExpressionUUID->"0cb94ae2-d610-4e4f-9b41-3205629081a0"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Author Notes", "Section",
 Deletable->False,
 DefaultNewCellStyle->"Text",
 CellTags->"Author Notes",
 CellID->795110225,ExpressionUUID->"9b34cdca-0e52-4ed9-a81f-46e358c55ae8"],

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->567921317,ExpressionUUID->"224aadbe-305d-438c-b799-7693a263921c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Submission Notes",
 Cell[BoxData[
  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"]],ExpressionUUID->
  "71c7f171-ff4e-4136-9271-9b4c0ddb6f2f"]
}], "Section",
 Deletable->False,
 DefaultNewCellStyle->"Text",
 CellTags->"Submission Notes",
 CellID->843283583,ExpressionUUID->"00edb197-a76e-4fd3-968e-00b2008c201e"],

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->920818074,ExpressionUUID->"c0e5d85c-62e2-43ad-b9b9-5e4ed335b203"]
}, Open  ]]
}, Open  ]]
},
NotebookDynamicExpression:>Dynamic[
  Symbol["System`ResourceFunction"], SynchronousUpdating -> False],
WindowSize->{775, 872},
WindowMargins->{{564, Automatic}, {Automatic, 54}},
Visible->True,
DockedCells->{
  Cell[
   BoxData[
    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`}}}]}}, {
             Background -> RGBColor[0.988235, 0.419608, 0.203922], 
              AspectRatio -> Automatic, ImageSize -> {45., 45.}, 
              PlotRange -> {{0., 45.}, {0., 45.}}}], 
            StyleBox[
            "\"Function Resource Definition Notebook\"", FontFamily -> 
             "Source Sans Pro", FontWeight -> Bold, FontSize -> 22, FontColor -> 
             GrayLevel[1], StripOnInput -> False]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 
        "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", 
        "\[SpanFromLeft]", "\[SpanFromLeft]", 
        ItemBox[
         TemplateBox[{
           StyleBox[
           "\"Function Repository \[RightGuillemet]\"", "Text", FontColor -> 
            GrayLevel[1], StripOnInput -> False], 
           "https://resources.wolframcloud.com/FunctionRepository/"}, 
          "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> 
         False]}, {
        ButtonBox[
         TemplateBox[{
           StyleBox[
           "\"Open Sample Notebook\"", "Text", FontFamily -> 
            "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 
            13, FontColor -> GrayLevel[1], StripOnInput -> False], 
           "\"View a completed sample definition notebook\""}, 
          "PrettyTooltipTemplate"], 
         ButtonFunction :> (Symbol["System`ResourceFunction"]; 
          FunctionResource`DefinitionNotebook`Private`showProgress[
            
            FunctionResource`DefinitionNotebook`Private`viewExampleNotebook[]]\
), FrameMargins -> {{1, 1}, {0, 0}}, 
         Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h
Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89
GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A
+GMDZA==
             "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> 
           Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL
CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8
6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf
AJBwAV4=
             "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
           "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/
E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc
CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC
jIx4IS/2yUhjJKVkUvMLAMWzMVI=
             "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
         Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> 
         "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic], 
        ButtonBox[
         TemplateBox[{
           StyleBox[
           "\"Style Guidelines\"", "Text", FontFamily -> 
            "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 
            13, FontColor -> GrayLevel[1], StripOnInput -> False], 
           "\"Coming soon\""}, "PrettyTooltipTemplate"], 
         ButtonFunction :> (Symbol["System`ResourceFunction"]; 
          FunctionResource`DefinitionNotebook`Private`showProgress[
            MessageDialog["Coming soon."]]), FrameMargins -> {{1, 1}, {0, 0}},
          Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h
Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89
GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A
+GMDZA==
             "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> 
           Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL
CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8
6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf
AJBwAV4=
             "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
           "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/
E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc
CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC
jIx4IS/2yUhjJKVkUvMLAMWzMVI=
             "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
         Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> 
         "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic], 
        TagBox[
         GridBox[{{"\"\"", "\"\""}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, 
          AutoDelete -> False, 
          GridBoxDividers -> {
           "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, 
          GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{2}}}, 
          FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], 
        ActionMenuBox[
         ButtonBox[
          StyleBox[
          "\"Preview \[DownPointer]\"", "Text", FontFamily -> 
           "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 
           13, FontColor -> GrayLevel[1], StripOnInput -> False], 
          ButtonFunction :> (Symbol["System`ResourceFunction"]; 
           FunctionResource`DefinitionNotebook`Private`showProgress[Null]), 
          FrameMargins -> {{1, 1}, {0, 0}}, 
          Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h
Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89
GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A
+GMDZA==
              "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> 
            Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL
CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8
6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf
AJBwAV4=
              "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
            "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/
E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc
CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC
jIx4IS/2yUhjJKVkUvMLAMWzMVI=
              "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
          Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> 
          "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic], {
         "\"In a notebook\"" :> (Symbol["System`ResourceFunction"]; 
           FunctionResource`DefinitionNotebook`Private`getResource[
             ButtonNotebook[], "Preview"]), 
          "\"On the cloud\"" :> (Symbol["System`ResourceFunction"]; 
           FunctionResource`DefinitionNotebook`Private`getResource[
             ButtonNotebook[], "Cloud"])}, Appearance -> None, Method -> 
         "Queued"], 
        ActionMenuBox[
         ButtonBox[
          StyleBox[
          "\"Deploy \[DownPointer]\"", "Text", FontFamily -> 
           "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 
           13, FontColor -> GrayLevel[1], StripOnInput -> False], 
          ButtonFunction :> (Symbol["System`ResourceFunction"]; 
           FunctionResource`DefinitionNotebook`Private`showProgress[Null]), 
          FrameMargins -> {{1, 1}, {0, 0}}, 
          Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h
Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89
GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A
+GMDZA==
              "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> 
            Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL
CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8
6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf
AJBwAV4=
              "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
            "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/
E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc
CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC
jIx4IS/2yUhjJKVkUvMLAMWzMVI=
              "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
          Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> 
          "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic], {
         "\"Locally on this computer\"" :> (Symbol["System`ResourceFunction"]; 
           FunctionResource`DefinitionNotebook`Private`getResource[
             ButtonNotebook[], "Local"]), 
          "\"For my cloud account\"" :> (Symbol["System`ResourceFunction"]; 
           FunctionResource`DefinitionNotebook`Private`getResource[
             ButtonNotebook[], "Cloud"]), 
          "\"Publicly in the cloud\"" :> (Symbol["System`ResourceFunction"]; 
           FunctionResource`DefinitionNotebook`Private`getResource[
             ButtonNotebook[], "CloudPublic"]), 
          "\"In this session only (without documentation)\"" :> (
           Symbol["System`ResourceFunction"]; 
           FunctionResource`DefinitionNotebook`Private`getResource[
             ButtonNotebook[], "KernelSession"])}, Appearance -> None, Method -> 
         "Queued"], 
        ItemBox[
         StyleBox[
          DynamicBox[
           ToBoxes[
            CurrentValue[
             EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], 
            StandardForm]], "Text", 
          GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> 
         False], 
        ButtonBox[
         TemplateBox[{
           StyleBox[
            TagBox[
             GridBox[{{
                GraphicsBox[{
                  Thickness[0.06349206349206349], 
                  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[0.960784, 0.705882, 0.498039, 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., 1.]], StripOnInput -> False]}, 
                 ImageSize -> 18, PlotRange -> {{0., 15.75}, {0., 16.5}}, 
                 AspectRatio -> Automatic], "\"Submit to Repository\""}}, 
              GridBoxAlignment -> {
               "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
              False, GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.25}, 
                "Rows" -> {{0}}}], "Grid"], "Text", FontFamily -> 
            "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 
            13, FontColor -> GrayLevel[1], StripOnInput -> False], 
           "\"Submit your function to the Wolfram Function Repository\""}, 
          "PrettyTooltipTemplate"], 
         ButtonFunction :> (Symbol["System`ResourceFunction"]; 
          FunctionResource`DefinitionNotebook`Private`showProgress[
            FunctionResource`DefinitionNotebook`Private`submitRepository[
             ButtonNotebook[]]]), FrameMargins -> {{1, 1}, {0, 0}}, 
         Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h
Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89
GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A
+GMDZA==
             "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> 
           Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL
CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8
6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf
AJBwAV4=
             "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
           "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/
E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc
CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC
jIx4IS/2yUhjJKVkUvMLAMWzMVI=
             "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
         Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> 
         "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic]}}, 
      GridBoxAlignment -> {"Columns" -> {{Left}}, "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}}, "RowsIndexed" -> {1 -> 6, 2 -> 4}}, 
      GridBoxSpacings -> {"Columns" -> {5, {}, 5}, "Rows" -> {{Automatic}}}, 
      FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"]], 
   "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0]},
TaggingRules->{
 "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, 
  "TemplateVersion" -> "1.2.12", "StatusMessage" -> "", "AttachedHints" -> {}},
CreateCellID->True,
FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (February 17, 2019)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]], 
   Cell[
    StyleData[All, "Working"], DockedCells -> {
      Cell[
       BoxData[
        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`}}}]}}, {
                 Background -> RGBColor[0.988235, 0.419608, 0.203922], 
                  AspectRatio -> Automatic, ImageSize -> {45., 45.}, 
                  PlotRange -> {{0., 45.}, {0., 45.}}}], 
                StyleBox[
                "\"Function Resource Definition Notebook\"", FontFamily -> 
                 "Source Sans Pro", FontWeight -> Bold, FontSize -> 22, 
                 FontColor -> GrayLevel[1], StripOnInput -> False]}}, 
              GridBoxAlignment -> {
               "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
              False, GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", 
            "\[SpanFromLeft]", "\[SpanFromLeft]", 
            ItemBox[
             TemplateBox[{
               StyleBox[
               "\"Function Repository \[RightGuillemet]\"", "Text", FontColor -> 
                GrayLevel[1], StripOnInput -> False], 
               "https://resources.wolframcloud.com/FunctionRepository/"}, 
              "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> 
             False]}, {
            ButtonBox[
             TemplateBox[{
               StyleBox[
               "\"Open Sample Notebook\"", "Text", FontFamily -> 
                "Source Sans Pro SemiBold", FontWeight -> "SemiBold", 
                FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> 
                False], "\"View a completed sample definition notebook\""}, 
              "PrettyTooltipTemplate"], 
             ButtonFunction :> (Symbol["System`ResourceFunction"]; 
              FunctionResource`DefinitionNotebook`Private`showProgress[
                
                FunctionResource`DefinitionNotebook`Private`\
viewExampleNotebook[]]), FrameMargins -> {{1, 1}, {0, 0}}, 
             Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h
Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89
GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A
+GMDZA==
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
               "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL
CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8
6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf
AJBwAV4=
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
               "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/
E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc
CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC
jIx4IS/2yUhjJKVkUvMLAMWzMVI=
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
             Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> 
             "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic], 
            ButtonBox[
             TemplateBox[{
               StyleBox[
               "\"Style Guidelines\"", "Text", FontFamily -> 
                "Source Sans Pro SemiBold", FontWeight -> "SemiBold", 
                FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> 
                False], "\"Coming soon\""}, "PrettyTooltipTemplate"], 
             ButtonFunction :> (Symbol["System`ResourceFunction"]; 
              FunctionResource`DefinitionNotebook`Private`showProgress[
                MessageDialog["Coming soon."]]), 
             FrameMargins -> {{1, 1}, {0, 0}}, 
             Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h
Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89
GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A
+GMDZA==
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
               "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL
CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8
6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf
AJBwAV4=
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
               "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/
E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc
CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC
jIx4IS/2yUhjJKVkUvMLAMWzMVI=
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
             Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> 
             "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic], 
            TagBox[
             
             GridBox[{{"\"\"", "\"\""}}, 
              GridBoxAlignment -> {
               "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
              False, GridBoxDividers -> {
               "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, FrameStyle -> 
              RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], 
            ActionMenuBox[
             ButtonBox[
              StyleBox[
              "\"Preview \[DownPointer]\"", "Text", FontFamily -> 
               "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 
               13, FontColor -> GrayLevel[1], StripOnInput -> False], 
              ButtonFunction :> (Symbol["System`ResourceFunction"]; 
               FunctionResource`DefinitionNotebook`Private`showProgress[
                Null]), FrameMargins -> {{1, 1}, {0, 0}}, 
              Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h
Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89
GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A
+GMDZA==
                  "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
                "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL
CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8
6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf
AJBwAV4=
                  "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
                "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/
E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc
CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC
jIx4IS/2yUhjJKVkUvMLAMWzMVI=
                  "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
              Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> 
              "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic], {
             "\"In a notebook\"" :> (Symbol["System`ResourceFunction"]; 
               FunctionResource`DefinitionNotebook`Private`getResource[
                 ButtonNotebook[], "Preview"]), 
              "\"On the cloud\"" :> (Symbol["System`ResourceFunction"]; 
               FunctionResource`DefinitionNotebook`Private`getResource[
                 ButtonNotebook[], "Cloud"])}, Appearance -> None, Method -> 
             "Queued"], 
            ActionMenuBox[
             ButtonBox[
              StyleBox[
              "\"Deploy \[DownPointer]\"", "Text", FontFamily -> 
               "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 
               13, FontColor -> GrayLevel[1], StripOnInput -> False], 
              ButtonFunction :> (Symbol["System`ResourceFunction"]; 
               FunctionResource`DefinitionNotebook`Private`showProgress[
                Null]), FrameMargins -> {{1, 1}, {0, 0}}, 
              Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h
Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89
GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A
+GMDZA==
                  "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
                "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL
CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8
6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf
AJBwAV4=
                  "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
                "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/
E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc
CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC
jIx4IS/2yUhjJKVkUvMLAMWzMVI=
                  "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
              Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> 
              "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic], {
             "\"Locally on this computer\"" :> (
               Symbol["System`ResourceFunction"]; 
               FunctionResource`DefinitionNotebook`Private`getResource[
                 ButtonNotebook[], "Local"]), 
              "\"For my cloud account\"" :> (
               Symbol["System`ResourceFunction"]; 
               FunctionResource`DefinitionNotebook`Private`getResource[
                 ButtonNotebook[], "Cloud"]), 
              "\"Publicly in the cloud\"" :> (
               Symbol["System`ResourceFunction"]; 
               FunctionResource`DefinitionNotebook`Private`getResource[
                 ButtonNotebook[], "CloudPublic"]), 
              "\"In this session only (without documentation)\"" :> (
               Symbol["System`ResourceFunction"]; 
               FunctionResource`DefinitionNotebook`Private`getResource[
                 ButtonNotebook[], "KernelSession"])}, Appearance -> None, 
             Method -> "Queued"], 
            ItemBox[
             StyleBox[
              DynamicBox[
               ToBoxes[
                CurrentValue[
                 EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], 
                StandardForm]], "Text", 
              GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, 
             StripOnInput -> False], 
            ButtonBox[
             TemplateBox[{
               StyleBox[
                TagBox[
                 GridBox[{{
                    GraphicsBox[{
                    Thickness[0.06349206349206349], 
                    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[0.960784, 0.705882, 0.498039, 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., 1.]], StripOnInput -> False]}, 
                    ImageSize -> 18, PlotRange -> {{0., 15.75}, {0., 16.5}}, 
                    AspectRatio -> Automatic], "\"Submit to Repository\""}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.25}, 
                    "Rows" -> {{0}}}], "Grid"], "Text", FontFamily -> 
                "Source Sans Pro SemiBold", FontWeight -> "SemiBold", 
                FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> 
                False], 
               "\"Submit your function to the Wolfram Function Repository\""},
               "PrettyTooltipTemplate"], 
             ButtonFunction :> (Symbol["System`ResourceFunction"]; 
              FunctionResource`DefinitionNotebook`Private`showProgress[
                FunctionResource`DefinitionNotebook`Private`submitRepository[
                 ButtonNotebook[]]]), FrameMargins -> {{1, 1}, {0, 0}}, 
             Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h
Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89
GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A
+GMDZA==
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
               "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL
CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8
6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf
AJBwAV4=
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
               "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/
E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc
CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC
jIx4IS/2yUhjJKVkUvMLAMWzMVI=
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
             Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> 
             "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "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}}, "RowsIndexed" -> {1 -> 6, 2 -> 4}}, 
          GridBoxSpacings -> {
           "Columns" -> {5, {}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> 
          RGBColor[0.988235, 0.419608, 0.203922]], "Grid"]], "DockedCell", 
       CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0]}], 
   Cell[
    StyleData["Notebook"], ComponentwiseContextMenu -> {"CellInsertionPoint" -> {
        MenuItem["Insert Example Group", 
         FrontEndExecute[{
           FrontEnd`NotebookWrite[
            FrontEnd`InputNotebook[], 
            Cell[
             CellGroupData[{
               Cell["", "PageBreak", PageBreakBelow -> True], 
               Cell["XXXX", "Text"], 
               Cell[
                BoxData["XXXX"], "Input"]}, Open]]]}]], 
        MenuItem["Insert Example Delimiter", 
         FrontEndExecute[{
           FrontEnd`NotebookWrite[
            FrontEnd`InputNotebook[], 
            Cell["", "PageBreak", PageBreakBelow -> True], After]}]], 
        Delimiter, 
        MenuItem["&Paste", 
         FrontEnd`Paste[After]], 
        Menu["&Insert New Cell", {
          MenuItem[
          "Start Cell Style Names", "MenuListStyles", MenuAnchor -> True], 
          Delimiter, 
          MenuItem["&Other...", "StyleOther"]}], Delimiter, 
        MenuItem["Copy Notebook Ob&ject", 
         FrontEnd`CopySpecial["NotebookObject"]], Delimiter, 
        MenuItem["Toggle &Full Screen", 
         FrontEndExecute[
          FrontEnd`Value[
           FEPrivate`NotebookToggleFullScreen[]]]]}}], 
   Cell[
    StyleData["Item"], DefaultNewCellStyle -> "Item"], 
   Cell[
    StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], 
    FontColor -> GrayLevel[0.25]], 
   Cell[
    StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], 
    ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {0, 0}}, 
    CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, 
    FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], 
   Cell[
    StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], 
    ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {0, 0}}, 
    CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, 
    FontWeight -> Bold, FontColor -> RGBColor[1, 1, 0]], 
   Cell[
    StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, 
    FontWeight -> Bold, FontColor -> RGBColor[0.458824, 0.458824, 0.458824]], 
   Cell[
    StyleData["MoreInfoOpenerIconTemplate"], 
    TemplateBoxOptions -> {
     DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{
            Thickness[0.07142857142857142], 
            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:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz
jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G
bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c
5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28
               "], CurveClosed -> {1}]}, 
             JoinForm[{"Miter", 3.25}], 
             Thickness[0.049999999999999996`], 
             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:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6
eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP
axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7
3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5
uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT

                "], CompressedData["
1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW
bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+
thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a
knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0
8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8
FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638=
                "]}]}, 
             FaceForm[
              RGBColor[0.627441, 0.627441, 0.627441, 1.]], StripOnInput -> 
             False]}, ImageSize -> {14., 14.}, 
           PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic], 
         True -> GraphicsBox[{
            Thickness[0.07142857142857142], 
            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:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz
jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G
bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c
5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28
               "], CurveClosed -> {1}]}, 
             JoinForm[{"Miter", 3.25}], 
             Thickness[0.049999999999999996`], 
             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:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz
jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G
bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c
5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28
               "]]}, 
             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:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6
eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP
axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7
3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5
uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT

                "], CompressedData["
1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW
bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+
thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a
knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0
8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8
FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638=
                "]}]}, 
             FaceForm[
              RGBColor[0.999985, 0.999985, 0.999985, 1.]], StripOnInput -> 
             False]}, ImageSize -> {14., 14.}, 
           PlotRange -> {{0., 14.}, {0., 14.}}, 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 :> (If[
            MatchQ[
             CurrentValue[
              ButtonNotebook[], {TaggingRules, "AttachedCells", #}], 
             Blank[CellObject]], NotebookDelete[
              CurrentValue[
               ButtonNotebook[], {TaggingRules, "AttachedCells", #}]]; 
            CurrentValue[
               ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = 
             Inherited, CurrentValue[
               ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = 
             MathLink`CallFrontEnd[
               FrontEnd`AttachCell[
                ParentCell[
                 EvaluationCell[]], #2, "Inline", 
                "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]; 
            Null]; Null), 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[{
           FunctionResourceTools`BuildDefinitionNotebook`Private`clickTime$$ = 
            0., FunctionResourceTools`BuildDefinitionNotebook`Private`timeout$\
$ = 3.}, 
           TagBox[
            GridBox[{{#, 
               TagBox[
                ButtonBox[
                 DynamicBox[
                  ToBoxes[
                   Refresh[
                    If[
                    AbsoluteTime[] - 
                    FunctionResourceTools`BuildDefinitionNotebook`Private`\
clickTime$$ > FunctionResourceTools`BuildDefinitionNotebook`Private`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 :> {
                    FunctionResourceTools`BuildDefinitionNotebook`Private`\
clickTime$$}], StandardForm]], 
                 ButtonFunction :> (
                  FunctionResourceTools`BuildDefinitionNotebook`Private`\
clickTime$$ = AbsoluteTime[]; CopyToClipboard[#2]), 
                 Appearance -> {
                  "Default" -> None, "Hover" -> None, "Pressed" -> None}, 
                 Method -> "Queued", Evaluator -> Automatic], 
                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", 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[
          FunctionResourceTools`BuildDefinitionNotebook`Private`$$tooltip, 
           "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], 
           FontSize -> 12, FontWeight -> "Plain"], Background -> 
          RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> 
          RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], 
         "Tooltip"]& ]& )}], 
   Cell[
    StyleData["ExampleGroupOpenerTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (DynamicBox[
        ToBoxes[
         If[
          MatchQ[
           CurrentValue[
            EvaluationNotebook[], {TaggingRules, "Openers", #, #2}, Closed], 
           Alternatives[True, Open]], 
          Style[
           Graphics[{
             Thickness[0.18], 
             RGBColor[0.8509803921568627, 0.396078431372549, 0], 
             Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
            PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
           0.68 Inherited], 
          Rotate[
           Style[
            Graphics[{
              Thickness[0.18], 
              RGBColor[0.8509803921568627, 0.396078431372549, 0], 
              Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
             PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
            0.68 Inherited], Pi/2, {-1.65, -1}]], StandardForm]]& )}], 
   Cell[
    StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], 
    CellMargins -> {{66, 10}, {0, 8}}, 
    StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, 
    CellEventActions -> {
     "ReturnKeyDown" :> 
      With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = 
         Notebooks[
           EvaluationCell[]]}, SelectionMove[
          EvaluationCell[], After, Cell]; 
        NotebookWrite[
         FunctionResourceTools`BuildDefinitionNotebook`Private`nb, 
          Cell["", "UsageDescription"], All]; 
        SelectionMove[
         FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, 
          CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[
          SelectedNotebook[], After, Cell]; NotebookFind[
          SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
          WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
          SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, 
    ContextMenu -> {
      MenuItem["Cu&t", "Cut"], 
      MenuItem["&Copy", "Copy"], 
      MenuItem["&Paste", 
       FrontEnd`Paste[After]], 
      Menu["Cop&y As", {
        MenuItem["Plain &Text", 
         FrontEnd`CopySpecial["PlainText"]], 
        MenuItem["&Input Text", 
         FrontEnd`CopySpecial["InputText"]], 
        MenuItem["&LaTeX", 
         KernelExecute[
          ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], 
        MenuItem["M&athML", 
         KernelExecute[
          ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> 
         Automatic], Delimiter, 
        MenuItem["Cell &Object", 
         FrontEnd`CopySpecial["CellObject"]], 
        MenuItem["&Cell Expression", 
         FrontEnd`CopySpecial["CellExpression"]], 
        MenuItem["&Notebook Expression", 
         FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, 
      MenuItem["Format as Template Input", 
       KernelExecute[
        ToExpression[
        "System`ResourceFunction; \
FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], 
       MenuEvaluator -> Automatic], 
      MenuItem["Format as Code", 
       KernelExecute[
        ToExpression[
        "System`ResourceFunction; \
FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\
], MenuEvaluator -> Automatic]}, 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[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = 
         Notebooks[
           EvaluationCell[]]}, SelectionMove[
          EvaluationCell[], After, Cell]; 
        NotebookWrite[
         FunctionResourceTools`BuildDefinitionNotebook`Private`nb, 
          Cell[
           BoxData[""], "UsageInputs"], All]; 
        SelectionMove[
         FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, 
          CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[
          SelectedNotebook[], After, Cell]; NotebookFind[
          SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
          WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
          SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, 
    ContextMenu -> {
      MenuItem["Cu&t", "Cut"], 
      MenuItem["&Copy", "Copy"], 
      MenuItem["&Paste", 
       FrontEnd`Paste[After]], 
      Menu["Cop&y As", {
        MenuItem["Plain &Text", 
         FrontEnd`CopySpecial["PlainText"]], 
        MenuItem["&Input Text", 
         FrontEnd`CopySpecial["InputText"]], 
        MenuItem["&LaTeX", 
         KernelExecute[
          ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], 
        MenuItem["M&athML", 
         KernelExecute[
          ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> 
         Automatic], Delimiter, 
        MenuItem["Cell &Object", 
         FrontEnd`CopySpecial["CellObject"]], 
        MenuItem["&Cell Expression", 
         FrontEnd`CopySpecial["CellExpression"]], 
        MenuItem["&Notebook Expression", 
         FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, 
      MenuItem["Format as Template Input", 
       KernelExecute[
        ToExpression[
        "System`ResourceFunction; \
FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], 
       MenuEvaluator -> Automatic], 
      MenuItem["Format as Code", 
       KernelExecute[
        ToExpression[
        "System`ResourceFunction; \
FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\
], MenuEvaluator -> Automatic], Delimiter, 
      MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], 
      MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], 
      MenuItem["Chec&k Spelling...", "FindNextMisspelling"], 
      Menu["Citatio&n", {
        MenuItem[
        "Insert Bibliographical &Reference...", "InsertBibReference"], 
        MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], 
        Delimiter, 
        MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], 
        MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], 
        MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], 
        MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], 
      Delimiter, 
      Menu["Sty&le", {
        MenuItem[
        "Start Cell Style Names", "MenuListStyles", MenuAnchor -> True], 
        Delimiter, 
        MenuItem["&Other...", "StyleOther"]}], Delimiter, 
      MenuItem["Create Inline Cell", "CreateInlineCell"], 
      MenuItem["Di&vide Cell", "CellSplit"], 
      MenuItem["Evaluate &in Place", All], Delimiter, 
      MenuItem["Toggle &Full Screen", 
       FrontEndExecute[
        FrontEnd`Value[
         FEPrivate`NotebookToggleFullScreen[]]]]}, ShowAutoSpellCheck -> 
    False], 
   Cell[
    StyleData["Notes", StyleDefinitions -> StyleData["Item"]], 
    StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ContextMenu -> {
      MenuItem["Cu&t", "Cut"], 
      MenuItem["&Copy", "Copy"], 
      MenuItem["&Paste", 
       FrontEnd`Paste[After]], 
      Menu["Cop&y As", {
        MenuItem["Plain &Text", 
         FrontEnd`CopySpecial["PlainText"]], 
        MenuItem["&Input Text", 
         FrontEnd`CopySpecial["InputText"]], 
        MenuItem["&LaTeX", 
         KernelExecute[
          ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], 
        MenuItem["M&athML", 
         KernelExecute[
          ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> 
         Automatic], Delimiter, 
        MenuItem["Cell &Object", 
         FrontEnd`CopySpecial["CellObject"]], 
        MenuItem["&Cell Expression", 
         FrontEnd`CopySpecial["CellExpression"]], 
        MenuItem["&Notebook Expression", 
         FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, 
      MenuItem["Format as Template Input", 
       KernelExecute[
        ToExpression[
        "System`ResourceFunction; \
FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], 
       MenuEvaluator -> Automatic], 
      MenuItem["Format as Code", 
       KernelExecute[
        ToExpression[
        "System`ResourceFunction; \
FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\
], MenuEvaluator -> Automatic], Delimiter, 
      MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], 
      MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], 
      MenuItem["Chec&k Spelling...", "FindNextMisspelling"], 
      Menu["Citatio&n", {
        MenuItem[
        "Insert Bibliographical &Reference...", "InsertBibReference"], 
        MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], 
        Delimiter, 
        MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], 
        MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], 
        MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], 
        MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], 
      Delimiter, 
      Menu["Sty&le", {
        MenuItem[
        "Start Cell Style Names", "MenuListStyles", MenuAnchor -> True], 
        Delimiter, 
        MenuItem["&Other...", "StyleOther"]}], Delimiter, 
      MenuItem["Create Inline Cell", "CreateInlineCell"], 
      MenuItem["Di&vide Cell", "CellSplit"], 
      MenuItem["Evaluate &in Place", All], Delimiter, 
      MenuItem["Toggle &Full Screen", 
       FrontEndExecute[
        FrontEnd`Value[
         FEPrivate`NotebookToggleFullScreen[]]]]}, ShowAutoSpellCheck -> 
    False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], 
   Cell[
    StyleData["Text"], ContextMenu -> {
      MenuItem["Cu&t", "Cut"], 
      MenuItem["&Copy", "Copy"], 
      MenuItem["&Paste", 
       FrontEnd`Paste[After]], 
      Menu["Cop&y As", {
        MenuItem["Plain &Text", 
         FrontEnd`CopySpecial["PlainText"]], 
        MenuItem["&Input Text", 
         FrontEnd`CopySpecial["InputText"]], 
        MenuItem["&LaTeX", 
         KernelExecute[
          ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], 
        MenuItem["M&athML", 
         KernelExecute[
          ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> 
         Automatic], Delimiter, 
        MenuItem["Cell &Object", 
         FrontEnd`CopySpecial["CellObject"]], 
        MenuItem["&Cell Expression", 
         FrontEnd`CopySpecial["CellExpression"]], 
        MenuItem["&Notebook Expression", 
         FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, 
      MenuItem["Format as Template Input", 
       KernelExecute[
        ToExpression[
        "System`ResourceFunction; \
FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], 
       MenuEvaluator -> Automatic], 
      MenuItem["Format as Code", 
       KernelExecute[
        ToExpression[
        "System`ResourceFunction; \
FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\
], MenuEvaluator -> Automatic], Delimiter, 
      MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], 
      MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], 
      MenuItem["Chec&k Spelling...", "FindNextMisspelling"], 
      Menu["Citatio&n", {
        MenuItem[
        "Insert Bibliographical &Reference...", "InsertBibReference"], 
        MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], 
        Delimiter, 
        MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], 
        MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], 
        MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], 
        MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], 
      Delimiter, 
      Menu["Sty&le", {
        MenuItem[
        "Start Cell Style Names", "MenuListStyles", MenuAnchor -> True], 
        Delimiter, 
        MenuItem["&Other...", "StyleOther"]}], Delimiter, 
      MenuItem["Create Inline Cell", "CreateInlineCell"], 
      MenuItem["Di&vide Cell", "CellSplit"], 
      MenuItem["Evaluate &in Place", All], Delimiter, 
      MenuItem["Toggle &Full Screen", 
       FrontEndExecute[
        FrontEnd`Value[
         FEPrivate`NotebookToggleFullScreen[]]]]}], 
   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[
    StyleData["Hyperlink"], FontColor -> 
    RGBColor[0.921569, 0.341176, 0.105882]], 
   Cell[
    StyleData["HyperlinkActive"], FontColor -> 
    RGBColor[0.614379, 0.227451, 0.0705882]], 
   Cell[
    StyleData["InlineFormula"], FontSize -> 0.99 Inherited], 
   Cell[
    StyleData["ExampleDelimiter"], ShowCellBracket -> Automatic, 
    CellMargins -> {{66, 14}, {-5, 0}}, 
    CellGroupingRules -> {"SectionGrouping", 58}, ShowCellLabel -> False, 
    CellLabelAutoDelete -> True, TabFilling -> 
    "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {76}, StyleMenuListing -> 
    None, FontFamily -> "Verdana", FontSize -> 9, FontWeight -> "Plain", 
    FontSlant -> "Plain", FontColor -> GrayLevel[0.905882]], 
   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]},
   Visible -> False, FrontEndVersion -> 
  "12.0 for Microsoft Windows (64-bit) (February 17, 2019)", StyleDefinitions -> 
  "PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Title"->{
  Cell[580, 22, 608, 9, 96, "Title",ExpressionUUID->"22d316f8-4b28-4812-b552-68ceac42468a",
   CellTags->{"Title", "TabNext"},
   CellID->362346026]},
 "TabNext"->{
  Cell[580, 22, 608, 9, 96, "Title",ExpressionUUID->"22d316f8-4b28-4812-b552-68ceac42468a",
   CellTags->{"Title", "TabNext"},
   CellID->362346026],
  Cell[1191, 33, 881, 14, 34, "Text",ExpressionUUID->"0c5cca8c-8375-44f5-8069-0a2a462395f3",
   CellTags->{"Description", "TabNext"},
   CellID->450900334],
  Cell[3090, 75, 1658, 38, 105, "Input",ExpressionUUID->"729b60e7-2f9d-476e-8e32-108f97294a49",
   CellTags->"TabNext",
   CellID->778396829],
  Cell[5885, 150, 308, 7, 26, "UsageInputs",ExpressionUUID->"06682b01-8000-48c1-b7ca-56092634b9af",
   CellTags->"TabNext",
   CellID->157543866],
  Cell[6196, 159, 252, 4, 26, "UsageDescription",ExpressionUUID->"4d3237dd-fe6a-40ba-a1b3-c88719952127",
   CellTags->"TabNext",
   CellID->231889230],
  Cell[6485, 168, 324, 7, 26, "UsageInputs",ExpressionUUID->"7f8bce04-9ed1-43cc-886a-af24f359545d",
   CellTags->"TabNext",
   CellID->192243445],
  Cell[6812, 177, 280, 6, 26, "UsageDescription",ExpressionUUID->"04c8b5a3-c74b-49e8-9f07-71de56733f71",
   CellTags->"TabNext",
   CellID->300636923],
  Cell[8071, 212, 687, 12, 31, "Notes",ExpressionUUID->"daf209a4-cc42-4496-b23b-a06f189a1a3f",
   CellTags->"TabNext",
   CellID->521904482],
  Cell[29329, 635, 593, 9, 34, "Text",ExpressionUUID->"7d6d4bab-e6fd-406a-aa94-3a1a95be763f",
   CellTags->"TabNext",
   CellID->832483124],
  Cell[30722, 672, 591, 9, 31, "Item",ExpressionUUID->"75ad81ae-5453-4bd0-9419-cbc20206d504",
   CellTags->"TabNext",
   CellID->123227828],
  Cell[32725, 720, 587, 9, 31, "Item",ExpressionUUID->"3186ba54-f443-4552-b72e-0b575076e31a",
   CellTags->"TabNext",
   CellID->79477165],
  Cell[35321, 776, 580, 9, 31, "Item",ExpressionUUID->"26394391-c496-4f81-8564-42d48b969c62",
   CellTags->"TabNext",
   CellID->960273585],
  Cell[36809, 812, 551, 8, 34, "Text",ExpressionUUID->"660d37f2-9932-4a73-ae3d-24112131749f",
   CellTags->"TabNext",
   CellID->343081869],
  Cell[38110, 845, 540, 8, 31, "Item",ExpressionUUID->"ec54368b-1e1f-4f9f-b543-2c15cf6e8ee3",
   CellTags->"TabNext",
   CellID->485448166],
  Cell[40173, 905, 564, 8, 34, "Text",ExpressionUUID->"224aadbe-305d-438c-b799-7693a263921c",
   CellTags->"TabNext",
   CellID->567921317],
  Cell[41610, 940, 550, 8, 34, "Text",ExpressionUUID->"c0e5d85c-62e2-43ad-b9b9-5e4ed335b203",
   CellTags->"TabNext",
   CellID->920818074]},
 "Description"->{
  Cell[1191, 33, 881, 14, 34, "Text",ExpressionUUID->"0c5cca8c-8375-44f5-8069-0a2a462395f3",
   CellTags->{"Description", "TabNext"},
   CellID->450900334]},
 "Definition"->{
  Cell[2097, 51, 990, 22, 67, "Section",ExpressionUUID->"62ae898e-d06b-4fbf-8583-106a6d44d799",
   CellTags->"Definition",
   CellID->608264297]},
 "Documentation"->{
  Cell[4785, 118, 154, 3, 67, "Section",ExpressionUUID->"fe2cc6dd-b015-4e6c-82fc-816fb47ab74e",
   CellTags->"Documentation",
   CellID->855965831]},
 "Usage"->{
  Cell[4964, 125, 896, 21, 53, "Subsection",ExpressionUUID->"4212e255-39b4-4ab0-8c4a-b7971254fb6a",
   CellTags->"Usage",
   CellID->694807545]},
 "Details & Options"->{
  Cell[7141, 189, 927, 21, 53, "Subsection",ExpressionUUID->"0e628727-f31d-4518-9b54-f13358182400",
   CellTags->"Details & Options",
   CellID->29639701]},
 "Examples"->{
  Cell[8807, 230, 1026, 22, 67, "Section",ExpressionUUID->"693add99-1378-4848-a71d-2f6600a04660",
   CellTags->"Examples",
   CellID->847663398]},
 "Source & Additional Information"->{
  Cell[28326, 607, 190, 3, 67, "Section",ExpressionUUID->"848bb4ad-81be-41d4-bcf5-f27cf360b3d3",
   CellTags->"Source & Additional Information",
   CellID->318391102]},
 "Contributed By"->{
  Cell[28541, 614, 785, 19, 53, "Subsection",ExpressionUUID->"9463e6f7-f39f-493b-bac8-05588531e58d",
   CellTags->"Contributed By",
   CellID->757508554]},
 "Keywords"->{
  Cell[29959, 649, 738, 19, 53, "Subsection",ExpressionUUID->"8bdd71c0-f39c-41fa-b0cb-5c08bc9a5f2d",
   CellTags->"Keywords",
   CellID->246422893]},
 "Related Symbols"->{
  Cell[31925, 697, 775, 19, 53, "Subsection",ExpressionUUID->"6fd77241-d710-4194-b329-b8d807e00974",
   CellTags->"Related Symbols",
   CellID->911170439]},
 "Related Resource Objects"->{
  Cell[34503, 755, 815, 19, 53, "Subsection",ExpressionUUID->"be5dc5a6-acef-4111-995b-aa8bbd470eb7",
   CellTags->"Related Resource Objects",
   CellID->217060377]},
 "Source/Reference Citation"->{
  Cell[35938, 790, 868, 20, 53, "Subsection",ExpressionUUID->"e43bc5c4-7dfb-47b9-b907-71ec9b540562",
   CellTags->"Source/Reference Citation",
   CellID->967310595]},
 "Links"->{
  Cell[37397, 825, 710, 18, 53, "Subsection",ExpressionUUID->"87d567e7-3a8c-4641-9b00-2c7ba67103ef",
   CellTags->"Links",
   CellID->593846556]},
 "Tests"->{
  Cell[38687, 858, 880, 21, 53, "Subsection",ExpressionUUID->"4dee5d80-dea1-4ca4-89c7-fddbd71fc050",
   CellTags->"Tests",
   CellID->16051757]},
 "Author Notes"->{
  Cell[39988, 899, 182, 4, 67, "Section",ExpressionUUID->"9b34cdca-0e52-4ed9-a81f-46e358c55ae8",
   CellTags->"Author Notes",
   CellID->795110225]},
 "Submission Notes"->{
  Cell[40774, 918, 833, 20, 67, "Section",ExpressionUUID->"00edb197-a76e-4fd3-968e-00b2008c201e",
   CellTags->"Submission Notes",
   CellID->843283583]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Title", 115926, 2375},
 {"TabNext", 116091, 2379},
 {"Description", 118427, 2428},
 {"Definition", 118602, 2432},
 {"Documentation", 118769, 2436},
 {"Usage", 118931, 2440},
 {"Details & Options", 119101, 2444},
 {"Examples", 119273, 2448},
 {"Source & Additional Information", 119458, 2452},
 {"Contributed By", 119648, 2456},
 {"Keywords", 119819, 2460},
 {"Related Symbols", 119991, 2464},
 {"Related Resource Objects", 120179, 2468},
 {"Source/Reference Citation", 120377, 2472},
 {"Links", 120556, 2476},
 {"Tests", 120715, 2480},
 {"Author Notes", 120880, 2484},
 {"Submission Notes", 121053, 2488}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 608, 9, 96, "Title",ExpressionUUID->"22d316f8-4b28-4812-b552-68ceac42468a",
 CellTags->{"Title", "TabNext"},
 CellID->362346026],
Cell[1191, 33, 881, 14, 34, "Text",ExpressionUUID->"0c5cca8c-8375-44f5-8069-0a2a462395f3",
 CellTags->{"Description", "TabNext"},
 CellID->450900334],
Cell[CellGroupData[{
Cell[2097, 51, 990, 22, 67, "Section",ExpressionUUID->"62ae898e-d06b-4fbf-8583-106a6d44d799",
 CellTags->"Definition",
 CellID->608264297],
Cell[3090, 75, 1658, 38, 105, "Input",ExpressionUUID->"729b60e7-2f9d-476e-8e32-108f97294a49",
 CellTags->"TabNext",
 CellID->778396829]
}, Open  ]],
Cell[CellGroupData[{
Cell[4785, 118, 154, 3, 67, "Section",ExpressionUUID->"fe2cc6dd-b015-4e6c-82fc-816fb47ab74e",
 CellTags->"Documentation",
 CellID->855965831],
Cell[CellGroupData[{
Cell[4964, 125, 896, 21, 53, "Subsection",ExpressionUUID->"4212e255-39b4-4ab0-8c4a-b7971254fb6a",
 CellTags->"Usage",
 CellID->694807545],
Cell[CellGroupData[{
Cell[5885, 150, 308, 7, 26, "UsageInputs",ExpressionUUID->"06682b01-8000-48c1-b7ca-56092634b9af",
 CellTags->"TabNext",
 CellID->157543866],
Cell[6196, 159, 252, 4, 26, "UsageDescription",ExpressionUUID->"4d3237dd-fe6a-40ba-a1b3-c88719952127",
 CellTags->"TabNext",
 CellID->231889230]
}, Open  ]],
Cell[CellGroupData[{
Cell[6485, 168, 324, 7, 26, "UsageInputs",ExpressionUUID->"7f8bce04-9ed1-43cc-886a-af24f359545d",
 CellTags->"TabNext",
 CellID->192243445],
Cell[6812, 177, 280, 6, 26, "UsageDescription",ExpressionUUID->"04c8b5a3-c74b-49e8-9f07-71de56733f71",
 CellTags->"TabNext",
 CellID->300636923]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[7141, 189, 927, 21, 53, "Subsection",ExpressionUUID->"0e628727-f31d-4518-9b54-f13358182400",
 CellTags->"Details & Options",
 CellID->29639701],
Cell[8071, 212, 687, 12, 31, "Notes",ExpressionUUID->"daf209a4-cc42-4496-b23b-a06f189a1a3f",
 CellTags->"TabNext",
 CellID->521904482]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[8807, 230, 1026, 22, 67, "Section",ExpressionUUID->"693add99-1378-4848-a71d-2f6600a04660",
 CellTags->"Examples",
 CellID->847663398],
Cell[CellGroupData[{
Cell[9858, 256, 111, 1, 53, "Subsection",ExpressionUUID->"cf76340b-0b34-4fa3-bc4d-f4911920c9ac",
 CellID->462042388],
Cell[9972, 259, 196, 2, 34, "Text",ExpressionUUID->"0cfae6d7-15d1-4fa7-98a3-95a57abdd988",
 CellID->13078159],
Cell[CellGroupData[{
Cell[10193, 265, 317, 6, 28, "Input",ExpressionUUID->"1e78574a-364e-44ed-b745-a0392d13c1b3",
 CellID->443871870],
Cell[10513, 273, 5310, 92, 217, "Output",ExpressionUUID->"c8c23f78-e9df-4597-9f9b-0c6a92794d0a",
 CellID->135097205]
}, Open  ]],
Cell[15838, 368, 212, 2, 34, "Text",ExpressionUUID->"3b691bb2-eee7-4c71-8bfe-a71bf4877257",
 CellID->21463016],
Cell[CellGroupData[{
Cell[16075, 374, 330, 6, 28, "Input",ExpressionUUID->"bab0454b-963d-4f08-8a3b-fed7ae60fbf6",
 CellID->167892409],
Cell[16408, 382, 5273, 91, 217, "Output",ExpressionUUID->"6442479f-561a-45d5-8596-068cfd586be2",
 CellID->386126897]
}, Open  ]],
Cell[21696, 476, 210, 2, 34, "Text",ExpressionUUID->"b29e7ff2-a2f0-4158-a81a-206d3b161ddd",
 CellID->429369666],
Cell[CellGroupData[{
Cell[21931, 482, 327, 6, 28, "Input",ExpressionUUID->"d9324e0e-789b-4f8f-860d-6ba3cf8e8168",
 CellID->657325303],
Cell[22261, 490, 5329, 92, 217, "Output",ExpressionUUID->"96ee3a97-1ab6-4a97-b729-95b9143a236a",
 CellID->109749580]
}, Open  ]]
}, Open  ]],
Cell[27617, 586, 102, 1, 53, "Subsection",ExpressionUUID->"cbb6772f-d9b4-4870-b518-e7e605576d1d",
 CellID->964056545],
Cell[27722, 589, 104, 1, 37, "Subsection",ExpressionUUID->"87b21ae9-6c6e-4787-9714-988b5a039d79",
 CellID->776923543],
Cell[27829, 592, 109, 1, 37, "Subsection",ExpressionUUID->"4582b7b6-6216-45e4-bee8-a5e4ee41c90b",
 CellID->568056528],
Cell[27941, 595, 121, 1, 37, "Subsection",ExpressionUUID->"d5324ab7-34a5-48ef-96d3-9889d36d4a19",
 CellID->754506620],
Cell[28065, 598, 111, 1, 37, "Subsection",ExpressionUUID->"382ce20a-4102-427e-8c8b-7b076d765238",
 CellID->92483860],
Cell[28179, 601, 110, 1, 37, "Subsection",ExpressionUUID->"88d0498f-da9a-4fab-ad3c-1dfd2215d0b7",
 CellID->540091361]
}, Open  ]],
Cell[CellGroupData[{
Cell[28326, 607, 190, 3, 67, "Section",ExpressionUUID->"848bb4ad-81be-41d4-bcf5-f27cf360b3d3",
 CellTags->"Source & Additional Information",
 CellID->318391102],
Cell[CellGroupData[{
Cell[28541, 614, 785, 19, 53, "Subsection",ExpressionUUID->"9463e6f7-f39f-493b-bac8-05588531e58d",
 CellTags->"Contributed By",
 CellID->757508554],
Cell[29329, 635, 593, 9, 34, "Text",ExpressionUUID->"7d6d4bab-e6fd-406a-aa94-3a1a95be763f",
 CellTags->"TabNext",
 CellID->832483124]
}, Open  ]],
Cell[CellGroupData[{
Cell[29959, 649, 738, 19, 53, "Subsection",ExpressionUUID->"8bdd71c0-f39c-41fa-b0cb-5c08bc9a5f2d",
 CellTags->"Keywords",
 CellID->246422893],
Cell[CellGroupData[{
Cell[30722, 672, 591, 9, 31, "Item",ExpressionUUID->"75ad81ae-5453-4bd0-9419-cbc20206d504",
 CellTags->"TabNext",
 CellID->123227828],
Cell[31316, 683, 560, 8, 31, "Item",ExpressionUUID->"a3721f94-1a78-4c33-93dc-f422ab7d7f81",
 CellID->387381105]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[31925, 697, 775, 19, 53, "Subsection",ExpressionUUID->"6fd77241-d710-4194-b329-b8d807e00974",
 CellTags->"Related Symbols",
 CellID->911170439],
Cell[CellGroupData[{
Cell[32725, 720, 587, 9, 31, "Item",ExpressionUUID->"3186ba54-f443-4552-b72e-0b575076e31a",
 CellTags->"TabNext",
 CellID->79477165],
Cell[33315, 731, 565, 8, 31, "Item",ExpressionUUID->"902df05c-4561-4fd3-8521-2224ca6c3aea",
 CellID->196730633],
Cell[33883, 741, 571, 8, 31, "Item",ExpressionUUID->"5dc99e4a-4a4f-4c47-9731-d812b4d3d90b",
 CellID->15815804]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[34503, 755, 815, 19, 53, "Subsection",ExpressionUUID->"be5dc5a6-acef-4111-995b-aa8bbd470eb7",
 CellTags->"Related Resource Objects",
 CellID->217060377],
Cell[35321, 776, 580, 9, 31, "Item",ExpressionUUID->"26394391-c496-4f81-8564-42d48b969c62",
 CellTags->"TabNext",
 CellID->960273585]
}, Open  ]],
Cell[CellGroupData[{
Cell[35938, 790, 868, 20, 53, "Subsection",ExpressionUUID->"e43bc5c4-7dfb-47b9-b907-71ec9b540562",
 CellTags->"Source/Reference Citation",
 CellID->967310595],
Cell[36809, 812, 551, 8, 34, "Text",ExpressionUUID->"660d37f2-9932-4a73-ae3d-24112131749f",
 CellTags->"TabNext",
 CellID->343081869]
}, Open  ]],
Cell[CellGroupData[{
Cell[37397, 825, 710, 18, 53, "Subsection",ExpressionUUID->"87d567e7-3a8c-4641-9b00-2c7ba67103ef",
 CellTags->"Links",
 CellID->593846556],
Cell[38110, 845, 540, 8, 31, "Item",ExpressionUUID->"ec54368b-1e1f-4f9f-b543-2c15cf6e8ee3",
 CellTags->"TabNext",
 CellID->485448166]
}, Open  ]],
Cell[CellGroupData[{
Cell[38687, 858, 880, 21, 53, "Subsection",ExpressionUUID->"4dee5d80-dea1-4ca4-89c7-fddbd71fc050",
 CellTags->"Tests",
 CellID->16051757],
Cell[CellGroupData[{
Cell[39592, 883, 184, 4, 28, "Input",ExpressionUUID->"541f33f8-d743-4cc0-88d6-17c7fde54d33",
 CellID->667877521],
Cell[39779, 889, 148, 3, 32, "Output",ExpressionUUID->"0cb94ae2-d610-4e4f-9b41-3205629081a0",
 CellID->993233288]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[39988, 899, 182, 4, 67, "Section",ExpressionUUID->"9b34cdca-0e52-4ed9-a81f-46e358c55ae8",
 CellTags->"Author Notes",
 CellID->795110225],
Cell[40173, 905, 564, 8, 34, "Text",ExpressionUUID->"224aadbe-305d-438c-b799-7693a263921c",
 CellTags->"TabNext",
 CellID->567921317]
}, Open  ]],
Cell[CellGroupData[{
Cell[40774, 918, 833, 20, 67, "Section",ExpressionUUID->"00edb197-a76e-4fd3-968e-00b2008c201e",
 CellTags->"Submission Notes",
 CellID->843283583],
Cell[41610, 940, 550, 8, 34, "Text",ExpressionUUID->"c0e5d85c-62e2-43ad-b9b9-5e4ed335b203",
 CellTags->"TabNext",
 CellID->920818074]
}, Open  ]]
}, Open  ]]
}
]
*)