GUI.nb

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

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

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    328465,       8123]
NotebookOptionsPosition[    308334,       7725]
NotebookOutlinePosition[    308691,       7741]
CellTagsIndexPosition[    308648,       7738]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["GUI For Package of 2-D Light Tracking", "Title",
 CellChangeTimes->{{3.698453163738011*^9, 
  3.6984531703180475`*^9}},ExpressionUUID->"bb8ce211-3928-4bd3-aed3-\
59520c61f6ff"],

Cell["Notes", "Chapter",
 CellChangeTimes->{{3.6984531456753674`*^9, 
  3.6984531566937037`*^9}},ExpressionUUID->"8fd517f5-3ba9-4728-84b3-\
311c6f5188f5"],

Cell[CellGroupData[{

Cell["Codes", "Chapter",
 CellChangeTimes->{{3.6984531393790407`*^9, 
  3.6984531415189466`*^9}},ExpressionUUID->"042ed532-c0e8-46d1-862e-\
5eba3c4e3098"],

Cell[CellGroupData[{

Cell["Pre-Jobs", "Section",
 CellChangeTimes->{{3.6980635878521657`*^9, 3.698063590117414*^9}, {
  3.698063715738845*^9, 
  3.6980637221379814`*^9}},ExpressionUUID->"1903717d-ff82-4243-9ff8-\
2812d3ce5520"],

Cell[CellGroupData[{

Cell["Context", "Subsection",
 CellChangeTimes->{{3.6980636068374166`*^9, 3.6980636083225183`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Begin", "[", "\"\<OpticsGUI`\>\"", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.6980200604781017`*^9, 3.698020076759016*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"End", "[", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.6980200907567215`*^9, 3.6980201148794775`*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Avoid {}", "Subsection",
 CellChangeTimes->{{3.6980636155684633`*^9, 3.6980636436728773`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Unprotect", "@", "Mean"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Mean", "[", 
    RowBox[{"{", "}"}], "]"}], ":=", 
   RowBox[{"Mean", "/@", "plotr"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Protect", "@", "Mean"}], ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.698063645316388*^9, 3.6980636671643844`*^9}, {
  3.698126126740766*^9, 3.6981261498964157`*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Overall Constructs", "Section",
 CellChangeTimes->{{3.6980163423013597`*^9, 
  3.6980163489624553`*^9}},ExpressionUUID->"91dfa81d-689f-4f7e-8572-\
7fb14b0291c9"],

Cell[CellGroupData[{

Cell["Public Information", "Subsection",
 CellChangeTimes->{{3.6980171959957185`*^9, 3.6980171971982975`*^9}, {
  3.6980174978867316`*^9, 3.698017498952299*^9}}],

Cell[CellGroupData[{

Cell["Objects info", "Subsubsection",
 CellChangeTimes->{{3.6980179010561295`*^9, 3.6980179047704115`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"objects", "=", 
   RowBox[{"<|", 
    RowBox[{
     RowBox[{"1", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"lens", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", 
            RowBox[{"-", "1"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", ".7", ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "1"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"3", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"onlymirror", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2.5", ",", 
            RowBox[{"-", "1"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4.5", ",", "1"}], "}"}]}], "}"}]}], "}"}]}], ",", 
     RowBox[{"4", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"aperture", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"3", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "2"}], "}"}]}], "}"}]}], "}"}]}], ",", 
     RowBox[{"5", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"source", ",", 
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "4"}], ",", "0"}], "}"}], "}"}], ",", "0", ",", 
        RowBox[{"Pi", "/", "6"}], ",", 
        RowBox[{"Pi", "/", "200"}], ",", "\"\<point\>\""}], "}"}]}]}], 
    "|>"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nobjects", "=", "6"}], ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.698016318038499*^9, 3.6980163257377005`*^9}, {
  3.6980163762582407`*^9, 3.698016383883341*^9}, {3.6980164910604134`*^9, 
  3.6980165114820013`*^9}, {3.6980165541323977`*^9, 3.698016563175644*^9}, {
  3.698016843337324*^9, 3.6980169959671297`*^9}, {3.6980170812190285`*^9, 
  3.6980171680881805`*^9}, {3.69801722152479*^9, 3.6980172377762423`*^9}, {
  3.6980176346006365`*^9, 3.698017653096032*^9}, {3.6980177095783644`*^9, 
  3.698017709809548*^9}, {3.698017752154255*^9, 3.6980177732369423`*^9}, {
  3.698017817046772*^9, 3.698017831499302*^9}, {3.698029260509227*^9, 
  3.698029269290189*^9}, {3.698045369916459*^9, 3.698045372601387*^9}, {
  3.698297303322952*^9, 3.698297305060742*^9}, {3.698451660748415*^9, 
  3.6984516691234827`*^9}, {3.698451827044338*^9, 3.6984518295642548`*^9}, {
  3.698452374208085*^9, 3.698452374323406*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Selection info", "Subsubsection",
 CellChangeTimes->{{3.6980179077760496`*^9, 3.698017912170863*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"visible", "=", 
   RowBox[{"<|", 
    RowBox[{
     RowBox[{"1", "\[Rule]", "True"}], ",", 
     RowBox[{"3", "\[Rule]", "True"}], ",", 
     RowBox[{"4", "\[Rule]", "True"}], ",", 
     RowBox[{"5", "\[Rule]", "False"}]}], "|>"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"selected", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"ConstantArray", "[", 
      RowBox[{"False", ",", 
       RowBox[{"Length", "@", 
        RowBox[{"#", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}]}], "]"}], "&"}], "/@", 
    "objects"}]}], ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.698017879562563*^9, 3.6980179300880604`*^9}, {
  3.698018240222393*^9, 3.6980182451105394`*^9}, {3.69802016639948*^9, 
  3.6980201681794653`*^9}, {3.6980202639752026`*^9, 3.698020274393436*^9}, {
  3.6980307817046385`*^9, 3.6980308150067463`*^9}, {3.698380856958768*^9, 
  3.698380859940054*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Stack info", "Subsubsection",
 CellChangeTimes->{{3.6980184706100636`*^9, 3.6980184728302765`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"eventstack", "=", 
   RowBox[{"{", "}"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6980199264929304`*^9, 3.6980199279558897`*^9}, {
  3.6980199781195135`*^9, 3.6980199808421116`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Draw info", "Subsubsection",
 CellChangeTimes->{{3.6981005954284916`*^9, 3.6981005982762814`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"plotr", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "}"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6981005998084726`*^9, 3.698100617403674*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Extra Control Port", "Subsubsection",
 CellChangeTimes->{{3.698137336063388*^9, 3.6981373410575733`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"extraoptions", ":=", 
   RowBox[{"<|", "|>"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.698137244891435*^9, 3.698137257544127*^9}, {
   3.6981436589474936`*^9, 3.698143667041678*^9}, 3.6981437769530835`*^9, {
   3.698207347189805*^9, 3.6982073498274717`*^9}, {3.698221025205719*^9, 
   3.6982210253654823`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Relation Graph", "Subsubsection",
 CellChangeTimes->{{3.6984497082090206`*^9, 3.698449710992484*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"relation", "=", 
   RowBox[{"<|", 
    RowBox[{
     RowBox[{"0", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"1", ",", 
        RowBox[{"-", "1"}], ",", 
        RowBox[{"-", "4"}]}], "}"}]}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3"}], ",", "5"}], "}"}]}], ",", 
     RowBox[{
      RowBox[{"-", "3"}], "\[Rule]", 
      RowBox[{"{", "4", "}"}]}], ",", 
     RowBox[{
      RowBox[{"-", "4"}], "\[Rule]", 
      RowBox[{"{", "3", "}"}]}]}], "|>"}]}], ";"}]], "Input",
 InitializationCell->True]
}, Open  ]],

Cell[CellGroupData[{

Cell["Property List", "Subsubsection",
 CellChangeTimes->{{3.698449714592108*^9, 3.698449724185343*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"list", " ", "in", " ", "the", " ", "form", " ", 
    RowBox[{"{", 
     RowBox[{
     "name", ",", "ancestor", ",", "sonmenuvisibleQ", ",", "selectedQ", ",", 
      "graphicsvisibleQ"}], "}"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"property", "=", 
    RowBox[{"\[LeftAssociation]", 
     RowBox[{
      RowBox[{"0", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
        "\"\<master\>\"", ",", "0", ",", "True", ",", "False", ",", "True"}], 
        "}"}]}], ",", 
      RowBox[{
       RowBox[{"-", "1"}], "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
        "\"\<menu 1\>\"", ",", "0", ",", "True", ",", "False", ",", "True"}], 
        "}"}]}], ",", 
      RowBox[{
       RowBox[{"-", "3"}], "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"\"\<menu 2\>\"", ",", 
         RowBox[{"-", "1"}], ",", "False", ",", "False", ",", "True"}], 
        "}"}]}], ",", 
      RowBox[{
       RowBox[{"-", "4"}], "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
        "\"\<menu 3\>\"", ",", "0", ",", "False", ",", "False", ",", "True"}],
         "}"}]}], ",", 
      RowBox[{"1", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
        "\"\<obj 1\>\"", ",", "0", ",", "False", ",", "False", ",", "True"}], 
        "}"}]}], ",", 
      RowBox[{"5", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"\"\<obj 2\>\"", ",", 
         RowBox[{"-", "1"}], ",", "False", ",", "False", ",", "True"}], 
        "}"}]}], ",", 
      RowBox[{"4", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"\"\<obj 3\>\"", ",", 
         RowBox[{"-", "3"}], ",", "False", ",", "False", ",", "True"}], 
        "}"}]}], ",", 
      RowBox[{"3", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"\"\<obj 4\>\"", ",", 
         RowBox[{"-", "4"}], ",", "False", ",", "False", ",", "True"}], 
        "}"}]}]}], "\[RightAssociation]"}]}], ";"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6984496991429896`*^9, 3.698449704004487*^9}}]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Control and Assistants", "Section",
 CellChangeTimes->{{3.6982975107391553`*^9, 3.698297533170912*^9}, {
  3.698298150704593*^9, 
  3.698298157792035*^9}},ExpressionUUID->"3e8eba4d-8b3e-42a3-b08c-\
ce6cb71e3299"],

Cell[CellGroupData[{

Cell["Visualize & Basic Dynamic Alternation of Public Information", \
"Subsection",
 CellChangeTimes->{{3.698017466966202*^9, 3.6980174923898244`*^9}, {
  3.6980178331281857`*^9, 3.698017833991477*^9}, {3.6980346571834564`*^9, 
  3.6980346634463882`*^9}, {3.698043370941852*^9, 
  3.6980433728644924`*^9}},ExpressionUUID->"43a53afc-4bd2-4a4c-836f-\
f36dd7cdc702"],

Cell[CellGroupData[{

Cell["\<\
Individual Segments\[CloseCurlyQuote] Action, Selection and Anti-Selection, \
First Priority.\
\>", "Subsubsection",
 CellChangeTimes->{{3.6980435254243293`*^9, 3.6980435509518633`*^9}}],

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"pt", ",", "sel"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"highlight", "[", "key_", "]"}], ":=", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Length", "@", 
          RowBox[{"objects", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"Key", "@", "key"}], ",", "2"}], "]"}], "]"}]}], 
         "\[Equal]", "2"}], ",", 
        RowBox[{"EventHandler", "[", 
         RowBox[{
          RowBox[{"Mouseover", "[", 
           RowBox[{
            RowBox[{"Dynamic", "@", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"And", "@@", 
                RowBox[{"selected", "@", "key"}]}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"Opacity", "@", ".4"}], ",", 
                 RowBox[{"Blend", "[", 
                  RowBox[{"{", 
                   RowBox[{"Yellow", ",", "Orange"}], "}"}], "]"}], ",", 
                 RowBox[{"AbsoluteThickness", "@", "7"}], ",", 
                 RowBox[{"CapForm", "[", "\"\<Round\>\"", "]"}], ",", 
                 RowBox[{"Line", "[", 
                  RowBox[{"objects", "[", 
                   RowBox[{"[", 
                    RowBox[{
                    RowBox[{"Key", "@", "key"}], ",", "2"}], "]"}], "]"}], 
                  "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"Opacity", "@", "0"}], ",", 
                 RowBox[{"AbsoluteThickness", "@", "7"}], ",", 
                 RowBox[{"CapForm", "[", "\"\<Round\>\"", "]"}], ",", 
                 RowBox[{"Line", "[", 
                  RowBox[{"objects", "[", 
                   RowBox[{"[", 
                    RowBox[{
                    RowBox[{"Key", "@", "key"}], ",", "2"}], "]"}], "]"}], 
                  "]"}]}], "}"}]}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Opacity", "@", ".3"}], ",", "Orange", ",", 
              RowBox[{"AbsoluteThickness", "@", "7"}], ",", 
              RowBox[{"CapForm", "[", "\"\<Round\>\"", "]"}], ",", 
              RowBox[{"Line", "[", 
               RowBox[{"objects", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"Key", "@", "key"}], ",", "2"}], "]"}], "]"}], 
               "]"}]}], "}"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"\"\<MouseClicked\>\"", "\[RuleDelayed]", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"eventstack", "\[Equal]", 
               RowBox[{"{", "}"}]}], ",", 
              RowBox[{
               RowBox[{"selected", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"Key", "@", "key"}], ",", ";;"}], "]"}], "]"}], "=", 
               RowBox[{"!", 
                RowBox[{"And", "@@", 
                 RowBox[{"selected", "@", "key"}]}]}]}]}], "]"}]}], "}"}]}], 
         "]"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"EventHandler", "[", 
           RowBox[{
            RowBox[{"Mouseover", "[", 
             RowBox[{
              RowBox[{"Dynamic", "@", 
               RowBox[{"If", "[", 
                RowBox[{"sel", ",", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Opacity", "@", ".7"}], ",", "Yellow", ",", 
                   RowBox[{"Disk", "[", 
                    RowBox[{"pt", ",", 
                    RowBox[{"Scaled", "[", ".01", "]"}]}], "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "@", "2"}], ",", 
                   RowBox[{"Blend", "[", 
                    RowBox[{"{", 
                    RowBox[{"Yellow", ",", "Orange"}], "}"}], "]"}], ",", 
                   RowBox[{"Circle", "[", 
                    RowBox[{"pt", ",", 
                    RowBox[{"Scaled", "[", ".01", "]"}]}], "]"}]}], "}"}], 
                 ",", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Opacity", "@", "0"}], ",", 
                   RowBox[{"Disk", "[", 
                    RowBox[{"pt", ",", 
                    RowBox[{"Scaled", "[", ".01", "]"}]}], "]"}]}], "}"}]}], 
                "]"}]}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Opacity", "@", ".5"}], ",", "Orange", ",", 
                RowBox[{"Disk", "[", 
                 RowBox[{"pt", ",", 
                  RowBox[{"Scaled", "[", ".01", "]"}]}], "]"}]}], "}"}]}], 
             "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"\"\<MouseClicked\>\"", "\[RuleDelayed]", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"eventstack", "\[Equal]", 
                 RowBox[{"{", "}"}]}], ",", 
                RowBox[{
                 RowBox[{"selected", "[", 
                  RowBox[{"[", 
                   RowBox[{
                    RowBox[{"Key", "@", "key"}], ",", "#"}], "]"}], "]"}], 
                 "=", 
                 RowBox[{"!", "sel"}]}]}], "]"}]}], "}"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"pt", "\[RuleDelayed]", 
             RowBox[{"Dynamic", "[", 
              RowBox[{"objects", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"Key", "@", "key"}], ",", "2", ",", "#"}], "]"}], 
               "]"}], "]"}]}], ",", 
            RowBox[{"sel", "\[RuleDelayed]", 
             RowBox[{"selected", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"Key", "@", "key"}], ",", "#"}], "]"}], "]"}]}]}], 
           "}"}]}], " ", ")"}], "&"}], "/@", 
       RowBox[{"Range", "@", 
        RowBox[{"Length", "@", 
         RowBox[{"objects", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"Key", "@", "key"}], ",", "2"}], "]"}], "]"}]}]}]}]}], 
     "}"}]}]}], "\[IndentingNewLine]", "]"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6980205251601844`*^9, 3.6980205448196497`*^9}, {
   3.6980225633329687`*^9, 3.698022566716905*^9}, {3.6980226969210463`*^9, 
   3.698022701833401*^9}, {3.6980228266893377`*^9, 3.6980228343508053`*^9}, {
   3.6980229011674204`*^9, 3.6980229015970182`*^9}, {3.698022979055425*^9, 
   3.6980230706976547`*^9}, {3.6980279904833612`*^9, 
   3.6980280476602182`*^9}, {3.698028290629574*^9, 3.69802833561162*^9}, {
   3.6980285766405888`*^9, 3.6980285961683626`*^9}, {3.6980287255852437`*^9, 
   3.698028732820526*^9}, {3.6980293010976987`*^9, 3.6980293160775504`*^9}, 
   3.6980344896885853`*^9, {3.6980347626569014`*^9, 3.6980350632776937`*^9}, {
   3.6980350948860025`*^9, 3.698035132351328*^9}, {3.6980351748650827`*^9, 
   3.6980351791731052`*^9}, {3.6980352890571957`*^9, 3.698035296210411*^9}, 
   3.6980353353264523`*^9, {3.6980353972183876`*^9, 3.6980354033385124`*^9}, {
   3.6980354947993927`*^9, 3.698035498993436*^9}, {3.698035603588396*^9, 
   3.6980356455237637`*^9}, {3.6980440238808165`*^9, 
   3.6980440361599836`*^9}, {3.69804411175633*^9, 3.6980441191074467`*^9}, {
   3.6980442146566124`*^9, 3.6980442453209977`*^9}, {3.69804431616761*^9, 
   3.6980443251831264`*^9}, {3.698044403936454*^9, 3.6980444087888107`*^9}, {
   3.698045326701784*^9, 3.698045332516973*^9}, {3.6980456282057266`*^9, 
   3.698045672352762*^9}, {3.6980488782968082`*^9, 3.6980488882391977`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Visualize All Elements", "Subsubsection",
 CellChangeTimes->{{3.698043592312566*^9, 3.6980436216678467`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"vispub", "[", 
   RowBox[{"addgraphics_:", 
    RowBox[{"{", "}"}]}], "]"}], ":=", 
  RowBox[{"Dynamic", "@", 
   RowBox[{"Graphics", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"funcapp", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"drawlit", "[", "]"}], ",", 
           RowBox[{"drawbound", "[", "]"}], ",", 
           RowBox[{"draweven", "[", "]"}]}], "}"}], ",", 
         RowBox[{"tracklight", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"#1", "[", "##2", "]"}], "&"}], "@@@", 
            RowBox[{"Values", "@", "objects"}]}], ",", "plotr"}], "]"}]}], 
        "]"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"drawhw", "[", 
          RowBox[{"#1", "[", "##2", "]"}], "]"}], "&"}], "@@@", 
        RowBox[{"Values", "@", 
         RowBox[{"objects", "[", 
          RowBox[{"[", 
           RowBox[{"Key", "/@", 
            RowBox[{"Pick", "[", 
             RowBox[{
              RowBox[{"Keys", "@", "visible"}], ",", 
              RowBox[{"Values", "@", "visible"}]}], "]"}]}], "]"}], "]"}]}]}],
        ",", 
       RowBox[{"highlight", "/@", 
        RowBox[{"Pick", "[", 
         RowBox[{
          RowBox[{"Keys", "@", "visible"}], ",", 
          RowBox[{"Values", "@", "visible"}]}], "]"}]}], ",", "addgraphics"}],
       "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"Dynamic", "@", "plotr"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"600", ",", "600"}], "}"}]}]}], "]"}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.698017454956267*^9, 3.698017456290629*^9}, {
   3.6980175019579906`*^9, 3.6980175071636534`*^9}, {3.698017539137944*^9, 
   3.6980175961635056`*^9}, {3.698018152689412*^9, 3.6980181746380897`*^9}, {
   3.698018223992279*^9, 3.6980182341844625`*^9}, {3.69802004049417*^9, 
   3.698020053700206*^9}, {3.698020234137716*^9, 3.698020282590645*^9}, {
   3.698020353720404*^9, 3.698020383350144*^9}, {3.6980205003085623`*^9, 
   3.6980205896424546`*^9}, 3.6980225746570654`*^9, {3.698022607841163*^9, 
   3.698022607961446*^9}, {3.698022917451973*^9, 3.698022946668836*^9}, {
   3.698028526963475*^9, 3.698028554176792*^9}, {3.698029234330225*^9, 
   3.6980292479772277`*^9}, 3.698034474747264*^9, {3.69803453557458*^9, 
   3.6980345541137075`*^9}, {3.698034586606353*^9, 3.698034608134103*^9}, {
   3.6980353516231527`*^9, 3.6980353546459208`*^9}, {3.6980353887755833`*^9, 
   3.698035391319377*^9}, {3.6980430364125957`*^9, 3.698043048227686*^9}, {
   3.698044251796651*^9, 3.6980442524776664`*^9}, {3.6981005831734495`*^9, 
   3.6981006085072803`*^9}, {3.6981271263592653`*^9, 3.6981271277992244`*^9}, 
   3.6983808829119253`*^9, 3.698380930423685*^9, {3.698451371434839*^9, 
   3.6984514120982275`*^9}, {3.698457343437564*^9, 3.6984573638565493`*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Stack Operations", "Subsection",
 CellChangeTimes->{{3.698063774089653*^9, 
  3.6980637771741433`*^9}},ExpressionUUID->"5c8e758c-3d59-4171-9a27-\
b2e8a1f6fbcf"],

Cell[CellGroupData[{

Cell["Clear Stack", "Subsubsection",
 CellChangeTimes->{{3.698063827355219*^9, 3.698063837076476*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"clearstack", "[", "]"}], ":=", 
  RowBox[{"(", 
   RowBox[{"eventstack", "=", 
    RowBox[{"{", "}"}]}], ")"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.698064094499707*^9, 3.6980641323778896`*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Delete Stack", "Subsubsection",
 CellChangeTimes->{{3.6980966195982594`*^9, 3.6980966251425056`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"delstack", "[", "]"}], ":=", 
  RowBox[{"(", 
   RowBox[{"eventstack", "=", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"eventstack", "=!=", 
       RowBox[{"{", "}"}]}], ",", 
      RowBox[{"Most", "@", "eventstack"}], ",", 
      RowBox[{"{", "}"}]}], "]"}]}], ")"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.698096631017169*^9, 3.6980966482941074`*^9}, {
   3.6980994072513123`*^9, 3.6980994149875336`*^9}, {3.6980998156883183`*^9, 
   3.698099816300996*^9}, 3.698117683133726*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["Add Content", "Subsubsection",
 CellChangeTimes->{{3.6980637789134445`*^9, 3.698063797902269*^9}, {
  3.6980638319593835`*^9, 3.698063833188275*^9}}],

Cell[CellGroupData[{

Cell["Basic Pattern", "Subsubsubsection",
 CellChangeTimes->{{3.69811832625249*^9, 3.698118329762143*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"numpatt", "=", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"rep", "=", 
       RowBox[{
        RowBox[{"Alternatives", "@@", 
         RowBox[{"CharacterRange", "[", 
          RowBox[{"\"\<0\>\"", ",", "\"\<9\>\""}], "]"}]}], "..."}]}], "}"}], 
     ",", 
     RowBox[{
      RowBox[{"PatternSequence", "[", 
       RowBox[{
        RowBox[{"Repeated", "[", 
         RowBox[{"\"\<-\>\"", ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "1"}], "}"}]}], "]"}], ",", "rep", ",", 
        RowBox[{"PatternSequence", "[", 
         RowBox[{"\"\<.\>\"", ",", "rep"}], "]"}]}], "]"}], "|", 
      RowBox[{"PatternSequence", "[", 
       RowBox[{
        RowBox[{"Repeated", "[", 
         RowBox[{"\"\<-\>\"", ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "1"}], "}"}]}], "]"}], ",", "rep"}], "]"}]}]}], 
    "]"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.698110881683859*^9, 3.698110937572956*^9}, {
  3.6981109838443565`*^9, 3.6981110190052896`*^9}, {3.6981182054420667`*^9, 
  3.698118208821881*^9}, {3.6981184781631775`*^9, 3.698118486522168*^9}, {
  3.6981186234100556`*^9, 3.698118661259138*^9}, {3.6981188047782736`*^9, 
  3.698118829722656*^9}, {3.69811978612523*^9, 3.6981197876579437`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Number Pattern Processing", "Subsubsubsection",
 CellChangeTimes->{{3.69811832625249*^9, 3.698118329762143*^9}, {
  3.6981218290568705`*^9, 3.6981218346261635`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"procnum", "[", "str__", "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", "str", "}"}], "===", 
      RowBox[{"{", "\"\<.\>\"", "}"}]}], "||", 
     RowBox[{
      RowBox[{"{", "str", "}"}], "===", 
      RowBox[{"{", "\"\<-\>\"", "}"}]}]}], ",", "0", ",", 
    RowBox[{"N", "@", 
     RowBox[{"ToExpression", "@", 
      RowBox[{"StringJoin", "[", "str", "]"}]}]}]}], "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.698121673286892*^9, 3.698121703478812*^9}, {
  3.698121779113475*^9, 3.6981218141036253`*^9}, {3.6981496878226027`*^9, 
  3.6981496882417493`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["From Nothing Up", "Subsubsubsection",
 CellChangeTimes->{{3.69811832625249*^9, 3.698118329762143*^9}, {
  3.698118400256608*^9, 3.698118402573985*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"addtostack", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", 
    RowBox[{"h", ":", 
     RowBox[{"(", 
      RowBox[{
      "\"\<g\>\"", "|", "\"\<r\>\"", "|", "\"\<s\>\"", "|", "\"\<f\>\""}], 
      ")"}]}]}], "]"}], ":=", 
  RowBox[{"(", 
   RowBox[{"eventstack", "=", 
    RowBox[{"{", "h", "}"}]}], ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"addtostack", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "_"}], "]"}], ":=", "1"}], ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.698117956849184*^9, 3.6981179810639544`*^9}, {
   3.698118102677297*^9, 3.6981182123611603`*^9}, 3.6981197899041367`*^9, 
   3.6981232972538757`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Rotation", "Subsubsubsection",
 CellChangeTimes->{{3.69811832625249*^9, 3.698118329762143*^9}, {
  3.698118400256608*^9, 3.6981184186061387`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"addtostack", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\"\<r\>\"", ",", "cont___"}], "}"}], ",", "\"\<-\>\""}], "]"}], 
  ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", "cont", "}"}], "===", 
      RowBox[{"{", "}"}]}], "||", 
     RowBox[{
      RowBox[{"First", "@", 
       RowBox[{"{", "cont", "}"}]}], "=!=", "\"\<-\>\""}]}], ",", 
    RowBox[{"eventstack", "=", 
     RowBox[{"{", 
      RowBox[{"\"\<r\>\"", ",", "\"\<-\>\"", ",", "cont"}], "}"}]}], ",", 
    RowBox[{"eventstack", "=", 
     RowBox[{"Prepend", "[", 
      RowBox[{
       RowBox[{"Rest", "@", 
        RowBox[{"{", "cont", "}"}]}], ",", "\"\<r\>\""}], "]"}]}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"addtostack", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\"\<r\>\"", ",", "cont___"}], "}"}], ",", "add_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"eventstack", "=", 
     RowBox[{"{", 
      RowBox[{"\"\<r\>\"", ",", "cont", ",", "add"}], "}"}]}], ")"}], "/;", 
   RowBox[{"MatchQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"cont", ",", "add"}], "}"}], ",", 
     RowBox[{"{", "numpatt", "}"}]}], "]"}]}]}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6981181763704453`*^9, 3.698118179535136*^9}, {
   3.698118249163457*^9, 3.698118274954551*^9}, {3.698118309440295*^9, 
   3.6981183104831734`*^9}, 3.6981184209937253`*^9, {3.698118533269919*^9, 
   3.6981185781333733`*^9}, {3.6981189166561103`*^9, 
   3.6981189420709953`*^9}, {3.698119009256969*^9, 3.6981190094244194`*^9}, {
   3.698119076547189*^9, 3.698119079322825*^9}, {3.6981213826434455`*^9, 
   3.698121449747903*^9}, {3.698121583062153*^9, 3.698121606518642*^9}, {
   3.698121887032833*^9, 3.698121888592121*^9}, {3.6981222104232273`*^9, 
   3.6981222135067*^9}, {3.698126462183757*^9, 3.698126470935783*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"addtostack", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<r\>\"", ",", "cont___"}], "}"}], ",", 
     RowBox[{"h1", ":", 
      RowBox[{"(", 
       RowBox[{"\"\<g\>\"", "|", "\"\<s\>\"", "|", "\"\<f\>\""}], ")"}]}]}], 
    "]"}], ":=", 
   RowBox[{"(", 
    RowBox[{"eventstack", "=", 
     RowBox[{"{", "h1", "}"}]}], ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"addtostack", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<r\>\"", ",", "cont___"}], "}"}], ",", "\"\<r\>\""}], "]"}],
    ":=", 
   RowBox[{"clearstack", "[", "]"}]}], ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.698119011012748*^9, 3.6981191316080737`*^9}, {
  3.6981199049168806`*^9, 3.6981199080344734`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Move, Scale and Fly", "Subsubsubsection",
 CellChangeTimes->{{3.69811832625249*^9, 3.698118329762143*^9}, {
  3.698118400256608*^9, 3.6981184186061387`*^9}, {3.6981197524856033`*^9, 
  3.6981197559220715`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"addtostack", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"h", ":", 
       RowBox[{"(", 
        RowBox[{"\"\<g\>\"", "|", "\"\<s\>\"", "|", "\"\<f\>\""}], ")"}]}], 
      ",", 
      RowBox[{"dir", ":", 
       RowBox[{"(", 
        RowBox[{"\"\<x\>\"", "|", "\"\<y\>\""}], ")"}]}], ",", "cont___"}], 
     "}"}], ",", "\"\<-\>\""}], "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", "cont", "}"}], "===", 
      RowBox[{"{", "}"}]}], "||", 
     RowBox[{
      RowBox[{"First", "@", 
       RowBox[{"{", "cont", "}"}]}], "=!=", "\"\<-\>\""}]}], ",", 
    RowBox[{"eventstack", "=", 
     RowBox[{"{", 
      RowBox[{"h", ",", "dir", ",", "\"\<-\>\"", ",", "cont"}], "}"}]}], ",", 
    RowBox[{"eventstack", "=", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"h", ",", "dir"}], "}"}], "~", "Join", "~", 
      RowBox[{"Rest", "@", 
       RowBox[{"{", "cont", "}"}]}]}]}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"addtostack", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"h", ":", 
        RowBox[{"(", 
         RowBox[{"\"\<g\>\"", "|", "\"\<s\>\"", "|", "\"\<f\>\""}], ")"}]}], 
       ",", "cont___"}], "}"}], ",", "\"\<-\>\""}], "]"}], ":=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"{", "cont", "}"}], "===", 
       RowBox[{"{", "}"}]}], "||", 
      RowBox[{
       RowBox[{"First", "@", 
        RowBox[{"{", "cont", "}"}]}], "=!=", "\"\<-\>\""}]}], ",", 
     RowBox[{"eventstack", "=", 
      RowBox[{"{", 
       RowBox[{"h", ",", "\"\<-\>\"", ",", "cont"}], "}"}]}], ",", 
     RowBox[{"eventstack", "=", 
      RowBox[{"Prepend", "[", 
       RowBox[{
        RowBox[{"Rest", "@", 
         RowBox[{"{", "cont", "}"}]}], ",", "h"}], "]"}]}]}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"addtostack", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"h", ":", 
       RowBox[{"(", 
        RowBox[{"\"\<g\>\"", "|", "\"\<s\>\"", "|", "\"\<f\>\""}], ")"}]}], 
      ",", 
      RowBox[{"dir", ":", 
       RowBox[{"(", 
        RowBox[{"\"\<x\>\"", "|", "\"\<y\>\""}], ")"}]}], ",", "cont___"}], 
     "}"}], ",", "dir_"}], "]"}], ":=", 
  RowBox[{"(", 
   RowBox[{"eventstack", "=", 
    RowBox[{"{", 
     RowBox[{"h", ",", "cont"}], "}"}]}], ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"addtostack", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"h", ":", 
       RowBox[{"(", 
        RowBox[{"\"\<g\>\"", "|", "\"\<s\>\"", "|", "\"\<f\>\""}], ")"}]}], 
      ",", 
      RowBox[{"dir", ":", 
       RowBox[{"(", 
        RowBox[{"\"\<x\>\"", "|", "\"\<y\>\""}], ")"}]}], ",", "cont___"}], 
     "}"}], ",", 
    RowBox[{"dir1", ":", 
     RowBox[{"(", 
      RowBox[{"\"\<x\>\"", "|", "\"\<y\>\""}], ")"}]}]}], "]"}], ":=", 
  RowBox[{"(", 
   RowBox[{"eventstack", "=", 
    RowBox[{"{", 
     RowBox[{"h", ",", "dir1", ",", "cont"}], "}"}]}], 
   ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"addtostack", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"h", ":", 
        RowBox[{"(", 
         RowBox[{"\"\<g\>\"", "|", "\"\<s\>\"", "|", "\"\<f\>\""}], ")"}]}], 
       ",", "cont___"}], "}"}], ",", 
     RowBox[{"dir", ":", 
      RowBox[{"(", 
       RowBox[{"\"\<x\>\"", "|", "\"\<y\>\""}], ")"}]}]}], "]"}], ":=", 
   RowBox[{"(", 
    RowBox[{"eventstack", "=", 
     RowBox[{"{", 
      RowBox[{"h", ",", "dir", ",", "cont"}], "}"}]}], ")"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"addtostack", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"h", ":", 
       RowBox[{"(", 
        RowBox[{"\"\<g\>\"", "|", "\"\<s\>\"", "|", "\"\<f\>\""}], ")"}]}], 
      ",", 
      RowBox[{"dir", ":", 
       RowBox[{"(", 
        RowBox[{"\"\<x\>\"", "|", "\"\<y\>\""}], ")"}]}], ",", "cont___"}], 
     "}"}], ",", "add_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"eventstack", "=", 
     RowBox[{"{", 
      RowBox[{"h", ",", "dir", ",", "cont", ",", "add"}], "}"}]}], ")"}], "/;", 
   RowBox[{"MatchQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"cont", ",", "add"}], "}"}], ",", 
     RowBox[{"{", "numpatt", "}"}]}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"addtostack", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"h", ":", 
       RowBox[{"(", 
        RowBox[{"\"\<g\>\"", "|", "\"\<s\>\"", "|", "\"\<f\>\""}], ")"}]}], 
      ",", "cont___"}], "}"}], ",", "add_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"eventstack", "=", 
     RowBox[{"{", 
      RowBox[{"h", ",", "cont", ",", "add"}], "}"}]}], ")"}], "/;", 
   RowBox[{"MatchQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"cont", ",", "add"}], "}"}], ",", 
     RowBox[{"{", "numpatt", "}"}]}], "]"}]}]}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6981181763704453`*^9, 3.698118179535136*^9}, {
   3.698118249163457*^9, 3.698118274954551*^9}, {3.698118309440295*^9, 
   3.6981183104831734`*^9}, 3.6981184209937253`*^9, {3.698118533269919*^9, 
   3.6981185781333733`*^9}, {3.6981189166561103`*^9, 
   3.6981189420709953`*^9}, {3.698119009256969*^9, 3.6981190094244194`*^9}, {
   3.698119076547189*^9, 3.698119079322825*^9}, {3.6981198092503786`*^9, 
   3.698119813719591*^9}, 3.698119881646465*^9, {3.6981218790569115`*^9, 
   3.6981219348316975`*^9}, {3.6981219665811996`*^9, 
   3.6981219835745707`*^9}, {3.698122085531955*^9, 3.6981220876402345`*^9}, 
   3.6981222424828043`*^9, 3.698122554704461*^9, {3.6981228103904953`*^9, 
   3.6981228656773415`*^9}, {3.698122938536029*^9, 3.6981230165253644`*^9}, {
   3.698123048852384*^9, 3.6981231613824806`*^9}, {3.698125721601449*^9, 
   3.698125743937904*^9}, {3.698126285026004*^9, 3.69812630833189*^9}, {
   3.6981264289607086`*^9, 3.6981264406126547`*^9}, {3.6981267132780795`*^9, 
   3.698126714076274*^9}, {3.69812677209448*^9, 3.698126772478532*^9}, {
   3.6981268351880584`*^9, 
   3.6981268490952253`*^9}},ExpressionUUID->"e9299c98-3c8d-4653-8395-\
551483db764e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"addtostack", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"h", ":", 
        RowBox[{"(", 
         RowBox[{"\"\<g\>\"", "|", "\"\<s\>\"", "|", "\"\<f\>\""}], ")"}]}], 
       ",", "cont___"}], "}"}], ",", "h_"}], "]"}], ":=", 
   RowBox[{"clearstack", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"addtostack", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"h", ":", 
       RowBox[{"(", 
        RowBox[{"\"\<g\>\"", "|", "\"\<s\>\"", "|", "\"\<f\>\""}], ")"}]}], 
      ",", "cont___"}], "}"}], ",", 
    RowBox[{"h1", ":", 
     RowBox[{"(", 
      RowBox[{
      "\"\<g\>\"", "|", "\"\<r\>\"", "|", "\"\<s\>\"", "|", "\"\<f\>\""}], 
      ")"}]}]}], "]"}], ":=", 
  RowBox[{"(", 
   RowBox[{"eventstack", "=", 
    RowBox[{"{", "h1", "}"}]}], ")"}]}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.698119011012748*^9, 3.6981191316080737`*^9}, {
  3.6981198941552734`*^9, 3.69811993659685*^9}, {3.698119981423652*^9, 
  3.6981199831664343`*^9}, {3.6981235357453103`*^9, 3.698123587738635*^9}, {
  3.6981250380169077`*^9, 3.6981250572477465`*^9}, {3.698126343713787*^9, 
  3.6981263616139*^9}, {3.698126716421731*^9, 3.698126717930875*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Hardware Addition", "Subsubsubsection",
 CellChangeTimes->{{3.69811832625249*^9, 3.698118329762143*^9}, {
  3.698118400256608*^9, 3.6981184186061387`*^9}, {3.6984452564658175`*^9, 
  3.6984452639912567`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"hardwarename", "=", 
   RowBox[{"Alternatives", "[", 
    RowBox[{
    "aperture", ",", "traverse", ",", "lens", ",", "mirror", ",", 
     "onlymirror", ",", "linesource", ",", "pointsource"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"addtostack", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", 
    RowBox[{"hw", ":", "hardwarename"}]}], "]"}], ":=", 
  RowBox[{"(", 
   RowBox[{"eventstack", "=", 
    RowBox[{"{", "hw", "}"}]}], ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"addtostack", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"hw", ":", "hardwarename"}], "}"}], ",", "hw_"}], "]"}], ":=", 
  RowBox[{"(", 
   RowBox[{"eventstack", "=", 
    RowBox[{"{", "}"}]}], ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"addtostack", "[", 
   RowBox[{
    RowBox[{"{", "__", "}"}], ",", 
    RowBox[{"hw", ":", "hardwarename"}]}], "]"}], ":=", 
  RowBox[{"(", 
   RowBox[{"eventstack", "=", 
    RowBox[{"{", "hw", "}"}]}], ")"}]}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{
  3.6984457310182166`*^9, {3.698447406234045*^9, 3.698447416569792*^9}, {
   3.698447463622718*^9, 3.6984474666203194`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Direct Call Operations", "Subsubsection",
 CellChangeTimes->{{3.6981430524951677`*^9, 3.698143057361582*^9}}],

Cell[CellGroupData[{

Cell["C ------ Clear Stack / Selection", "Subsubsubsection",
 CellChangeTimes->{{3.69811832625249*^9, 3.698118329762143*^9}, {
  3.698118400256608*^9, 3.6981184186061387`*^9}, {3.6981197524856033`*^9, 
  3.6981197559220715`*^9}, {3.698143101269413*^9, 3.6981431148026257`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"addtostack", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", "\"\<c\>\""}], "]"}], ":=", 
  RowBox[{"(", 
   RowBox[{"selected", "=", 
    RowBox[{"Map", "[", 
     RowBox[{
      RowBox[{"False", "&"}], ",", "selected", ",", 
      RowBox[{"{", 
       RowBox[{"-", "1"}], "}"}]}], "]"}]}], ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"addtostack", "[", 
   RowBox[{
    RowBox[{"{", "__", "}"}], ",", "\"\<c\>\""}], "]"}], ":=", 
  RowBox[{"clearstack", "[", "]"}]}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6981430315830755`*^9, 3.6981430824866138`*^9}, {
  3.698143193406896*^9, 3.6981431979358635`*^9}, {3.6984444237378993`*^9, 
  3.698444424980192*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["A ------ Select All", "Subsubsubsection",
 CellChangeTimes->{{3.69811832625249*^9, 3.698118329762143*^9}, {
  3.698118400256608*^9, 3.6981184186061387`*^9}, {3.6981197524856033`*^9, 
  3.6981197559220715`*^9}, {3.698143119146577*^9, 3.698143123556716*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"addtostack", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", "\"\<a\>\""}], "]"}], ":=", 
  RowBox[{"(", 
   RowBox[{"selected", "=", 
    RowBox[{"MapAt", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{"True", "&"}], ",", "#", ",", 
         RowBox[{"{", 
          RowBox[{"-", "1"}], "}"}]}], "]"}], "&"}], ",", "selected", ",", 
      RowBox[{
       RowBox[{"List", "@*", "Key"}], "/@", 
       RowBox[{"Pick", "[", 
        RowBox[{
         RowBox[{"Keys", "@", "visible"}], ",", 
         RowBox[{"Values", "@", "visible"}]}], "]"}]}]}], "]"}]}], 
   ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"addtostack", "[", 
   RowBox[{
    RowBox[{"{", "__", "}"}], ",", "\"\<a\>\""}], "]"}], ":=", 
  RowBox[{"(", 
   RowBox[{"selected", "=", 
    RowBox[{"MapAt", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{"True", "&"}], ",", "#", ",", 
         RowBox[{"{", 
          RowBox[{"-", "1"}], "}"}]}], "]"}], "&"}], ",", "selected", ",", 
      RowBox[{
       RowBox[{"List", "@*", "Key"}], "/@", 
       RowBox[{"Pick", "[", 
        RowBox[{
         RowBox[{"Keys", "@", "visible"}], ",", 
         RowBox[{"Values", "@", "visible"}]}], "]"}]}]}], "]"}]}], 
   ")"}]}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.698143074278562*^9, 3.698143085359562*^9}, {
  3.6981432044763618`*^9, 3.6981432053577814`*^9}, {3.6981434232492857`*^9, 
  3.6981434296407948`*^9}, {3.6981435861972747`*^9, 3.6981435893188176`*^9}, {
  3.6983809346789184`*^9, 3.6983809396969695`*^9}}]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Actions - Stack Relationships", "Subsection",
 CellChangeTimes->{{3.6980434384637814`*^9, 
  3.698043452340451*^9}},ExpressionUUID->"748cfeb4-c510-408c-8fcd-\
43a9299c74aa"],

Cell[CellGroupData[{

Cell["Empty Stack ------ Drag Select", "Subsubsection",
 CellChangeTimes->{{3.698043457171702*^9, 3.698043464888962*^9}, {
   3.6980573501108074`*^9, 3.6980573508788695`*^9}, {3.698059280318986*^9, 
   3.6980592814320464`*^9}, 3.698064043364133*^9, 3.6981006938548226`*^9}],

Cell[CellGroupData[{

Cell["Change Selection States According to Selection Range", \
"Subsubsubsection",
 CellChangeTimes->{{3.698045163721613*^9, 3.6980451816550436`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"rangeselect", "[", 
   RowBox[{"st_", ",", "ed_", ",", "modfunc_"}], "]"}], ":=", 
  RowBox[{"With", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"index", "=", 
      RowBox[{"Transpose", "@", 
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"Values", "@", 
          RowBox[{"MapIndexed", "[", 
           RowBox[{"List", ",", 
            RowBox[{"objects", "[", 
             RowBox[{"[", 
              RowBox[{";;", ",", "2"}], "]"}], "]"}], ",", 
            RowBox[{"{", "2", "}"}]}], "]"}]}], ",", "1"}], "]"}]}]}], "}"}], 
    ",", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"selected", "[", 
         RowBox[{"[", "##", "]"}], "]"}], "=", 
        RowBox[{"modfunc", "@", 
         RowBox[{"selected", "[", 
          RowBox[{"[", "##", "]"}], "]"}]}]}], ")"}], "&"}], "@@@", 
     RowBox[{"Pick", "[", 
      RowBox[{
       RowBox[{"index", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"UnitBox", "@@", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"#", "-", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"st", "+", "ed"}], ")"}], "/", "2"}]}], ")"}], "/", 
            RowBox[{"Abs", "[", 
             RowBox[{"st", "-", "ed"}], "]"}]}], ")"}]}], "&"}], "/@", 
        RowBox[{"index", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ",", "1"}], "]"}]}]}], 
   "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.698044491443611*^9, 3.698044556296937*^9}, 
   3.698045121345922*^9, {3.6980461889323587`*^9, 3.6980462053754272`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["All Actions", "Subsubsubsection",
 CellChangeTimes->{{3.6980451942277665`*^9, 3.6980451964476233`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"actions", "[", 
   RowBox[{"{", "}"}], "]"}], ":=", 
  RowBox[{"DynamicModule", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"st", "=", "Null"}], ",", 
      RowBox[{"ed", "=", "Null"}]}], "}"}], ",", 
    RowBox[{"EventHandler", "[", 
     RowBox[{
      RowBox[{"vispub", "[", 
       RowBox[{"Dynamic", "@", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"st", "=!=", "Null"}], ",", 
          RowBox[{"{", 
           RowBox[{"Blue", ",", 
            RowBox[{"Opacity", "@", ".1"}], ",", 
            RowBox[{"EdgeForm", "@", 
             RowBox[{"Directive", "[", 
              RowBox[{
               RowBox[{"Opacity", "@", ".7"}], ",", 
               RowBox[{"Darker", "@", "Blue"}], ",", 
               RowBox[{"AbsoluteThickness", "@", "2"}]}], "]"}]}], ",", 
            RowBox[{"Dynamic", "@", 
             RowBox[{"Rectangle", "[", 
              RowBox[{"st", ",", "ed"}], "]"}]}]}], "}"}], ",", 
          RowBox[{"{", "}"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\"\<MouseDown\>\"", "\[RuleDelayed]", 
         RowBox[{"(", 
          RowBox[{"ed", "=", 
           RowBox[{"st", "=", 
            RowBox[{"MousePosition", "[", "\"\<Graphics\>\"", "]"}]}]}], 
          ")"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"\"\<MouseDragged\>\"", "\[RuleDelayed]", 
         RowBox[{"(", 
          RowBox[{"ed", "=", 
           RowBox[{"MousePosition", "[", "\"\<Graphics\>\"", "]"}]}], ")"}]}],
         ",", "\[IndentingNewLine]", 
        RowBox[{"\"\<MouseUp\>\"", "\[RuleDelayed]", 
         RowBox[{"(", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"st", "=!=", "Null"}], ",", 
            RowBox[{
             RowBox[{"rangeselect", "[", 
              RowBox[{"st", ",", "ed", ",", 
               RowBox[{"If", "[", 
                RowBox[{
                 RowBox[{"CurrentValue", "[", "\"\<ControlKey\>\"", "]"}], 
                 ",", 
                 RowBox[{"If", "[", 
                  RowBox[{
                   RowBox[{"CurrentValue", "[", "\"\<ShiftKey\>\"", "]"}], 
                   ",", 
                   RowBox[{"False", "&"}], ",", 
                   RowBox[{"True", "&"}]}], "]"}], ",", "Not"}], "]"}]}], 
              "]"}], ";", 
             RowBox[{"st", "=", 
              RowBox[{"ed", "=", "Null"}]}]}]}], "]"}], ")"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"\"\<MouseDown\>\"", ",", "2"}], "}"}], "\[RuleDelayed]", 
         RowBox[{"(", 
          RowBox[{"st", "=", 
           RowBox[{"ed", "=", "Null"}]}], ")"}]}]}], "\[IndentingNewLine]", 
       "}"}]}], "]"}]}], "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.698042861709074*^9, 3.698043012598569*^9}, {
   3.6980431516696773`*^9, 3.6980432196951275`*^9}, {3.698043252769281*^9, 
   3.6980433611297874`*^9}, {3.698043472144988*^9, 3.6980434820027585`*^9}, {
   3.698043649992174*^9, 3.698043706836694*^9}, {3.698043820380581*^9, 
   3.6980438283587413`*^9}, 3.698044131228067*^9, {3.698044261360651*^9, 
   3.6980442635323987`*^9}, {3.698044453158515*^9, 3.698044457267555*^9}, {
   3.698044536225681*^9, 3.6980445434903917`*^9}, {3.698045336680559*^9, 
   3.6980453474134846`*^9}, {3.6980453920717473`*^9, 
   3.6980454897736993`*^9}, {3.69804621304745*^9, 3.6980462324154963`*^9}, {
   3.6980462647000866`*^9, 3.6980463870711975`*^9}, {3.6980466393087406`*^9, 
   3.6980466532909393`*^9}, {3.698046688265041*^9, 3.698046718678378*^9}, {
   3.6980467560979056`*^9, 3.698046761993583*^9}, {3.6980468055407114`*^9, 
   3.6980468092919517`*^9}, {3.698046849546782*^9, 3.6980468520647016`*^9}, {
   3.698048267049651*^9, 3.6980482686169367`*^9}, {3.698048307000261*^9, 
   3.698048334485759*^9}, {3.6980486455822396`*^9, 3.698048657474013*^9}, {
   3.698051091278293*^9, 3.6980510929007483`*^9}, {3.6980511432212133`*^9, 
   3.69805115443804*^9}, {3.6980511849408236`*^9, 3.698051186995489*^9}, {
   3.698127346671003*^9, 3.69812736389228*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["G-Started Stack ------ Move", "Subsubsection",
 CellChangeTimes->{{3.698043457171702*^9, 3.698043464888962*^9}, {
   3.698046529678999*^9, 3.6980465381311474`*^9}, 3.69806404519716*^9}],

Cell[CellGroupData[{

Cell["Move According to Displacement", "Subsubsubsection",
 CellChangeTimes->{{3.698045163721613*^9, 3.6980451816550436`*^9}, {
  3.698048056561469*^9, 3.698048068485341*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"moveposition", "[", 
   RowBox[{"backup_", ",", "displace_"}], "]"}], ":=", 
  RowBox[{"With", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"index", "=", 
      RowBox[{"Transpose", "@", 
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"Values", "@", 
          RowBox[{"MapIndexed", "[", 
           RowBox[{"List", ",", "selected", ",", 
            RowBox[{"{", "2", "}"}]}], "]"}]}], ",", "1"}], "]"}]}]}], "}"}], 
    ",", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"objects", "[", 
         RowBox[{"[", 
          RowBox[{"#1", ",", "2", ",", "#2"}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"backup", "[", 
          RowBox[{"[", 
           RowBox[{"#1", ",", "2", ",", "#2"}], "]"}], "]"}], "+", 
         "displace"}]}], ")"}], "&"}], "@@@", 
     RowBox[{"Pick", "[", 
      RowBox[{
       RowBox[{"index", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"index", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}]}], "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.698048013159192*^9, 3.698048035575788*^9}, {
  3.698050142551372*^9, 3.698050148715372*^9}, {3.698050254766985*^9, 
  3.6980502793054295`*^9}, {3.69805032525268*^9, 3.6980503901909313`*^9}, {
  3.698057122903055*^9, 3.698057169239396*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Moving Actions", "Subsubsubsection",
 CellChangeTimes->{{3.698045163721613*^9, 3.6980451816550436`*^9}, {
  3.698046544438449*^9, 3.6980465471207743`*^9}, {3.6980515374930325`*^9, 
  3.6980515390653667`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"movingactions", "[", "modfunc_", "]"}], ":=", 
  RowBox[{"DynamicModule", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"st", "=", "Null"}], ",", 
      RowBox[{"ed", "=", "Null"}], ",", 
      RowBox[{"backup", "=", "objects"}]}], "}"}], ",", 
    RowBox[{"EventHandler", "[", 
     RowBox[{
      RowBox[{"vispub", "[", 
       RowBox[{"Dynamic", "@", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"st", "=!=", "Null"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Opacity", "@", ".7"}], ",", 
            RowBox[{"Darker", "@", "Blue"}], ",", 
            RowBox[{"AbsoluteThickness", "@", "2"}], ",", 
            RowBox[{"Dynamic", "@", 
             RowBox[{"Arrow", "[", 
              RowBox[{"{", 
               RowBox[{"st", ",", 
                RowBox[{"st", "+", 
                 RowBox[{"modfunc", "[", 
                  RowBox[{"ed", "-", "st"}], "]"}]}]}], "}"}], "]"}]}], ",", 
            "Dashed", ",", 
            RowBox[{"Dynamic", "@", 
             RowBox[{"Line", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"st", "+", 
                 RowBox[{"modfunc", "[", 
                  RowBox[{"ed", "-", "st"}], "]"}]}], ",", "ed"}], "}"}], 
              "]"}]}]}], "}"}], ",", 
          RowBox[{"{", "}"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\"\<MouseDown\>\"", "\[RuleDelayed]", 
         RowBox[{"(", 
          RowBox[{"ed", "=", 
           RowBox[{"st", "=", 
            RowBox[{"MousePosition", "[", "\"\<Graphics\>\"", "]"}]}]}], 
          ")"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"\"\<MouseDragged\>\"", "\[RuleDelayed]", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"ed", "=", 
            RowBox[{"MousePosition", "[", "\"\<Graphics\>\"", "]"}]}], ";", 
           RowBox[{"moveposition", "[", 
            RowBox[{"backup", ",", 
             RowBox[{"modfunc", "[", 
              RowBox[{"ed", "-", "st"}], "]"}]}], "]"}]}], ")"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"\"\<MouseDown\>\"", ",", "2"}], "}"}], "\[RuleDelayed]", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"moveposition", "[", 
            RowBox[{"backup", ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "0"}], "}"}]}], "]"}], ";", 
           RowBox[{"st", "=", 
            RowBox[{"ed", "=", "Null"}]}]}], ")"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"\"\<MouseUp\>\"", "\[RuleDelayed]", 
         RowBox[{"(", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"st", "=!=", "Null"}], ",", 
            RowBox[{
             RowBox[{"moveposition", "[", 
              RowBox[{"backup", ",", 
               RowBox[{"modfunc", "[", 
                RowBox[{"ed", "-", "st"}], "]"}]}], "]"}], ";", 
             RowBox[{"backup", "=", "objects"}], ";", 
             RowBox[{"st", "=", 
              RowBox[{"ed", "=", "Null"}]}]}]}], "]"}], ")"}]}]}], 
       "\[IndentingNewLine]", "}"}]}], "]"}]}], "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6980465482398415`*^9, 3.698046560298888*^9}, {
   3.6980470273218265`*^9, 3.6980470379664073`*^9}, 3.6980478473339443`*^9, {
   3.6980478777191277`*^9, 3.698047903695177*^9}, {3.698047947168339*^9, 
   3.6980479498597364`*^9}, {3.698048245244789*^9, 3.6980482454333115`*^9}, {
   3.6980490135333776`*^9, 3.698049026290536*^9}, {3.698050099212911*^9, 
   3.69805010180505*^9}, {3.698050132214834*^9, 3.6980501352161117`*^9}, {
   3.6980504106658077`*^9, 3.698050468695902*^9}, {3.69805120225846*^9, 
   3.6980512036242228`*^9}, {3.6980512785481887`*^9, 3.698051366864182*^9}, {
   3.698051567685417*^9, 3.69805156925471*^9}, {3.69805160113107*^9, 
   3.6980516097572813`*^9}, {3.6980516736028333`*^9, 3.698051674172388*^9}, {
   3.698057114407089*^9, 3.6980571485223556`*^9}, {3.698057185965568*^9, 
   3.6980571972667637`*^9}, {3.6980578229873424`*^9, 3.698057824910507*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Final Definitions", "Subsubsubsection",
 CellChangeTimes->{{3.698045163721613*^9, 3.6980451816550436`*^9}, {
  3.698046544438449*^9, 3.6980465471207743`*^9}, {3.6980515374930325`*^9, 
  3.698051550557001*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"actions", "[", 
   RowBox[{"{", "\"\<g\>\"", "}"}], "]"}], ":=", 
  RowBox[{"movingactions", "[", 
   RowBox[{"#", "&"}], "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6980515106542025`*^9, 3.698051526079632*^9}, 
   3.6980992738934193`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"actions", "[", 
   RowBox[{"{", 
    RowBox[{"\"\<g\>\"", ",", "\"\<x\>\""}], "}"}], "]"}], ":=", 
  RowBox[{"movingactions", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"#", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", "0"}], "}"}], "&"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"actions", "[", 
   RowBox[{"{", 
    RowBox[{"\"\<g\>\"", ",", "\"\<y\>\""}], "}"}], "]"}], ":=", 
  RowBox[{"movingactions", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"#", "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "&"}], "]"}]}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6980516189185143`*^9, 3.6980516477559175`*^9}, {
   3.6980992750345287`*^9, 3.6980992902030525`*^9}, 3.6981010111036434`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"actions", "[", 
   RowBox[{"{", 
    RowBox[{"\"\<g\>\"", ",", "num__"}], "}"}], "]"}], ":=", 
  RowBox[{"With", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"val", "=", 
      RowBox[{
       RowBox[{"procnum", "[", "num", "]"}], "Degree"}]}], "}"}], ",", 
    RowBox[{"movingactions", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"#", ".", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Cos", "@", "val"}], ",", 
           RowBox[{"Sin", "@", "val"}]}], "}"}]}], ")"}], 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Cos", "@", "val"}], ",", 
         RowBox[{"Sin", "@", "val"}]}], "}"}]}], "&"}], "]"}]}], 
   "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.698052104324746*^9, 3.6980521149811068`*^9}, {
  3.69805215320706*^9, 3.698052161752613*^9}, {3.6980524469051695`*^9, 
  3.6980524628269663`*^9}, {3.6980531524913483`*^9, 3.6980531661550956`*^9}, {
  3.698053214212816*^9, 3.698053235894604*^9}, {3.6980532780981617`*^9, 
  3.698053284001444*^9}, {3.6980533339192276`*^9, 3.698053351580814*^9}, {
  3.6980540126962595`*^9, 3.6980540251342916`*^9}, {3.6980540611911936`*^9, 
  3.698054074823808*^9}, {3.6980992797223673`*^9, 3.6980992797985754`*^9}, {
  3.6981216363395133`*^9, 3.698121637558849*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"actions", "[", 
   RowBox[{"{", 
    RowBox[{"\"\<g\>\"", ",", "\"\<x\>\"", ",", "num__"}], "}"}], "]"}], ":=", 
  RowBox[{"movingactions", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"procnum", "[", "num", "]"}], ",", "0"}], "}"}], "&"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"actions", "[", 
   RowBox[{"{", 
    RowBox[{"\"\<g\>\"", ",", "\"\<y\>\"", ",", "num__"}], "}"}], "]"}], ":=", 
  RowBox[{"movingactions", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"procnum", "[", "num", "]"}]}], "}"}], "&"}], "]"}]}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.698053400231801*^9, 3.6980534117796574`*^9}, {
   3.6980539435683374`*^9, 3.698053947283616*^9}, {3.6980540788784904`*^9, 
   3.6980541224156065`*^9}, {3.6980541842550488`*^9, 3.698054198248634*^9}, {
   3.6980992820567627`*^9, 3.6980992857609143`*^9}, 3.6981010123360043`*^9, {
   3.6981216457447805`*^9, 3.698121650409013*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["R-Started Stack ------ Rotate", "Subsubsection",
 CellChangeTimes->{{3.698043457171702*^9, 3.698043464888962*^9}, {
   3.698046529678999*^9, 3.6980465381311474`*^9}, {3.6980543451786323`*^9, 
   3.6980543481743793`*^9}, 3.698064048458107*^9}],

Cell[CellGroupData[{

Cell["Rotate According to Displacement", "Subsubsubsection",
 CellChangeTimes->{{3.698045163721613*^9, 3.6980451816550436`*^9}, {
  3.698048056561469*^9, 3.698048068485341*^9}, {3.698054358288271*^9, 
  3.698054359186753*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"rotateposition", "[", 
   RowBox[{"backup_", ",", "st_", ",", "ed_", ",", "modfunc_"}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"With", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"index", "=", 
      RowBox[{"Pick", "@@", 
       RowBox[{"Reverse", "@", 
        RowBox[{"Transpose", "@", 
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{"Values", "@", 
            RowBox[{"MapIndexed", "[", 
             RowBox[{"List", ",", "selected", ",", 
              RowBox[{"{", "2", "}"}]}], "]"}]}], ",", "1"}], "]"}]}]}]}]}], 
     "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"cen", "=", 
      RowBox[{"Mean", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"objects", "[", 
          RowBox[{"[", 
           RowBox[{"#1", ",", "2", ",", "#2"}], "]"}], "]"}], "&"}], "@@@", 
        "index"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"angle", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"ArcTan", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ".", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ".", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"0", ",", "1"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}], ".", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}]}], "]"}], "&"}], "@", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"st", "-", "cen"}], ",", 
         RowBox[{"ed", "-", "cen"}]}], "}"}]}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"objects", "[", 
         RowBox[{"[", 
          RowBox[{"#1", ",", "2", ",", "#2"}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{
          RowBox[{"RotationMatrix", "[", 
           RowBox[{"modfunc", "@", "angle"}], "]"}], ".", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"backup", "[", 
             RowBox[{"[", 
              RowBox[{"#1", ",", "2", ",", "#2"}], "]"}], "]"}], "-", "cen"}],
            ")"}]}], "+", "cen"}]}], ")"}], "&"}], "@@@", "index"}]}], 
   "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.698048013159192*^9, 3.698048035575788*^9}, {
  3.698050142551372*^9, 3.698050148715372*^9}, {3.698050254766985*^9, 
  3.6980502793054295`*^9}, {3.69805032525268*^9, 3.6980503901909313`*^9}, {
  3.6980544098130865`*^9, 3.6980544465362887`*^9}, {3.6980544821012807`*^9, 
  3.698054482927537*^9}, {3.698054554195629*^9, 3.6980546036368484`*^9}, {
  3.6980547745733547`*^9, 3.698054789379679*^9}, {3.69805678947618*^9, 
  3.6980568335835714`*^9}, {3.6980570077906256`*^9, 3.698057011787669*^9}, {
  3.6980573754338713`*^9, 3.69805737567251*^9}, {3.69805742567553*^9, 
  3.698057554360022*^9}, {3.698057609438458*^9, 3.69805761275387*^9}, {
  3.6980577839875774`*^9, 3.698057793271507*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Rotation Actions", "Subsubsubsection",
 CellChangeTimes->{{3.698045163721613*^9, 3.6980451816550436`*^9}, {
  3.698046544438449*^9, 3.6980465471207743`*^9}, {3.6980515374930325`*^9, 
  3.6980515390653667`*^9}, {3.6980590193852367`*^9, 3.698059020415504*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"rotationactions", "[", "modfunc_", "]"}], ":=", 
  RowBox[{"DynamicModule", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"cen", ",", "angrange", ",", 
      RowBox[{"st", "=", "Null"}], ",", 
      RowBox[{"ed", "=", "Null"}], ",", 
      RowBox[{"backup", "=", "objects"}]}], "}"}], ",", 
    RowBox[{"EventHandler", "[", 
     RowBox[{
      RowBox[{"vispub", "[", 
       RowBox[{"Dynamic", "@", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"st", "=!=", "Null"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Opacity", "@", ".7"}], ",", 
            RowBox[{"Darker", "@", "Blue"}], ",", 
            RowBox[{"AbsoluteThickness", "@", "2"}], ",", 
            RowBox[{"Dynamic", "@", 
             RowBox[{"Circle", "[", 
              RowBox[{
               RowBox[{"cen", "=", 
                RowBox[{"With", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"index", "=", 
                    RowBox[{"Pick", "@@", 
                    RowBox[{"Reverse", "@", 
                    RowBox[{"Transpose", "@", 
                    RowBox[{"Flatten", "[", 
                    RowBox[{
                    RowBox[{"Values", "@", 
                    RowBox[{"MapIndexed", "[", 
                    RowBox[{"List", ",", "selected", ",", 
                    RowBox[{"{", "2", "}"}]}], "]"}]}], ",", "1"}], 
                    "]"}]}]}]}]}], "}"}], ",", "\[IndentingNewLine]", 
                  RowBox[{"Mean", "[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"objects", "[", 
                    RowBox[{"[", 
                    RowBox[{"#1", ",", "2", ",", "#2"}], "]"}], "]"}], "&"}], 
                    "@@@", "index"}], "]"}]}], "]"}]}], ",", 
               RowBox[{"Norm", "[", 
                RowBox[{"st", "-", "cen"}], "]"}], ",", 
               RowBox[{"angrange", "=", 
                RowBox[{
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", 
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "+", 
                    RowBox[{"modfunc", "[", 
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "-", 
                    RowBox[{"#", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "-", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "-", 
                    RowBox[{"#", "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], ",", 
                    RowBox[{"2", "Pi"}]}], "]"}]}], "]"}]}]}], "}"}], "&"}], 
                 "@", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"ArcTan", "@@", 
                    RowBox[{"(", 
                    RowBox[{"st", "-", "cen"}], ")"}]}], ",", 
                   RowBox[{"ArcTan", "@@", 
                    RowBox[{"(", 
                    RowBox[{"ed", "-", "cen"}], ")"}]}]}], "}"}]}]}]}], 
              "]"}]}], ",", 
            RowBox[{"Opacity", "@", ".3"}], ",", 
            RowBox[{"Dynamic", "@", 
             RowBox[{"Line", "[", 
              RowBox[{"{", 
               RowBox[{"cen", ",", "st"}], "}"}], "]"}]}], ",", 
            RowBox[{"Opacity", "@", ".7"}], ",", "Dashed", ",", 
            RowBox[{"Dynamic", "@", 
             RowBox[{"Line", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"cen", "+", 
                 RowBox[{
                  RowBox[{"Norm", "[", 
                   RowBox[{"st", "-", "cen"}], "]"}], 
                  RowBox[{"Normalize", "[", 
                   RowBox[{"ed", "-", "cen"}], "]"}]}]}], ",", "ed"}], "}"}], 
              "]"}]}], ",", 
            RowBox[{"Opacity", "@", ".1"}], ",", "Blue", ",", 
            RowBox[{"Dynamic", "@", 
             RowBox[{"Disk", "[", 
              RowBox[{"cen", ",", 
               RowBox[{"Norm", "[", 
                RowBox[{"st", "-", "cen"}], "]"}], ",", "angrange"}], "]"}]}],
             ",", 
            RowBox[{"Opacity", "@", "1"}], ",", 
            RowBox[{"AbsolutePointSize", "@", "5"}], ",", 
            RowBox[{"Darker", "@", "Blue"}], ",", 
            RowBox[{"Dynamic", "@", 
             RowBox[{"Point", "@", "cen"}]}]}], "}"}], ",", 
          RowBox[{"{", "}"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\"\<MouseDown\>\"", "\[RuleDelayed]", 
         RowBox[{"(", 
          RowBox[{"ed", "=", 
           RowBox[{"st", "=", 
            RowBox[{"MousePosition", "[", "\"\<Graphics\>\"", "]"}]}]}], 
          ")"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"\"\<MouseDragged\>\"", "\[RuleDelayed]", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"ed", "=", 
            RowBox[{"MousePosition", "[", "\"\<Graphics\>\"", "]"}]}], ";", 
           RowBox[{"rotateposition", "[", 
            RowBox[{"backup", ",", "st", ",", "ed", ",", "modfunc"}], "]"}]}],
           ")"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"\"\<MouseDown\>\"", ",", "2"}], "}"}], "\[RuleDelayed]", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"rotateposition", "[", 
            RowBox[{"backup", ",", "st", ",", "ed", ",", 
             RowBox[{"0", "&"}]}], "]"}], ";", 
           RowBox[{"st", "=", 
            RowBox[{"ed", "=", "Null"}]}]}], ")"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"\"\<MouseUp\>\"", "\[RuleDelayed]", 
         RowBox[{"(", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"st", "=!=", "Null"}], ",", 
            RowBox[{
             RowBox[{"rotateposition", "[", 
              RowBox[{"backup", ",", "st", ",", "ed", ",", "modfunc"}], "]"}],
              ";", 
             RowBox[{"backup", "=", "objects"}], ";", 
             RowBox[{"st", "=", 
              RowBox[{"ed", "=", "Null"}]}]}]}], "]"}], ")"}]}]}], 
       "\[IndentingNewLine]", "}"}]}], "]"}]}], "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6980570256734824`*^9, 3.6980570684484997`*^9}, {
   3.6980573070023804`*^9, 3.698057307900793*^9}, {3.6980575957100744`*^9, 
   3.6980577612966614`*^9}, {3.6980578000512094`*^9, 3.698057838345611*^9}, 
   3.698058039423585*^9, {3.698058082617323*^9, 3.6980580978462276`*^9}, {
   3.6980581284354935`*^9, 3.698058181644947*^9}, {3.6980583910385733`*^9, 
   3.698058435734277*^9}, {3.6980585662516155`*^9, 3.6980586482590427`*^9}, {
   3.6980587067289686`*^9, 3.698058748455045*^9}, {3.6980588683500834`*^9, 
   3.698058879019251*^9}, {3.698059516905156*^9, 3.698059518314003*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Final Definitions", "Subsubsubsection",
 CellChangeTimes->{{3.698045163721613*^9, 3.6980451816550436`*^9}, {
  3.698046544438449*^9, 3.6980465471207743`*^9}, {3.6980515374930325`*^9, 
  3.698051550557001*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"actions", "[", 
   RowBox[{"{", "\"\<r\>\"", "}"}], "]"}], ":=", 
  RowBox[{"rotationactions", "[", 
   RowBox[{"#", "&"}], "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6980579419984956`*^9, 3.69805795208659*^9}, 
   3.6980993067804794`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"actions", "[", 
   RowBox[{"{", 
    RowBox[{"\"\<r\>\"", ",", "num__"}], "}"}], "]"}], ":=", 
  RowBox[{"With", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"val", "=", 
      RowBox[{
       RowBox[{"procnum", "[", "num", "]"}], "Degree"}]}], "}"}], ",", 
    RowBox[{"rotationactions", "[", 
     RowBox[{"val", "&"}], "]"}]}], "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.698057893245822*^9, 3.698057956255789*^9}, 
   3.6980993079235926`*^9, {3.6981217309043145`*^9, 3.698121735850936*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["S-Started Stack ------ Scale", "Subsubsection",
 CellChangeTimes->{{3.698043457171702*^9, 3.698043464888962*^9}, {
   3.698046529678999*^9, 3.6980465381311474`*^9}, {3.6980543451786323`*^9, 
   3.6980543481743793`*^9}, {3.698059038666602*^9, 3.6980590427726293`*^9}, 
   3.6980640515856676`*^9}],

Cell[CellGroupData[{

Cell["Scale According to Displacement", "Subsubsubsection",
 CellChangeTimes->{{3.698045163721613*^9, 3.6980451816550436`*^9}, {
  3.698048056561469*^9, 3.698048068485341*^9}, {3.698054358288271*^9, 
  3.698054359186753*^9}, {3.698059946085015*^9, 3.698059946777419*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"scaleposition", "[", 
   RowBox[{"backup_", ",", "st_", ",", "ed_", ",", "modfunc_"}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"With", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"index", "=", 
      RowBox[{"Pick", "@@", 
       RowBox[{"Reverse", "@", 
        RowBox[{"Transpose", "@", 
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{"Values", "@", 
            RowBox[{"MapIndexed", "[", 
             RowBox[{"List", ",", "selected", ",", 
              RowBox[{"{", "2", "}"}]}], "]"}]}], ",", "1"}], "]"}]}]}]}]}], 
     "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"cen", "=", 
      RowBox[{"Mean", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"objects", "[", 
          RowBox[{"[", 
           RowBox[{"#1", ",", "2", ",", "#2"}], "]"}], "]"}], "&"}], "@@@", 
        "index"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"objects", "[", 
         RowBox[{"[", 
          RowBox[{"#1", ",", "2", ",", "#2"}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{
          RowBox[{"modfunc", "[", 
           RowBox[{
            RowBox[{"st", "-", "cen"}], ",", 
            RowBox[{"ed", "-", "cen"}]}], "]"}], ".", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"backup", "[", 
             RowBox[{"[", 
              RowBox[{"#1", ",", "2", ",", "#2"}], "]"}], "]"}], "-", "cen"}],
            ")"}]}], "+", "cen"}]}], ")"}], "&"}], "@@@", "index"}]}], 
   "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQA2IQLSWxtLG897Xj7ZyiFhB9fcnF7gogHfJkWg+IVum+
MRNEixx7OQdEfxFdsQhEy8gcWwWiz7FYLawC0u6aF5eC6I22zqtAdNK6WDA9
w8ltM4gWSCzZCaLfRFw6B6JD1dZcANH3bNafqgbS89YYXQDR53x+PgXR00wq
n4Fot0dvhWuAtEnrVzD9ca6pFIj2bfXWAtE32fUMQfQW+Rlg2mbWfzcQrb9B
wwNEc/CcfgKis/bxPwXR0vN034HoI3rRYHpxz1/WWpD9Cr/ZQLSAbqEriFZw
mucGosVmn/cC0Vli18A0Q1hfNIiWsImIAdFLeafurwPSGx5dAtNyMk2c9SB3
7znEDaIBNVm2pA==
  "]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Scaling Actions", "Subsubsubsection",
 CellChangeTimes->{{3.698045163721613*^9, 3.6980451816550436`*^9}, {
  3.698046544438449*^9, 3.6980465471207743`*^9}, {3.6980515374930325`*^9, 
  3.6980515390653667`*^9}, {3.6980590193852367`*^9, 3.698059020415504*^9}, {
  3.698059949007557*^9, 3.698059950433469*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"scalingactions", "[", "modfunc_", "]"}], ":=", 
  RowBox[{"DynamicModule", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"cen", ",", 
      RowBox[{"st", "=", "Null"}], ",", 
      RowBox[{"ed", "=", "Null"}], ",", 
      RowBox[{"backup", "=", "objects"}]}], "}"}], ",", 
    RowBox[{"EventHandler", "[", 
     RowBox[{
      RowBox[{"vispub", "[", 
       RowBox[{"Dynamic", "@", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"st", "=!=", "Null"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Opacity", "@", ".7"}], ",", 
            RowBox[{"Darker", "@", "Blue"}], ",", 
            RowBox[{"AbsoluteThickness", "@", "2"}], ",", 
            RowBox[{"Arrowheads", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "Medium"}], ",", "Medium"}], "}"}], "]"}], ",", 
            RowBox[{"Dynamic", "[", 
             RowBox[{"Arrow", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"cen", "=", 
                 RowBox[{"With", "[", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"index", "=", 
                    RowBox[{"Pick", "@@", 
                    RowBox[{"Reverse", "@", 
                    RowBox[{"Transpose", "@", 
                    RowBox[{"Flatten", "[", 
                    RowBox[{
                    RowBox[{"Values", "@", 
                    RowBox[{"MapIndexed", "[", 
                    RowBox[{"List", ",", "selected", ",", 
                    RowBox[{"{", "2", "}"}]}], "]"}]}], ",", "1"}], 
                    "]"}]}]}]}]}], "}"}], ",", "\[IndentingNewLine]", 
                   RowBox[{"Mean", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"objects", "[", 
                    RowBox[{"[", 
                    RowBox[{"#1", ",", "2", ",", "#2"}], "]"}], "]"}], "&"}], 
                    "@@@", "index"}], "]"}]}], "]"}]}], ",", "st"}], "}"}], 
              "]"}], "]"}], ",", "Dashed", ",", 
            RowBox[{"Dynamic", "[", 
             RowBox[{"Arrow", "[", 
              RowBox[{"{", 
               RowBox[{"cen", ",", 
                RowBox[{
                 RowBox[{
                  RowBox[{"modfunc", "[", 
                   RowBox[{
                    RowBox[{"st", "-", "cen"}], ",", 
                    RowBox[{"ed", "-", "cen"}]}], "]"}], ".", 
                  RowBox[{"(", 
                   RowBox[{"st", "-", "cen"}], ")"}]}], "+", "cen"}]}], "}"}],
               "]"}], "]"}], ",", 
            RowBox[{"Opacity", "@", "1"}], ",", 
            RowBox[{"AbsolutePointSize", "@", "5"}], ",", 
            RowBox[{"Darker", "@", "Blue"}], ",", 
            RowBox[{"Dynamic", "@", 
             RowBox[{"Point", "@", "cen"}]}]}], "}"}], ",", 
          RowBox[{"{", "}"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\"\<MouseDown\>\"", "\[RuleDelayed]", 
         RowBox[{"(", 
          RowBox[{"ed", "=", 
           RowBox[{"st", "=", 
            RowBox[{"MousePosition", "[", "\"\<Graphics\>\"", "]"}]}]}], 
          ")"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"\"\<MouseDragged\>\"", "\[RuleDelayed]", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"ed", "=", 
            RowBox[{"MousePosition", "[", "\"\<Graphics\>\"", "]"}]}], ";", 
           RowBox[{"scaleposition", "[", 
            RowBox[{"backup", ",", "st", ",", "ed", ",", "modfunc"}], "]"}]}],
           ")"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"\"\<MouseDown\>\"", ",", "2"}], "}"}], "\[RuleDelayed]", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"scaleposition", "[", 
            RowBox[{"backup", ",", "st", ",", "ed", ",", 
             RowBox[{"0", "&"}]}], "]"}], ";", 
           RowBox[{"st", "=", 
            RowBox[{"ed", "=", "Null"}]}]}], ")"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"\"\<MouseUp\>\"", "\[RuleDelayed]", 
         RowBox[{"(", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"st", "=!=", "Null"}], ",", 
            RowBox[{
             RowBox[{"scaleposition", "[", 
              RowBox[{"backup", ",", "st", ",", "ed", ",", "modfunc"}], "]"}],
              ";", 
             RowBox[{"backup", "=", "objects"}], ";", 
             RowBox[{"st", "=", 
              RowBox[{"ed", "=", "Null"}]}]}]}], "]"}], ")"}]}]}], 
       "\[IndentingNewLine]", "}"}]}], "]"}]}], "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6980570256734824`*^9, 3.6980570684484997`*^9}, {
   3.6980573070023804`*^9, 3.698057307900793*^9}, {3.6980575957100744`*^9, 
   3.6980577612966614`*^9}, {3.6980578000512094`*^9, 3.698057838345611*^9}, 
   3.698058039423585*^9, {3.698058082617323*^9, 3.6980580978462276`*^9}, {
   3.6980581284354935`*^9, 3.698058181644947*^9}, {3.6980583910385733`*^9, 
   3.698058435734277*^9}, {3.6980585662516155`*^9, 3.6980586482590427`*^9}, {
   3.6980587067289686`*^9, 3.698058748455045*^9}, {3.6980588683500834`*^9, 
   3.698058879019251*^9}, {3.6980591435291057`*^9, 3.6980591957984977`*^9}, {
   3.6980594310494328`*^9, 3.698059599686726*^9}, 3.6980597180066986`*^9, {
   3.6980599599155784`*^9, 3.698059962171771*^9}, {3.6980600483450785`*^9, 
   3.6980600520091143`*^9}, {3.6980601865373755`*^9, 
   3.6980602206592417`*^9}, {3.6980602663940754`*^9, 3.698060275675624*^9}, {
   3.6980603098801947`*^9, 3.6980603140606723`*^9}, {3.6980633741779776`*^9, 
   3.698063384265661*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Final Definitions", "Subsubsubsection",
 CellChangeTimes->{{3.698045163721613*^9, 3.6980451816550436`*^9}, {
  3.698046544438449*^9, 3.6980465471207743`*^9}, {3.6980515374930325`*^9, 
  3.698051550557001*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"actions", "[", 
   RowBox[{"{", "\"\<s\>\"", "}"}], "]"}], ":=", 
  RowBox[{"scalingactions", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"Norm", "[", "#2", "]"}], "/", 
         RowBox[{"Norm", "[", "#1", "]"}]}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{
         RowBox[{"Norm", "[", "#2", "]"}], "/", 
         RowBox[{"Norm", "[", "#1", "]"}]}]}], "}"}]}], "}"}], "&"}], 
   "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6980515106542025`*^9, 3.698051526079632*^9}, {
   3.698059372703806*^9, 3.698059400190566*^9}, {3.6980599202397594`*^9, 
   3.698059965763639*^9}, {3.6980600067162185`*^9, 3.6980600115113544`*^9}, 
   3.69809931471717*^9, {3.698110835483761*^9, 3.6981108516878753`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"actions", "[", 
   RowBox[{"{", 
    RowBox[{"\"\<s\>\"", ",", "\"\<x\>\""}], "}"}], "]"}], ":=", 
  RowBox[{"scalingactions", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"#2", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "/", 
         RowBox[{"#1", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1"}], "}"}]}], "}"}], "&"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"actions", "[", 
   RowBox[{"{", 
    RowBox[{"\"\<s\>\"", ",", "\"\<y\>\""}], "}"}], "]"}], ":=", 
  RowBox[{"scalingactions", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{
         RowBox[{"#2", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "/", 
         RowBox[{"#1", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}]}], "}"}], "&"}], 
   "]"}]}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6980516189185143`*^9, 3.6980516477559175`*^9}, {
  3.6980593751725903`*^9, 3.6980593763819304`*^9}, {3.698060353046357*^9, 
  3.698060400910003*^9}, {3.6980605391814833`*^9, 3.6980605409101105`*^9}, {
  3.6980628580844407`*^9, 3.698062894505046*^9}, {3.698099316384703*^9, 
  3.6980993257713385`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"actions", "[", 
   RowBox[{"{", 
    RowBox[{"\"\<s\>\"", ",", "num__"}], "}"}], "]"}], ":=", 
  RowBox[{"With", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"ang", "=", 
      RowBox[{
       RowBox[{"procnum", "[", "num", "]"}], "Degree"}]}], "}"}], ",", 
    RowBox[{"scalingactions", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"RotationMatrix", "[", "ang", "]"}], ".", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"Cos", "[", "ang", "]"}], ",", 
                 RowBox[{"Sin", "[", "ang", "]"}]}], "}"}], ".", "#2"}], 
              ")"}], "/", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"Cos", "[", "ang", "]"}], ",", 
                 RowBox[{"Sin", "[", "ang", "]"}]}], "}"}], ".", "#1"}], 
              ")"}]}], ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ".", 
        RowBox[{"RotationMatrix", "[", 
         RowBox[{"-", "ang"}], "]"}]}], ")"}], "&"}], "]"}]}], 
   "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.69806291603024*^9, 3.6980629285447235`*^9}, {
   3.6980632169268684`*^9, 3.6980632994754534`*^9}, 3.6980993183159685`*^9, 
   3.6981217483332667`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"actions", "[", 
   RowBox[{"{", 
    RowBox[{"\"\<s\>\"", ",", "\"\<x\>\"", ",", "num__"}], "}"}], "]"}], ":=", 
  RowBox[{"scalingactions", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"procnum", "[", "num", "]"}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1"}], "}"}]}], "}"}], "&"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"actions", "[", 
   RowBox[{"{", 
    RowBox[{"\"\<s\>\"", ",", "\"\<y\>\"", ",", "num__"}], "}"}], "]"}], ":=", 
  RowBox[{"scalingactions", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"procnum", "[", "num", "]"}]}], "}"}]}], "}"}], "&"}], 
   "]"}]}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.698053400231801*^9, 3.6980534117796574`*^9}, {
  3.6980539435683374`*^9, 3.698053947283616*^9}, {3.6980540788784904`*^9, 
  3.6980541224156065`*^9}, {3.6980541842550488`*^9, 3.698054198248634*^9}, {
  3.6980593824877462`*^9, 3.6980593837312055`*^9}, {3.6980604609742055`*^9, 
  3.6980604897443695`*^9}, {3.698060551491089*^9, 3.698060553263994*^9}, {
  3.698062900009672*^9, 3.698062912542676*^9}, {3.6980993192690697`*^9, 
  3.698099322806254*^9}, {3.698121755827865*^9, 3.6981217570983467`*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["F-Started Stack ------ Fly Mode", "Subsubsection",
 CellChangeTimes->{{3.6981006813336196`*^9, 3.698100690095519*^9}}],

Cell[CellGroupData[{

Cell["Move According to Displacement", "Subsubsubsection",
 CellChangeTimes->{{3.698045163721613*^9, 3.6980451816550436`*^9}, {
  3.698048056561469*^9, 3.698048068485341*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"moveplotr", "[", 
   RowBox[{"backup_", ",", "displacescaled_"}], "]"}], ":=", 
  RowBox[{"(", 
   RowBox[{"plotr", "=", 
    RowBox[{"MapThread", "[", 
     RowBox[{"Plus", ",", 
      RowBox[{"{", 
       RowBox[{"backup", ",", 
        RowBox[{"MapThread", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"#1", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"#2", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "-", 
              RowBox[{"#2", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "&"}], ",", 
          RowBox[{"{", 
           RowBox[{"displacescaled", ",", "backup"}], "}"}]}], "]"}]}], 
       "}"}]}], "]"}]}], ")"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.698048013159192*^9, 3.698048035575788*^9}, {
   3.698050142551372*^9, 3.698050148715372*^9}, {3.698050254766985*^9, 
   3.6980502793054295`*^9}, {3.69805032525268*^9, 3.6980503901909313`*^9}, {
   3.698057122903055*^9, 3.698057169239396*^9}, {3.698100738120388*^9, 
   3.698100862555986*^9}, {3.6981009214963317`*^9, 3.6981009219134703`*^9}, {
   3.6981015484116974`*^9, 3.698101553250945*^9}, 3.6981016130775623`*^9, {
   3.6981016806150613`*^9, 3.6981017047287884`*^9}, {3.6981018049821672`*^9, 
   3.6981018221470633`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Moving Actions", "Subsubsubsection",
 CellChangeTimes->{{3.698045163721613*^9, 3.6980451816550436`*^9}, {
  3.698046544438449*^9, 3.6980465471207743`*^9}, {3.6980515374930325`*^9, 
  3.6980515390653667`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"plotractions", "[", "modfunc_", "]"}], ":=", 
  RowBox[{"DynamicModule", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"st", "=", "Null"}], ",", 
      RowBox[{"ed", "=", "Null"}], ",", 
      RowBox[{"backup", "=", "plotr"}]}], "}"}], ",", 
    RowBox[{"EventHandler", "[", 
     RowBox[{
      RowBox[{"vispub", "[", 
       RowBox[{"Dynamic", "@", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"st", "=!=", "Null"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Opacity", "@", ".7"}], ",", 
            RowBox[{"Darker", "@", "Blue"}], ",", 
            RowBox[{"AbsoluteThickness", "@", "2"}], ",", 
            RowBox[{"Dynamic", "@", 
             RowBox[{"Arrow", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Scaled", "@", "st"}], ",", 
                RowBox[{"Scaled", "[", 
                 RowBox[{"st", "+", 
                  RowBox[{"modfunc", "[", 
                   RowBox[{"ed", "-", "st"}], "]"}]}], "]"}]}], "}"}], 
              "]"}]}], ",", "Dashed", ",", 
            RowBox[{"Dynamic", "@", 
             RowBox[{"Line", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Scaled", "[", 
                 RowBox[{"st", "+", 
                  RowBox[{"modfunc", "[", 
                   RowBox[{"ed", "-", "st"}], "]"}]}], "]"}], ",", 
                RowBox[{"Scaled", "@", "ed"}]}], "}"}], "]"}]}]}], "}"}], ",", 
          RowBox[{"{", "}"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\"\<MouseDown\>\"", "\[RuleDelayed]", 
         RowBox[{"(", 
          RowBox[{"ed", "=", 
           RowBox[{"st", "=", 
            RowBox[{"MousePosition", "[", "\"\<GraphicsScaled\>\"", "]"}]}]}],
           ")"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"\"\<MouseDragged\>\"", "\[RuleDelayed]", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"ed", "=", 
            RowBox[{"MousePosition", "[", "\"\<GraphicsScaled\>\"", "]"}]}], 
           ";", 
           RowBox[{"moveplotr", "[", 
            RowBox[{"backup", ",", 
             RowBox[{"-", 
              RowBox[{"modfunc", "[", 
               RowBox[{"ed", "-", "st"}], "]"}]}]}], "]"}]}], ")"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"\"\<MouseDown\>\"", ",", "2"}], "}"}], "\[RuleDelayed]", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"moveplotr", "[", 
            RowBox[{"backup", ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "0"}], "}"}]}], "]"}], ";", 
           RowBox[{"st", "=", 
            RowBox[{"ed", "=", "Null"}]}]}], ")"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"\"\<MouseUp\>\"", "\[RuleDelayed]", 
         RowBox[{"(", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"st", "=!=", "Null"}], ",", 
            RowBox[{
             RowBox[{"moveplotr", "[", 
              RowBox[{"backup", ",", 
               RowBox[{"-", 
                RowBox[{"modfunc", "[", 
                 RowBox[{"ed", "-", "st"}], "]"}]}]}], "]"}], ";", 
             RowBox[{"backup", "=", "plotr"}], ";", 
             RowBox[{"st", "=", 
              RowBox[{"ed", "=", "Null"}]}]}]}], "]"}], ")"}]}]}], 
       "\[IndentingNewLine]", "}"}]}], "]"}]}], "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6980465482398415`*^9, 3.698046560298888*^9}, {
   3.6980470273218265`*^9, 3.6980470379664073`*^9}, 3.6980478473339443`*^9, {
   3.6980478777191277`*^9, 3.698047903695177*^9}, {3.698047947168339*^9, 
   3.6980479498597364`*^9}, {3.698048245244789*^9, 3.6980482454333115`*^9}, {
   3.6980490135333776`*^9, 3.698049026290536*^9}, {3.698050099212911*^9, 
   3.69805010180505*^9}, {3.698050132214834*^9, 3.6980501352161117`*^9}, {
   3.6980504106658077`*^9, 3.698050468695902*^9}, {3.69805120225846*^9, 
   3.6980512036242228`*^9}, {3.6980512785481887`*^9, 3.698051366864182*^9}, {
   3.698051567685417*^9, 3.69805156925471*^9}, {3.69805160113107*^9, 
   3.6980516097572813`*^9}, {3.6980516736028333`*^9, 3.698051674172388*^9}, {
   3.698057114407089*^9, 3.6980571485223556`*^9}, {3.698057185965568*^9, 
   3.6980571972667637`*^9}, {3.6980578229873424`*^9, 3.698057824910507*^9}, {
   3.698100824794654*^9, 3.6981008249290166`*^9}, {3.6981008666712155`*^9, 
   3.698100868277614*^9}, {3.6981009103838873`*^9, 3.6981009634290953`*^9}, {
   3.6981010353089256`*^9, 3.698101047525345*^9}, 3.6981012973875723`*^9, {
   3.6981013714411983`*^9, 3.6981014658631887`*^9}, {3.698101517744235*^9, 
   3.6981015253842306`*^9}, {3.6981018418785877`*^9, 3.698101844946477*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Final Definitions", "Subsubsubsection",
 CellChangeTimes->{{3.698045163721613*^9, 3.6980451816550436`*^9}, {
  3.698046544438449*^9, 3.6980465471207743`*^9}, {3.6980515374930325`*^9, 
  3.698051550557001*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"actions", "[", 
   RowBox[{"{", "\"\<f\>\"", "}"}], "]"}], ":=", 
  RowBox[{"plotractions", "[", 
   RowBox[{"#", "&"}], "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6980515106542025`*^9, 3.698051526079632*^9}, 
   3.6980992738934193`*^9, {3.698100988544806*^9, 3.6981009949092417`*^9}, 
   3.6981010512293816`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"actions", "[", 
   RowBox[{"{", 
    RowBox[{"\"\<f\>\"", ",", "\"\<x\>\""}], "}"}], "]"}], ":=", 
  RowBox[{"plotractions", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"#", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", "0"}], "}"}], "&"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"actions", "[", 
   RowBox[{"{", 
    RowBox[{"\"\<f\>\"", ",", "\"\<y\>\""}], "}"}], "]"}], ":=", 
  RowBox[{"plotractions", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"#", "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "&"}], "]"}]}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6980516189185143`*^9, 3.6980516477559175`*^9}, {
  3.6980992750345287`*^9, 3.6980992902030525`*^9}, {3.698100999538925*^9, 
  3.69810100149833*^9}, {3.698101052094733*^9, 3.698101078358187*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"actions", "[", 
   RowBox[{"{", 
    RowBox[{"\"\<f\>\"", ",", "num__"}], "}"}], "]"}], ":=", 
  RowBox[{"With", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"val", "=", 
      RowBox[{
       RowBox[{"procnum", "[", "num", "]"}], "Degree"}]}], "}"}], ",", 
    RowBox[{"plotractions", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"#", ".", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Cos", "@", "val"}], ",", 
           RowBox[{"Sin", "@", "val"}]}], "}"}]}], ")"}], 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Cos", "@", "val"}], ",", 
         RowBox[{"Sin", "@", "val"}]}], "}"}]}], "&"}], "]"}]}], 
   "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.698052104324746*^9, 3.6980521149811068`*^9}, {
   3.69805215320706*^9, 3.698052161752613*^9}, {3.6980524469051695`*^9, 
   3.6980524628269663`*^9}, {3.6980531524913483`*^9, 
   3.6980531661550956`*^9}, {3.698053214212816*^9, 3.698053235894604*^9}, {
   3.6980532780981617`*^9, 3.698053284001444*^9}, {3.6980533339192276`*^9, 
   3.698053351580814*^9}, {3.6980540126962595`*^9, 3.6980540251342916`*^9}, {
   3.6980540611911936`*^9, 3.698054074823808*^9}, {3.6980992797223673`*^9, 
   3.6980992797985754`*^9}, {3.698101055157073*^9, 3.6981010799259796`*^9}, 
   3.698121765619792*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"actions", "[", 
   RowBox[{"{", 
    RowBox[{"\"\<f\>\"", ",", "\"\<x\>\"", ",", "num__"}], "}"}], "]"}], ":=", 
  RowBox[{"plotractions", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"procnum", "[", "num", "]"}], ",", "0"}], "}"}], "&"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"actions", "[", 
   RowBox[{"{", 
    RowBox[{"\"\<f\>\"", ",", "\"\<y\>\"", ",", "num__"}], "}"}], "]"}], ":=", 
  RowBox[{"plotractions", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"procnum", "[", "num", "]"}]}], "}"}], "&"}], "]"}]}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.698053400231801*^9, 3.6980534117796574`*^9}, {
  3.6980539435683374`*^9, 3.698053947283616*^9}, {3.6980540788784904`*^9, 
  3.6980541224156065`*^9}, {3.6980541842550488`*^9, 3.698054198248634*^9}, {
  3.6980992820567627`*^9, 3.6980992857609143`*^9}, {3.69810100332132*^9, 
  3.698101003442155*^9}, {3.6981010568106155`*^9, 3.6981010817329006`*^9}, {
  3.698121767125924*^9, 3.698121768129669*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\[OpenCurlyDoubleQuote]Name\[CloseCurlyDoubleQuote]-Started Stack \
------ Add Contents", "Subsubsection",
 CellChangeTimes->{{3.6984433988399096`*^9, 3.6984434312575445`*^9}}],

Cell[CellGroupData[{

Cell["Add Content to All Sorts of Lists", "Subsubsubsection",
 CellChangeTimes->{{3.698045163721613*^9, 3.6980451816550436`*^9}, {
  3.698443937916931*^9, 3.698443941645276*^9}, {3.6984439722707615`*^9, 
  3.698443977736313*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"addcontent", "[", "content_", "]"}], ":=", "\[IndentingNewLine]", 
  RowBox[{"(", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"objects", ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"++", "nobjects"}], ")"}], "\[Rule]", "content"}]}], "]"}], 
    ";", "\[IndentingNewLine]", 
    RowBox[{"AppendTo", "[", 
     RowBox[{"visible", ",", 
      RowBox[{"nobjects", "\[Rule]", "True"}]}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"AppendTo", "[", 
     RowBox[{"selected", ",", 
      RowBox[{"nobjects", "\[Rule]", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{"False", ",", 
         RowBox[{"Length", "@", 
          RowBox[{"content", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}]}], "]"}]}]}], "]"}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"AppendTo", "[", 
     RowBox[{
      RowBox[{"relation", "[", "0", "]"}], ",", "nobjects"}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"AppendTo", "[", 
     RowBox[{"property", ",", 
      RowBox[{"nobjects", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"\"\<object \>\"", "<>", 
          RowBox[{"ToString", "@", "nobjects"}]}], ",", "0", ",", "True", ",",
          "False", ",", "True"}], "}"}]}]}], "]"}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"updateselection", "[", 
     RowBox[{"5", ",", 
      RowBox[{
       RowBox[{"visible", "@", "#"}], "&"}]}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"updateselection", "[", 
     RowBox[{"4", ",", 
      RowBox[{
       RowBox[{"PosNegNul", "@@", 
        RowBox[{"selected", "@", "#"}]}], "&"}]}], "]"}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"eventstack", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", ")"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.698443874151235*^9, 3.698443889453945*^9}, {
  3.698444166642171*^9, 3.6984442976071615`*^9}, {3.6984443283093395`*^9, 
  3.6984443613929605`*^9}, {3.698444766705141*^9, 3.698444866284072*^9}, {
  3.6984449902180977`*^9, 3.6984449938945103`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Add Operation", "Subsubsubsection",
 CellChangeTimes->{{3.698045163721613*^9, 3.6980451816550436`*^9}, {
  3.698443947379084*^9, 3.6984439591576033`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"addactions", "[", "objfunc_", "]"}], ":=", 
  RowBox[{"DynamicModule", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"st", "=", "Null"}], ",", 
      RowBox[{"ed", "=", "Null"}]}], "}"}], ",", 
    RowBox[{"EventHandler", "[", 
     RowBox[{
      RowBox[{"vispub", "[", 
       RowBox[{"Dynamic", "@", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"st", "=!=", "Null"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"drawhw", "[", 
             RowBox[{"#1", "[", "##2", "]"}], "]"}], "&"}], "@@", 
           RowBox[{"objfunc", "[", 
            RowBox[{"st", ",", "ed"}], "]"}]}], ",", 
          RowBox[{"{", "}"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\"\<MouseDown\>\"", "\[RuleDelayed]", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"st", "=", 
            RowBox[{"MousePosition", "[", "\"\<Graphics\>\"", "]"}]}], ";", 
           RowBox[{"ed", "=", 
            RowBox[{"st", "+", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"10", "$MachineEpsilon"}], ",", "0"}], "}"}]}]}]}], 
          ")"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"\"\<MouseDragged\>\"", "\[RuleDelayed]", 
         RowBox[{"(", 
          RowBox[{"ed", "=", 
           RowBox[{"MousePosition", "[", "\"\<Graphics\>\"", "]"}]}], ")"}]}],
         ",", "\[IndentingNewLine]", 
        RowBox[{"\"\<MouseUp\>\"", "\[RuleDelayed]", 
         RowBox[{"(", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"st", "=!=", "Null"}], ",", 
            RowBox[{
             RowBox[{"addcontent", "[", 
              RowBox[{"objfunc", "[", 
               RowBox[{"st", ",", "ed"}], "]"}], "]"}], ";", 
             RowBox[{"st", "=", 
              RowBox[{"ed", "=", "Null"}]}]}]}], "]"}], ")"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"\"\<MouseDown\>\"", ",", "2"}], "}"}], "\[RuleDelayed]", 
         RowBox[{"(", 
          RowBox[{"st", "=", 
           RowBox[{"ed", "=", "Null"}]}], ")"}]}]}], "\[IndentingNewLine]", 
       "}"}]}], "]"}]}], "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{
  3.698443532730394*^9, {3.6984437799293594`*^9, 3.698443863719495*^9}, {
   3.6984439119237967`*^9, 3.698443915990014*^9}, {3.698443985627561*^9, 
   3.6984439860828094`*^9}, {3.698449509224572*^9, 3.6984495227827187`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Final Definitions", "Subsubsubsection",
 CellChangeTimes->{{3.698045163721613*^9, 3.6980451816550436`*^9}, {
  3.698443947379084*^9, 3.6984439591576033`*^9}, {3.698449553878315*^9, 
  3.698449557087681*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"actions", "[", 
   RowBox[{"{", "aperture", "}"}], "]"}], ":=", 
  RowBox[{"addactions", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"aperture", ",", 
      RowBox[{"{", "##", "}"}]}], "}"}], "&"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"actions", "[", 
   RowBox[{"{", "traverse", "}"}], "]"}], ":=", 
  RowBox[{"addactions", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"traverse", ",", 
      RowBox[{"{", "##", "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "&"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"actions", "[", 
   RowBox[{"{", "lens", "}"}], "]"}], ":=", 
  RowBox[{"addactions", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"lens", ",", 
      RowBox[{"{", "##", "}"}], ",", ".5", ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}]}], "}"}], "&"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"actions", "[", 
   RowBox[{"{", "mirror", "}"}], "]"}], ":=", 
  RowBox[{"addactions", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"mirror", ",", 
      RowBox[{"{", "##", "}"}], ",", ".5", ",", "1"}], "}"}], "&"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"actions", "[", 
   RowBox[{"{", "onlymirror", "}"}], "]"}], ":=", 
  RowBox[{"addactions", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"onlymirror", ",", 
      RowBox[{"{", "##", "}"}]}], "}"}], "&"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"actions", "[", 
   RowBox[{"{", "linesource", "}"}], "]"}], ":=", 
  RowBox[{"addactions", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"source", ",", 
      RowBox[{"{", "##", "}"}], ",", "0", ",", ".04", ",", "\"\<line\>\""}], 
     "}"}], "&"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"actions", "[", 
   RowBox[{"{", "pointsource", "}"}], "]"}], ":=", 
  RowBox[{"addactions", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"source", ",", 
      RowBox[{"{", "#1", "}"}], ",", 
      RowBox[{"ArcTan", "@@", 
       RowBox[{"(", 
        RowBox[{"#2", "-", "#1"}], ")"}]}], ",", 
      RowBox[{"Pi", "/", "6"}], ",", 
      RowBox[{"Pi", "/", "200"}], ",", "\"\<point\>\""}], "}"}], "&"}], 
   "]"}]}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6980515106542025`*^9, 3.698051526079632*^9}, 
   3.6980992738934193`*^9, {3.698100988544806*^9, 3.6981009949092417`*^9}, 
   3.6981010512293816`*^9, {3.698445277754015*^9, 3.698445290953957*^9}, {
   3.698445337649658*^9, 3.698445386203595*^9}, {3.6984454223516464`*^9, 
   3.698445488810541*^9}, {3.698445538355668*^9, 3.698445688304001*^9}, {
   3.698447943624586*^9, 3.6984479442200003`*^9}, 3.6984516916360283`*^9, {
   3.698451842396606*^9, 3.6984518474966908`*^9}}]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["External Links to Stack Operations", "Subsection",
 CellChangeTimes->{{3.6981272354477167`*^9, 
  3.698127247082756*^9}},ExpressionUUID->"7399b671-edbf-43a2-be8a-\
9fc37e4bf91f"],

Cell[CellGroupData[{

Cell["Button Controller", "Subsubsection",
 CellChangeTimes->{{3.6981475033043756`*^9, 3.6981475080303407`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"buttoncontrol", "[", "]"}], ":=", 
   RowBox[{"Grid", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Grid", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"Spacer", "[", 
              RowBox[{"{", 
               RowBox[{".3", ",", ".3"}], "}"}], "]"}], "}"}], ",", 
            RowBox[{"Prepend", "[", 
             RowBox[{
              RowBox[{"ConstantArray", "[", 
               RowBox[{"SpanFromLeft", ",", "6"}], "]"}], ",", 
              RowBox[{"Style", "[", 
               RowBox[{
               "\"\<Actions Modifier\>\"", ",", "\"\<Output\>\"", ",", "Bold",
                 ",", "20"}], "]"}]}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"Spacer", "[", 
              RowBox[{"{", 
               RowBox[{".3", ",", ".3"}], "}"}], "]"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"Button", "[", 
                RowBox[{
                 RowBox[{"Graphics", "[", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"Blue", ",", 
                    RowBox[{"Opacity", "@", ".1"}], ",", 
                    RowBox[{"EdgeForm", "@", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Darker", "@", "Blue"}], ",", 
                    RowBox[{"Opacity", "@", ".7"}], ",", 
                    RowBox[{"AbsoluteThickness", "@", "1.5"}]}], "]"}]}], ",", 
                    RowBox[{"Rectangle", "[", 
                    RowBox[{
                    RowBox[{"-", 
                    RowBox[{"{", 
                    RowBox[{"1.7", ",", "1.3"}], "}"}]}], ",", 
                    RowBox[{"{", 
                    RowBox[{".5", ",", ".5"}], "}"}]}], "]"}], ",", "Orange", 
                    ",", 
                    RowBox[{"AbsolutePointSize", "@", "2"}], ",", 
                    RowBox[{"Opacity", "@", "1"}], ",", 
                    RowBox[{"Point", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "0.5`"}], ",", 
                    RowBox[{"-", "0.1`"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"0.1`", ",", 
                    RowBox[{"-", "0.3`"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"0.2`", ",", 
                    RowBox[{"-", "0.2`"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "0.7`"}], ",", 
                    RowBox[{"-", "0.9`"}]}], "}"}]}], "}"}], "]"}], ",", 
                    RowBox[{"Blend", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"Yellow", ",", "Orange"}], "}"}], ",", ".3"}], 
                    "]"}], ",", 
                    RowBox[{"Point", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "0.3`"}], ",", 
                    RowBox[{"-", "1.5`"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"1.7`", ",", "0.9`"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "0.6`"}], ",", "1.9`"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "1.3`"}], ",", 
                    RowBox[{"-", "1.5`"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "2.`"}], ",", 
                    RowBox[{"-", "0.8`"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"1.2`", ",", 
                    RowBox[{"-", "0.6`"}]}], "}"}]}], "}"}], "]"}]}], "}"}], 
                   ",", 
                   RowBox[{"PlotRange", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ",", 
                   RowBox[{"ImageSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"30", ",", "30"}], "}"}]}]}], "]"}], ",", 
                 RowBox[{"clearstack", "[", "]"}], ",", 
                 RowBox[{"Appearance", "\[Rule]", 
                  RowBox[{"Dynamic", "[", 
                   RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"eventstack", "===", 
                    RowBox[{"{", "}"}]}], ",", 
                    RowBox[{"{", 
                    RowBox[{"\"\<Palette\>\"", ",", "\"\<Pressed\>\""}], 
                    "}"}], ",", "\"\<Palette\>\""}], "]"}], "]"}]}]}], "]"}], 
               "~", "Tooltip", "~", "\"\<Selection\>\""}], ",", 
              "\[IndentingNewLine]", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"Button", "[", 
                RowBox[{
                 RowBox[{"Graphics", "[", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Darker", "@", "Green"}], ",", 
                    RowBox[{"Arrowheads", "@", "Small"}], ",", 
                    RowBox[{"AbsoluteThickness", "@", "1.5"}], ",", 
                    RowBox[{"Arrow", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{".9", ",", 
                    RowBox[{"-", "1.4"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"2.9", ",", 
                    RowBox[{"-", ".4"}]}], "}"}]}], "}"}], "]"}], ",", 
                    RowBox[{"Arrow", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "0.7"}], ",", "1.5"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"1.3", ",", "2.5"}], "}"}]}], "}"}], "]"}], ",", 
                    "Blue", ",", 
                    RowBox[{"Circle", "[", 
                    RowBox[{"{", 
                    RowBox[{"2", ",", "1"}], "}"}], "]"}], ",", "Dashed", ",", 
                    RowBox[{"Opacity", "@", ".5"}], ",", 
                    RowBox[{"Circle", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0"}], "}"}], "]"}]}], "}"}], ",", 
                   RowBox[{"ImageSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"30", ",", "30"}], "}"}]}]}], "]"}], ",", 
                 RowBox[{"addtostack", "[", 
                  RowBox[{"eventstack", ",", "\"\<g\>\""}], "]"}], ",", 
                 RowBox[{"Appearance", "\[Rule]", 
                  RowBox[{"Dynamic", "[", 
                   RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"Length", "[", "eventstack", "]"}], 
                    "\[GreaterEqual]", "1"}], "&&", 
                    RowBox[{
                    RowBox[{"eventstack", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "===", "\"\<g\>\""}]}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{"\"\<Palette\>\"", ",", "\"\<Pressed\>\""}], 
                    "}"}], ",", "\"\<Palette\>\""}], "]"}], "]"}]}]}], "]"}], 
               "~", "Tooltip", "~", "\"\<Moving\>\""}], ",", 
              "\[IndentingNewLine]", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"Button", "[", 
                RowBox[{
                 RowBox[{"Graphics", "[", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Darker", "@", "Green"}], ",", 
                    RowBox[{"Arrowheads", "@", "Small"}], ",", 
                    RowBox[{"AbsoluteThickness", "@", "1.5"}], ",", 
                    RowBox[{"Arrow", "[", 
                    RowBox[{"BSplineCurve", "[", 
                    RowBox[{"1.3", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", "1"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Sqrt", "[", "3", "]"}], "/", "2"}], ",", "1"}], 
                    "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Sqrt", "[", "3", "]"}], "/", "2"}], ",", 
                    RowBox[{"1", "/", "2"}]}], "}"}]}], "}"}]}], "]"}], "]"}],
                     ",", 
                    RowBox[{"Arrow", "[", 
                    RowBox[{"BSplineCurve", "[", 
                    RowBox[{
                    RowBox[{"-", "1.3"}], 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", "1"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Sqrt", "[", "3", "]"}], "/", "2"}], ",", "1"}], 
                    "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Sqrt", "[", "3", "]"}], "/", "2"}], ",", 
                    RowBox[{"1", "/", "2"}]}], "}"}]}], "}"}]}], "]"}], "]"}],
                     ",", "Blue", ",", 
                    RowBox[{"Arrow", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", 
                    RowBox[{"Sqrt", "[", "3", "]"}]}], "/", "2"}], ",", 
                    RowBox[{
                    RowBox[{"-", "1"}], "/", "2"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Sqrt", "[", "3", "]"}], "/", "2"}], ",", 
                    RowBox[{"1", "/", "2"}]}], "}"}]}], "}"}], "]"}], ",", 
                    "Dashed", ",", 
                    RowBox[{"Opacity", "@", ".5"}], ",", 
                    RowBox[{"Arrow", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", 
                    RowBox[{"-", "1"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "1"}], "}"}]}], "}"}], "]"}]}], "}"}], 
                   ",", 
                   RowBox[{"ImageSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"30", ",", "30"}], "}"}]}]}], "]"}], ",", 
                 RowBox[{"addtostack", "[", 
                  RowBox[{"eventstack", ",", "\"\<r\>\""}], "]"}], ",", 
                 RowBox[{"Appearance", "\[Rule]", 
                  RowBox[{"Dynamic", "[", 
                   RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"Length", "[", "eventstack", "]"}], 
                    "\[GreaterEqual]", "1"}], "&&", 
                    RowBox[{
                    RowBox[{"eventstack", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "===", "\"\<r\>\""}]}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{"\"\<Palette\>\"", ",", "\"\<Pressed\>\""}], 
                    "}"}], ",", "\"\<Palette\>\""}], "]"}], "]"}]}]}], "]"}], 
               "~", "Tooltip", "~", "\"\<Rotation\>\""}], ",", 
              "\[IndentingNewLine]", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"Button", "[", 
                RowBox[{
                 RowBox[{"Graphics", "[", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Darker", "@", "Green"}], ",", 
                    RowBox[{"Arrowheads", "@", "Small"}], ",", 
                    RowBox[{"AbsoluteThickness", "@", "1.5"}], ",", 
                    RowBox[{"Arrow", "/@", 
                    RowBox[{"Transpose", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"CirclePoints", "[", "5", "]"}], ",", 
                    RowBox[{"2.5", 
                    RowBox[{"CirclePoints", "[", "5", "]"}]}]}], "}"}], 
                    "]"}]}], ",", "Blue", ",", 
                    RowBox[{"Circle", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0"}], "}"}], ",", "2.5"}], "]"}], ",", 
                    "Dashed", ",", 
                    RowBox[{"Opacity", "@", ".5"}], ",", 
                    RowBox[{"Circle", "[", "]"}]}], "}"}], ",", 
                   RowBox[{"ImageSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"30", ",", "30"}], "}"}]}]}], "]"}], ",", 
                 RowBox[{"addtostack", "[", 
                  RowBox[{"eventstack", ",", "\"\<s\>\""}], "]"}], ",", 
                 RowBox[{"Appearance", "\[Rule]", 
                  RowBox[{"Dynamic", "[", 
                   RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"Length", "[", "eventstack", "]"}], 
                    "\[GreaterEqual]", "1"}], "&&", 
                    RowBox[{
                    RowBox[{"eventstack", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "===", "\"\<s\>\""}]}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{"\"\<Palette\>\"", ",", "\"\<Pressed\>\""}], 
                    "}"}], ",", "\"\<Palette\>\""}], "]"}], "]"}]}]}], "]"}], 
               "~", "Tooltip", "~", "\"\<Scaling\>\""}], ",", 
              "\[IndentingNewLine]", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"Button", "[", 
                RowBox[{
                 RowBox[{"Graphics", "[", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Darker", "@", "Green"}], ",", 
                    RowBox[{"Arrowheads", "@", "Small"}], ",", 
                    RowBox[{"AbsoluteThickness", "@", "1.5"}], ",", 
                    RowBox[{"Arrow", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"2", ",", "1"}], "}"}]}], "}"}], "]"}], ",", 
                    "Blue", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Arrow", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"2", ",", "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"2", ",", "3"}], "}"}]}], "}"}], "]"}], ",", 
                    RowBox[{"Arrow", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"1", ",", "1"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"4", ",", "1"}], "}"}]}], "}"}], "]"}]}], "}"}], 
                    ",", "Dashed", ",", 
                    RowBox[{"Opacity", "@", ".5"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Arrow", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", 
                    RowBox[{"-", "1"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "2"}], "}"}]}], "}"}], "]"}], ",", 
                    RowBox[{"Arrow", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"2", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}]}],
                     "}"}], ",", 
                   RowBox[{"ImageSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"30", ",", "30"}], "}"}]}]}], "]"}], ",", 
                 RowBox[{"addtostack", "[", 
                  RowBox[{"eventstack", ",", "\"\<f\>\""}], "]"}], ",", 
                 RowBox[{"Appearance", "\[Rule]", 
                  RowBox[{"Dynamic", "[", 
                   RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"Length", "[", "eventstack", "]"}], 
                    "\[GreaterEqual]", "1"}], "&&", 
                    RowBox[{
                    RowBox[{"eventstack", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "===", "\"\<f\>\""}]}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{"\"\<Palette\>\"", ",", "\"\<Pressed\>\""}], 
                    "}"}], ",", "\"\<Palette\>\""}], "]"}], "]"}]}]}], "]"}], 
               "~", "Tooltip", "~", "\"\<Fly Mode\>\""}], ",", 
              "\[IndentingNewLine]", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"Button", "[", 
                RowBox[{
                 RowBox[{"Graphics", "[", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Rectangle", "[", 
                    RowBox[{
                    RowBox[{"-", 
                    RowBox[{"{", 
                    RowBox[{"1.7", ",", ".4"}], "}"}]}], ",", 
                    RowBox[{"{", 
                    RowBox[{"1.7", ",", ".4"}], "}"}]}], "]"}], ",", 
                    RowBox[{"Rectangle", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "0.4"}], ",", 
                    RowBox[{"-", "1.7"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"0.4", ",", "1.7"}], "}"}]}], "]"}]}], "}"}], ",", 
                   RowBox[{"PlotRange", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ",", 
                   RowBox[{"ImageSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"30", ",", "30"}], "}"}]}]}], "]"}], ",", 
                 RowBox[{"(", 
                  RowBox[{"plotr", "=", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"With", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"m", "=", 
                    RowBox[{"Mean", "@", "#"}]}], ",", 
                    RowBox[{"s", "=", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "-", 
                    RowBox[{"#", "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", "2"}]}]}], 
                    "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"m", "-", 
                    RowBox[{
                    RowBox[{"2", "/", "3"}], "s"}]}], ",", 
                    RowBox[{"m", "+", 
                    RowBox[{
                    RowBox[{"2", "/", "3"}], "s"}]}]}], "}"}]}], "]"}], "&"}],
                     "/@", "plotr"}]}], ")"}], ",", 
                 RowBox[{"Appearance", "\[Rule]", "\"\<Palette\>\""}]}], 
                "]"}], "~", "Tooltip", "~", "\"\<ZoomIn\>\""}], ",", 
              "\[IndentingNewLine]", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"Button", "[", 
                RowBox[{
                 RowBox[{"Graphics", "[", 
                  RowBox[{
                   RowBox[{"Rectangle", "[", 
                    RowBox[{
                    RowBox[{"-", 
                    RowBox[{"{", 
                    RowBox[{"1.7", ",", ".4"}], "}"}]}], ",", 
                    RowBox[{"{", 
                    RowBox[{"1.7", ",", ".4"}], "}"}]}], "]"}], ",", 
                   RowBox[{"PlotRange", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ",", 
                   RowBox[{"ImageSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"30", ",", "30"}], "}"}]}]}], "]"}], ",", 
                 RowBox[{"(", 
                  RowBox[{"plotr", "=", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"With", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"m", "=", 
                    RowBox[{"Mean", "@", "#"}]}], ",", 
                    RowBox[{"s", "=", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "-", 
                    RowBox[{"#", "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", "2"}]}]}], 
                    "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"m", "-", 
                    RowBox[{
                    RowBox[{"3", "/", "2"}], "s"}]}], ",", 
                    RowBox[{"m", "+", 
                    RowBox[{
                    RowBox[{"3", "/", "2"}], "s"}]}]}], "}"}]}], "]"}], "&"}],
                     "/@", "plotr"}]}], ")"}], ",", 
                 RowBox[{"Appearance", "\[Rule]", "\"\<Palette\>\""}]}], 
                "]"}], "~", "Tooltip", "~", "\"\<Zoom out\>\""}]}], "}"}]}], 
           "}"}], ",", 
          RowBox[{"Alignment", "\[Rule]", "Center"}], ",", 
          RowBox[{"Spacings", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{".5", ",", "0"}], "}"}]}]}], "]"}], ",", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"Grid", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"Spacer", "[", 
              RowBox[{"{", 
               RowBox[{".3", ",", ".3"}], "}"}], "]"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Style", "[", 
               RowBox[{
               "\"\<Direction Modifier\>\"", ",", "\"\<Output\>\"", ",", 
                "Bold", ",", "20"}], "]"}], ",", "SpanFromLeft", ",", 
              "SpanFromLeft", ",", "SpanFromLeft"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"Spacer", "[", 
              RowBox[{"{", 
               RowBox[{".3", ",", ".3"}], "}"}], "]"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"Button", "[", 
                RowBox[{
                 RowBox[{"Graphics", "[", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "@", "1.5"}], ",", 
                    RowBox[{"Arrowheads", "@", "Small"}], ",", "Blue", ",", 
                    RowBox[{"Arrow", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"1", ",", "1"}], "}"}]}], "}"}], "]"}], ",", 
                    RowBox[{"Text", "[", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<Arb\>\"", ",", "15"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{".5", ",", 
                    RowBox[{"-", ".4"}]}], "}"}]}], "]"}]}], "}"}], ",", 
                   RowBox[{"ImageSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"30", ",", "30"}], "}"}]}]}], "]"}], ",", 
                 RowBox[{"If", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{"Length", "[", "eventstack", "]"}], 
                    "\[GreaterEqual]", "2"}], "&&", 
                    RowBox[{
                    RowBox[{"eventstack", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "=!=", "\"\<r\>\""}]}], 
                   ",", 
                   RowBox[{"eventstack", "=", 
                    RowBox[{"{", 
                    RowBox[{"eventstack", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "}"}]}]}], "]"}], ",", 
                 RowBox[{"Appearance", "\[Rule]", 
                  RowBox[{"Dynamic", "[", 
                   RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"Length", "[", "eventstack", "]"}], "<", "2"}], "||", 
                    RowBox[{
                    RowBox[{"eventstack", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "===", "\"\<r\>\""}]}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{"\"\<Palette\>\"", ",", "\"\<Pressed\>\""}], 
                    "}"}], ",", "\"\<Palette\>\""}], "]"}], "]"}]}]}], "]"}], 
               "~", "Tooltip", "~", "\"\<Arbitrary Direction\>\""}], ",", 
              "\[IndentingNewLine]", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"Button", "[", 
                RowBox[{
                 RowBox[{"Graphics", "[", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "@", "1.5"}], ",", 
                    RowBox[{"Arrowheads", "@", "Small"}], ",", "Purple", ",", 
                    RowBox[{"Arrow", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"1", ",", "1"}], "}"}]}], "}"}], "]"}], ",", 
                    RowBox[{"Text", "[", 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<X\>\"", ",", "20"}], "]"}], "]"}]}], "}"}], 
                   ",", 
                   RowBox[{"ImageSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"30", ",", "30"}], "}"}]}]}], "]"}], ",", 
                 RowBox[{"addtostack", "[", 
                  RowBox[{"eventstack", ",", "\"\<x\>\""}], "]"}], ",", 
                 RowBox[{"Appearance", "\[Rule]", 
                  RowBox[{"Dynamic", "[", 
                   RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"Length", "[", "eventstack", "]"}], 
                    "\[GreaterEqual]", "2"}], "&&", 
                    RowBox[{
                    RowBox[{"eventstack", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "===", "\"\<x\>\""}]}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{"\"\<Palette\>\"", ",", "\"\<Pressed\>\""}], 
                    "}"}], ",", "\"\<Palette\>\""}], "]"}], "]"}]}]}], "]"}], 
               "~", "Tooltip", "~", "\"\<X-Direction Only\>\""}], ",", 
              "\[IndentingNewLine]", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"Button", "[", 
                RowBox[{
                 RowBox[{"Graphics", "[", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "@", "1.5"}], ",", 
                    RowBox[{"Arrowheads", "@", "Small"}], ",", "Orange", ",", 
                    RowBox[{"Arrow", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "1"}], ",", 
                    RowBox[{"-", "1"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}], "]"}], 
                    ",", 
                    RowBox[{"Text", "[", 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<Y\>\"", ",", "20"}], "]"}], "]"}]}], "}"}], 
                   ",", 
                   RowBox[{"ImageSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"30", ",", "30"}], "}"}]}]}], "]"}], ",", 
                 RowBox[{"addtostack", "[", 
                  RowBox[{"eventstack", ",", "\"\<y\>\""}], "]"}], ",", 
                 RowBox[{"Appearance", "\[Rule]", 
                  RowBox[{"Dynamic", "[", 
                   RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"Length", "[", "eventstack", "]"}], 
                    "\[GreaterEqual]", "2"}], "&&", 
                    RowBox[{
                    RowBox[{"eventstack", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "===", "\"\<y\>\""}]}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{"\"\<Palette\>\"", ",", "\"\<Pressed\>\""}], 
                    "}"}], ",", "\"\<Palette\>\""}], "]"}], "]"}]}]}], "]"}], 
               "~", "Tooltip", "~", "\"\<Y-Direction Only\>\""}], ",", 
              "\[IndentingNewLine]", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"DynamicModule", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"angle", "=", "0"}], "}"}], ",", 
                 RowBox[{"Row", "[", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Button", "[", 
                    RowBox[{
                    RowBox[{"Graphics", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "@", "1.5"}], ",", 
                    RowBox[{"Arrowheads", "@", "Small"}], ",", 
                    RowBox[{"Darker", "@", 
                    RowBox[{"Darker", "@", "Green"}]}], ",", 
                    RowBox[{"Arrow", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"1", ",", 
                    RowBox[{"Sqrt", "[", "3", "]"}]}], "}"}]}], "}"}], "]"}], 
                    ",", 
                    RowBox[{"Opacity", "@", ".4"}], ",", 
                    RowBox[{"Circle", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0"}], "}"}], ",", ".7", ",", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", 
                    RowBox[{"Pi", "/", "3"}]}], "}"}]}], "]"}], ",", 
                    RowBox[{"Line", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"2", ",", "0"}], "}"}]}], "}"}], "]"}], ",", 
                    RowBox[{"Opacity", "@", "1"}], ",", 
                    RowBox[{"Text", "[", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<Ang\>\"", ",", "10"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"1.5", ",", ".6"}], "}"}]}], "]"}]}], "}"}], ",", 
                    RowBox[{"ImageSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"30", ",", "30"}], "}"}]}]}], "]"}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"eventstack", "=!=", 
                    RowBox[{"{", "}"}]}], ")"}], "&&", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"eventstack", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "=!=", "\"\<r\>\""}], 
                    ")"}]}], ",", 
                    RowBox[{"eventstack", "=", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"eventstack", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", 
                    RowBox[{"Sequence", "@@", 
                    RowBox[{"Characters", "@", 
                    RowBox[{"ToString", "@", "angle"}]}]}]}], "}"}]}]}], 
                    "]"}], ",", 
                    RowBox[{"Appearance", "\[Rule]", 
                    RowBox[{"Dynamic", "[", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"Length", "[", "eventstack", "]"}], 
                    "\[GreaterEqual]", "2"}], "&&", 
                    RowBox[{
                    RowBox[{"eventstack", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "=!=", "\"\<r\>\""}], "&&", 
                    RowBox[{
                    RowBox[{"eventstack", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "=!=", "\"\<x\>\""}], "&&", 
                    RowBox[{
                    RowBox[{"eventstack", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "=!=", "\"\<y\>\""}]}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{"\"\<Palette\>\"", ",", "\"\<Pressed\>\""}], 
                    "}"}], ",", "\"\<Palette\>\""}], "]"}], "]"}]}]}], "]"}], 
                    ",", 
                    RowBox[{"Spacer", "@", "5"}], ",", 
                    RowBox[{"InputField", "[", 
                    RowBox[{
                    RowBox[{"Dynamic", "@", "angle"}], ",", "Number", ",", 
                    RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"Infinity", ",", "1"}], "}"}]}], ",", 
                    RowBox[{"ImageSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"50", ",", "18"}], "}"}]}]}], "]"}]}], "}"}], 
                  "]"}]}], "]"}], "~", "Tooltip", "~", 
               "\"\<Certain Angle Direction\>\""}]}], "\[IndentingNewLine]", 
             "}"}]}], "}"}], ",", 
          RowBox[{"Alignment", "\[Rule]", "Center"}], ",", 
          RowBox[{"Spacings", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{".5", ",", "0"}], "}"}]}]}], "]"}], ",", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"Column", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Spacer", "[", 
             RowBox[{"{", 
              RowBox[{".3", ",", ".3"}], "}"}], "]"}], ",", 
            RowBox[{"Style", "[", 
             RowBox[{
             "\"\<Value Modifier\>\"", ",", "\"\<Output\>\"", ",", "Bold", 
              ",", "20"}], "]"}], ",", 
            RowBox[{"Spacer", "[", 
             RowBox[{"{", 
              RowBox[{".3", ",", ".3"}], "}"}], "]"}], ",", 
            RowBox[{
             RowBox[{"DynamicModule", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"pos", "=", "0"}], "}"}], ",", 
               RowBox[{"Row", "[", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"Button", "[", 
                   RowBox[{
                    RowBox[{"Graphics", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "@", "1.5"}], ",", 
                    RowBox[{"Arrowheads", "@", "Small"}], ",", "Blue", ",", 
                    RowBox[{"Arrow", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"1", ",", "1"}], "}"}]}], "}"}], "]"}], ",", 
                    RowBox[{"Text", "[", 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<Dis\>\"", ",", "15"}], "]"}], "]"}]}], "}"}],
                     ",", 
                    RowBox[{"ImageSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"30", ",", "30"}], "}"}]}]}], "]"}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"eventstack", "=!=", 
                    RowBox[{"{", "}"}]}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"eventstack", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "===", "\"\<r\>\""}], ",", 
                    RowBox[{"eventstack", "=", 
                    RowBox[{"{", 
                    RowBox[{"\"\<r\>\"", ",", 
                    RowBox[{"Sequence", "@@", 
                    RowBox[{"Characters", "@", 
                    RowBox[{"ToString", "@", "pos"}]}]}]}], "}"}]}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"eventstack", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "===", "\"\<x\>\""}], 
                    ")"}], "||", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"eventstack", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "===", "\"\<y\>\""}], 
                    ")"}]}], ",", 
                    RowBox[{"eventstack", "=", 
                    RowBox[{"Catenate", "@", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"eventstack", "[", 
                    RowBox[{"[", 
                    RowBox[{";;", "2"}], "]"}], "]"}], ",", 
                    RowBox[{"Characters", "@", 
                    RowBox[{"ToString", "@", "pos"}]}]}], "}"}]}]}]}], 
                    "]"}]}], "]"}]}], "]"}], ",", 
                    RowBox[{"Appearance", "\[Rule]", "\"\<Palette\>\""}]}], 
                   "]"}], ",", 
                  RowBox[{"Spacer", "@", "5"}], ",", 
                  RowBox[{"InputField", "[", 
                   RowBox[{
                    RowBox[{"Dynamic", "@", "pos"}], ",", "Number", ",", 
                    RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"Infinity", ",", "1"}], "}"}]}], ",", 
                    RowBox[{"ImageSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"50", ",", "18"}], "}"}]}]}], "]"}]}], "}"}], 
                "]"}]}], "]"}], "~", "Tooltip", "~", 
             "\"\<Modify Value\>\""}]}], "}"}], ",", 
          RowBox[{"Alignment", "\[Rule]", "Center"}], ",", 
          RowBox[{"Spacings", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{".5", ",", "0"}], "}"}]}]}], "]"}]}], "}"}], "}"}], ",", 
     RowBox[{"Spacings", "\[Rule]", "2"}], ",", 
     RowBox[{"Dividers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Center", ",", "False"}], "}"}]}]}], "]"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.698132214431326*^9, 3.698132232340433*^9}, {
   3.6981474774143972`*^9, 3.6981474864391136`*^9}, {3.6981509586755676`*^9, 
   3.6981510256035137`*^9}, 3.698191077435503*^9, {3.6981917480612288`*^9, 
   3.698191762803317*^9}, {3.698191809976285*^9, 3.6981920067212934`*^9}, {
   3.6981920776394672`*^9, 3.6981920850918865`*^9}, {3.698209263470989*^9, 
   3.698209288801901*^9}, {3.6982093293227425`*^9, 3.698209348763376*^9}, {
   3.6982093817747602`*^9, 3.6982094161737337`*^9}, {3.6982094629902334`*^9, 
   3.698209476094802*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["External Links to Styling", "Subsection",
 CellChangeTimes->{{3.6981926270729537`*^9, 3.69819263720648*^9}, {
  3.6981936595932236`*^9, 
  3.6981936613514657`*^9}},ExpressionUUID->"dce09de1-a635-4a48-85c3-\
2b32f15f31d3"],

Cell[CellGroupData[{

Cell["Options & Extra Objects", "Subsubsection",
 CellChangeTimes->{{3.6981937500129266`*^9, 3.6981937517136045`*^9}, {
  3.6982205248799195`*^9, 3.6982205291513824`*^9}}],

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"n", "=", "30"}], ",", "cel", ",", "updatecel", ",", "initcel"}],
     "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"updatecel", "[", 
      RowBox[{"1", ",", "4"}], "]"}], ":=", "1"}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"updatecel", "[", 
      RowBox[{"_", ",", "3"}], "]"}], ":=", "1"}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"updatecel", "[", 
      RowBox[{"_", ",", "_"}], "]"}], ":=", "0"}], ";", "\[IndentingNewLine]", 
    RowBox[{"SetAttributes", "[", 
     RowBox[{"updatecel", ",", "Listable"}], "]"}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"initcel", "[", "]"}], ":=", 
     RowBox[{"(", 
      RowBox[{"cel", "=", 
       RowBox[{"Developer`ToPackedArray", "[", 
        RowBox[{"RandomChoice", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{".3", ",", ".7"}], "}"}], "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"1", ",", "0"}], "}"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"n", ",", "n"}], "}"}]}], "]"}], "]"}]}], ")"}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"stylingcontrol", "[", "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"Grid", "[", 
      RowBox[{
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Spacer", "[", 
            RowBox[{"{", 
             RowBox[{"3", ",", "3"}], "}"}], "]"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"Style", "[", 
            RowBox[{
             RowBox[{"Rotate", "[", 
              RowBox[{"\"\<Styling\>\"", ",", 
               RowBox[{"90", "Degree"}]}], "]"}], ",", "\"\<Output\>\"", ",", 
             "Bold", ",", "20"}], "]"}], ",", 
           RowBox[{"Spacer", "[", 
            RowBox[{"{", 
             RowBox[{"10", ",", "2"}], "}"}], "]"}], ",", 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"Column", "[", 
            RowBox[{"{", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               RowBox[{"Button", "[", 
                RowBox[{
                 RowBox[{"Graphics", "[", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"Orange", ",", 
                    RowBox[{"AbsolutePointSize", "@", "2"}], ",", 
                    RowBox[{"Point", "@", 
                    RowBox[{"RandomReal", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"15", ",", "2"}], "}"}]}], "]"}]}]}], "}"}], ",", 
                   RowBox[{"PlotRange", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
                   RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
                   RowBox[{"GridLinesStyle", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"Black", ",", 
                    RowBox[{"AbsoluteThickness", "@", "1.5"}]}], "}"}]}], ",", 
                   RowBox[{"ImageSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"30", ",", "30"}], "}"}]}]}], "]"}], ",", 
                 RowBox[{"If", "[", 
                  RowBox[{
                   RowBox[{"KeyExistsQ", "[", 
                    RowBox[{"extraoptions", ",", "GridLines"}], "]"}], ",", 
                   RowBox[{"extraoptions", "=", 
                    RowBox[{"Delete", "[", 
                    RowBox[{"extraoptions", ",", 
                    RowBox[{"Key", "@", "GridLines"}]}], "]"}]}], ",", 
                   RowBox[{"AppendTo", "[", 
                    RowBox[{"extraoptions", ",", 
                    RowBox[{"GridLines", "\[Rule]", "Automatic"}]}], "]"}]}], 
                  "]"}], ",", 
                 RowBox[{"Appearance", "\[Rule]", 
                  RowBox[{"Dynamic", "[", 
                   RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"KeyExistsQ", "[", 
                    RowBox[{"extraoptions", ",", "GridLines"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"\"\<Palette\>\"", ",", "\"\<Pressed\>\""}], 
                    "}"}], ",", "\"\<Palette\>\""}], "]"}], "]"}]}]}], "]"}], 
               "~", "Tooltip", "~", "\"\<GridLines\>\""}], ",", 
              "\[IndentingNewLine]", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"Button", "[", 
                RowBox[{
                 RowBox[{"Graphics", "[", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "@", "1.5"}], ",", 
                    RowBox[{"Arrowheads", "@", "Small"}], ",", 
                    RowBox[{"Arrow", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"2", ",", "0"}], "}"}]}], "}"}], "]"}], ",", 
                    RowBox[{"Arrow", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", 
                    RowBox[{"-", "1"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "2"}], "}"}]}], "}"}], "]"}], ",", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Line", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"#", ",", "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"#", ",", ".2"}], "}"}]}], "}"}], "]"}], ",", 
                    RowBox[{"Line", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", "#"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{".2", ",", "#"}], "}"}]}], "}"}], "]"}]}], "}"}], 
                    "&"}], "/@", 
                    RowBox[{"Range", "[", 
                    RowBox[{
                    RowBox[{"-", ".5"}], ",", "1", ",", ".5"}], "]"}]}], ",", 
                    "Orange", ",", 
                    RowBox[{"AbsolutePointSize", "@", "2"}], ",", 
                    RowBox[{"Point", "@", 
                    RowBox[{"RandomReal", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"15", ",", "2"}], "}"}]}], "]"}]}]}], "}"}], ",", 
                   RowBox[{"ImageSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"30", ",", "30"}], "}"}]}]}], "]"}], ",", 
                 RowBox[{"If", "[", 
                  RowBox[{
                   RowBox[{"KeyExistsQ", "[", 
                    RowBox[{"extraoptions", ",", "Axes"}], "]"}], ",", 
                   RowBox[{"extraoptions", "=", 
                    RowBox[{"Delete", "[", 
                    RowBox[{"extraoptions", ",", 
                    RowBox[{"Key", "@", "Axes"}]}], "]"}]}], ",", 
                   RowBox[{"AppendTo", "[", 
                    RowBox[{"extraoptions", ",", 
                    RowBox[{"Axes", "\[Rule]", "True"}]}], "]"}]}], "]"}], 
                 ",", 
                 RowBox[{"Appearance", "\[Rule]", 
                  RowBox[{"Dynamic", "[", 
                   RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"KeyExistsQ", "[", 
                    RowBox[{"extraoptions", ",", "Axes"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"\"\<Palette\>\"", ",", "\"\<Pressed\>\""}], 
                    "}"}], ",", "\"\<Palette\>\""}], "]"}], "]"}]}]}], "]"}], 
               "~", "Tooltip", "~", "\"\<Axes\>\""}], ",", 
              "\[IndentingNewLine]", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"Button", "[", 
                RowBox[{
                 RowBox[{"Graphics", "[", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "@", "1.5"}], ",", 
                    RowBox[{"Line", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "1"}], ",", 
                    RowBox[{"-", "1"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"1", ",", "1"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"1", ",", 
                    RowBox[{"-", "1"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "1"}], ",", 
                    RowBox[{"-", "1"}]}], "}"}]}], "}"}], "]"}], ",", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Line", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "1"}], ",", "#"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", ".8"}], ",", "#"}], "}"}]}], "}"}], "]"}], 
                    ",", 
                    RowBox[{"Line", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"1", ",", "#"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{".8", ",", "#"}], "}"}]}], "}"}], "]"}], ",", 
                    RowBox[{"Line", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"#", ",", 
                    RowBox[{"-", "1"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"#", ",", 
                    RowBox[{"-", ".8"}]}], "}"}]}], "}"}], "]"}], ",", 
                    RowBox[{"Line", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"#", ",", "1"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"#", ",", ".8"}], "}"}]}], "}"}], "]"}]}], "}"}], 
                    "&"}], "/@", 
                    RowBox[{"Range", "[", 
                    RowBox[{
                    RowBox[{"-", ".8"}], ",", ".8", ",", ".4"}], "]"}]}], ",",
                     "Orange", ",", 
                    RowBox[{"AbsolutePointSize", "@", "2"}], ",", 
                    RowBox[{"Point", "@", 
                    RowBox[{"RandomReal", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"15", ",", "2"}], "}"}]}], "]"}]}]}], "}"}], ",", 
                   RowBox[{"ImageSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"30", ",", "30"}], "}"}]}]}], "]"}], ",", 
                 RowBox[{"If", "[", 
                  RowBox[{
                   RowBox[{"KeyExistsQ", "[", 
                    RowBox[{"extraoptions", ",", "Frame"}], "]"}], ",", 
                   RowBox[{"extraoptions", "=", 
                    RowBox[{"Delete", "[", 
                    RowBox[{"extraoptions", ",", 
                    RowBox[{"Key", "@", "Frame"}]}], "]"}]}], ",", 
                   RowBox[{"AppendTo", "[", 
                    RowBox[{"extraoptions", ",", 
                    RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}], "]"}], 
                 ",", 
                 RowBox[{"Appearance", "\[Rule]", 
                  RowBox[{"Dynamic", "[", 
                   RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"KeyExistsQ", "[", 
                    RowBox[{"extraoptions", ",", "Frame"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"\"\<Palette\>\"", ",", "\"\<Pressed\>\""}], 
                    "}"}], ",", "\"\<Palette\>\""}], "]"}], "]"}]}]}], "]"}], 
               "~", "Tooltip", "~", "\"\<Frame\>\""}], ",", 
              "\[IndentingNewLine]", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"Button", "[", 
                RowBox[{
                 RowBox[{"Graphics", "[", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"Inset", "[", 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<Reset\\nOrigin\>\"", ",", "Bold"}], "]"}], 
                    "]"}], "}"}], ",", 
                   RowBox[{"ImageSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"30", ",", "30"}], "}"}]}]}], "]"}], ",", 
                 RowBox[{"plotr", "=", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "}"}]}], ",", 
                 RowBox[{"Appearance", "\[Rule]", "\"\<Palette\>\""}]}], 
                "]"}], "~", "Tooltip", "~", "\"\<Frame\>\""}]}], 
             "\[IndentingNewLine]", "}"}], "]"}]}], "}"}], ",", 
         "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"Spacer", "[", 
           RowBox[{"{", 
            RowBox[{"5", ",", "5"}], "}"}], "]"}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"Spacer", "[", 
           RowBox[{"{", 
            RowBox[{"5", ",", "5"}], "}"}], "]"}], "}"}], ",", 
         "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Spacer", "[", 
            RowBox[{"{", 
             RowBox[{"3", ",", "3"}], "}"}], "]"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"Style", "[", 
            RowBox[{
             RowBox[{"Rotate", "[", 
              RowBox[{"\"\<Shortcuts\>\"", ",", 
               RowBox[{"90", "Degree"}]}], "]"}], ",", "\"\<Output\>\"", ",", 
             "Bold", ",", "20"}], "]"}], ",", 
           RowBox[{"Spacer", "[", 
            RowBox[{"{", 
             RowBox[{"10", ",", "2"}], "}"}], "]"}], ",", 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"Column", "[", 
            RowBox[{"{", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               RowBox[{"Button", "[", 
                RowBox[{
                 RowBox[{"Graphics", "[", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"Inset", "[", 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<Select\\nAll\>\"", ",", "Bold"}], "]"}], 
                    "]"}], "}"}], ",", 
                   RowBox[{"ImageSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"30", ",", "30"}], "}"}]}]}], "]"}], ",", 
                 RowBox[{"selected", "=", 
                  RowBox[{"MapAt", "[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"True", "&"}], "/@", "#"}], "&"}], ",", 
                    "selected", ",", 
                    RowBox[{
                    RowBox[{"List", "@*", "Key"}], "/@", 
                    RowBox[{"Pick", "[", 
                    RowBox[{
                    RowBox[{"Keys", "@", "visible"}], ",", 
                    RowBox[{"Values", "@", "visible"}]}], "]"}]}]}], "]"}]}], 
                 ",", 
                 RowBox[{"Appearance", "\[Rule]", "\"\<Palette\>\""}]}], 
                "]"}], "~", "Tooltip", "~", 
               "\"\<Select All Visible Objects\>\""}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"Button", "[", 
                RowBox[{
                 RowBox[{"Graphics", "[", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"Inset", "[", 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<Select\\nNone\>\"", ",", "Bold"}], "]"}], 
                    "]"}], "}"}], ",", 
                   RowBox[{"ImageSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"30", ",", "30"}], "}"}]}]}], "]"}], ",", 
                 RowBox[{"selected", "=", 
                  RowBox[{"MapAt", "[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"False", "&"}], "/@", "#"}], "&"}], ",", 
                    "selected", ",", 
                    RowBox[{
                    RowBox[{"List", "@*", "Key"}], "/@", 
                    RowBox[{"Pick", "[", 
                    RowBox[{
                    RowBox[{"Keys", "@", "visible"}], ",", 
                    RowBox[{"Values", "@", "visible"}]}], "]"}]}]}], "]"}]}], 
                 ",", 
                 RowBox[{"Appearance", "\[Rule]", "\"\<Palette\>\""}]}], 
                "]"}], "~", "Tooltip", "~", 
               "\"\<Cancel All Selection\>\""}]}], "\[IndentingNewLine]", 
             "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", 
         "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"Spacer", "[", 
           RowBox[{"{", 
            RowBox[{"5", ",", "5"}], "}"}], "]"}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"Spacer", "[", 
           RowBox[{"{", 
            RowBox[{"5", ",", "5"}], "}"}], "]"}], "}"}], ",", 
         "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Spacer", "[", 
            RowBox[{"{", 
             RowBox[{"3", ",", "3"}], "}"}], "]"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"Style", "[", 
            RowBox[{
             RowBox[{"Rotate", "[", 
              RowBox[{"\"\<Just For Fun\>\"", ",", 
               RowBox[{"90", "Degree"}]}], "]"}], ",", "\"\<Output\>\"", ",", 
             "Bold", ",", "20"}], "]"}], ",", 
           RowBox[{"Spacer", "[", 
            RowBox[{"{", 
             RowBox[{"10", ",", "2"}], "}"}], "]"}], ",", 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"Column", "[", 
            RowBox[{
             RowBox[{"{", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{
                RowBox[{"Button", "[", 
                 RowBox[{
                  RowBox[{"Graphics", "[", 
                   RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Hue", "[", 
                    RowBox[{
                    RowBox[{"t", "/", "15"}], ",", "1", ",", ".9", ",", 
                    ".3"}], "]"}], ",", 
                    RowBox[{"Disk", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", "Pi", " ", 
                    RowBox[{"t", "/", "15"}]}], "]"}], ",", 
                    RowBox[{"Sin", "[", 
                    RowBox[{"2", "Pi", " ", 
                    RowBox[{"t", "/", "15"}]}], "]"}]}], "}"}], "]"}]}], 
                    "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"t", ",", "15"}], "}"}]}], "]"}], ",", 
                    RowBox[{"ImageSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"30", ",", "30"}], "}"}]}]}], "]"}], ",", 
                  RowBox[{"If", "[", 
                   RowBox[{
                    RowBox[{"KeyExistsQ", "[", 
                    RowBox[{"extraoptions", ",", "Background"}], "]"}], ",", 
                    RowBox[{
                    RowBox[{"extraoptions", "[", "Background", "]"}], "=", 
                    RowBox[{"RandomColor", "[", "]"}]}], ",", 
                    RowBox[{"AppendTo", "[", 
                    RowBox[{"extraoptions", ",", 
                    RowBox[{"Background", "\[Rule]", 
                    RowBox[{"RandomColor", "[", "]"}]}]}], "]"}]}], "]"}], 
                  ",", 
                  RowBox[{"Appearance", "\[Rule]", "\"\<Palette\>\""}]}], 
                 "]"}], "~", "Tooltip", "~", 
                "\"\<Random Graphics Background Color\>\""}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"Button", "[", 
                 RowBox[{
                  RowBox[{"Graphics", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"Inset", "[", 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<White\>\"", ",", "Bold"}], "]"}], "]"}], 
                    "}"}], ",", 
                    RowBox[{"ImageSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"30", ",", "30"}], "}"}]}]}], "]"}], ",", 
                  RowBox[{"If", "[", 
                   RowBox[{
                    RowBox[{"KeyExistsQ", "[", 
                    RowBox[{"extraoptions", ",", "Background"}], "]"}], ",", 
                    RowBox[{"extraoptions", "=", 
                    RowBox[{"Delete", "[", 
                    RowBox[{"extraoptions", ",", 
                    RowBox[{"Key", "@", "Background"}]}], "]"}]}]}], "]"}], 
                  ",", 
                  RowBox[{"Appearance", "\[Rule]", "\"\<Palette\>\""}]}], 
                 "]"}], "~", "Tooltip", "~", 
                "\"\<Back to White Background\>\""}], ",", 
               "\[IndentingNewLine]", "\[IndentingNewLine]", 
               RowBox[{"Spacer", "[", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "1"}], "}"}], "]"}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{"Spacer", "[", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "1"}], "}"}], "]"}], ",", 
               "\[IndentingNewLine]", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"Button", "[", 
                 RowBox[{
                  RowBox[{"Graphics", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Opacity", "@", ".3"}], ",", "Blue", ",", 
                    RowBox[{"Rectangle", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", ".1"}], ",", ".3"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{".6", ",", "1"}], "}"}]}], "]"}], ",", 
                    RowBox[{"Darker", "@", "Green"}], ",", 
                    RowBox[{"Disk", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", ".3"}], ",", 
                    RowBox[{"-", ".2"}]}], "}"}], ",", ".4"}], "]"}], ",", 
                    "Orange", ",", 
                    RowBox[{"Triangle", "[", 
                    RowBox[{"CirclePoints", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{".4", ",", "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{".5", ",", ".3"}], "}"}], ",", "3"}], "]"}], 
                    "]"}], ",", 
                    RowBox[{"Opacity", "@", "1"}], ",", "Black", ",", 
                    RowBox[{"Text", "[", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<?\>\"", ",", "Bold", ",", "22"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", 
                    RowBox[{"PlotRange", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", ".7"}], ",", "1.0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", ".7"}], ",", "1.1"}], "}"}]}], "}"}]}], ",", 
                    RowBox[{"ImageSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"30", ",", "30"}], "}"}]}]}], "]"}], ",", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"KeyExistsQ", "[", 
                    RowBox[{"extraoptions", ",", "Prolog"}], "]"}], ",", 
                    RowBox[{"AppendTo", "[", 
                    RowBox[{
                    RowBox[{"extraoptions", "[", "Prolog", "]"}], ",", "#"}], 
                    "]"}], ",", 
                    RowBox[{"AppendTo", "[", 
                    RowBox[{"extraoptions", ",", 
                    RowBox[{"Prolog", "\[Rule]", 
                    RowBox[{"{", "#", "}"}]}]}], "]"}]}], "]"}], "&"}], "@", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Opacity", "@", 
                    RowBox[{"RandomReal", "@", 
                    RowBox[{"{", 
                    RowBox[{".1", ",", ".5"}], "}"}]}]}], ",", 
                    RowBox[{"Hue", "@", 
                    RowBox[{"RandomReal", "[", "]"}]}], ",", 
                    RowBox[{
                    RowBox[{"RandomChoice", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{".2", ",", ".8"}], "}"}], "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"Disk", ",", 
                    RowBox[{
                    RowBox[{"Polygon", "[", 
                    RowBox[{"CirclePoints", "[", 
                    RowBox[{"#1", ",", 
                    RowBox[{"{", 
                    RowBox[{"#2", ",", 
                    RowBox[{
                    RowBox[{"RandomReal", "@", "2"}], "Pi"}]}], "}"}], ",", 
                    RowBox[{"RandomInteger", "[", 
                    RowBox[{"{", 
                    RowBox[{"3", ",", "6"}], "}"}], "]"}]}], "]"}], "]"}], 
                    "&"}]}], "}"}]}], "]"}], "@@", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"RandomReal", "/@", "plotr"}], ",", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"RandomReal", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{".05", "#"}], ",", 
                    RowBox[{".3", "#"}]}], "}"}], "]"}], "&"}], "[", 
                    RowBox[{
                    RowBox[{"plotr", "[", 
                    RowBox[{"[", 
                    RowBox[{"1", ",", "2"}], "]"}], "]"}], "-", 
                    RowBox[{"plotr", "[", 
                    RowBox[{"[", 
                    RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], 
                    "}"}]}]}], "}"}]}], ",", 
                  RowBox[{"Appearance", "\[Rule]", "\"\<Palette\>\""}]}], 
                 "]"}], "~", "Tooltip", "~", "\"\<Add Random Graphics\>\""}], 
               ",", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"Button", "[", 
                 RowBox[{
                  RowBox[{"Graphics", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Opacity", "@", ".3"}], ",", "Blue", ",", 
                    RowBox[{"Rectangle", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", ".1"}], ",", ".3"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{".6", ",", "1"}], "}"}]}], "]"}], ",", 
                    RowBox[{"Darker", "@", "Green"}], ",", 
                    RowBox[{"Disk", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", ".3"}], ",", 
                    RowBox[{"-", ".2"}]}], "}"}], ",", ".4"}], "]"}], ",", 
                    "Orange", ",", 
                    RowBox[{"Triangle", "[", 
                    RowBox[{"CirclePoints", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{".4", ",", "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{".5", ",", ".3"}], "}"}], ",", "3"}], "]"}], 
                    "]"}], ",", 
                    RowBox[{"Opacity", "@", "1"}], ",", 
                    RowBox[{"Darker", "@", "Red"}], ",", 
                    RowBox[{"Text", "[", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<\[Cross]\>\"", ",", "Bold", ",", "30"}], 
                    "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{".3", ",", ".75"}], "}"}]}], "]"}]}], "}"}], ",", 
                    RowBox[{"PlotRange", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", ".7"}], ",", "1.0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", ".7"}], ",", "1.1"}], "}"}]}], "}"}]}], ",", 
                    RowBox[{"ImageSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"30", ",", "30"}], "}"}]}]}], "]"}], ",", 
                  RowBox[{"If", "[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"KeyExistsQ", "[", 
                    RowBox[{"extraoptions", ",", "Prolog"}], "]"}], "&&", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Length", "@", 
                    RowBox[{"extraoptions", "[", "Prolog", "]"}]}], 
                    "\[GreaterEqual]", "2"}], ")"}], "||", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Length", "@", 
                    RowBox[{"extraoptions", "[", "Prolog", "]"}]}], 
                    "\[GreaterEqual]", "1"}], "&&", 
                    RowBox[{
                    RowBox[{"Head", "@", 
                    RowBox[{
                    RowBox[{"extraoptions", "[", "Prolog", "]"}], "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], "=!=", "Dynamic"}]}], 
                    ")"}]}], ")"}]}], ",", 
                    RowBox[{
                    RowBox[{"extraoptions", "[", "Prolog", "]"}], "=", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Head", "[", 
                    RowBox[{
                    RowBox[{"extraoptions", "[", "Prolog", "]"}], "[", 
                    RowBox[{"[", 
                    RowBox[{"-", "1"}], "]"}], "]"}], "]"}], "=!=", 
                    "Dynamic"}], ",", 
                    RowBox[{"Most", "@", 
                    RowBox[{"extraoptions", "[", "Prolog", "]"}]}], ",", 
                    RowBox[{"Append", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"extraoptions", "[", "Prolog", "]"}], "[", 
                    RowBox[{"[", 
                    RowBox[{";;", 
                    RowBox[{"-", "3"}]}], "]"}], "]"}], ",", 
                    RowBox[{
                    RowBox[{"extraoptions", "[", "Prolog", "]"}], "[", 
                    RowBox[{"[", 
                    RowBox[{"-", "1"}], "]"}], "]"}]}], "]"}]}], "]"}]}]}], 
                   "]"}], ",", 
                  RowBox[{"Appearance", "\[Rule]", "\"\<Palette\>\""}]}], 
                 "]"}], "~", "Tooltip", "~", "\"\<Delete One\>\""}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"Button", "[", 
                 RowBox[{
                  RowBox[{"Graphics", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Opacity", "@", ".3"}], ",", "Blue", ",", 
                    RowBox[{"Rectangle", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", ".1"}], ",", ".3"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{".6", ",", "1"}], "}"}]}], "]"}], ",", 
                    RowBox[{"Darker", "@", "Green"}], ",", 
                    RowBox[{"Disk", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", ".3"}], ",", 
                    RowBox[{"-", ".2"}]}], "}"}], ",", ".4"}], "]"}], ",", 
                    "Orange", ",", 
                    RowBox[{"Triangle", "[", 
                    RowBox[{"CirclePoints", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{".4", ",", "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{".5", ",", ".3"}], "}"}], ",", "3"}], "]"}], 
                    "]"}], ",", 
                    RowBox[{"Opacity", "@", "1"}], ",", 
                    RowBox[{"Darker", "@", "Red"}], ",", 
                    RowBox[{"Text", "[", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<\[Cross]\>\"", ",", "Bold", ",", "50"}], 
                    "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{".1", ",", ".4"}], "}"}]}], "]"}]}], "}"}], ",", 
                    RowBox[{"PlotRange", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", ".7"}], ",", "1.0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", ".7"}], ",", "1.1"}], "}"}]}], "}"}]}], ",", 
                    RowBox[{"ImageSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"30", ",", "30"}], "}"}]}]}], "]"}], ",", 
                  RowBox[{"If", "[", 
                   RowBox[{
                    RowBox[{"KeyExistsQ", "[", 
                    RowBox[{"extraoptions", ",", "Prolog"}], "]"}], ",", 
                    RowBox[{
                    RowBox[{"extraoptions", "[", "Prolog", "]"}], "=", 
                    RowBox[{"DeleteCases", "[", 
                    RowBox[{
                    RowBox[{"extraoptions", "[", "Prolog", "]"}], ",", 
                    RowBox[{"Except", "@", 
                    RowBox[{"Dynamic", "[", "__", "]"}]}]}], "]"}]}]}], "]"}],
                   ",", 
                  RowBox[{"Appearance", "\[Rule]", "\"\<Palette\>\""}]}], 
                 "]"}], "~", "Tooltip", "~", "\"\<Delete All\>\""}], ",", 
               "\[IndentingNewLine]", "\[IndentingNewLine]", 
               RowBox[{"Spacer", "[", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "1"}], "}"}], "]"}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{"Spacer", "[", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "1"}], "}"}], "]"}], ",", 
               "\[IndentingNewLine]", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"Button", "[", 
                 RowBox[{
                  RowBox[{"Graphics", "[", 
                   RowBox[{
                    RowBox[{"Raster", "[", 
                    RowBox[{
                    RowBox[{"RandomChoice", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{".3", ",", ".7"}], "}"}], "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"1", ",", "0"}], "}"}]}], ",", 
                    RowBox[{"{", 
                    RowBox[{"5", ",", "5"}], "}"}]}], "]"}], ",", 
                    RowBox[{"ColorFunction", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Directive", "[", 
                    RowBox[{"Blue", ",", 
                    RowBox[{"Opacity", "[", 
                    RowBox[{".2", "+", 
                    RowBox[{".2", "#"}]}], "]"}]}], "]"}], "&"}], ")"}]}]}], 
                    "]"}], ",", 
                    RowBox[{"ImageSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"30", ",", "30"}], "}"}]}]}], "]"}], ",", 
                  RowBox[{
                   RowBox[{"initcel", "[", "]"}], ";", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"KeyExistsQ", "[", 
                    RowBox[{"extraoptions", ",", "Prolog"}], "]"}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"FreeQ", "[", 
                    RowBox[{
                    RowBox[{"extraoptions", "[", "Prolog", "]"}], ",", 
                    "Dynamic"}], "]"}], ",", 
                    RowBox[{"AppendTo", "[", 
                    RowBox[{
                    RowBox[{"extraoptions", "[", "Prolog", "]"}], ",", "#"}], 
                    "]"}]}], "]"}], ",", 
                    RowBox[{"AppendTo", "[", 
                    RowBox[{"extraoptions", ",", 
                    RowBox[{"Prolog", "\[Rule]", 
                    RowBox[{"{", "#", "}"}]}]}], "]"}]}], "]"}], "&"}], "@", 
                    RowBox[{"Dynamic", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"cel", "=", 
                    RowBox[{"updatecel", "[", 
                    RowBox[{"cel", ",", 
                    RowBox[{"ListCorrelate", "[", 
                    RowBox[{
                    RowBox[{"ConstantArray", "[", 
                    RowBox[{"1", ",", 
                    RowBox[{"{", 
                    RowBox[{"3", ",", "3"}], "}"}]}], "]"}], ",", "cel", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"2", ",", "2"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"2", ",", "2"}], "}"}]}], "}"}]}], "]"}]}], 
                    "]"}]}], ";", 
                    RowBox[{"{", 
                    RowBox[{"Raster", "[", 
                    RowBox[{"cel", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Scaled", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0"}], "}"}], "]"}], ",", 
                    RowBox[{"Scaled", "[", 
                    RowBox[{"{", 
                    RowBox[{"1", ",", "1"}], "}"}], "]"}]}], "}"}], ",", 
                    RowBox[{"ColorFunction", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Directive", "[", 
                    RowBox[{"Blue", ",", 
                    RowBox[{"Opacity", "[", 
                    RowBox[{".1", "+", 
                    RowBox[{".1", "#"}]}], "]"}]}], "]"}], "&"}], ")"}]}]}], 
                    "]"}], "}"}]}], ",", 
                    RowBox[{"TrackedSymbols", "\[RuleDelayed]", 
                    RowBox[{"{", "}"}]}], ",", 
                    RowBox[{"UpdateInterval", "\[Rule]", ".2"}]}], "]"}]}]}], 
                  ",", 
                  RowBox[{"Appearance", "\[Rule]", "\"\<Palette\>\""}]}], 
                 "]"}], "~", "Tooltip", "~", 
                "\"\<Add Cellular Automation Layer\>\""}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"Button", "[", 
                 RowBox[{
                  RowBox[{"Graphics", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Raster", "[", 
                    RowBox[{
                    RowBox[{"RandomChoice", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{".3", ",", ".7"}], "}"}], "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"1", ",", "0"}], "}"}]}], ",", 
                    RowBox[{"{", 
                    RowBox[{"5", ",", "5"}], "}"}]}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "1"}], ",", 
                    RowBox[{"-", "1"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", 
                    RowBox[{"ColorFunction", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Directive", "[", 
                    RowBox[{"Blue", ",", 
                    RowBox[{"Opacity", "[", 
                    RowBox[{".2", "+", 
                    RowBox[{".2", "#"}]}], "]"}]}], "]"}], "&"}], ")"}]}]}], 
                    "]"}], ",", 
                    RowBox[{"Darker", "@", "Red"}], ",", 
                    RowBox[{"Text", "[", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<\[Cross]\>\"", ",", "Bold", ",", "60"}], 
                    "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", ".3"}], "}"}]}], "]"}]}], "}"}], ",", 
                    RowBox[{"PlotRange", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
                    RowBox[{"ImageSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"30", ",", "30"}], "}"}]}]}], "]"}], ",", 
                  RowBox[{"If", "[", 
                   RowBox[{
                    RowBox[{"KeyExistsQ", "[", 
                    RowBox[{"extraoptions", ",", "Prolog"}], "]"}], ",", 
                    RowBox[{
                    RowBox[{"extraoptions", "[", "Prolog", "]"}], "=", 
                    RowBox[{"DeleteCases", "[", 
                    RowBox[{
                    RowBox[{"extraoptions", "[", "Prolog", "]"}], ",", 
                    RowBox[{"Dynamic", "[", "__", "]"}]}], "]"}]}]}], "]"}], 
                  ",", 
                  RowBox[{"Appearance", "\[Rule]", "\"\<Palette\>\""}]}], 
                 "]"}], "~", "Tooltip", "~", 
                "\"\<Remove Cellular Automation Background\>\""}]}], 
              "\[IndentingNewLine]", "}"}], ",", 
             RowBox[{"Dividers", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"4", "\[Rule]", "True"}], ",", 
                  RowBox[{"9", "\[Rule]", "True"}]}], "}"}]}], "}"}]}], ",", 
             RowBox[{"Spacings", "\[Rule]", "0"}]}], "]"}], ",", 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"Spacer", "[", 
            RowBox[{"{", 
             RowBox[{"3", ",", "3"}], "}"}], "]"}]}], "}"}]}], 
        "\[IndentingNewLine]", "}"}], ",", 
       RowBox[{"Spacings", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], ",", 
       RowBox[{"Alignment", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Center", ",", "Center"}], "}"}]}], ",", 
       RowBox[{"Dividers", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"3", "\[Rule]", "True"}], ",", 
            RowBox[{"6", "\[Rule]", "True"}]}], "}"}]}], "}"}]}]}], 
      "]"}]}]}]}], "\[IndentingNewLine]", "]"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->CompressedData["
1:eJwdz09IUwEAx/HncIYQCkM3SxScYWMzTSgZW0uXII6kw3Q7vGKYMvqjbFgZ
JGHKNu3QVCTCUdOw0je1CSO8pDKc+6PNzUQrOoimssEyZzZkm1Tv9w5fPudv
QaNeqWURBFFEB+3a0jy3OSJPM+XwYZf+qQS2vzkjhYIypxw+TxquwO5YiRJa
aq0qmLpBkVC5uK2BandrE2zTXrwFJ3evPYHUsqoHcpPWcfgnlv4F/nMNh+DL
91QYTgUl+3Be2HsEOVXmNA+tSOxk9FsDj2COdOUxvHDX0Qm3zkYM0Jc8HoJj
HTffwmlTyAY5ob+MwXcpH+DApmAZ1tsUp7z4pdjnIclPF8N7HLISuiqzqmHN
a54CzrDMali8N30dPiN+z3+i1a19X4BG2cmrAdrcImst5Hr8ddCok6ng7cFz
DbCc0jDOVfC7INHBNsBXvF3LCq1w4XAEZl2a+AiX2F5GyYkfXhh3pPigh7wT
hA+Gar5Bk7slBJvriZ/QrfNFobFQdwiLm+0JqHlRdgwvZ5MZn2lH+6ayYfjG
/Xy4U7Ikgr9mN8rhYCLBGPjaL4V++zAJEzxxlNMbkY9UZx7Ah21x7mnaVcM6
D/4H+PlV4g==
  "]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Create Extra Objects Menu", "Subsection",
 CellChangeTimes->{{3.6984486307826214`*^9, 3.698448639847788*^9}, {
  3.6984486842090807`*^9, 
  3.6984486849669757`*^9}},ExpressionUUID->"afb25772-1423-4cb6-8129-\
95368c9c27a6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"createcreationmenu", "[", "]"}], ":=", 
  RowBox[{"Column", "[", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Button", "[", 
       RowBox[{
        RowBox[{"Graphics", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"drawhw", "[", 
             RowBox[{"aperture", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "1"}], "}"}]}], "}"}], "]"}], "]"}], ",", 
            RowBox[{"Text", "[", 
             RowBox[{
              RowBox[{"Style", "[", 
               RowBox[{"\"\<Ap\>\"", ",", "Bold", ",", "14"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{".3", ",", ".8"}], "}"}]}], "]"}]}], "}"}], ",", 
          RowBox[{"ImageSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"30", ",", "30"}], "}"}]}]}], "]"}], ",", 
        RowBox[{"addtostack", "[", 
         RowBox[{"eventstack", ",", "aperture"}], "]"}], ",", 
        RowBox[{"Appearance", "\[Rule]", 
         RowBox[{"Dynamic", "[", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"eventstack", "===", 
             RowBox[{"{", "aperture", "}"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"\"\<Palette\>\"", ",", "\"\<Pressed\>\""}], "}"}], ",", 
            "\"\<Palette\>\""}], "]"}], "]"}]}]}], "]"}], "~", "Tooltip", 
      "~", "\"\<Add Aperture\>\""}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Button", "[", 
       RowBox[{
        RowBox[{"Graphics", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"drawhw", "[", 
             RowBox[{"traverse", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"0", ",", "0"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{".5", ",", 
                 RowBox[{"-", ".5"}]}], "}"}]}], "]"}], "]"}], ",", 
            RowBox[{"Text", "[", 
             RowBox[{
              RowBox[{"Style", "[", 
               RowBox[{"\"\<Tr\>\"", ",", "Bold", ",", "14"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{".3", ",", ".8"}], "}"}]}], "]"}]}], "}"}], ",", 
          RowBox[{"ImageSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"30", ",", "30"}], "}"}]}]}], "]"}], ",", 
        RowBox[{"addtostack", "[", 
         RowBox[{"eventstack", ",", "traverse"}], "]"}], ",", 
        RowBox[{"Appearance", "\[Rule]", 
         RowBox[{"Dynamic", "[", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"eventstack", "===", 
             RowBox[{"{", "traverse", "}"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"\"\<Palette\>\"", ",", "\"\<Pressed\>\""}], "}"}], ",", 
            "\"\<Palette\>\""}], "]"}], "]"}]}]}], "]"}], "~", "Tooltip", 
      "~", "\"\<Add Traverse\>\""}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Button", "[", 
       RowBox[{
        RowBox[{"Graphics", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"drawhw", "[", 
             RowBox[{"lens", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"0", ",", "0"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", ".5", ",", 
               RowBox[{"{", 
                RowBox[{"1", ",", "1"}], "}"}]}], "]"}], "]"}], ",", 
            RowBox[{"Text", "[", 
             RowBox[{
              RowBox[{"Style", "[", 
               RowBox[{"\"\<Ln\>\"", ",", "Bold", ",", "14"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{".3", ",", ".8"}], "}"}]}], "]"}]}], "}"}], ",", 
          RowBox[{"ImageSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"30", ",", "30"}], "}"}]}]}], "]"}], ",", 
        RowBox[{"addtostack", "[", 
         RowBox[{"eventstack", ",", "lens"}], "]"}], ",", 
        RowBox[{"Appearance", "\[Rule]", 
         RowBox[{"Dynamic", "[", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"eventstack", "===", 
             RowBox[{"{", "lens", "}"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"\"\<Palette\>\"", ",", "\"\<Pressed\>\""}], "}"}], ",", 
            "\"\<Palette\>\""}], "]"}], "]"}]}]}], "]"}], "~", "Tooltip", 
      "~", "\"\<Add Lens\>\""}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Button", "[", 
       RowBox[{
        RowBox[{"Graphics", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Thickness", "[", "Large", "]"}], ",", 
              InterpretationBox[
               ButtonBox[
                TooltipBox[
                 GraphicsBox[{
                   {GrayLevel[0], RectangleBox[{0, 0}]}, 
                   {GrayLevel[0], RectangleBox[{1, -1}]}, 
                   {GrayLevel[0.5], RectangleBox[{0, -1}, {2, 1}]}},
                  AspectRatio->1,
                  Frame->True,
                  FrameStyle->GrayLevel[0.33333333333333337`],
                  FrameTicks->None,
                  
                  ImageSize->
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}],
                  PlotRangePadding->None],
                 "GrayLevel[0.5]"],
                Appearance->None,
                BaseStyle->{},
                BaselinePosition->Baseline,
                ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
                  If[
                   Not[
                    AbsoluteCurrentValue["Deployed"]], 
                   SelectionMove[Typeset`box$, All, Expression]; 
                   FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                   FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                   FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                   MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]],
                DefaultBaseStyle->{},
                Evaluator->Automatic,
                Method->"Preemptive"],
               GrayLevel[0.5],
               Editable->False,
               Selectable->False], ",", 
              RowBox[{"Circle", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"4.5`", ",", "4.5`"}], "}"}], ",", "0.03`"}], "]"}], 
              ",", 
              RowBox[{"Directive", "[", 
               RowBox[{
                InterpretationBox[
                 ButtonBox[
                  TooltipBox[
                   GraphicsBox[{
                    {GrayLevel[0], RectangleBox[{0, 0}]}, 
                    {GrayLevel[0], RectangleBox[{1, -1}]}, 
                    {RGBColor[0.33333333333333337`, 0, 0.33333333333333337`], 
                    RectangleBox[{0, -1}, {2, 1}]}},
                    AspectRatio->1,
                    Frame->True,
                    FrameStyle->RGBColor[
                    0.22222222222222227`, 0., 0.22222222222222227`],
                    FrameTicks->None,
                    
                    ImageSize->
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}],
                    PlotRangePadding->None],
                   "RGBColor[0.33333333333333337, 0, 0.33333333333333337]"],
                  Appearance->None,
                  BaseStyle->{},
                  BaselinePosition->Baseline,
                  ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.33333333333333337`, 0, 0.33333333333333337`]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]],
                  DefaultBaseStyle->{},
                  Evaluator->Automatic,
                  Method->"Preemptive"],
                 RGBColor[0.33333333333333337`, 0, 0.33333333333333337`],
                 Editable->False,
                 Selectable->False], ",", 
                RowBox[{"Arrowheads", "[", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", ".15"}], ",", "0", ",", 
                    
                    GraphicsBox[
                    LineBox[{{{-1., 0.5}, {0., 0.}, {-1., -0.5}}, {{0., 
                    0.5}, {1., 0.}, {0., -0.5}}, {{1., 0.5}, {2., 0.}, {
                    1., -0.5}}}],
                    Background->None,
                    ImageMargins->0.,
                    ImageSize->{28., Automatic}]}], "}"}], ",", 
                   RowBox[{"{", 
                    RowBox[{".15", ",", "1", ",", 
                    
                    GraphicsBox[
                    LineBox[{{{-1., 0.5}, {0., 0.}, {-1., -0.5}}, {{0., 
                    0.5}, {1., 0.}, {0., -0.5}}, {{1., 0.5}, {2., 0.}, {
                    1., -0.5}}}],
                    ImageSize->{31., Automatic}]}], "}"}]}], "}"}], "]"}]}], 
               "]"}], ",", 
              RowBox[{"Arrow", "[", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"0", ",", "0"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "1"}], "}"}]}], "}"}], "]"}], ",", 
              RowBox[{"PointSize", "[", "Medium", "]"}], ",", 
              RowBox[{"Point", "[", 
               RowBox[{"{", 
                RowBox[{"4.5`", ",", "4.5`"}], "}"}], "]"}]}], "}"}], ",", 
            RowBox[{"Text", "[", 
             RowBox[{
              RowBox[{"Style", "[", 
               RowBox[{"\"\<Mr\>\"", ",", "Bold", ",", "14"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{".3", ",", ".8"}], "}"}]}], "]"}]}], "}"}], ",", 
          RowBox[{"PlotRange", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", ".3"}], ",", "1.3"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", ".3"}], ",", "1.3"}], "}"}]}], "}"}]}], ",", 
          RowBox[{"ImageSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"30", ",", "30"}], "}"}]}]}], "]"}], ",", 
        RowBox[{"addtostack", "[", 
         RowBox[{"eventstack", ",", "mirror"}], "]"}], ",", 
        RowBox[{"Appearance", "\[Rule]", 
         RowBox[{"Dynamic", "[", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"eventstack", "===", 
             RowBox[{"{", "mirror", "}"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"\"\<Palette\>\"", ",", "\"\<Pressed\>\""}], "}"}], ",", 
            "\"\<Palette\>\""}], "]"}], "]"}]}]}], "]"}], "~", "Tooltip", 
      "~", "\"\<Add Mirror\>\""}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Button", "[", 
       RowBox[{
        RowBox[{"Graphics", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"drawhw", "[", 
             RowBox[{"onlymirror", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "1"}], "}"}]}], "}"}], "]"}], "]"}], ",", 
            RowBox[{"Text", "[", 
             RowBox[{
              RowBox[{"Style", "[", 
               RowBox[{"\"\<Om\>\"", ",", "Bold", ",", "14"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{".3", ",", ".8"}], "}"}]}], "]"}]}], "}"}], ",", 
          RowBox[{"ImageSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"30", ",", "30"}], "}"}]}]}], "]"}], ",", 
        RowBox[{"addtostack", "[", 
         RowBox[{"eventstack", ",", "onlymirror"}], "]"}], ",", 
        RowBox[{"Appearance", "\[Rule]", 
         RowBox[{"Dynamic", "[", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"eventstack", "===", 
             RowBox[{"{", "onlymirror", "}"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"\"\<Palette\>\"", ",", "\"\<Pressed\>\""}], "}"}], ",", 
            "\"\<Palette\>\""}], "]"}], "]"}]}]}], "]"}], "~", "Tooltip", 
      "~", "\"\<Add SIMPLE Mirror\>\""}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Button", "[", 
       RowBox[{
        RowBox[{"Graphics", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Thickness", "[", "Large", "]"}], ",", 
              InterpretationBox[
               ButtonBox[
                TooltipBox[
                 GraphicsBox[{
                   {GrayLevel[0], RectangleBox[{0, 0}]}, 
                   {GrayLevel[0], RectangleBox[{1, -1}]}, 
                   {GrayLevel[0.5], RectangleBox[{0, -1}, {2, 1}]}},
                  AspectRatio->1,
                  Frame->True,
                  FrameStyle->GrayLevel[0.33333333333333337`],
                  FrameTicks->None,
                  
                  ImageSize->
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}],
                  PlotRangePadding->None],
                 "GrayLevel[0.5]"],
                Appearance->None,
                BaseStyle->{},
                BaselinePosition->Baseline,
                ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
                  If[
                   Not[
                    AbsoluteCurrentValue["Deployed"]], 
                   SelectionMove[Typeset`box$, All, Expression]; 
                   FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                   FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                   FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                   MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]],
                DefaultBaseStyle->{},
                Evaluator->Automatic,
                Method->"Preemptive"],
               GrayLevel[0.5],
               Editable->False,
               Selectable->False], ",", 
              RowBox[{"Circle", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], ",", "0.12`"}], "]"}], ",", 
              InterpretationBox[
               ButtonBox[
                TooltipBox[
                 GraphicsBox[{
                   {GrayLevel[0], RectangleBox[{0, 0}]}, 
                   {GrayLevel[0], RectangleBox[{1, -1}]}, 
                   {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
                  AspectRatio->1,
                  Frame->True,
                  FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
                  FrameTicks->None,
                  
                  ImageSize->
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}],
                  PlotRangePadding->None],
                 "RGBColor[1, 0, 0]"],
                Appearance->None,
                BaseStyle->{},
                BaselinePosition->Baseline,
                ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
                  If[
                   Not[
                    AbsoluteCurrentValue["Deployed"]], 
                   SelectionMove[Typeset`box$, All, Expression]; 
                   FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                   FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                   FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                   MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]],
                DefaultBaseStyle->{},
                Evaluator->Automatic,
                Method->"Preemptive"],
               RGBColor[1, 0, 0],
               Editable->False,
               Selectable->False], ",", 
              RowBox[{"PointSize", "[", "Medium", "]"}], ",", 
              RowBox[{"Point", "[", 
               RowBox[{"{", 
                RowBox[{"0", ",", "0"}], "}"}], "]"}], ",", 
              RowBox[{"Arrowheads", "[", "Medium", "]"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Arrow", "[", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"0", ",", "0"}], "}"}], ",", 
                   RowBox[{"3", "*", 
                    RowBox[{"{", 
                    RowBox[{"0.078", ",", "0.29"}], "}"}]}]}], "}"}], "]"}], 
                ",", 
                RowBox[{"Arrow", "[", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"0", ",", "0"}], "}"}], ",", 
                   RowBox[{"3", "*", 
                    RowBox[{"{", 
                    RowBox[{"0.29", ",", "0.078"}], "}"}]}]}], "}"}], "]"}]}],
                "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                RowBox[{"Disk", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"0", ",", "0"}], "}"}], ",", 
                  RowBox[{"3", "*", "0.2`"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"1.31", ",", "0.262"}], "}"}]}], "]"}]}], "}"}]}], 
             "}"}], ",", 
            RowBox[{"Text", "[", 
             RowBox[{
              RowBox[{"Style", "[", 
               RowBox[{"\"\<Ps\>\"", ",", "Bold", ",", "14"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{".3", ",", ".8"}], "}"}]}], "]"}]}], "}"}], ",", 
          RowBox[{"ImageSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"30", ",", "30"}], "}"}]}]}], "]"}], ",", 
        RowBox[{"addtostack", "[", 
         RowBox[{"eventstack", ",", "pointsource"}], "]"}], ",", 
        RowBox[{"Appearance", "\[Rule]", 
         RowBox[{"Dynamic", "[", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"eventstack", "===", 
             RowBox[{"{", "pointsource", "}"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"\"\<Palette\>\"", ",", "\"\<Pressed\>\""}], "}"}], ",", 
            "\"\<Palette\>\""}], "]"}], "]"}]}]}], "]"}], "~", "Tooltip", 
      "~", "\"\<Add Point Source\>\""}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Button", "[", 
       RowBox[{
        RowBox[{"Graphics", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"drawhw", "[", 
             RowBox[{"source", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"0", ",", "0"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", 
               RowBox[{
                RowBox[{"-", "Pi"}], "/", "4"}], ",", ".01", ",", 
               "\"\<line\>\""}], "]"}], "]"}], ",", 
            RowBox[{"Text", "[", 
             RowBox[{
              RowBox[{"Style", "[", 
               RowBox[{"\"\<Ls\>\"", ",", "Bold", ",", "14"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{".3", ",", ".8"}], "}"}]}], "]"}]}], "}"}], ",", 
          RowBox[{"ImageSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"30", ",", "30"}], "}"}]}]}], "]"}], ",", 
        RowBox[{"addtostack", "[", 
         RowBox[{"eventstack", ",", "linesource"}], "]"}], ",", 
        RowBox[{"Appearance", "\[Rule]", 
         RowBox[{"Dynamic", "[", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"eventstack", "===", 
             RowBox[{"{", "linesource", "}"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"\"\<Palette\>\"", ",", "\"\<Pressed\>\""}], "}"}], ",", 
            "\"\<Palette\>\""}], "]"}], "]"}]}]}], "]"}], "~", "Tooltip", 
      "~", "\"\<Add Line Source\>\""}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"Spacer", "[", 
      RowBox[{"{", 
       RowBox[{"1", ",", "20"}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Button", "[", 
       RowBox[{
        RowBox[{"Graphics", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"Orange", ",", 
            RowBox[{"Disk", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", "0"}], "}"}], ",", "3.6"}], "]"}], ",", 
            RowBox[{"Blend", "[", 
             RowBox[{"{", 
              RowBox[{"Yellow", ",", "Orange"}], "}"}], "]"}], ",", 
            RowBox[{"Disk", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", "0"}], "}"}], ",", "3.3"}], "]"}], ",", 
            "Black", ",", 
            RowBox[{
             RowBox[{
              RowBox[{"Disk", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], ",", "3", ",", "#"}], "]"}], 
              "&"}], "/@", 
             RowBox[{"Partition", "[", 
              RowBox[{
               RowBox[{"Range", "[", 
                RowBox[{"0", ",", 
                 RowBox[{"2", "Pi"}], ",", 
                 RowBox[{"Pi", "/", "3"}]}], "]"}], ",", "2"}], "]"}]}], ",", 
            RowBox[{"Blend", "[", 
             RowBox[{"{", 
              RowBox[{"Yellow", ",", "Orange"}], "}"}], "]"}], ",", 
            RowBox[{"Disk", "[", "]"}], ",", "Black", ",", 
            RowBox[{"Disk", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", "0"}], "}"}], ",", ".7"}], "]"}]}], "}"}], 
          ",", 
          RowBox[{"ImageSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"30", ",", "30"}], "}"}]}]}], "]"}], ",", 
        RowBox[{"CreateDocument", "[", 
         RowBox[{"completedraw", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"#1", "[", "##2", "]"}], "&"}], "@@@", 
              RowBox[{"Values", "@", "objects"}]}], ")"}], "/.", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"source", "[", 
               RowBox[{"prop__", ",", "res_", ",", "typ_"}], "]"}], 
              "\[RuleDelayed]", 
              RowBox[{"source", "[", 
               RowBox[{"prop", ",", 
                RowBox[{"res", "/", "20"}], ",", "typ"}], "]"}]}], "}"}]}], 
           ",", "plotr"}], "]"}], "]"}], ",", 
        RowBox[{"Appearance", "\[Rule]", "\"\<Palette\>\""}]}], "]"}], "~", 
      "Tooltip", "~", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\<Print Graphics!!!!\>\"", ",", "Red", ",", "30"}], 
       "]"}]}]}], "\[IndentingNewLine]", "}"}], "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6984492473904915`*^9, 3.698449251639318*^9}, {
  3.698452103012061*^9, 3.698452108583315*^9}, {3.6984522512010975`*^9, 
  3.6984522636151953`*^9}, {3.698452898786455*^9, 3.6984529345808706`*^9}, {
  3.6984573023861837`*^9, 3.6984573095267725`*^9}, {3.698457994291462*^9, 
  3.698457996690434*^9}, {3.698894100574997*^9, 3.6988941011415043`*^9}}]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Left-Hand Menu", "Section",
 CellChangeTimes->{{3.698298206018772*^9, 
  3.698298209827228*^9}},ExpressionUUID->"f5772e39-d67e-4133-8fd3-\
aaad642c0ee0"],

Cell[CellGroupData[{

Cell["Overall Structures", "Subsection",
 CellChangeTimes->{{3.6983880012431917`*^9, 3.6983880070514584`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"myopener", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"head_", ",", "content_"}], "}"}], ",", "state_"}], "]"}], ":=", 
    RowBox[{"PaneSelector", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"True", "\[Rule]", 
         RowBox[{"Grid", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Opener", "[", "state", "]"}], ",", 
               RowBox[{"Item", "[", 
                RowBox[{"head", ",", 
                 RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "}"}], 
             ",", 
             RowBox[{"{", 
              RowBox[{"content", ",", "SpanFromLeft"}], "}"}]}], "}"}], ",", 
           RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], ",", 
        RowBox[{"False", "\[Rule]", 
         RowBox[{"Grid", "[", 
          RowBox[{"{", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Opener", "[", "state", "]"}], ",", 
             RowBox[{"Item", "[", 
              RowBox[{"head", ",", 
               RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "}"}], 
           "}"}], "]"}]}]}], "}"}], ",", "state", ",", 
      RowBox[{"ImageSize", "\[Rule]", "Automatic"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"allmenu", "[", "n_", "]"}], ":=", 
   RowBox[{"Framed", "[", 
    RowBox[{
     RowBox[{"myopener", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"menu", "[", "n", "]"}], ",", 
         RowBox[{"Column", "[", 
          RowBox[{"allmenu", "/@", 
           RowBox[{"relation", "[", "n", "]"}]}], "]"}]}], "}"}], ",", 
       RowBox[{"Dynamic", "@", 
        RowBox[{"property", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"Key", "@", "n"}], ",", "3"}], "]"}], "]"}]}]}], "]"}], 
     ",", 
     RowBox[{"RoundingRadius", "\[Rule]", "5"}], ",", 
     RowBox[{"Background", "\[Rule]", "LightBlue"}], ",", 
     RowBox[{"FrameMargins", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1.5", ",", "1.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"5", ",", "1.5"}], "}"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"allmenu", "[", 
     RowBox[{"n_", "?", "Positive"}], "]"}], ":=", 
    RowBox[{"Framed", "[", 
     RowBox[{
      RowBox[{"myopener", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"menu", "[", "n", "]"}], ",", 
          RowBox[{"Column", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Spacer", "@", "3"}], ",", 
             RowBox[{"contentpanel", "[", "n", "]"}]}], "}"}], "]"}]}], "}"}],
         ",", 
        RowBox[{"Dynamic", "@", 
         RowBox[{"property", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"Key", "@", "n"}], ",", "3"}], "]"}], "]"}]}]}], "]"}], 
      ",", 
      RowBox[{"RoundingRadius", "\[Rule]", "5"}], ",", 
      RowBox[{"Background", "\[Rule]", "LightGreen"}], ",", 
      RowBox[{"FrameMargins", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1.5", ",", "1.5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"5", ",", "1.5"}], "}"}]}], "}"}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"createlefthandmenu", "[", "False", "]"}], ":=", 
   RowBox[{"Pane", "[", 
    RowBox[{
     RowBox[{"Dynamic", "[", 
      RowBox[{"allmenu", "[", "0", "]"}], "]"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"360", ",", "700"}], "}"}]}], ",", 
     RowBox[{"Scrollbars", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"False", ",", "True"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"createlefthandmenu", "[", "True", "]"}], ":=", 
   RowBox[{"Pane", "[", 
    RowBox[{
     RowBox[{"allmenu", "[", "0", "]"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"360", ",", "700"}], "}"}]}], ",", 
     RowBox[{"Scrollbars", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"False", ",", "True"}], "}"}]}]}], "]"}]}], ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.69838255942332*^9, 3.698382578174572*^9}, {
   3.698382650034102*^9, 3.698382795645872*^9}, {3.6983828716010714`*^9, 
   3.6983828736571217`*^9}, {3.698382930101276*^9, 3.698383199916791*^9}, {
   3.6983835151471715`*^9, 3.6983835361417456`*^9}, {3.6983835768116093`*^9, 
   3.698383581156308*^9}, {3.6983836493709116`*^9, 3.698383654808357*^9}, {
   3.6983836854401035`*^9, 3.698383685674348*^9}, {3.698384169344239*^9, 
   3.698384169368303*^9}, {3.6983877710587606`*^9, 3.698387771910936*^9}, 
   3.6983957069459825`*^9, {3.69840230421448*^9, 3.69840230440901*^9}, {
   3.698402528016354*^9, 3.698402558567395*^9}, {3.6984026055084686`*^9, 
   3.6984026319830494`*^9}, {3.698402662102869*^9, 3.6984026688675156`*^9}, {
   3.698402721842003*^9, 3.698402754565321*^9}, {3.698402843619589*^9, 
   3.698402887955625*^9}, {3.6984029338996964`*^9, 3.6984029556836987`*^9}, {
   3.698402991171968*^9, 3.6984030021416535`*^9}, {3.698403066580286*^9, 
   3.6984031472531767`*^9}, {3.6984032878277025`*^9, 
   3.6984033255525503`*^9}, {3.698404675654278*^9, 3.6984046902625427`*^9}, {
   3.6984421893927135`*^9, 3.6984422153342175`*^9}, {3.6984422845983934`*^9, 
   3.698442296057992*^9}, {3.6984498691621947`*^9, 3.6984498744361715`*^9}, {
   3.698449910603201*^9, 3.698449917774363*^9}}],

Cell[CellGroupData[{

Cell["Moving Operations", "Subsubsection",
 CellChangeTimes->{{3.6983880327001867`*^9, 3.6983880417760367`*^9}}],

Cell[CellGroupData[{

Cell["With Father Operations", "Subsubsubsection",
 CellChangeTimes->{{3.698387629801818*^9, 3.6983876342717676`*^9}, {
  3.6983876842681856`*^9, 3.69838770536744*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"usefather", "[", 
   RowBox[{"son_", ",", "actions_"}], "]"}], ":=", 
  RowBox[{"With", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"father", "=", 
      RowBox[{"property", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"Key", "@", "son"}], ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"pos", "=", 
        RowBox[{
         RowBox[{"Position", "[", 
          RowBox[{
           RowBox[{"relation", "[", "father", "]"}], ",", "son"}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
      RowBox[{"actions", "[", 
       RowBox[{"father", ",", "pos"}], "]"}]}], "]"}]}], "]"}]}]], "Input",
 InitializationCell->True]
}, Open  ]],

Cell[CellGroupData[{

Cell["Move Up & Down", "Subsubsubsection",
 CellChangeTimes->{{3.698387629801818*^9, 3.6983876342717676`*^9}, {
  3.6983876842681856`*^9, 3.6983876870465946`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"moveup", "[", "n_", "]"}], ":=", 
  RowBox[{"usefather", "[", 
   RowBox[{"n", ",", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"father", ",", "pos"}], "}"}], ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"pos", "\[NotEqual]", "1"}], ",", 
        RowBox[{
         RowBox[{"relation", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"Key", "@", "father"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"pos", "-", "1"}], ",", "pos"}], "}"}]}], "]"}], "]"}], 
         "=", 
         RowBox[{"relation", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"Key", "@", "father"}], ",", 
            RowBox[{"{", 
             RowBox[{"pos", ",", 
              RowBox[{"pos", "-", "1"}]}], "}"}]}], "]"}], "]"}]}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"father", "\[NotEqual]", "0"}], ",", 
          RowBox[{"usefather", "[", 
           RowBox[{"father", ",", 
            RowBox[{"Function", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"father1", ",", "pos1"}], "}"}], ",", 
              RowBox[{
               RowBox[{
                RowBox[{"relation", "@", "father1"}], "=", 
                RowBox[{"Insert", "[", 
                 RowBox[{
                  RowBox[{"relation", "@", "father1"}], ",", "n", ",", 
                  "pos1"}], "]"}]}], ";", 
               RowBox[{
                RowBox[{"relation", "[", "father", "]"}], "=", 
                RowBox[{"Rest", "@", 
                 RowBox[{"relation", "[", "father", "]"}]}]}], ";", 
               RowBox[{
                RowBox[{"property", "[", 
                 RowBox[{"[", 
                  RowBox[{
                   RowBox[{"Key", "@", "n"}], ",", "2"}], "]"}], "]"}], "=", 
                "father1"}]}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"movedown", "[", "n_", "]"}], ":=", 
  RowBox[{"usefather", "[", 
   RowBox[{"n", ",", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"father", ",", "pos"}], "}"}], ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"pos", "\[NotEqual]", 
         RowBox[{"Length", "@", 
          RowBox[{"relation", "@", "father"}]}]}], ",", 
        RowBox[{
         RowBox[{"relation", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"Key", "@", "father"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"pos", "+", "1"}], ",", "pos"}], "}"}]}], "]"}], "]"}], 
         "=", 
         RowBox[{"relation", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"Key", "@", "father"}], ",", 
            RowBox[{"{", 
             RowBox[{"pos", ",", 
              RowBox[{"pos", "+", "1"}]}], "}"}]}], "]"}], "]"}]}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"father", "\[NotEqual]", "0"}], ",", 
          RowBox[{"usefather", "[", 
           RowBox[{"father", ",", 
            RowBox[{"Function", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"father1", ",", "pos1"}], "}"}], ",", 
              RowBox[{
               RowBox[{
                RowBox[{"relation", "@", "father1"}], "=", 
                RowBox[{"Insert", "[", 
                 RowBox[{
                  RowBox[{"relation", "@", "father1"}], ",", "n", ",", 
                  RowBox[{"pos1", "+", "1"}]}], "]"}]}], ";", 
               RowBox[{
                RowBox[{"relation", "[", "father", "]"}], "=", 
                RowBox[{"Most", "@", 
                 RowBox[{"relation", "[", "father", "]"}]}]}], ";", 
               RowBox[{
                RowBox[{"property", "[", 
                 RowBox[{"[", 
                  RowBox[{
                   RowBox[{"Key", "@", "n"}], ",", "2"}], "]"}], "]"}], "=", 
                "father1"}]}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], 
   "]"}]}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6983841543157067`*^9, 3.6983841657726297`*^9}, {
  3.698384197241089*^9, 3.698384209673773*^9}, {3.6983843269738855`*^9, 
  3.698384542980091*^9}, {3.698384599088172*^9, 3.698384599944154*^9}, {
  3.6983846771115446`*^9, 3.698384683627386*^9}, {3.6983847715853195`*^9, 
  3.6983847717773457`*^9}, {3.698384850986697*^9, 3.698384860747403*^9}, {
  3.698384921983508*^9, 3.6983850009252415`*^9}, {3.698385169415885*^9, 
  3.6983852228140993`*^9}, {3.698385259670007*^9, 3.698385601241703*^9}, {
  3.6983856607363524`*^9, 3.698385747083151*^9}, {3.6983858421695004`*^9, 
  3.698385848738613*^9}, {3.6983859978764706`*^9, 3.698386041126506*^9}, {
  3.698387666048444*^9, 3.698387679525111*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Move In & Out", "Subsubsubsection",
 CellChangeTimes->{{3.698387629801818*^9, 3.6983876342717676`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"movein", "[", "n_", "]"}], ":=", 
   RowBox[{"usefather", "[", 
    RowBox[{"n", ",", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"father", ",", "pos"}], "}"}], ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"pos", "\[NotEqual]", "1"}], ",", 
         RowBox[{"With", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"prev", "=", 
             RowBox[{"relation", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"Key", "@", "father"}], ",", 
                RowBox[{"pos", "-", "1"}]}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{"Negative", "@", "prev"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               RowBox[{"relation", "[", "father", "]"}], "=", 
               RowBox[{"Delete", "[", 
                RowBox[{
                 RowBox[{"relation", "@", "father"}], ",", "pos"}], "]"}]}], 
              ";", 
              RowBox[{"AppendTo", "[", 
               RowBox[{
                RowBox[{"relation", "[", "prev", "]"}], ",", "n"}], "]"}], 
              ";", 
              RowBox[{
               RowBox[{"property", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"Key", "@", "n"}], ",", "2"}], "]"}], "]"}], "=", 
               "prev"}]}], ",", "\[IndentingNewLine]", 
             RowBox[{"With", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"new", "=", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"Min", "[", 
                    RowBox[{"Keys", "@", "relation"}], "]"}], "-", "1"}], 
                  ")"}]}], "}"}], ",", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"AppendTo", "[", 
                 RowBox[{"relation", ",", 
                  RowBox[{"new", "\[Rule]", 
                   RowBox[{"{", 
                    RowBox[{"prev", ",", "n"}], "}"}]}]}], "]"}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"relation", "[", "father", "]"}], "=", 
                 RowBox[{"Append", "[", 
                  RowBox[{
                   RowBox[{"Delete", "[", 
                    RowBox[{
                    RowBox[{"relation", "@", "father"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"pos", "-", "1"}], "}"}], ",", 
                    RowBox[{"{", "pos", "}"}]}], "}"}]}], "]"}], ",", "new"}],
                   "]"}]}], ";", "\[IndentingNewLine]", 
                RowBox[{"AppendTo", "[", 
                 RowBox[{"property", ",", 
                  RowBox[{"new", "\[Rule]", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"\"\<menu \>\"", "<>", 
                    RowBox[{"ToString", "@", 
                    RowBox[{"-", "new"}]}]}], ",", "father", ",", "True", ",",
                     "False", ",", "True"}], "}"}]}]}], "]"}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"property", "[", 
                  RowBox[{"[", 
                   RowBox[{
                    RowBox[{"Key", "@", "n"}], ",", "2"}], "]"}], "]"}], "=", 
                 RowBox[{
                  RowBox[{"property", "[", 
                   RowBox[{"[", 
                    RowBox[{
                    RowBox[{"Key", "@", "prev"}], ",", "2"}], "]"}], "]"}], 
                  "=", "new"}]}], ";"}]}], "\[IndentingNewLine]", "]"}]}], 
            "\[IndentingNewLine]", "]"}]}], "]"}]}], "]"}]}], "]"}]}], 
    "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"moveout", "[", "n_", "]"}], ":=", 
  RowBox[{"usefather", "[", 
   RowBox[{"n", ",", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"father", ",", "pos"}], "}"}], ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"father", "\[NotEqual]", "0"}], ",", 
        RowBox[{"usefather", "[", 
         RowBox[{"father", ",", 
          RowBox[{"Function", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"father1", ",", "pos1"}], "}"}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{"relation", "@", "father1"}], "=", 
              RowBox[{"Insert", "[", 
               RowBox[{
                RowBox[{"relation", "@", "father1"}], ",", "n", ",", 
                RowBox[{"pos1", "+", "1"}]}], "]"}]}], ";", 
             RowBox[{
              RowBox[{"relation", "[", "father", "]"}], "=", 
              RowBox[{"Most", "@", 
               RowBox[{"relation", "[", "father", "]"}]}]}], ";", 
             RowBox[{
              RowBox[{"property", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"Key", "@", "n"}], ",", "2"}], "]"}], "]"}], "=", 
              "father1"}]}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], 
   "]"}]}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6983860666500015`*^9, 3.6983860701066937`*^9}, {
   3.6983861276001053`*^9, 3.698386205456381*^9}, {3.698386247674821*^9, 
   3.6983863633493085`*^9}, {3.698386410893365*^9, 3.698386806923976*^9}, {
   3.6983868458282967`*^9, 3.6983868766252613`*^9}, {3.6983869600937276`*^9, 
   3.6983869641273623`*^9}, {3.6983871915163174`*^9, 
   3.6983871982730474`*^9}, {3.6983872473099174`*^9, 
   3.6983872630603046`*^9}, {3.698387425556953*^9, 3.6983874374049516`*^9}, {
   3.698387468878992*^9, 3.698387505647761*^9}, {3.698387590603031*^9, 
   3.6983875917603226`*^9}, 3.698400810557262*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Button Operations", "Subsubsection",
 CellChangeTimes->{{3.6983880671324296`*^9, 3.6983880692782345`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"PosNegNul", "[", "lst___", "]"}], ":=", 
    RowBox[{"Which", "[", 
     RowBox[{
      RowBox[{"TrueQ", "[", 
       RowBox[{"And", "[", "lst", "]"}], "]"}], ",", "True", ",", 
      RowBox[{"TrueQ", "[", 
       RowBox[{"!", 
        RowBox[{"Or", "[", "lst", "]"}]}], "]"}], ",", "False", ",", "True", 
      ",", "Null"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", "us", "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"updateselection", "[", 
      RowBox[{"part_", ",", "indivact_"}], "]"}], ":=", 
     RowBox[{"us", "[", 
      RowBox[{"part", ",", "indivact", ",", "0"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"us", "[", 
      RowBox[{"part_", ",", "indivact_", ",", "position_"}], "]"}], ":=", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"property", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"Key", "@", "position"}], ",", "part"}], "]"}], "]"}], "=", 
       RowBox[{"PosNegNul", "@@", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"us", "[", 
            RowBox[{"part", ",", "indivact", ",", "#"}], "]"}], "&"}], "/@", 
          RowBox[{"relation", "[", "position", "]"}]}], ")"}]}]}], ")"}]}], 
    ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"us", "[", 
      RowBox[{"part_", ",", "indivact_", ",", 
       RowBox[{"position_", "?", "Positive"}]}], "]"}], ":=", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"property", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"Key", "@", "position"}], ",", "part"}], "]"}], "]"}], "=", 
       RowBox[{"indivact", "@", "position"}]}], ")"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"setselection", "[", 
      RowBox[{"indivact_", ",", "position_", ",", "target_"}], "]"}], ":=", 
     RowBox[{"Scan", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"setselection", "[", 
         RowBox[{"indivact", ",", "#", ",", "target"}], "]"}], "&"}], ",", 
       RowBox[{"relation", "[", "position", "]"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"setselection", "[", 
      RowBox[{"indivact_", ",", 
       RowBox[{"position_", "?", "Positive"}], ",", "target_"}], "]"}], ":=", 
     RowBox[{"indivact", "[", 
      RowBox[{"position", ",", "target"}], "]"}]}], ";"}]}], 
  "\[IndentingNewLine]", "]"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6983688480170746`*^9, 3.698368850253185*^9}, {
   3.69836891197932*^9, 3.6983689753826413`*^9}, {3.6983776782728233`*^9, 
   3.698377681870692*^9}, {3.6983778066890583`*^9, 3.6983778127060165`*^9}, {
   3.698378089909433*^9, 3.698378101311651*^9}, {3.698378152705374*^9, 
   3.6983783026540194`*^9}, {3.698378781684926*^9, 3.698378841917125*^9}, {
   3.6983789772597475`*^9, 3.698379036990004*^9}, {3.6983791147345333`*^9, 
   3.6983791596888633`*^9}, {3.6983794834622073`*^9, 3.698379497050349*^9}, {
   3.698379637459334*^9, 3.6983796642236247`*^9}, {3.698379708864638*^9, 
   3.6983798308682413`*^9}, {3.698379879057389*^9, 3.6983799057500963`*^9}, {
   3.698379986395651*^9, 3.6983801223701825`*^9}, {3.698380359635707*^9, 
   3.6983804496475296`*^9}, {3.698380539190421*^9, 3.6983805435731373`*^9}, {
   3.698380613731246*^9, 3.6983806173312407`*^9}, {3.698381155532976*^9, 
   3.6983812019860373`*^9}, {3.6983812382943125`*^9, 3.698381382897505*^9}, {
   3.698381419767272*^9, 3.6983814499103527`*^9}, {3.6983816918417616`*^9, 
   3.698381709248871*^9}, {3.698381970033743*^9, 3.698381971579776*^9}, 
   3.6983891746139216`*^9, 3.698394047470004*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["Delete Operation", "Subsubsection",
 CellChangeTimes->{{3.6983954126370487`*^9, 3.6983954159180937`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"deleteone", "[", 
    RowBox[{"n_", "?", "Positive"}], "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"property", "=", 
      RowBox[{"Delete", "[", 
       RowBox[{"property", ",", 
        RowBox[{"Key", "@", "n"}]}], "]"}]}], ";", 
     RowBox[{"objects", "=", 
      RowBox[{"Delete", "[", 
       RowBox[{"objects", ",", 
        RowBox[{"Key", "@", "n"}]}], "]"}]}], ";", 
     RowBox[{"visible", "=", 
      RowBox[{"Delete", "[", 
       RowBox[{"visible", ",", 
        RowBox[{"Key", "@", "n"}]}], "]"}]}], ";", 
     RowBox[{"selected", "=", 
      RowBox[{"Delete", "[", 
       RowBox[{"selected", ",", 
        RowBox[{"Key", "@", "n"}]}], "]"}]}]}], ")"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"deleteone", "[", "n_", "]"}], ":=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Scan", "[", 
      RowBox[{"deleteone", ",", 
       RowBox[{"relation", "[", "n", "]"}]}], "]"}], ";", 
     RowBox[{"relation", "=", 
      RowBox[{"Delete", "[", 
       RowBox[{"relation", ",", 
        RowBox[{"Key", "@", "n"}]}], "]"}]}], ";", 
     RowBox[{"property", "=", 
      RowBox[{"Delete", "[", 
       RowBox[{"property", ",", 
        RowBox[{"Key", "@", "n"}]}], "]"}]}]}], ")"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"deleteall", "[", "n_", "]"}], ":=", 
  RowBox[{"CompoundExpression", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"relation", "[", 
      RowBox[{"property", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"Key", "@", "n"}], ",", "2"}], "]"}], "]"}], "]"}], "=", 
     RowBox[{"DeleteCases", "[", 
      RowBox[{
       RowBox[{"relation", "[", 
        RowBox[{"property", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"Key", "@", "n"}], ",", "2"}], "]"}], "]"}], "]"}], ",", 
       "n"}], "]"}]}], ",", 
    RowBox[{"deleteone", "[", "n", "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"deleteall", "[", "0", "]"}], ":=", 
  RowBox[{"deleteall", "/@", 
   RowBox[{"relation", "@", "0"}]}]}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6983954191808786`*^9, 3.6983954255113063`*^9}, {
  3.698396271787589*^9, 3.698396484271654*^9}, {3.698396522320609*^9, 
  3.6983966362711964`*^9}, {3.698396679918084*^9, 3.6983968819015646`*^9}, {
  3.698398853384514*^9, 3.6983988714848323`*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Disassemble Operation", "Subsubsection",
 CellChangeTimes->{{3.698395170360038*^9, 3.6983951767506514`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"disassemble", "[", "n_", "]"}], ":=", 
  RowBox[{"usefather", "[", 
   RowBox[{"n", ",", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"father", ",", "position"}], "}"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"relation", "[", "father", "]"}], "=", 
        RowBox[{"Flatten", "[", 
         RowBox[{"Insert", "[", 
          RowBox[{
           RowBox[{"Delete", "[", 
            RowBox[{
             RowBox[{"relation", "[", "father", "]"}], ",", "position"}], 
            "]"}], ",", 
           RowBox[{"relation", "[", "n", "]"}], ",", "position"}], "]"}], 
         "]"}]}], ";", 
       RowBox[{"Scan", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"property", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{"Key", "@", "#"}], ",", "2"}], "]"}], "]"}], "=", 
            "father"}], ")"}], "&"}], ",", 
         RowBox[{"relation", "[", "n", "]"}]}], "]"}], ";", 
       RowBox[{"relation", "=", 
        RowBox[{"Delete", "[", 
         RowBox[{"relation", ",", 
          RowBox[{"Key", "@", "n"}]}], "]"}]}], ";", 
       RowBox[{"property", "=", 
        RowBox[{"Delete", "[", 
         RowBox[{"property", ",", 
          RowBox[{"Key", "@", "n"}]}], "]"}]}]}]}], "]"}]}], "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.698395181869775*^9, 3.69839519196426*^9}, {
  3.6983953468506174`*^9, 3.6983953506611333`*^9}, {3.698395486288777*^9, 
  3.6983955838139405`*^9}, {3.698395974813753*^9, 3.698396172571802*^9}, {
  3.698396210447008*^9, 3.6983962344338064`*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Individual Menu & Contents\[CloseCurlyQuote] Constructions", \
"Subsection",
 CellChangeTimes->{{3.698388319765058*^9, 3.698388352039629*^9}}],

Cell[CellGroupData[{

Cell["Menu Segments", "Subsubsection",
 CellChangeTimes->{{3.6983980597374153`*^9, 3.69839806222427*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"namesetter", "[", 
    RowBox[{"n_", ",", 
     RowBox[{"l_:", "100"}]}], "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{"InputField", "[", 
    RowBox[{
     RowBox[{"Dynamic", "[", 
      RowBox[{"property", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"Key", "@", "n"}], ",", "1"}], "]"}], "]"}], "]"}], ",", 
     "String", ",", 
     RowBox[{"FieldHint", "\[Rule]", "\"\<Menu Name\>\""}], ",", 
     RowBox[{"Appearance", "\[Rule]", "None"}], ",", 
     RowBox[{"FrameMargins", "\[Rule]", "None"}], ",", 
     RowBox[{"ImageMargins", "\[Rule]", "0"}], ",", 
     RowBox[{"FieldSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Infinity", ",", "1"}], "}"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"l", ",", "22"}], "}"}]}]}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"updownsetter", "[", "n_", "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{"Column", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"Button", "[", 
         RowBox[{
          RowBox[{"Graphics", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"CapForm", "@", "\"\<Round\>\""}], ",", 
              RowBox[{"JoinForm", "@", "\"\<Round\>\""}], ",", 
              RowBox[{"AbsoluteThickness", "@", "3"}], ",", 
              RowBox[{"Line", "[", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"0", ",", "1"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], 
            ",", 
            RowBox[{"ImageSize", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"16", ",", "8"}], "}"}]}], ",", 
            RowBox[{"ImageMargins", "\[Rule]", "0"}]}], "]"}], ",", 
          RowBox[{"moveup", "[", "n", "]"}], ",", 
          RowBox[{"ImageSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"18", ",", "12"}], "}"}]}], ",", 
          RowBox[{"FrameMargins", "\[Rule]", "None"}], ",", 
          RowBox[{"ImageMargins", "\[Rule]", "0"}], ",", 
          RowBox[{"ContentPadding", "\[Rule]", "False"}]}], "]"}], "~", 
        "Tooltip", "~", "\"\<Move Up\>\""}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Button", "[", 
         RowBox[{
          RowBox[{"Graphics", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"CapForm", "@", "\"\<Round\>\""}], ",", 
              RowBox[{"JoinForm", "@", "\"\<Round\>\""}], ",", 
              RowBox[{"AbsoluteThickness", "@", "3"}], ",", 
              RowBox[{"Line", "[", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"0", ",", 
                   RowBox[{"-", "1"}]}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], 
            ",", 
            RowBox[{"ImageSize", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"16", ",", "8"}], "}"}]}], ",", 
            RowBox[{"ImageMargins", "\[Rule]", "0"}]}], "]"}], ",", 
          RowBox[{"movedown", "[", "n", "]"}], ",", 
          RowBox[{"ImageSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"18", ",", "12"}], "}"}]}], ",", 
          RowBox[{"FrameMargins", "\[Rule]", "None"}], ",", 
          RowBox[{"ImageMargins", "\[Rule]", "0"}], ",", 
          RowBox[{"ContentPadding", "\[Rule]", "False"}]}], "]"}], "~", 
        "Tooltip", "~", "\"\<Move Down\>\""}]}], "}"}], ",", 
     RowBox[{"Spacings", "\[Rule]", 
      RowBox[{"-", ".15"}]}]}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"inoutsetter", "[", "n_", "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{"Column", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"Button", "[", 
         RowBox[{
          RowBox[{"Graphics", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"Blue", ",", 
              RowBox[{"Polygon", "[", 
               RowBox[{"-", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"-", ".3"}], ",", "0"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"2", ",", "0"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"-", "1"}], ",", 
                    RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], "]"}]}], "}"}], 
            ",", 
            RowBox[{"ImageSize", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"16", ",", "8"}], "}"}]}], ",", 
            RowBox[{"ImageMargins", "\[Rule]", "0"}]}], "]"}], ",", 
          RowBox[{"movein", "[", "n", "]"}], ",", 
          RowBox[{"ImageSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"18", ",", "12"}], "}"}]}], ",", 
          RowBox[{"FrameMargins", "\[Rule]", "None"}], ",", 
          RowBox[{"ImageMargins", "\[Rule]", "0"}], ",", 
          RowBox[{"ContentPadding", "\[Rule]", "False"}]}], "]"}], "~", 
        "Tooltip", "~", "\"\<Move In\>\""}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Button", "[", 
         RowBox[{
          RowBox[{"Graphics", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"Blue", ",", 
              RowBox[{"Polygon", "[", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"-", ".3"}], ",", "0"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"2", ",", "0"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"-", "1"}], ",", 
                   RowBox[{"-", "1"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", 
            RowBox[{"ImageSize", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"16", ",", "8"}], "}"}]}], ",", 
            RowBox[{"ImageMargins", "\[Rule]", "0"}]}], "]"}], ",", 
          RowBox[{"moveout", "[", "n", "]"}], ",", 
          RowBox[{"ImageSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"18", ",", "12"}], "}"}]}], ",", 
          RowBox[{"FrameMargins", "\[Rule]", "None"}], ",", 
          RowBox[{"ImageMargins", "\[Rule]", "0"}], ",", 
          RowBox[{"ContentPadding", "\[Rule]", "False"}]}], "]"}], "~", 
        "Tooltip", "~", "\"\<Move Out\>\""}]}], "}"}], ",", 
     RowBox[{"Spacings", "\[Rule]", 
      RowBox[{"-", ".15"}]}]}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"selectsetter", "[", "n_", "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Toggler", "[", 
     RowBox[{
      RowBox[{"Dynamic", "[", 
       RowBox[{
        RowBox[{"property", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"Key", "@", "n"}], ",", "4"}], "]"}], "]"}], ",", 
        RowBox[{
         RowBox[{"(", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"setselection", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"visible", "[", "#1", "]"}], ",", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"selected", "[", 
                   RowBox[{"[", 
                    RowBox[{
                    RowBox[{"Key", "@", "#1"}], ",", ";;"}], "]"}], "]"}], 
                  "=", "#2"}], ")"}]}], "]"}], "&"}], ",", "n", ",", "#"}], 
            "]"}], ";", "\[IndentingNewLine]", 
           RowBox[{"updateselection", "[", 
            RowBox[{"4", ",", 
             RowBox[{
              RowBox[{"PosNegNul", "@@", 
               RowBox[{"selected", "@", "#"}]}], "&"}]}], "]"}]}], 
          "\[IndentingNewLine]", ")"}], "&"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"True", "\[Rule]", 
         RowBox[{"Graphics", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"AbsoluteThickness", "@", "2"}], ",", 
             RowBox[{"Circle", "[", "]"}], ",", 
             RowBox[{"Disk", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", "0"}], "}"}], ",", ".65"}], "]"}]}], "}"}], 
           ",", 
           RowBox[{"ImageSize", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"20", ",", "20"}], "}"}]}]}], "]"}]}], ",", 
        RowBox[{"False", "\[Rule]", 
         RowBox[{"Graphics", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"AbsoluteThickness", "@", "2"}], ",", 
             RowBox[{"Circle", "[", "]"}]}], "}"}], ",", 
           RowBox[{"ImageSize", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"20", ",", "20"}], "}"}]}]}], "]"}]}]}], "}"}], ",", 
      RowBox[{"Graphics", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"AbsoluteThickness", "@", "2"}], ",", 
          RowBox[{"Circle", "[", "]"}], ",", 
          RowBox[{"Disk", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0"}], "}"}], ",", ".65", ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", 
              RowBox[{"Pi", "/", "2"}]}], "}"}]}], "]"}], ",", 
          RowBox[{"Disk", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0"}], "}"}], ",", ".65", ",", 
            RowBox[{"{", 
             RowBox[{"Pi", ",", 
              RowBox[{"3", 
               RowBox[{"Pi", "/", "2"}]}]}], "}"}]}], "]"}]}], "}"}], ",", 
        RowBox[{"ImageSize", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"20", ",", "20"}], "}"}]}]}], "]"}]}], "]"}], "~", 
    "Tooltip", "~", "\"\<Selected?\>\""}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"visiblesetter", "[", "n_", "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Toggler", "[", 
     RowBox[{
      RowBox[{"Dynamic", "[", 
       RowBox[{
        RowBox[{"property", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"Key", "@", "n"}], ",", "5"}], "]"}], "]"}], ",", 
        RowBox[{
         RowBox[{"(", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"setselection", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"selected", "[", 
                  RowBox[{"[", 
                   RowBox[{
                    RowBox[{"Key", "@", "#1"}], ",", ";;"}], "]"}], "]"}], 
                 "=", "False"}], ";", 
                RowBox[{
                 RowBox[{"visible", "[", "#1", "]"}], "=", "#2"}]}], ")"}], 
              "&"}], ",", "n", ",", "#"}], "]"}], ";", "\[IndentingNewLine]", 
           RowBox[{"updateselection", "[", 
            RowBox[{"5", ",", 
             RowBox[{
              RowBox[{"visible", "@", "#"}], "&"}]}], "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"updateselection", "[", 
            RowBox[{"4", ",", 
             RowBox[{
              RowBox[{"PosNegNul", "@@", 
               RowBox[{"selected", "@", "#"}]}], "&"}]}], "]"}]}], 
          "\[IndentingNewLine]", ")"}], "&"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"True", "\[Rule]", 
         RowBox[{"Graphics", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"AbsoluteThickness", "@", "3"}], ",", 
             RowBox[{"Line", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"-", ".8"}], ",", "1"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"2", ",", "2"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", 
           RowBox[{"ImageSize", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"20", ",", "20"}], "}"}]}]}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"False", "\[Rule]", 
         RowBox[{"Graphics", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"AbsoluteThickness", "@", "3"}], ",", 
             RowBox[{"Opacity", "@", ".1"}], ",", 
             RowBox[{"Line", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"-", ".8"}], ",", "1"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"2", ",", "2"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", 
           RowBox[{"ImageSize", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"20", ",", "20"}], "}"}]}]}], "]"}]}]}], "}"}], ",", 
      RowBox[{"Graphics", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"AbsoluteThickness", "@", "3"}], ",", 
          RowBox[{"Opacity", "@", ".45"}], ",", 
          RowBox[{"Line", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", ".8"}], ",", "1"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "0"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"2", ",", "2"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"ImageSize", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"20", ",", "20"}], "}"}]}]}], "]"}]}], "]"}], "~", 
    "Tooltip", "~", "\"\<Visible?\>\""}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"deletesetter", "[", "n_", "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Toggler", "[", 
     RowBox[{
      RowBox[{"Dynamic", "[", 
       RowBox[{"1", ",", 
        RowBox[{
         RowBox[{"deleteall", "[", "n", "]"}], "&"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"1", "\[Rule]", 
         RowBox[{"Graphics", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Darker", "@", "Red"}], ",", 
             RowBox[{"Rotate", "[", 
              RowBox[{
               RowBox[{"Polygon", "[", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"5", ",", "1"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"5", ",", 
                    RowBox[{"-", "1"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"1", ",", 
                    RowBox[{"-", "1"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"1", ",", 
                    RowBox[{"-", "5"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"-", "1"}], ",", 
                    RowBox[{"-", "5"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"-", "1"}], ",", 
                    RowBox[{"-", "1"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"-", "5"}], ",", 
                    RowBox[{"-", "1"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"-", "5"}], ",", "1"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"-", "1"}], ",", "5"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"1", ",", "5"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"1", ",", "1"}], "}"}]}], "}"}], "]"}], ",", 
               RowBox[{"45", "Degree"}]}], "]"}]}], "}"}], ",", 
           RowBox[{"ImageSize", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"20", ",", "20"}], "}"}]}]}], "]"}]}], ",", 
        RowBox[{"2", "\[Rule]", "\"\<\>\""}]}], "}"}], ",", 
      RowBox[{"ImageSize", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"20", ",", "20"}], "}"}]}]}], "]"}], "~", "Tooltip", "~", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Delete All Elements!!!\>\"", ",", "Red", ",", "20"}], 
     "]"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"flattensetter", "[", "n_", "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Toggler", "[", 
     RowBox[{
      RowBox[{"Dynamic", "[", 
       RowBox[{"1", ",", 
        RowBox[{
         RowBox[{"disassemble", "[", "n", "]"}], "&"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"1", "\[Rule]", 
         RowBox[{"Graphics", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Darker", "@", "Blue"}], ",", 
             RowBox[{"Rectangle", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "3"}], ",", "2"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"3", ",", "3.5"}], "}"}]}], "]"}], ",", "Blue", ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"Rectangle", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"x", ",", 
                   RowBox[{"-", "2"}]}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"x", "+", "1.5"}], ",", 
                   RowBox[{"-", ".5"}]}], "}"}]}], "]"}], ",", 
               RowBox[{"{", 
                RowBox[{"x", ",", 
                 RowBox[{"-", "3"}], ",", "3", ",", "2.25"}], "}"}]}], "]"}], 
             ",", 
             RowBox[{"Arrowheads", "@", ".5"}], ",", 
             RowBox[{"Darker", "@", "Red"}], ",", 
             RowBox[{"Arrow", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "1.2"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", 
                  RowBox[{"-", "1"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", 
           RowBox[{"ImageSize", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"20", ",", "20"}], "}"}]}]}], "]"}]}], ",", 
        RowBox[{"2", "\[Rule]", "\"\<\>\""}]}], "}"}], ",", 
      RowBox[{"ImageSize", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"20", ",", "20"}], "}"}]}]}], "]"}], "~", "Tooltip", "~", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Flatten This Level!\>\"", ",", "Red"}], "]"}]}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"updater", "[", "]"}], ":=", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Toggler", "[", 
    RowBox[{
     RowBox[{"Dynamic", "[", 
      RowBox[{"1", ",", 
       RowBox[{
        RowBox[{"updateselection", "[", 
         RowBox[{"5", ",", 
          RowBox[{
           RowBox[{"visible", "@", "#"}], "&"}]}], "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"updateselection", "[", 
          RowBox[{"4", ",", 
           RowBox[{
            RowBox[{"PosNegNul", "@@", 
             RowBox[{"selected", "@", "#"}]}], "&"}]}], "]"}], "&"}]}]}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"1", "\[Rule]", 
        RowBox[{"Graphics", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Opacity", "@", ".5"}], ",", 
            RowBox[{"Lighter", "@", "Blue"}], ",", 
            RowBox[{"Disk", "[", 
             RowBox[{"{", 
              RowBox[{"0", ",", "0"}], "}"}], "]"}], ",", 
            RowBox[{"Opacity", "@", "1"}], ",", "White", ",", 
            RowBox[{"AbsoluteThickness", "@", "2"}], ",", 
            RowBox[{"CapForm", "@", "\"\<Round\>\""}], ",", 
            RowBox[{"Line", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", 
                 RowBox[{"-", ".6"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", ".6"}], "}"}]}], "}"}], "]"}], ",", 
            RowBox[{"Line", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", ".4"}], ",", ".2"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", ".6"}], "}"}]}], "}"}], "]"}], ",", 
            RowBox[{"Line", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{".4", ",", ".2"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", ".6"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", 
          RowBox[{"ImageSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"20", ",", "20"}], "}"}]}]}], "]"}]}], ",", 
       RowBox[{"2", "\[Rule]", 
        RowBox[{"Graphics", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Opacity", "@", ".5"}], ",", 
            RowBox[{"Lighter", "@", "Blue"}], ",", 
            RowBox[{"Disk", "[", 
             RowBox[{"{", 
              RowBox[{"0", ",", "0"}], "}"}], "]"}], ",", 
            RowBox[{"Opacity", "@", "1"}], ",", "White", ",", 
            RowBox[{"AbsoluteThickness", "@", "2"}], ",", 
            RowBox[{"CapForm", "@", "\"\<Round\>\""}], ",", 
            RowBox[{"Line", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", 
                 RowBox[{"-", ".6"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", ".6"}], "}"}]}], "}"}], "]"}], ",", 
            RowBox[{"Line", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", ".4"}], ",", ".2"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", ".6"}], "}"}]}], "}"}], "]"}], ",", 
            RowBox[{"Line", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{".4", ",", ".2"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", ".6"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", 
          RowBox[{"ImageSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"20", ",", "20"}], "}"}]}]}], "]"}]}]}], "}"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"20", ",", "20"}], "}"}]}]}], "]"}], "~", "Tooltip", "~", 
   "\"\<Update Selection Status\>\""}]}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6983980655258684`*^9, 3.6983981922728314`*^9}, {
   3.698398597053629*^9, 3.6983986188195114`*^9}, {3.6983987389201913`*^9, 
   3.698398752675011*^9}, {3.698398824111367*^9, 3.6983988450099335`*^9}, 
   3.6984012327313194`*^9, {3.698449934022095*^9, 3.69844997647167*^9}, 
   3.698450352925575*^9, {3.6984504022579107`*^9, 3.6984504087437525`*^9}, 
   3.698450439722975*^9, {3.698450480205124*^9, 3.698450486198592*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Menu 0", "Subsubsection",
 CellChangeTimes->{{3.6983957370647173`*^9, 3.6983957384455357`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"menu", "[", "0", "]"}], ":=", 
  RowBox[{"Row", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"namesetter", "[", 
      RowBox[{"0", ",", "142"}], "]"}], ",", 
     RowBox[{"Spacer", "@", "3"}], ",", 
     RowBox[{"selectsetter", "[", "0", "]"}], ",", 
     RowBox[{"Spacer", "@", "3"}], ",", 
     RowBox[{"visiblesetter", "[", "0", "]"}], ",", 
     RowBox[{"Spacer", "@", "10"}], ",", 
     RowBox[{"updater", "[", "]"}], ",", 
     RowBox[{"Spacer", "@", "3"}], ",", 
     RowBox[{"deletesetter", "[", "0", "]"}]}], "}"}], "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6984499860299377`*^9, 3.6984499867749853`*^9}, {
  3.6984500171761265`*^9, 3.6984500234303308`*^9}, {3.698450493653823*^9, 
  3.6984504944189167`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Menu", "Subsubsection",
 CellChangeTimes->{{3.698388358034375*^9, 3.6983883704739113`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"menu", "[", "n_", "]"}], ":=", 
  RowBox[{"Row", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"namesetter", "[", "n", "]"}], ",", 
     RowBox[{"Spacer", "@", "3"}], ",", 
     RowBox[{"updownsetter", "[", "n", "]"}], ",", 
     RowBox[{"Spacer", "@", "3"}], ",", 
     RowBox[{"inoutsetter", "[", "n", "]"}], ",", 
     RowBox[{"Spacer", "@", "3"}], ",", 
     RowBox[{"selectsetter", "[", "n", "]"}], ",", 
     RowBox[{"Spacer", "@", "3"}], ",", 
     RowBox[{"visiblesetter", "[", "n", "]"}], ",", 
     RowBox[{"Spacer", "@", "10"}], ",", 
     RowBox[{"flattensetter", "[", "n", "]"}], ",", 
     RowBox[{"Spacer", "@", "3"}], ",", 
     RowBox[{"deletesetter", "[", "n", "]"}]}], "}"}], "]"}]}]], "Input",
 InitializationCell->True]
}, Open  ]],

Cell[CellGroupData[{

Cell["Menu of Contents", "Subsubsection",
 CellChangeTimes->{{3.6983883843547153`*^9, 3.6983883864588647`*^9}, {
  3.6984005045038815`*^9, 3.698400509430954*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"menu", "[", 
   RowBox[{"n_", "?", "Positive"}], "]"}], ":=", 
  RowBox[{"Row", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"namesetter", "[", "n", "]"}], ",", 
     RowBox[{"Spacer", "@", "3"}], ",", 
     RowBox[{"updownsetter", "[", "n", "]"}], ",", 
     RowBox[{"Spacer", "@", "3"}], ",", 
     RowBox[{"inoutsetter", "[", "n", "]"}], ",", 
     RowBox[{"Spacer", "@", "3"}], ",", 
     RowBox[{"selectsetter", "[", "n", "]"}], ",", 
     RowBox[{"Spacer", "@", "3"}], ",", 
     RowBox[{"visiblesetter", "[", "n", "]"}], ",", 
     RowBox[{"Spacer", "@", "33"}], ",", 
     RowBox[{"deletesetter", "[", "n", "]"}]}], "}"}], "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6984024639901743`*^9, 3.698402495739584*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Content Panel", "Subsubsection",
 CellChangeTimes->{{3.6984005199054375`*^9, 3.698400523321842*^9}}],

Cell[CellGroupData[{

Cell["Constructs", "Subsubsubsection",
 CellChangeTimes->{{3.698404936818226*^9, 3.698404938947077*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"contentpanel", "[", "n_", "]"}], ":=", 
   RowBox[{"contentsetter", "[", 
    RowBox[{
     RowBox[{"objects", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"Key", "@", "n"}], ",", "1"}], "]"}], "]"}], ",", "n"}], 
    "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"valuesetter", "[", 
   RowBox[{"pos_", ",", "hint_", ",", "sliderrange_"}], "]"}], ":=", 
  RowBox[{"Grid", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"hint", ",", "18"}], "]"}], ",", "SpanFromLeft"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"InputField", "[", 
          RowBox[{
           RowBox[{"Dynamic", "[", 
            RowBox[{"objects", "[", 
             RowBox[{"[", "##", "]"}], "]"}], "]"}], ",", "Number", ",", 
           RowBox[{"FieldHint", "\[Rule]", "hint"}], ",", 
           RowBox[{"FrameMargins", "\[Rule]", "None"}], ",", 
           RowBox[{"ImageMargins", "\[Rule]", "0"}], ",", 
           RowBox[{"FieldSize", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"Infinity", ",", "1"}], "}"}]}], ",", 
           RowBox[{"ImageSize", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"50", ",", "22"}], "}"}]}]}], "]"}], ",", 
         RowBox[{"Slider", "[", 
          RowBox[{
           RowBox[{"Dynamic", "[", 
            RowBox[{"objects", "[", 
             RowBox[{"[", "##", "]"}], "]"}], "]"}], ",", "sliderrange", ",", 
           RowBox[{"ImageSize", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"200", ",", "22"}], "}"}]}]}], "]"}]}], 
        "\[IndentingNewLine]", "}"}]}], "}"}], "&"}], "@@", "pos"}], 
   "]"}]}]}], "Input",
 InitializationCell->True]
}, Closed]],

Cell[CellGroupData[{

Cell["Detailed Menu for each kind of Hardware", "Subsubsubsection",
 CellChangeTimes->{{3.698404944204543*^9, 3.6984049693295784`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"contentsetter", "[", 
    RowBox[{"lens", ",", "n_"}], "]"}], ":=", 
   RowBox[{"Column", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"valuesetter", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Key", "@", "n"}], ",", "2", ",", "1", ",", "1"}], "}"}], 
         ",", "\"\<Start Point - X\>\"", ",", 
         RowBox[{"plotr", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"valuesetter", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Key", "@", "n"}], ",", "2", ",", "1", ",", "2"}], "}"}], 
         ",", "\"\<Start Point - Y\>\"", ",", 
         RowBox[{"plotr", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"valuesetter", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Key", "@", "n"}], ",", "2", ",", "2", ",", "1"}], "}"}], 
         ",", "\"\<End Point - X\>\"", ",", 
         RowBox[{"plotr", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"valuesetter", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Key", "@", "n"}], ",", "2", ",", "2", ",", "2"}], "}"}], 
         ",", "\"\<End Point - Y\>\"", ",", 
         RowBox[{"plotr", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"valuesetter", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Key", "@", "n"}], ",", "3"}], "}"}], ",", 
         "\"\<Center Point - Ratio\>\"", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"valuesetter", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Key", "@", "n"}], ",", "4", ",", "1"}], "}"}], ",", 
         "\"\<Focal Distance - L\>\"", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"valuesetter", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Key", "@", "n"}], ",", "4", ",", "2"}], "}"}], ",", 
         "\"\<Focal Distance - R\>\"", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], 
      "\[IndentingNewLine]", "}"}], ",", 
     RowBox[{"Spacings", "\[Rule]", "2"}]}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"contentsetter", "[", 
    RowBox[{"mirror", ",", "n_"}], "]"}], ":=", 
   RowBox[{"Column", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"valuesetter", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Key", "@", "n"}], ",", "2", ",", "1", ",", "1"}], "}"}], 
         ",", "\"\<Start Point - X\>\"", ",", 
         RowBox[{"plotr", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"valuesetter", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Key", "@", "n"}], ",", "2", ",", "1", ",", "2"}], "}"}], 
         ",", "\"\<Start Point - Y\>\"", ",", 
         RowBox[{"plotr", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"valuesetter", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Key", "@", "n"}], ",", "2", ",", "2", ",", "1"}], "}"}], 
         ",", "\"\<End Point - X\>\"", ",", 
         RowBox[{"plotr", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"valuesetter", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Key", "@", "n"}], ",", "2", ",", "2", ",", "2"}], "}"}], 
         ",", "\"\<End Point - Y\>\"", ",", 
         RowBox[{"plotr", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"valuesetter", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Key", "@", "n"}], ",", "3"}], "}"}], ",", 
         "\"\<Center Point - Ratio\>\"", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"valuesetter", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Key", "@", "n"}], ",", "4"}], "}"}], ",", 
         "\"\<\[Rho]\>\"", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], 
      "\[IndentingNewLine]", "}"}], ",", 
     RowBox[{"Spacings", "\[Rule]", "2"}]}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"contentsetter", "[", 
    RowBox[{"aperture", ",", "n_"}], "]"}], ":=", 
   RowBox[{"Column", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"valuesetter", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Key", "@", "n"}], ",", "2", ",", "1", ",", "1"}], "}"}], 
         ",", "\"\<Start Point - X\>\"", ",", 
         RowBox[{"plotr", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"valuesetter", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Key", "@", "n"}], ",", "2", ",", "1", ",", "2"}], "}"}], 
         ",", "\"\<Start Point - Y\>\"", ",", 
         RowBox[{"plotr", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"valuesetter", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Key", "@", "n"}], ",", "2", ",", "2", ",", "1"}], "}"}], 
         ",", "\"\<End Point - X\>\"", ",", 
         RowBox[{"plotr", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"valuesetter", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Key", "@", "n"}], ",", "2", ",", "2", ",", "2"}], "}"}], 
         ",", "\"\<End Point - Y\>\"", ",", 
         RowBox[{"plotr", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
      "}"}], ",", 
     RowBox[{"Spacings", "\[Rule]", "2"}]}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"contentsetter", "[", 
    RowBox[{"onlymirror", ",", "n_"}], "]"}], ":=", 
   RowBox[{"Column", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"valuesetter", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Key", "@", "n"}], ",", "2", ",", "1", ",", "1"}], "}"}], 
         ",", "\"\<Start Point - X\>\"", ",", 
         RowBox[{"plotr", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"valuesetter", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Key", "@", "n"}], ",", "2", ",", "1", ",", "2"}], "}"}], 
         ",", "\"\<Start Point - Y\>\"", ",", 
         RowBox[{"plotr", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"valuesetter", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Key", "@", "n"}], ",", "2", ",", "2", ",", "1"}], "}"}], 
         ",", "\"\<End Point - X\>\"", ",", 
         RowBox[{"plotr", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"valuesetter", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Key", "@", "n"}], ",", "2", ",", "2", ",", "2"}], "}"}], 
         ",", "\"\<End Point - Y\>\"", ",", 
         RowBox[{"plotr", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
      "}"}], ",", 
     RowBox[{"Spacings", "\[Rule]", "2"}]}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"contentsetter", "[", 
    RowBox[{"traverse", ",", "n_"}], "]"}], ":=", 
   RowBox[{"Column", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"valuesetter", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Key", "@", "n"}], ",", "2", ",", "1", ",", "1"}], "}"}], 
         ",", "\"\<Start Point - X\>\"", ",", 
         RowBox[{"plotr", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"valuesetter", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Key", "@", "n"}], ",", "2", ",", "1", ",", "2"}], "}"}], 
         ",", "\"\<Start Point - Y\>\"", ",", 
         RowBox[{"plotr", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"valuesetter", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Key", "@", "n"}], ",", "2", ",", "2", ",", "1"}], "}"}], 
         ",", "\"\<End Point - X\>\"", ",", 
         RowBox[{"plotr", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"valuesetter", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Key", "@", "n"}], ",", "2", ",", "2", ",", "2"}], "}"}], 
         ",", "\"\<End Point - Y\>\"", ",", 
         RowBox[{"plotr", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"valuesetter", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Key", "@", "n"}], ",", "3", ",", "1"}], "}"}], ",", 
         "\"\<Traverse Distance - X\>\"", ",", 
         RowBox[{"plotr", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"valuesetter", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Key", "@", "n"}], ",", "3", ",", "2"}], "}"}], ",", 
         "\"\<Traverse Distance - Y\>\"", ",", 
         RowBox[{"plotr", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
      "}"}], ",", 
     RowBox[{"Spacings", "\[Rule]", "2"}]}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"contentsetter", "[", 
   RowBox[{"source", ",", "n_"}], "]"}], ":=", "\[IndentingNewLine]", 
  RowBox[{"Which", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"objects", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"Key", "@", "n"}], ",", 
        RowBox[{"-", "1"}]}], "]"}], "]"}], "===", "\"\<point\>\""}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Column", "[", 
     RowBox[{
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"valuesetter", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Key", "@", "n"}], ",", "2", ",", "1", ",", "1"}], "}"}], 
          ",", "\"\<Source Point - X\>\"", ",", 
          RowBox[{"plotr", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"valuesetter", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Key", "@", "n"}], ",", "2", ",", "1", ",", "2"}], "}"}], 
          ",", "\"\<Source Point - Y\>\"", ",", 
          RowBox[{"plotr", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"valuesetter", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Key", "@", "n"}], ",", "3"}], "}"}], ",", 
          "\"\<Emittion Direction\>\"", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"valuesetter", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Key", "@", "n"}], ",", "4"}], "}"}], ",", 
          "\"\<Half Emittion Angle\>\"", ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "Pi"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
       "}"}], ",", 
      RowBox[{"Spacings", "\[Rule]", "2"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"objects", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"Key", "@", "n"}], ",", 
        RowBox[{"-", "1"}]}], "]"}], "]"}], "===", "\"\<line\>\""}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Column", "[", 
     RowBox[{
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"valuesetter", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Key", "@", "n"}], ",", "2", ",", "1", ",", "1"}], "}"}], 
          ",", "\"\<Start Point - X\>\"", ",", 
          RowBox[{"plotr", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"valuesetter", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Key", "@", "n"}], ",", "2", ",", "1", ",", "2"}], "}"}], 
          ",", "\"\<Start Point - Y\>\"", ",", 
          RowBox[{"plotr", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"valuesetter", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Key", "@", "n"}], ",", "2", ",", "2", ",", "1"}], "}"}], 
          ",", "\"\<Start Point - X\>\"", ",", 
          RowBox[{"plotr", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"valuesetter", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Key", "@", "n"}], ",", "2", ",", "2", ",", "2"}], "}"}], 
          ",", "\"\<Start Point - Y\>\"", ",", 
          RowBox[{"plotr", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"valuesetter", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Key", "@", "n"}], ",", "3"}], "}"}], ",", 
          "\"\<Emittion Direction\>\"", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}]}], "]"}]}], 
       "\[IndentingNewLine]", "}"}], ",", 
      RowBox[{"Spacings", "\[Rule]", "2"}]}], "]"}]}], "\[IndentingNewLine]", 
   "]"}]}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.698400527358446*^9, 3.69840052757755*^9}, {
  3.6984013560000973`*^9, 3.698401369338823*^9}, {3.698401495950425*^9, 
  3.6984015393208027`*^9}, {3.698401573584345*^9, 3.698401600934717*^9}, {
  3.698402277725691*^9, 3.698402288909439*^9}, {3.6984036201572723`*^9, 
  3.6984036224706697`*^9}, {3.6984036836761246`*^9, 3.698403684011043*^9}, {
  3.698403774688403*^9, 3.6984037830128703`*^9}, {3.6984038448094654`*^9, 
  3.698403882020379*^9}, {3.698404153326537*^9, 3.6984041991007643`*^9}, {
  3.6984043210816126`*^9, 3.6984043415895953`*^9}, {3.6984049239548407`*^9, 
  3.698404925156152*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.6982982119701166`*^9, 3.6982982122087746`*^9}}]
}, Closed]]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Altogether Realization", "Section",
 CellChangeTimes->{{3.6980638994342985`*^9, 
  3.6980639052092113`*^9}},ExpressionUUID->"69e030a7-5f15-49fe-a1db-\
debec8551351"],

Cell[CellGroupData[{

Cell["Key Actions", "Subsection",
 CellChangeTimes->{{3.698141860172019*^9, 3.698141862622781*^9}}],

Cell[BoxData[{
 RowBox[{"SetAttributes", "[", 
  RowBox[{"keystrokes", ",", "HoldAll"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"keystrokes", "[", 
    RowBox[{"nb_", ",", "control_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\"\<KeyDown\>\"", ",", "#"}], "}"}], "\[RuleDelayed]", 
       RowBox[{"If", "[", 
        RowBox[{"control", ",", 
         RowBox[{"addtostack", "[", 
          RowBox[{"eventstack", ",", "#"}], "]"}], ",", 
         RowBox[{"NotebookWrite", "[", 
          RowBox[{"nb", ",", "#"}], "]"}]}], "]"}]}], ")"}], "&"}], "/@", 
    RowBox[{"Catenate", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"CharacterRange", "[", 
        RowBox[{"\"\<0\>\"", ",", "\"\<9\>\""}], "]"}], ",", 
       RowBox[{"CharacterRange", "[", 
        RowBox[{"\"\<a\>\"", ",", "\"\<z\>\""}], "]"}], ",", 
       RowBox[{"Characters", "@", "\"\<`-=[]\\;',./\>\""}]}], "}"}], 
     "]"}]}]}], ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.698141900645853*^9, 3.698142071286605*^9}, {
  3.69814219320765*^9, 3.6981422044686203`*^9}, {3.698148106221051*^9, 
  3.6981481428645306`*^9}, {3.698148401319146*^9, 3.698148459679531*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Realization", "Subsection",
 CellChangeTimes->{{3.69814188306098*^9, 3.698141893328726*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ClearAll", "@", "mainpanel"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SetAttributes", "[", 
    RowBox[{"mainpanel", ",", "HoldAll"}], "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mainpanel", "[", 
   RowBox[{
    RowBox[{"extraoptions_:", 
     RowBox[{"{", "}"}]}], ",", 
    RowBox[{"trackedsym_:", 
     RowBox[{"{", "eventstack", "}"}]}]}], "]"}], ":=", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Function", "[", 
    RowBox[{
     RowBox[{"{", "ts", "}"}], ",", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"control", "=", "False"}], ",", "nb$"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"eventstack", "=", 
         RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"nb$", "=", 
         RowBox[{
         "CreateDialog", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Row", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Dynamic", "[", 
               RowBox[{
                RowBox[{"createlefthandmenu", "[", "control", "]"}], ",", 
                RowBox[{"TrackedSymbols", "\[RuleDelayed]", 
                 RowBox[{"{", "control", "}"}]}], ",", 
                RowBox[{"UpdateInterval", "\[Rule]", "Infinity"}]}], "]"}], 
              ",", 
              RowBox[{"Spacer", "@", "3"}], ",", 
              RowBox[{"Column", "[", 
               RowBox[{
                RowBox[{"{", "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{"Grid", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"Column", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"EventHandler", "[", 
                    RowBox[{
                    RowBox[{"Dynamic", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"actions", "[", "eventstack", "]"}], "/.", 
                    RowBox[{
                    RowBox[{"Graphics", "[", 
                    RowBox[{"g_", ",", 
                    RowBox[{"opts", ":", 
                    RowBox[{"OptionsPattern", "[", "Graphics", "]"}]}]}], 
                    "]"}], "\[RuleDelayed]", 
                    RowBox[{"Graphics", "[", 
                    RowBox[{
                    RowBox[{"{", "g", "}"}], ",", 
                    RowBox[{"Sequence", "@@", 
                    RowBox[{"Normal", "@", "extraoptions"}]}], ",", "opts"}], 
                    "]"}]}]}], ",", 
                    RowBox[{"TrackedSymbols", "\[RuleDelayed]", "ts"}]}], 
                    "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"\"\<MouseEntered\>\"", "\[RuleDelayed]", 
                    RowBox[{"(", 
                    RowBox[{"control", "=", "True"}], ")"}]}], ",", 
                    RowBox[{"\"\<MouseExited\>\"", "\[RuleDelayed]", 
                    RowBox[{"(", 
                    RowBox[{"control", "=", "False"}], ")"}]}]}], "}"}]}], 
                    "]"}], ",", 
                    RowBox[{"Spacer", "[", 
                    RowBox[{"{", 
                    RowBox[{"10", ",", "10"}], "}"}], "]"}]}], "}"}], "]"}], 
                    ",", "\[IndentingNewLine]", 
                    RowBox[{"Spacer", "@", "3"}], ",", 
                    RowBox[{"stylingcontrol", "[", "]"}], ",", 
                    RowBox[{"Spacer", "@", "3"}], ",", 
                    RowBox[{"Spacer", "@", "3"}], ",", 
                    RowBox[{"createcreationmenu", "[", "]"}]}], 
                    "\[IndentingNewLine]", "}"}], "}"}], ",", 
                    RowBox[{"Alignment", "\[Rule]", "Top"}], ",", 
                    RowBox[{"Dividers", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"3", "\[Rule]", "True"}], ",", 
                    RowBox[{"5", "\[Rule]", "True"}]}], "}"}], ",", 
                    RowBox[{"{", "}"}]}], "}"}]}]}], "]"}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"Dynamic", "@", 
                   RowBox[{"buttoncontrol", "[", "]"}]}]}], "}"}], ",", 
                "\[IndentingNewLine]", 
                RowBox[{"Dividers", "\[Rule]", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"{", "}"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"2", "\[Rule]", "True"}], "}"}]}], "}"}]}]}], 
               "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
           "\[IndentingNewLine]", 
           RowBox[{"Background", "\[Rule]", "White"}], ",", 
           RowBox[{
           "WindowTitle", "\[Rule]", "\"\<GUI For Optics Software\>\""}], ",", 
           RowBox[{"WindowSize", "\[Rule]", "Full"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"SetOptions", "[", 
         RowBox[{"nb$", ",", 
          RowBox[{"NotebookEventActions", "\[Rule]", 
           RowBox[{"Catenate", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"\"\<EscapeKeyDown\>\"", "\[RuleDelayed]", 
                 RowBox[{"clearstack", "[", "]"}]}], ",", 
                "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"\"\<KeyDown\>\"", ",", "\"\<\.08\>\""}], "}"}], 
                 "\[RuleDelayed]", 
                 RowBox[{"If", "[", 
                  RowBox[{"control", ",", 
                   RowBox[{"delstack", "[", "]"}], ",", 
                   RowBox[{"CompoundExpression", "[", 
                    RowBox[{
                    RowBox[{"SelectionMove", "[", 
                    RowBox[{"nb$", ",", "Previous", ",", "Character"}], "]"}],
                     ",", 
                    RowBox[{"SelectionMove", "[", 
                    RowBox[{"nb$", ",", "All", ",", "Character"}], "]"}], ",", 
                    RowBox[{"NotebookDelete", "[", "nb$", "]"}]}], "]"}]}], 
                  "]"}]}], ",", "\[IndentingNewLine]", 
                RowBox[{"\"\<DownArrowKeyDown\>\"", "\[RuleDelayed]", 
                 RowBox[{"(", 
                  RowBox[{"plotr", "=", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"With", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"m", "=", 
                    RowBox[{"Mean", "@", "#"}]}], ",", 
                    RowBox[{"s", "=", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "-", 
                    RowBox[{"#", "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", "2."}]}]}], 
                    "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"m", "-", 
                    RowBox[{
                    RowBox[{"3", "/", "2"}], "s"}]}], ",", 
                    RowBox[{"m", "+", 
                    RowBox[{
                    RowBox[{"3", "/", "2"}], "s"}]}]}], "}"}]}], "]"}], "&"}],
                     "/@", "plotr"}]}], ")"}]}], ",", "\[IndentingNewLine]", 
                RowBox[{"\"\<UpArrowKeyDown\>\"", "\[RuleDelayed]", 
                 RowBox[{"(", 
                  RowBox[{"plotr", "=", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"With", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"m", "=", 
                    RowBox[{"Mean", "@", "#"}]}], ",", 
                    RowBox[{"s", "=", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "-", 
                    RowBox[{"#", "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", "2."}]}]}], 
                    "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"m", "-", 
                    RowBox[{
                    RowBox[{"2", "/", "3"}], "s"}]}], ",", 
                    RowBox[{"m", "+", 
                    RowBox[{
                    RowBox[{"2", "/", "3"}], "s"}]}]}], "}"}]}], "]"}], "&"}],
                     "/@", "plotr"}]}], ")"}]}]}], "}"}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"keystrokes", "[", 
               RowBox[{"nb$", ",", "control"}], "]"}]}], 
             "\[IndentingNewLine]", "}"}], "]"}]}]}], "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Hold", "@", "nb$"}]}]}], "]"}], ",", "HoldAll"}], "]"}], "@",
    "trackedsym"}]}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6980639161804404`*^9, 3.6980639232880144`*^9}, {
   3.6980640547934837`*^9, 3.6980640868185663`*^9}, {3.6980966615836396`*^9, 
   3.698096671932474*^9}, {3.698096711717151*^9, 3.698096735990316*^9}, {
   3.6980967980566883`*^9, 3.6980968173906937`*^9}, {3.6980969142985*^9, 
   3.6980970827482147`*^9}, {3.698097124523876*^9, 3.698097153628522*^9}, 
   3.6980979350974836`*^9, {3.698098084275213*^9, 3.6980980986605043`*^9}, {
   3.698098264615612*^9, 3.6980982844928603`*^9}, {3.698098321015515*^9, 
   3.698098323124281*^9}, {3.6980984166740046`*^9, 3.6980985283206177`*^9}, {
   3.6980990091802225`*^9, 3.698099056941517*^9}, {3.698099093095112*^9, 
   3.698099094235239*^9}, {3.6980992232558837`*^9, 3.6980992590066433`*^9}, {
   3.6980993501802516`*^9, 3.6980993844297023`*^9}, {3.6980994962348056`*^9, 
   3.698099508533313*^9}, {3.6980995978350153`*^9, 3.698099602167843*^9}, {
   3.698099639701601*^9, 3.6980996417492027`*^9}, {3.698099755240322*^9, 
   3.6980997837030044`*^9}, {3.698099878640323*^9, 3.698099897903075*^9}, {
   3.698099943393434*^9, 3.6980999467275333`*^9}, {3.6981000186738057`*^9, 
   3.69810004743457*^9}, {3.698100341850972*^9, 3.698100342066563*^9}, {
   3.698101964876482*^9, 3.6981019782210326`*^9}, {3.6981020136385374`*^9, 
   3.6981020221057415`*^9}, {3.6981021699263606`*^9, 
   3.6981022147369328`*^9}, {3.698117933706891*^9, 3.698117934846496*^9}, {
   3.6981270298234987`*^9, 3.6981270356214314`*^9}, {3.698127077593153*^9, 
   3.6981270960156507`*^9}, {3.6981300564414253`*^9, 3.698130080457041*^9}, {
   3.69813069682555*^9, 3.6981307256536875`*^9}, {3.698130884427144*^9, 
   3.6981308923910246`*^9}, {3.698130958357326*^9, 3.6981309636919785`*^9}, {
   3.6981310722300243`*^9, 3.698131178432515*^9}, {3.698131297570856*^9, 
   3.698131333226466*^9}, {3.698142061292054*^9, 3.6981420622507005`*^9}, {
   3.6981422598170815`*^9, 3.6981422708193502`*^9}, {3.698147446389008*^9, 
   3.698147463899902*^9}, {3.6981475141240745`*^9, 3.6981475572732964`*^9}, {
   3.6981476806397123`*^9, 3.6981476817336826`*^9}, {3.6981477240116663`*^9, 
   3.6981478139030733`*^9}, {3.698148157249921*^9, 3.6981481593837585`*^9}, {
   3.698148257704889*^9, 3.698148280377952*^9}, {3.698148372032973*^9, 
   3.6981483918301954`*^9}, {3.69814847472923*^9, 3.698148476846026*^9}, {
   3.6981485281624594`*^9, 3.698148530716426*^9}, {3.698148958969373*^9, 
   3.6981489830101676`*^9}, {3.6981490249776945`*^9, 
   3.6981490725138245`*^9}, {3.698149124102315*^9, 3.6981491344035273`*^9}, {
   3.698149222572665*^9, 3.6981492357758226`*^9}, {3.698149488913001*^9, 
   3.698149518651595*^9}, {3.698149653489894*^9, 3.698149657049652*^9}, {
   3.6981499663015676`*^9, 3.698149967128338*^9}, {3.698150135310241*^9, 
   3.698150159726531*^9}, {3.6981508605667715`*^9, 3.698150869050087*^9}, 
   3.698151265354243*^9, {3.698190676079865*^9, 3.698190708232983*^9}, {
   3.698190787572245*^9, 3.698190794231456*^9}, {3.6981908835188265`*^9, 
   3.6981908901098995`*^9}, {3.6981921145292797`*^9, 3.698192123570753*^9}, {
   3.6982073402797017`*^9, 3.698207341971784*^9}, {3.6982087304244566`*^9, 
   3.6982087754963255`*^9}, {3.698208964639989*^9, 3.698208972017314*^9}, {
   3.698209034874902*^9, 3.698209181356194*^9}, {3.698209543619171*^9, 
   3.6982095617382207`*^9}, {3.6982097153134885`*^9, 
   3.6982097218554153`*^9}, {3.6982103635246964`*^9, 3.698210364168109*^9}, {
   3.6982205428295827`*^9, 3.6982205441149626`*^9}, {3.698221002464099*^9, 
   3.6982210083272667`*^9}, {3.6982978748733206`*^9, 
   3.6982978754759727`*^9}, {3.698297978949156*^9, 3.6982979991659355`*^9}, {
   3.6982980529297247`*^9, 3.6982981038500533`*^9}, {3.6984048147178087`*^9, 
   3.6984048317978506`*^9}, 3.6984058154403973`*^9, {3.6984061288478994`*^9, 
   3.6984061612630434`*^9}, {3.6984421209830413`*^9, 
   3.6984421276402345`*^9}, {3.6984422189842706`*^9, 3.698442249720837*^9}, {
   3.698448716399624*^9, 3.698448728297479*^9}, {3.698448761492937*^9, 
   3.69844876433683*^9}}]
}, Closed]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Running!!!!!!", "Chapter",
 CellChangeTimes->{{3.6980607608050823`*^9, 3.6980607616464095`*^9}, {
  3.698453028367875*^9, 
  3.6984530307519445`*^9}},ExpressionUUID->"2e27734a-a09d-4071-9993-\
2a8ac40c525b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"mainpanel", "[", "extraoptions", "]"}]], "Input",
 CellChangeTimes->{{3.698016318038499*^9, 3.6980163257377005`*^9}, {
   3.6980163762582407`*^9, 3.698016383883341*^9}, {3.6980164910604134`*^9, 
   3.6980165114820013`*^9}, {3.6980165541323977`*^9, 3.698016563175644*^9}, {
   3.698016843337324*^9, 3.6980169959671297`*^9}, {3.6980170812190285`*^9, 
   3.6980171680881805`*^9}, {3.69801722152479*^9, 3.6980172377762423`*^9}, {
   3.6980176346006365`*^9, 3.698017653096032*^9}, {3.6980177095783644`*^9, 
   3.698017709809548*^9}, {3.698017752154255*^9, 3.6980177732369423`*^9}, {
   3.698017817046772*^9, 3.698017831499302*^9}, {3.698029260509227*^9, 
   3.698029269290189*^9}, {3.698045369916459*^9, 3.698045372601387*^9}, {
   3.698297303322952*^9, 3.698297305060742*^9}, {3.698297465796629*^9, 
   3.698297472287495*^9}, {3.698298059290202*^9, 3.6982980760913486`*^9}, {
   3.698366234391629*^9, 3.69836626431647*^9}, {3.698380869473923*^9, 
   3.6983808713200474`*^9}, {3.6984047788109903`*^9, 3.698404780951378*^9}, 
   3.698405448865164*^9, 3.698449694113203*^9, {3.698450498452035*^9, 
   3.698450500216891*^9}, 
   3.6984515995956097`*^9},ExpressionUUID->"db016b05-e813-46bf-93ba-\
4e6093afc0a8"],

Cell[BoxData[
 RowBox[{"Hold", "[", "nb$36616", "]"}]], "Output",
 CellChangeTimes->{
  3.698190712319096*^9, 3.6981909181020517`*^9, 3.698191093203281*^9, 
   3.6981920175145445`*^9, 3.6981925597852736`*^9, 3.6982087787092175`*^9, 
   3.6982088949507465`*^9, {3.6982089498562717`*^9, 3.698208974716155*^9}, {
   3.698209040354569*^9, 3.6982090751208754`*^9}, 3.6982091354034357`*^9, {
   3.6982091758475266`*^9, 3.6982091857248044`*^9}, 3.698209295660765*^9, 
   3.698209358066805*^9, 3.6982094245679474`*^9, 3.698209481292775*^9, {
   3.698209546748175*^9, 3.69820956585456*^9}, 3.698209677740116*^9, 
   3.6982097239461575`*^9, {3.6982098290122514`*^9, 3.6982098480800405`*^9}, 
   3.698210050249773*^9, 3.6982100888368163`*^9, 3.698210143694852*^9, 
   3.698210271063862*^9, {3.698210327304296*^9, 3.6982103513800883`*^9}, 
   3.698210397741727*^9, 3.698211209754134*^9, 3.698211319585024*^9, 
   3.698211553731308*^9, 3.6982203094775653`*^9, 3.698221042353989*^9, 
   3.698225772830649*^9, 3.6982258415303974`*^9, 3.698225928340746*^9, 
   3.6982262038677464`*^9, 3.698227525995959*^9, {3.6982305352849984`*^9, 
   3.6982306005851235`*^9}, 3.6982307532477264`*^9, 3.698230814613434*^9, {
   3.698230855047246*^9, 3.6982308833478336`*^9}, {3.6982309254860563`*^9, 
   3.6982309426049027`*^9}, 3.6982311402588787`*^9, 3.698231212220259*^9, 
   3.6982313330747747`*^9, {3.698231651183501*^9, 3.6982316570215034`*^9}, 
   3.6982317405168476`*^9, 3.6982317886863856`*^9, 3.698231843096987*^9, 
   3.698231903947456*^9, {3.6982319511888475`*^9, 3.6982320244651175`*^9}, 
   3.6982327805610647`*^9, 3.698297320461085*^9, 3.6982974389516673`*^9, {
   3.6982975466791058`*^9, 3.698297584755684*^9}, {3.698297628472045*^9, 
   3.6982976583237357`*^9}, 3.6982977597979136`*^9, 3.6982978925769806`*^9, {
   3.6982979303612533`*^9, 3.6982979494246197`*^9}, {3.6982980032070837`*^9, 
   3.698298076641342*^9}, 3.698298107731735*^9, 3.6982982253437433`*^9, 
   3.698299605413557*^9, {3.6983662361604767`*^9, 3.698366265081561*^9}, {
   3.698366362681407*^9, 3.6983663848071074`*^9}, 3.6983795454500055`*^9, 
   3.698381010375414*^9, 3.698381641126992*^9, 3.698396933631138*^9, 
   3.6984049909169846`*^9, 3.6984051864377613`*^9, 3.6984053034756126`*^9, 
   3.69840536043834*^9, {3.6984054500213375`*^9, 3.6984054655922117`*^9}, 
   3.698406165931895*^9, 3.6984414438327208`*^9, 3.698442132168687*^9, 
   3.6984422534872293`*^9, 3.698442304930436*^9, 3.6984424187505045`*^9, 
   3.6984425035792274`*^9, 3.698442589120905*^9, 3.698448770943814*^9, 
   3.698449359625163*^9, 3.6984495933931785`*^9, 3.698449794081481*^9, 
   3.6984498824520473`*^9, 3.698450362030696*^9, 3.6984504487899776`*^9, 
   3.698450501097302*^9, 3.698451453136257*^9, 3.6984515707548094`*^9, {
   3.6984516053223486`*^9, 3.6984516271282573`*^9}, 3.6984517173507843`*^9, 
   3.698451749612051*^9, 3.6984518555067225`*^9, 3.6984529458037434`*^9, 
   3.6984530892078247`*^9, 3.698453180273226*^9, 3.6984573172521353`*^9, 
   3.6984573664790945`*^9, 3.6984817158853135`*^9, 3.6985238860350437`*^9, 
   3.6985239510160246`*^9, 3.6988877568018513`*^9, {3.6988881753959384`*^9, 
   3.6988881897360697`*^9}, 3.6988941084519434`*^9, 3.6988974335884137`*^9, 
   3.698898663481285*^9},ExpressionUUID->"774836bb-33ab-4f03-a439-\
6f1dc84be9b3"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1264, 661},
WindowMargins->{{-8, Automatic}, {Automatic, 0}},
Visible->True,
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (March 6, 2018)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 182, 3, 96, "Title",ExpressionUUID->"bb8ce211-3928-4bd3-aed3-59520c61f6ff"],
Cell[765, 27, 154, 3, 67, "Chapter",ExpressionUUID->"8fd517f5-3ba9-4728-84b3-311c6f5188f5"],
Cell[CellGroupData[{
Cell[944, 34, 154, 3, 56, "Chapter",ExpressionUUID->"042ed532-c0e8-46d1-862e-5eba3c4e3098"],
Cell[CellGroupData[{
Cell[1123, 41, 206, 4, 67, "Section",ExpressionUUID->"1903717d-ff82-4243-9ff8-2812d3ce5520"],
Cell[CellGroupData[{
Cell[1354, 49, 99, 1, 53, "Subsection",ExpressionUUID->"e2ca2a2c-6c2d-4cf0-9e44-08e0592bb6f4"],
Cell[1456, 52, 161, 3, 30, "Input",ExpressionUUID->"fa5e75ce-c0de-4aed-91a2-66e7f2ade4ef"],
Cell[1620, 57, 139, 3, 30, "Input",ExpressionUUID->"459db518-73d9-4f30-a2a7-7ffecdbbd682"]
}, Closed]],
Cell[CellGroupData[{
Cell[1796, 65, 100, 1, 37, "Subsection",ExpressionUUID->"683ec8d2-c402-412e-92a0-a0e5ce41c45d"],
Cell[1899, 68, 456, 12, 85, "Input",ExpressionUUID->"6b50b513-548a-429b-9299-6162d419c162",
 InitializationCell->True]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[2404, 86, 167, 3, 53, "Section",ExpressionUUID->"91dfa81d-689f-4f7e-8572-7fb14b0291c9"],
Cell[CellGroupData[{
Cell[2596, 93, 161, 2, 53, "Subsection",ExpressionUUID->"552e74ab-d3a8-4707-9282-1bbc92b047d3"],
Cell[CellGroupData[{
Cell[2782, 99, 107, 1, 39, "Subsubsection",ExpressionUUID->"e2f74414-f57f-411e-a845-97c6dc2db310"],
Cell[2892, 102, 2413, 60, 85, "Input",ExpressionUUID->"f23a05da-55f2-46e6-a7e2-e1593b013644",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[5342, 167, 107, 1, 39, "Subsubsection",ExpressionUUID->"845d7f7f-f99a-4d3c-aad5-dbdcc7e8bbe3"],
Cell[5452, 170, 938, 25, 66, "Input",ExpressionUUID->"8a4211f7-2283-44de-b37f-e36b6d361a45",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[6427, 200, 105, 1, 39, "Subsubsection",ExpressionUUID->"acc530f5-bce7-403b-b907-96ba8308ee87"],
Cell[6535, 203, 245, 6, 46, "Input",ExpressionUUID->"84272377-b66e-48e9-a470-787b0fa164a0",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[6817, 214, 104, 1, 39, "Subsubsection",ExpressionUUID->"494c35a8-7d3f-4a1d-a8ce-a84e48675cf4"],
Cell[6924, 217, 367, 12, 46, "Input",ExpressionUUID->"6cc2e947-f768-4cc0-a9a4-b1546283f1d9",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[7328, 234, 111, 1, 39, "Subsubsection",ExpressionUUID->"e81e9539-7570-4d48-a653-2233580f2654"],
Cell[7442, 237, 373, 8, 46, "Input",ExpressionUUID->"400de8e9-2005-48b6-8ecd-5bd50220b900",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[7852, 250, 107, 1, 39, "Subsubsection",ExpressionUUID->"8cc64b67-f278-43db-9deb-a47b6843cf25"],
Cell[7962, 253, 612, 21, 46, "Input",ExpressionUUID->"f632e5b9-d0ea-4741-aeb0-78bfdf3a1af7",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[8611, 279, 104, 1, 39, "Subsubsection",ExpressionUUID->"12cbe6ab-331f-49d8-9422-5d9d8e4f3de8"],
Cell[8718, 282, 2009, 56, 104, "Input",ExpressionUUID->"406eaf01-e609-45c6-8e08-b0d42c1c910e",
 InitializationCell->True]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[10788, 345, 218, 4, 53, "Section",ExpressionUUID->"3e8eba4d-8b3e-42a3-b08c-ce6cb71e3299"],
Cell[CellGroupData[{
Cell[11031, 353, 363, 6, 53, "Subsection",ExpressionUUID->"43a53afc-4bd2-4a4c-836f-f36dd7cdc702"],
Cell[CellGroupData[{
Cell[11419, 363, 196, 4, 39, "Subsubsection",ExpressionUUID->"50522f81-5d44-4492-b490-06e6af6b0957"],
Cell[11618, 369, 7575, 171, 294, "Input",ExpressionUUID->"3b753fa2-8383-41ee-9ba4-077a637de66e",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[19230, 545, 115, 1, 39, "Subsubsection",ExpressionUUID->"e590eb27-001b-47e4-a9ac-7bc98cb6d6fd"],
Cell[19348, 548, 2924, 65, 104, "Input",ExpressionUUID->"d4483775-9f6f-4200-93c3-72b78adbba8d",
 InitializationCell->True]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[22321, 619, 166, 3, 37, "Subsection",ExpressionUUID->"5c8e758c-3d59-4171-9a27-b2e8a1f6fbcf"],
Cell[CellGroupData[{
Cell[22512, 626, 102, 1, 44, "Subsubsection",ExpressionUUID->"6d6af6e5-5955-429d-b33d-ccc0be75d69c"],
Cell[22617, 629, 253, 7, 44, "Input",ExpressionUUID->"ee2e0912-b25b-4661-b0c7-30fd563fbfe0",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[22907, 641, 107, 1, 36, "Subsubsection",ExpressionUUID->"df7bc1de-b83c-47c3-9150-df8c1b5815b0"],
Cell[23017, 644, 548, 14, 44, "Input",ExpressionUUID->"553225c4-0ce5-4d59-a0b5-f70851b44107",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[23602, 663, 155, 2, 36, "Subsubsection",ExpressionUUID->"9eb120ef-1cc2-49b9-a06f-be055126b8b1"],
Cell[CellGroupData[{
Cell[23782, 669, 106, 1, 31, "Subsubsubsection",ExpressionUUID->"aacd6232-dd44-4f34-a841-81440464aa25"],
Cell[23891, 672, 1311, 33, 65, "Input",ExpressionUUID->"7ed4522e-b386-4613-a221-0b1a36b86446",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[25239, 710, 171, 2, 31, "Subsubsubsection",ExpressionUUID->"b79567f4-9cc4-49fd-8948-d55bb23b2fc1"],
Cell[25413, 714, 663, 18, 44, "Input",ExpressionUUID->"e04308de-819a-4796-8631-b63576364276",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[26113, 737, 157, 2, 31, "Subsubsubsection",ExpressionUUID->"380960cf-f3f8-4a1d-bb3f-b03becbc4e8a"],
Cell[26273, 741, 710, 21, 65, "Input",ExpressionUUID->"33c3b148-9efd-4239-ae94-5298a05405aa",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[27020, 767, 152, 2, 31, "Subsubsubsection",ExpressionUUID->"51fcbaf8-9e65-4673-a4a3-c07d14cd5b93"],
Cell[27175, 771, 1901, 49, 64, "Input",ExpressionUUID->"bf8fc666-d667-4acf-8280-605f391024ae",
 InitializationCell->True],
Cell[29079, 822, 798, 24, 65, "Input",ExpressionUUID->"23619ddd-ca18-4388-a094-2093862fcf80",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[29914, 851, 216, 3, 31, "Subsubsubsection",ExpressionUUID->"a7d980ed-dfae-47a0-8d13-b4a9aefe6900"],
Cell[30133, 856, 6170, 176, 242, "Input",ExpressionUUID->"e9299c98-3c8d-4653-8395-551483db764e",
 InitializationCell->True],
Cell[36306, 1034, 1266, 34, 66, "Input",ExpressionUUID->"f200930b-a121-4b5d-9ff0-7ad80e72608b",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[37609, 1073, 214, 3, 31, "Subsubsubsection",ExpressionUUID->"b5cad738-58ee-4150-ae16-7becbe368c0a"],
Cell[37826, 1078, 1192, 35, 102, "Input",ExpressionUUID->"9a2dbd37-643a-4f72-af91-0d46de9f7b36",
 InitializationCell->True]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[39067, 1119, 115, 1, 44, "Subsubsection",ExpressionUUID->"fc3cae9a-57fe-40c3-a8c1-45ffeeebc21d"],
Cell[CellGroupData[{
Cell[39207, 1124, 277, 3, 31, "Subsubsubsection",ExpressionUUID->"2e860e0d-87f3-4654-8e7e-561a7bf5b114"],
Cell[39487, 1129, 723, 20, 64, "Input",ExpressionUUID->"01bf4681-42e9-45f3-ae89-1162ca4626dd",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[40247, 1154, 262, 3, 31, "Subsubsubsection",ExpressionUUID->"9db6d3fc-1743-465c-ae77-69f40e7ce3ec"],
Cell[40512, 1159, 1633, 47, 64, "Input",ExpressionUUID->"94969e98-cbdc-4b24-a4ca-06044ec89509",
 InitializationCell->True]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[42206, 1213, 179, 3, 37, "Subsection",ExpressionUUID->"748cfeb4-c510-408c-8fcd-43a9299c74aa"],
Cell[CellGroupData[{
Cell[42410, 1220, 273, 3, 44, "Subsubsection",ExpressionUUID->"ab4b0952-1715-4959-9d6d-767f23dae61e"],
Cell[CellGroupData[{
Cell[42708, 1227, 150, 2, 28, "Subsubsubsection",ExpressionUUID->"f0a5d945-0622-46aa-a234-ae0c983828f7"],
Cell[42861, 1231, 1691, 49, 66, "Input",ExpressionUUID->"e787b036-c565-476b-8023-0dce6608cc06",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[44589, 1285, 109, 1, 28, "Subsubsubsection",ExpressionUUID->"da3210d3-be41-4bc3-a747-d5e353551937"],
Cell[44701, 1288, 4110, 90, 218, "Input",ExpressionUUID->"351b4f9e-cdee-42fe-b6e8-a65d73ff5940",
 InitializationCell->True]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[48860, 1384, 191, 2, 36, "Subsubsection",ExpressionUUID->"bafb7219-e1e5-4c28-a2d6-cd95cffa3caa"],
Cell[CellGroupData[{
Cell[49076, 1390, 175, 2, 28, "Subsubsubsection",ExpressionUUID->"9f19bc0b-c4d9-444e-8ec4-01bc0d546a77"],
Cell[49254, 1394, 1369, 38, 66, "Input",ExpressionUUID->"9280da59-0372-4107-976b-ec37e7658232",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[50660, 1437, 214, 3, 28, "Subsubsubsection",ExpressionUUID->"39821614-33e9-419a-b74b-233db07e410d"],
Cell[50877, 1442, 4122, 95, 199, "Input",ExpressionUUID->"9d131cea-6c19-4310-a859-7bc0e772f5b4",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[55036, 1542, 215, 3, 28, "Subsubsubsection",ExpressionUUID->"110fd331-8114-4774-bc95-05cb23555de8"],
Cell[55254, 1547, 298, 8, 46, "Input",ExpressionUUID->"7d31a4f7-86ec-4775-a496-cdd1adff8823",
 InitializationCell->True],
Cell[55555, 1557, 820, 24, 66, "Input",ExpressionUUID->"5664fc8a-1d97-4fe3-b408-f1dfdf31a45c",
 InitializationCell->True],
Cell[56378, 1583, 1324, 33, 46, "Input",ExpressionUUID->"9d54ce06-2527-442d-a360-30a9e9a62e40",
 InitializationCell->True],
Cell[57705, 1618, 1012, 25, 66, "Input",ExpressionUUID->"427b0361-38af-471d-9a7b-a2f99161cd8f",
 InitializationCell->True]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[58766, 1649, 248, 3, 36, "Subsubsection",ExpressionUUID->"565ab51e-ff30-4425-adb1-531721bcc174"],
Cell[CellGroupData[{
Cell[59039, 1656, 226, 3, 28, "Subsubsubsection",ExpressionUUID->"e947aecd-4f4b-4144-b48e-4c5f3273f32c"],
Cell[59268, 1661, 3201, 84, 123, "Input",ExpressionUUID->"98c8935c-3cf9-4dd2-8ddb-90d4696a036c",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[62506, 1750, 264, 3, 28, "Subsubsubsection",ExpressionUUID->"c391f0fc-132a-4db1-8167-f83b37ca3297"],
Cell[62773, 1755, 6993, 161, 294, "Input",ExpressionUUID->"dac9c759-d076-4485-b415-da9c0938b929",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[69803, 1921, 215, 3, 28, "Subsubsubsection",ExpressionUUID->"6784cb4b-1854-4bab-b54d-91aa6a024ac1"],
Cell[70021, 1926, 299, 8, 46, "Input",ExpressionUUID->"e9473d31-7498-4688-b0c9-dcae41f10e83",
 InitializationCell->True],
Cell[70323, 1936, 557, 15, 46, "Input",ExpressionUUID->"6f78f31d-90c6-425c-b069-94cb8cc59011",
 InitializationCell->True]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[70929, 1957, 301, 4, 36, "Subsubsection",ExpressionUUID->"db431e2d-0ae9-435d-a695-07c5f81dff17"],
Cell[CellGroupData[{
Cell[71255, 1965, 271, 3, 28, "Subsubsubsection",ExpressionUUID->"4255e04b-95a4-4004-8280-4a29deb0b88e"],
Cell[71529, 1970, 2052, 57, 104, "Input",ExpressionUUID->"55be7f91-1dfc-4ed5-9223-8241b51a08a7",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[73618, 2032, 312, 4, 28, "Subsubsubsection",ExpressionUUID->"7de0dee7-2efd-42e3-9841-b8f9153c95c0"],
Cell[73933, 2038, 5620, 126, 256, "Input",ExpressionUUID->"02793991-17bf-4183-aab3-1f952ffc8ddc",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[79590, 2169, 215, 3, 28, "Subsubsubsection",ExpressionUUID->"22bf504e-28a2-4343-876a-5ac30ca84e85"],
Cell[79808, 2174, 875, 23, 46, "Input",ExpressionUUID->"725e69f2-1020-41eb-9f39-8b6c0bb3318e",
 InitializationCell->True],
Cell[80686, 2199, 1428, 42, 66, "Input",ExpressionUUID->"c16bcdb0-a5da-4163-a095-fa40607ddf64",
 InitializationCell->True],
Cell[82117, 2243, 1499, 43, 85, "Input",ExpressionUUID->"754651b0-18d2-4b16-b366-f9f06649d29e",
 InitializationCell->True],
Cell[83619, 2288, 1410, 36, 66, "Input",ExpressionUUID->"55c04284-facf-45d4-a0a0-d8af5640150e",
 InitializationCell->True]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[85078, 2330, 124, 1, 36, "Subsubsection",ExpressionUUID->"5e4d7ea6-6da0-4737-8788-0b67ba15b1a1"],
Cell[CellGroupData[{
Cell[85227, 2335, 175, 2, 28, "Subsubsubsection",ExpressionUUID->"042ff87b-365e-4685-be8e-94f07705fa5a"],
Cell[85405, 2339, 1325, 31, 46, "Input",ExpressionUUID->"56e6fc05-728c-44c8-9064-87f7dd955fa1",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[86767, 2375, 214, 3, 28, "Subsubsubsection",ExpressionUUID->"e0df8d8c-dd54-4d7b-b650-035eeeffd598"],
Cell[86984, 2380, 4751, 106, 199, "Input",ExpressionUUID->"7dcca157-286a-4438-bda3-3c5c91cb57a5",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[91772, 2491, 215, 3, 28, "Subsubsubsection",ExpressionUUID->"f0a9154f-c180-46b7-a291-6ccccc092e9f"],
Cell[91990, 2496, 373, 9, 46, "Input",ExpressionUUID->"29c4b5c5-b421-4a68-8f28-3c26012e6073",
 InitializationCell->True],
Cell[92366, 2507, 887, 25, 66, "Input",ExpressionUUID->"d9a23994-c946-43ab-b88a-36db94197744",
 InitializationCell->True],
Cell[93256, 2534, 1356, 34, 46, "Input",ExpressionUUID->"aa54fac0-c89a-47ee-951c-d38d025f8042",
 InitializationCell->True],
Cell[94615, 2570, 1078, 26, 66, "Input",ExpressionUUID->"b1aab473-d1e8-4e77-8308-d777667cb5dd",
 InitializationCell->True]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[95742, 2602, 182, 2, 36, "Subsubsection",ExpressionUUID->"c4d7571d-b9f2-4660-ae70-fa15a3da17c7"],
Cell[CellGroupData[{
Cell[95949, 2608, 229, 3, 31, "Subsubsubsection",ExpressionUUID->"ee1509ab-f76f-4802-862f-8ac01290d45e"],
Cell[96181, 2613, 2175, 54, 292, "Input",ExpressionUUID->"e234ace6-9ad9-495f-85e0-0153f3c04d0d",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[98393, 2672, 160, 2, 31, "Subsubsubsection",ExpressionUUID->"b2a2256d-cb6d-4163-ac1f-ea929365e55e"],
Cell[98556, 2676, 2504, 64, 140, "Input",ExpressionUUID->"ac7251e8-6e99-40aa-8c46-b6ce2119ddf1",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[101097, 2745, 213, 3, 31, "Subsubsubsection",ExpressionUUID->"7b815084-f834-438f-a87d-a197ea7a6f7c"],
Cell[101313, 2750, 2758, 80, 159, "Input",ExpressionUUID->"ea426df5-26fb-436b-80f4-9f793ad94f14",
 InitializationCell->True]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[104132, 2837, 184, 3, 37, "Subsection",ExpressionUUID->"7399b671-edbf-43a2-be8a-9fc37e4bf91f"],
Cell[CellGroupData[{
Cell[104341, 2844, 112, 1, 44, "Subsubsection",ExpressionUUID->"48f76030-16f7-476a-a584-e746e8a75053"],
Cell[104456, 2847, 40940, 918, 1187, "Input",ExpressionUUID->"ac5b0d2e-a936-4a38-bb05-314e190d29ae",
 InitializationCell->True]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[145445, 3771, 227, 4, 37, "Subsection",ExpressionUUID->"dce09de1-a635-4a48-85c3-2b32f15f31d3"],
Cell[CellGroupData[{
Cell[145697, 3779, 171, 2, 44, "Subsubsection",ExpressionUUID->"2a454900-eedb-422e-8523-0de2976b005b"],
Cell[145871, 3783, 45792, 1029, 1928, "Input",ExpressionUUID->"47d687f8-c759-4bd3-af49-ef81ac2472b0",
 InitializationCell->True]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[191712, 4818, 228, 4, 37, "Subsection",ExpressionUUID->"afb25772-1423-4cb6-8129-95368c9c27a6"],
Cell[191943, 4824, 25484, 610, 672, "Input",ExpressionUUID->"26ed0e62-3170-49a5-9218-9eadda6b4e57",
 InitializationCell->True]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[217476, 5440, 159, 3, 67, "Section",ExpressionUUID->"f5772e39-d67e-4133-8fd3-aaad642c0ee0"],
Cell[CellGroupData[{
Cell[217660, 5447, 110, 1, 49, "Subsection",ExpressionUUID->"0ae2e5f4-a92b-48cb-920f-33efa3befc59"],
Cell[217773, 5450, 5717, 146, 256, "Input",ExpressionUUID->"9107b657-9345-40b7-bcdc-50cc54aa3ada",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[223515, 5600, 112, 1, 39, "Subsubsection",ExpressionUUID->"36e654c1-3eca-411c-94f4-a87043fe1ebe"],
Cell[CellGroupData[{
Cell[223652, 5605, 168, 2, 28, "Subsubsubsection",ExpressionUUID->"de6f540a-f5e6-4fa1-9d0d-f7b24c04969b"],
Cell[223823, 5609, 796, 24, 46, "Input",ExpressionUUID->"90b89929-afb7-4af6-8dba-06bf505caf1b",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[224656, 5638, 163, 2, 28, "Subsubsubsection",ExpressionUUID->"b75490e0-eb97-4e15-bb49-533cd1f69d5f"],
Cell[224822, 5642, 4821, 121, 218, "Input",ExpressionUUID->"7a731607-acc4-4d3b-ac3c-d807eb462d3b",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[229680, 5768, 109, 1, 28, "Subsubsubsection",ExpressionUUID->"2109f972-ffc9-456c-8bd3-6079d9a6aa6e"],
Cell[229792, 5771, 5767, 138, 294, "Input",ExpressionUUID->"75639d0e-a3a4-45d2-88b6-7568d0bc7047",
 InitializationCell->True]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[235608, 5915, 112, 1, 33, "Subsubsection",ExpressionUUID->"566e059b-0c9d-4983-8d69-e7271547b0f4"],
Cell[235723, 5918, 3720, 86, 199, "Input",ExpressionUUID->"bceb4a88-1c60-41bf-ad73-4d58c3d83863",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[239480, 6009, 111, 1, 33, "Subsubsection",ExpressionUUID->"efb8fc1f-c561-446e-a0fe-0332428762d6"],
Cell[239594, 6012, 2445, 68, 218, "Input",ExpressionUUID->"b2b4c22f-d0fb-4cbd-936a-e3517ce0c15e",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[242076, 6085, 114, 1, 33, "Subsubsection",ExpressionUUID->"69f874f9-76bd-407c-9a5c-db8b1ca0147f"],
Cell[242193, 6088, 1674, 44, 104, "Input",ExpressionUUID->"6de4c8bb-1a2e-40e2-9b91-50fad91a436b",
 InitializationCell->True]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[243916, 6138, 148, 2, 41, "Subsection",ExpressionUUID->"f9b3e2ff-5d25-48f0-9b8a-c2ad6315a63d"],
Cell[CellGroupData[{
Cell[244089, 6144, 105, 1, 39, "Subsubsection",ExpressionUUID->"43e0facf-30fa-4196-a05a-8b3b03a80d49"],
Cell[244197, 6147, 23806, 613, 1016, "Input",ExpressionUUID->"e82290fc-495f-4aea-bcf7-970e131515ab",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[268040, 6765, 101, 1, 33, "Subsubsection",ExpressionUUID->"b18380ab-359a-4d6f-a54d-69f74447b42e"],
Cell[268144, 6768, 784, 19, 46, "Input",ExpressionUUID->"af60a5ab-292d-4d01-868c-49a09f48133c",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[268965, 6792, 97, 1, 39, "Subsubsection",ExpressionUUID->"9af72e84-6ef2-452a-b507-0093190bb3dd"],
Cell[269065, 6795, 778, 19, 66, "Input",ExpressionUUID->"c5a8d1ee-e249-4874-9e1b-9e3430bf6cca",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[269880, 6819, 162, 2, 39, "Subsubsection",ExpressionUUID->"94ffc699-4998-435f-b57c-900197c0ce44"],
Cell[270045, 6823, 783, 19, 66, "Input",ExpressionUUID->"dbe009eb-1abb-497a-a992-cacc6cef9988",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[270865, 6847, 106, 1, 39, "Subsubsection",ExpressionUUID->"7088b424-a030-4f3b-864a-88ff3d406811"],
Cell[CellGroupData[{
Cell[270996, 6852, 104, 1, 28, "Subsubsubsection",ExpressionUUID->"16fcacf4-26bb-4924-ac6f-cc2445c8d5d9"],
Cell[271103, 6855, 1831, 50, 161, "Input",ExpressionUUID->"38071d93-9121-4221-ac1c-83f6152e9052",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[272971, 6910, 135, 1, 22, "Subsubsubsection",ExpressionUUID->"f9f46060-093c-49e0-bbc8-f61da2f39d96"],
Cell[273109, 6913, 15318, 399, 1149, "Input",ExpressionUUID->"92ea4274-572f-4d5e-83b9-139e7e62989c",
 InitializationCell->True],
Cell[288430, 7314, 96, 1, 30, "Input",ExpressionUUID->"0a8d083d-cbe1-4e0a-8690-4b2d25583156"]
}, Closed]]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[288599, 7323, 171, 3, 53, "Section",ExpressionUUID->"69e030a7-5f15-49fe-a1db-debec8551351"],
Cell[CellGroupData[{
Cell[288795, 7330, 99, 1, 49, "Subsection",ExpressionUUID->"cdfa8657-0403-4a79-88be-6913edc2b3ff"],
Cell[288897, 7333, 1255, 31, 85, "Input",ExpressionUUID->"826d08ea-a892-4068-bf3f-9fa591ea0717",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[290189, 7369, 98, 1, 41, "Subsection",ExpressionUUID->"7de9b4ec-ab90-4152-935e-8020ace42550"],
Cell[290290, 7372, 13183, 267, 543, "Input",ExpressionUUID->"414e38c1-c97c-4324-b15c-5234e6d90317",
 InitializationCell->True]
}, Closed]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[303534, 7646, 213, 4, 67, "Chapter",ExpressionUUID->"2e27734a-a09d-4071-9993-2a8ac40c525b"],
Cell[CellGroupData[{
Cell[303772, 7654, 1226, 18, 28, "Input",ExpressionUUID->"db016b05-e813-46bf-93ba-4e6093afc0a8"],
Cell[305001, 7674, 3293, 46, 32, "Output",ExpressionUUID->"774836bb-33ab-4f03-a439-6f1dc84be9b3"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)