(* Content-type: application/vnd.wolfram.cdf.text *) (*** Wolfram CDF File ***) (* http://www.wolfram.com/cdf *) (* CreatedBy='Mathematica 12.1' *) (*************************************************************************) (* *) (* *) (* This file was created under the Wolfram Enterprise licensing terms. *) (* *) (* For additional information concerning CDF licensing see: *) (* *) (* www.wolfram.com/cdf/adopting-cdf/licensing-options.html *) (* *) (* *) (* *) (*************************************************************************) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 1064, 20] NotebookDataLength[ 97308, 1999] NotebookOptionsPosition[ 96665, 1975] NotebookOutlinePosition[ 97097, 1993] CellTagsIndexPosition[ 97054, 1990] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellChangeTimes->{{3.790680802057149*^9, 3.790680804127274*^9}}], Cell["Retrieve the default content:", "Text", CellChangeTimes->{{3.696186645510051*^9, 3.6961866545240507`*^9}, { 3.696187841532233*^9, 3.696187852829363*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceData", "[", "\"\\"", "]"}]], "Input", CellContext->Notebook, CellFrameLabels->None, CellChangeTimes->{{3.696186325360051*^9, 3.696186327021051*^9}, { 3.696186470495051*^9, 3.6961864722920513`*^9}, {3.696187844212501*^9, 3.6961878557606554`*^9}, 3.790680797020093*^9}], Cell[BoxData[ TemplateBox[{ TagBox[ DynamicModuleBox[{ TypeSystem`NestedGrid`PackagePrivate`$state$$ = Data`UnorderedAssociation[ "DisplayedRowCount" -> 20, "RowCount" -> 20, "Length" -> 128, "InitialType" -> TypeSystem`Assoc[ TypeSystem`Atom[String], TypeSystem`Vector[ TypeSystem`Atom[String], 4], 128], "DisplayedColumnCount" -> 20, "DataRowCount" -> 0, "Shape" -> TypeSystem`PackageScope`Limited[ TypeSystem`PackageScope`ColumnShape[ TypeSystem`PackageScope`KeyValueShape[ TypeSystem`PackageScope`AtomShape[57.60000000000001], TypeSystem`PackageScope`UnknownShape]], 20, {}], "DataColumnCount" -> 0, "InitialData" -> TypeSystem`PackageScope`CacheHandle[48589647], "Type" -> TypeSystem`Assoc[ TypeSystem`Atom[String], TypeSystem`Vector[ TypeSystem`Atom[String], 4], 128], "HandleQ" -> True, "Meta" -> {}, "RowTarget" -> 20, "Data" -> TypeSystem`PackageScope`CacheHandle[48589647]], TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, TypeSystem`NestedGrid`PackagePrivate`$pos$$ = 1, TypeSystem`NestedGrid`PackagePrivate`$grid$$ = DynamicModule[{ TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[ Style[ Grid[{{ Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["A\[Flat]", Style[ "A\[Flat]", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["A\[Flat]"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1101463907][ GeneralUtilities`Slice[ Key["A\[Flat]"]]], "Mouse"], ImageSize -> {{57.60000000000001, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{"A\[Flat]2", "A\[Flat]3", "C4", "D\[Sharp]4"}, ShowStringCharacters -> False], Style[ Style[{"A\[Flat]2", "A\[Flat]3", "C4", "D\[Sharp]4"}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["A\[Flat]"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1101463907][ GeneralUtilities`Slice[ Key["A\[Flat]"]]], "Mouse"]]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["A\[Flat]6", Style[ "A\[Flat]6", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["A\[Flat]6"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1101463907][ GeneralUtilities`Slice[ Key["A\[Flat]6"]]], "Mouse"], ImageSize -> {{57.60000000000001, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{"A\[Flat]2", "A\[Flat]3", "C4", "F4"}, ShowStringCharacters -> False], Style[ Style[{"A\[Flat]2", "A\[Flat]3", "C4", "F4"}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["A\[Flat]6"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1101463907][ GeneralUtilities`Slice[ Key["A\[Flat]6"]]], "Mouse"]]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["A\[Flat]7", Style[ "A\[Flat]7", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["A\[Flat]7"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1101463907][ GeneralUtilities`Slice[ Key["A\[Flat]7"]]], "Mouse"], ImageSize -> {{57.60000000000001, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{"D\[Sharp]3", "A\[Flat]3", "C4", "F\[Sharp]4"}, ShowStringCharacters -> False], Style[ Style[{"D\[Sharp]3", "A\[Flat]3", "C4", "F\[Sharp]4"}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["A\[Flat]7"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1101463907][ GeneralUtilities`Slice[ Key["A\[Flat]7"]]], "Mouse"]]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["A\[Flat]9", Style[ "A\[Flat]9", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["A\[Flat]9"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1101463907][ GeneralUtilities`Slice[ Key["A\[Flat]9"]]], "Mouse"], ImageSize -> {{57.60000000000001, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{"D\[Sharp]3", "B\[Flat]3", "C4", "F\[Sharp]4"}, ShowStringCharacters -> False], Style[ Style[{"D\[Sharp]3", "B\[Flat]3", "C4", "F\[Sharp]4"}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["A\[Flat]9"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1101463907][ GeneralUtilities`Slice[ Key["A\[Flat]9"]]], "Mouse"]]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["A\[Flat]maj7", Style[ "A\[Flat]maj7", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["A\[Flat]maj7"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1101463907][ GeneralUtilities`Slice[ Key["A\[Flat]maj7"]]], "Mouse"], ImageSize -> {{57.60000000000001, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{"D\[Sharp]3", "A\[Flat]3", "C4", "G4"}, ShowStringCharacters -> False], Style[ Style[{"D\[Sharp]3", "A\[Flat]3", "C4", "G4"}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["A\[Flat]maj7"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1101463907][ GeneralUtilities`Slice[ Key["A\[Flat]maj7"]]], "Mouse"]]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["A\[Flat]+", Style[ "A\[Flat]+", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["A\[Flat]+"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1101463907][ GeneralUtilities`Slice[ Key["A\[Flat]+"]]], "Mouse"], ImageSize -> {{57.60000000000001, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{"E3", "A\[Flat]3", "C4", "E4"}, ShowStringCharacters -> False], Style[ Style[{"E3", "A\[Flat]3", "C4", "E4"}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["A\[Flat]+"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1101463907][ GeneralUtilities`Slice[ Key["A\[Flat]+"]]], "Mouse"]]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["A\[Flat]sus", Style[ "A\[Flat]sus", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["A\[Flat]sus"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1101463907][ GeneralUtilities`Slice[ Key["A\[Flat]sus"]]], "Mouse"], ImageSize -> {{57.60000000000001, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{"D\[Sharp]3", "A\[Flat]3", "C\[Sharp]4", "A\[Flat]4"}, ShowStringCharacters -> False], Style[ Style[{"D\[Sharp]3", "A\[Flat]3", "C\[Sharp]4", "A\[Flat]4"}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["A\[Flat]sus"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1101463907][ GeneralUtilities`Slice[ Key["A\[Flat]sus"]]], "Mouse"]]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["A", Style[ "A", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["A"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1101463907][ GeneralUtilities`Slice[ Key["A"]]], "Mouse"], ImageSize -> {{57.60000000000001, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{"A2", "A3", "C\[Sharp]4", "E4"}, ShowStringCharacters -> False], Style[ Style[{"A2", "A3", "C\[Sharp]4", "E4"}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["A"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1101463907][ GeneralUtilities`Slice[ Key["A"]]], "Mouse"]]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["Am", Style[ "Am", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["Am"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1101463907][ GeneralUtilities`Slice[ Key["Am"]]], "Mouse"], ImageSize -> {{57.60000000000001, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{"A2", "A3", "C4", "E4"}, ShowStringCharacters -> False], Style[ Style[{"A2", "A3", "C4", "E4"}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["Am"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1101463907][ GeneralUtilities`Slice[ Key["Am"]]], "Mouse"]]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["A6", Style[ "A6", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["A6"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1101463907][ GeneralUtilities`Slice[ Key["A6"]]], "Mouse"], ImageSize -> {{57.60000000000001, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{"A2", "A3", "C\[Sharp]4", "F\[Sharp]4"}, ShowStringCharacters -> False], Style[ Style[{"A2", "A3", "C\[Sharp]4", "F\[Sharp]4"}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["A6"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1101463907][ GeneralUtilities`Slice[ Key["A6"]]], "Mouse"]]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["A7", Style[ "A7", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["A7"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1101463907][ GeneralUtilities`Slice[ Key["A7"]]], "Mouse"], ImageSize -> {{57.60000000000001, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{"A2", "A3", "C\[Sharp]4", "G4"}, ShowStringCharacters -> False], Style[ Style[{"A2", "A3", "C\[Sharp]4", "G4"}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["A7"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1101463907][ GeneralUtilities`Slice[ Key["A7"]]], "Mouse"]]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["A9", Style[ "A9", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["A9"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1101463907][ GeneralUtilities`Slice[ Key["A9"]]], "Mouse"], ImageSize -> {{57.60000000000001, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{"A2", "B3", "C\[Sharp]4", "G4"}, ShowStringCharacters -> False], Style[ Style[{"A2", "B3", "C\[Sharp]4", "G4"}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["A9"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1101463907][ GeneralUtilities`Slice[ Key["A9"]]], "Mouse"]]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["Am6", Style[ "Am6", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["Am6"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1101463907][ GeneralUtilities`Slice[ Key["Am6"]]], "Mouse"], ImageSize -> {{57.60000000000001, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{"A2", "A3", "C4", "F\[Sharp]4"}, ShowStringCharacters -> False], Style[ Style[{"A2", "A3", "C4", "F\[Sharp]4"}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["Am6"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1101463907][ GeneralUtilities`Slice[ Key["Am6"]]], "Mouse"]]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["Am7", Style[ "Am7", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["Am7"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1101463907][ GeneralUtilities`Slice[ Key["Am7"]]], "Mouse"], ImageSize -> {{57.60000000000001, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{"A2", "A3", "C4", "G4"}, ShowStringCharacters -> False], Style[ Style[{"A2", "A3", "C4", "G4"}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["Am7"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1101463907][ GeneralUtilities`Slice[ Key["Am7"]]], "Mouse"]]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["Amaj7", Style[ "Amaj7", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["Amaj7"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1101463907][ GeneralUtilities`Slice[ Key["Amaj7"]]], "Mouse"], ImageSize -> {{57.60000000000001, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{"A2", "A\[Flat]3", "C\[Sharp]4", "E4"}, ShowStringCharacters -> False], Style[ Style[{"A2", "A\[Flat]3", "C\[Sharp]4", "E4"}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["Amaj7"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1101463907][ GeneralUtilities`Slice[ Key["Amaj7"]]], "Mouse"]]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["Adim", Style[ "Adim", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["Adim"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1101463907][ GeneralUtilities`Slice[ Key["Adim"]]], "Mouse"], ImageSize -> {{57.60000000000001, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{"D\[Sharp]3", "A3", "C4", "F\[Sharp]4"}, ShowStringCharacters -> False], Style[ Style[{"D\[Sharp]3", "A3", "C4", "F\[Sharp]4"}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["Adim"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1101463907][ GeneralUtilities`Slice[ Key["Adim"]]], "Mouse"]]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["A+", Style[ "A+", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["A+"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1101463907][ GeneralUtilities`Slice[ Key["A+"]]], "Mouse"], ImageSize -> {{57.60000000000001, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{"A2", "A3", "C\[Sharp]4", "F4"}, ShowStringCharacters -> False], Style[ Style[{"A2", "A3", "C\[Sharp]4", "F4"}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["A+"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1101463907][ GeneralUtilities`Slice[ Key["A+"]]], "Mouse"]]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["Asus", Style[ "Asus", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["Asus"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1101463907][ GeneralUtilities`Slice[ Key["Asus"]]], "Mouse"], ImageSize -> {{57.60000000000001, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{"A2", "A3", "D4", "E4"}, ShowStringCharacters -> False], Style[ Style[{"A2", "A3", "D4", "E4"}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["Asus"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1101463907][ GeneralUtilities`Slice[ Key["Asus"]]], "Mouse"]]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["B\[Flat]", Style[ "B\[Flat]", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["B\[Flat]"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1101463907][ GeneralUtilities`Slice[ Key["B\[Flat]"]]], "Mouse"], ImageSize -> {{57.60000000000001, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{"B\[Flat]2", "B\[Flat]3", "D4", "F4"}, ShowStringCharacters -> False], Style[ Style[{"B\[Flat]2", "B\[Flat]3", "D4", "F4"}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["B\[Flat]"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1101463907][ GeneralUtilities`Slice[ Key["B\[Flat]"]]], "Mouse"]]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["B\[Flat]m", Style[ "B\[Flat]m", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["B\[Flat]m"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1101463907][ GeneralUtilities`Slice[ Key["B\[Flat]m"]]], "Mouse"], ImageSize -> {{57.60000000000001, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{"B\[Flat]2", "B\[Flat]3", "C\[Sharp]4", "F4"}, ShowStringCharacters -> False], Style[ Style[{"B\[Flat]2", "B\[Flat]3", "C\[Sharp]4", "F4"}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][{ Key["B\[Flat]m"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1101463907][ GeneralUtilities`Slice[ Key["B\[Flat]m"]]], "Mouse"]]}, { Item[ Deploy[ Mouseover[ Row[{ EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.5]]], GrayLevel[0.5], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.56, 1.031}, {6.429, 1.031}, {6.429, 60.967}, {0.56, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{6.192899999999999, 30.980699999999995`}, {42.4399, 0.7526999999999973}, { 42.4399, 8.209699999999994}, {16.432899999999997`, 30.982699999999994`}, {42.4119, 53.6547}, {42.4399, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.56, 1.031}, {6.429, 1.031}, {6.429, 60.967}, {0.56, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{6.192899999999999, 30.980699999999995`}, {42.4399, 0.7526999999999973}, { 42.4399, 8.209699999999994}, {16.432899999999997`, 30.982699999999994`}, {42.4119, 53.6547}, {42.4399, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ + 128 (-20), {1, 128 - -20 + 1}])}], EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.3]]], GrayLevel[0.3], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5499, 30.980699999999995`}, { 36.7969, 0.7526999999999973}, {36.7969, 8.209699999999994}, {10.7899, 30.982699999999994`}, { 36.7689, 53.6547}, {36.7969, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5499, 30.980699999999995`}, { 36.7969, 0.7526999999999973}, {36.7969, 8.209699999999994}, {10.7899, 30.982699999999994`}, { 36.7689, 53.6547}, {36.7969, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ - 20, { 1, 128 - -20 + 1}])}], Pane[ Row[{"showing ", 1, "\[Dash]", 20, " of ", Style[ 128, FontColor -> GrayLevel[0], FontWeight -> "Medium"]}, BaseStyle -> { FontSize -> 8., FontColor -> RGBColor[ 0.5098039215686274, 0.5098039215686274, 0.5098039215686274]}], 150, ContentPadding -> False, Alignment -> {Center, Center}], EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.3]]], GrayLevel[0.3], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5778000000000001, 53.654399999999995`}, {26.5568, 30.982399999999995`}, { 0.5498000000000001, 8.209399999999995}, { 0.5498000000000001, 0.7523999999999944}, { 36.796800000000005`, 30.980399999999992`}, { 0.5498000000000001, 61.2454}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5778000000000001, 53.654399999999995`}, {26.5568, 30.982399999999995`}, { 0.5498000000000001, 8.209399999999995}, { 0.5498000000000001, 0.7523999999999944}, { 36.796800000000005`, 30.980399999999992`}, { 0.5498000000000001, 61.2454}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ + 20, { 1, 128 - 20 + 1}])}], EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.5]]], GrayLevel[0.5], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 36.571, 1.031}, {42.440999999999995`, 1.031}, { 42.440999999999995`, 60.967}, {36.571, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5598000000000001, 53.788500000000006`}, {26.5668, 31.015500000000007`}, { 0.5878000000000001, 8.343500000000006}, { 0.5598000000000001, 0.7525000000000048}, {36.8068, 31.017500000000005`}, {0.5598000000000001, 61.24450000000001}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 36.571, 1.031}, {42.440999999999995`, 1.031}, { 42.440999999999995`, 60.967}, {36.571, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5598000000000001, 53.788500000000006`}, {26.5668, 31.015500000000007`}, { 0.5878000000000001, 8.343500000000006}, { 0.5598000000000001, 0.7525000000000048}, {36.8068, 31.017500000000005`}, {0.5598000000000001, 61.24450000000001}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ + 128 20, {1, 128 - 20 + 1}])}]}, " "], Row[{ EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.5]]], GrayLevel[0.5], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.56, 1.031}, {6.429, 1.031}, {6.429, 60.967}, {0.56, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{6.192899999999999, 30.980699999999995`}, {42.4399, 0.7526999999999973}, { 42.4399, 8.209699999999994}, {16.432899999999997`, 30.982699999999994`}, {42.4119, 53.6547}, {42.4399, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.56, 1.031}, {6.429, 1.031}, {6.429, 60.967}, {0.56, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{6.192899999999999, 30.980699999999995`}, {42.4399, 0.7526999999999973}, { 42.4399, 8.209699999999994}, {16.432899999999997`, 30.982699999999994`}, {42.4119, 53.6547}, {42.4399, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ + 128 (-20), {1, 128 - -20 + 1}])}], EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.3]]], GrayLevel[0.3], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5499, 30.980699999999995`}, { 36.7969, 0.7526999999999973}, {36.7969, 8.209699999999994}, {10.7899, 30.982699999999994`}, { 36.7689, 53.6547}, {36.7969, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5499, 30.980699999999995`}, { 36.7969, 0.7526999999999973}, {36.7969, 8.209699999999994}, {10.7899, 30.982699999999994`}, { 36.7689, 53.6547}, {36.7969, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ - 20, { 1, 128 - -20 + 1}])}], Pane[ Row[{"showing ", 1, "\[Dash]", 20, " of ", Style[ 128, FontColor -> GrayLevel[0], FontWeight -> "Medium"]}, BaseStyle -> { FontSize -> 8., FontColor -> RGBColor[ 0.5098039215686274, 0.5098039215686274, 0.5098039215686274]}], 150, ContentPadding -> False, Alignment -> {Center, Center}], EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.3]]], GrayLevel[0.3], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5778000000000001, 53.654399999999995`}, {26.5568, 30.982399999999995`}, { 0.5498000000000001, 8.209399999999995}, { 0.5498000000000001, 0.7523999999999944}, { 36.796800000000005`, 30.980399999999992`}, { 0.5498000000000001, 61.2454}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5778000000000001, 53.654399999999995`}, {26.5568, 30.982399999999995`}, { 0.5498000000000001, 8.209399999999995}, { 0.5498000000000001, 0.7523999999999944}, { 36.796800000000005`, 30.980399999999992`}, { 0.5498000000000001, 61.2454}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ + 20, { 1, 128 - 20 + 1}])}], EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.5]]], GrayLevel[0.5], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 36.571, 1.031}, {42.440999999999995`, 1.031}, { 42.440999999999995`, 60.967}, {36.571, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5598000000000001, 53.788500000000006`}, {26.5668, 31.015500000000007`}, { 0.5878000000000001, 8.343500000000006}, { 0.5598000000000001, 0.7525000000000048}, {36.8068, 31.017500000000005`}, {0.5598000000000001, 61.24450000000001}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 36.571, 1.031}, {42.440999999999995`, 1.031}, { 42.440999999999995`, 60.967}, {36.571, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5598000000000001, 53.788500000000006`}, {26.5668, 31.015500000000007`}, { 0.5878000000000001, 8.343500000000006}, { 0.5598000000000001, 0.7525000000000048}, {36.8068, 31.017500000000005`}, {0.5598000000000001, 61.24450000000001}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ + 128 20, {1, 128 - 20 + 1}])}]}, " "]]], Background -> GrayLevel[0.98], Alignment -> {Left, Top}, BaseStyle -> {ContextMenu -> { MenuItem["Hide", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907}, 1, {}]], MenuEvaluator -> Automatic], MenuItem["Show up to 10 rows", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907}, 10, {}]], MenuEvaluator -> Automatic], MenuItem["Show up to 30 rows", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907}, 30, {}]], MenuEvaluator -> Automatic], MenuItem["Show up to 100 rows", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907}, 100, {}]], MenuEvaluator -> Automatic], MenuItem["Show all", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907}, 100000000, {}]], MenuEvaluator -> Automatic]}}], SpanFromLeft}}, BaseStyle -> {ContextMenu -> { MenuItem["Copy position to clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], MenuItem["Copy data to clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Paste position in new cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic], MenuItem["Paste data in new cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic]}, FontFamily -> "Verdana", FontSize -> 12}, Alignment -> Left, RowMinHeight -> 1.5, Dividers -> All, FrameStyle -> GrayLevel[0.85], BaseStyle -> {FontFamily -> "Verdana", FontSize -> 12}], LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> False, ShowAutoStyles -> False]], TypeSystem`NestedGrid`PackagePrivate`initialQ = True, TypeSystem`NestedGrid`PackagePrivate`self = $Failed}, Dynamic[ TypeSystem`NestedGrid`PackagePrivate`setupViewPath[ TypeSystem`NestedGrid`PackagePrivate`$path$$, If[ Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], Module[{TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, TypeSystem`NestedGrid`PackagePrivate`tmpData$ = TypeSystem`NestedGrid`PackagePrivate`LookupCacheValue[ TypeSystem`NestedGrid`PackagePrivate`$state$$["Data"]]}, TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = If[TypeSystem`NestedGrid`PackagePrivate`tmpData$ === TypeSystem`NestedGrid`PackagePrivate`$NotCached, TypeSystem`NestedGrid`PackagePrivate`renderedGrid, TypeSystem`NestedGrid`PackagePrivate`renderGrid[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907][ TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[ Not[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], TypeSystem`NestedGrid`PackagePrivate`renderedGrid = TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; TypeSystem`NestedGrid`PackagePrivate`initialQ = False; TypeSystem`NestedGrid`PackagePrivate`$pos$$; If[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], TypeSystem`SparseGrid[ TypeSystem`H["(data no longer present)"]], If[GeneralUtilities`$DebugMode, Row[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid, " ", TypeSystem`NestedGrid`PackagePrivate`formatState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$]}], TypeSystem`NestedGrid`PackagePrivate`renderedGrid]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$pos$$}], DynamicModuleValues :> {}], TypeSystem`NestedGrid`PackagePrivate`$posCell$$, TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[ TypeSystem`PackageScope`Pathbar[ TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1101463907]]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Framed[ Dynamic[ Replace[ MouseAnnotation[Null], { TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1101463907][Null] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1101463907][ Pattern[TypeSystem`NestedGrid`PackagePrivate`path, Blank[]]] :> ( TypeSystem`NestedGrid`PackagePrivate`$lastPath = TypeSystem`NestedGrid`PackagePrivate`path; TypeSystem`NestedGrid`PackagePrivate`makePathTrail[ TypeSystem`NestedGrid`PackagePrivate`path, TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> Spacer[10], Blank[] :> Spacer[10]}], TrackedSymbols :> {}], FrameStyle -> None, ImageMargins -> 0, FrameMargins -> 0, Alignment -> Top, ImageSize -> {Automatic, 14}]}, DynamicBox[ ToBoxes[ Column[ If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, { TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[ TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$], TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}, { TypeSystem`NestedGrid`PackagePrivate`$topBar$$, TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[ TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$], TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}], Spacings -> If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, 0, {{}, {0, 0.05, 0}}]], StandardForm], ImageSizeCache -> {219., {267.634033203125, 273.365966796875}}, TrackedSymbols :> { TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$}], BaseStyle -> {LineBreakWithin -> False}, Deinitialization :> TypeSystem`NestedGrid`PackagePrivate`deleteState[ TypeSystem`NestedGrid`PackagePrivate`$state$$], DynamicModuleValues :> {}, Initialization :> Block[{$ContextPath = $ContextPath}, Needs["TypeSystem`"]]], Deploy, DefaultBaseStyle -> "Deploy"]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->("Dataset[<>]"& )]], "Output", CellContext->"Notebook$$93$311119`", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.725734220390737*^9, 3.726311157418623*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Basic Usage", "Subsection"], Cell["Play a chord:", "Text", CellGroupingRules->"NormalGrouping", CellChangeTimes->{{3.696186645510051*^9, 3.6961866545240507`*^9}, 3.696187841532233*^9, {3.7245063952421427`*^9, 3.7245064040174522`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"pattern", "=", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"pick", "[", "ch_String", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"SoundNote", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ "ResourceData", "[", "\"\\"", "]"}], "[", "ch", "]"}], "[", RowBox[{"[", "#", "]"}], "]"}], ",", ".24", ",", "\"\\""}], "]"}], "&"}], "/@", "pattern"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Sound", "[", RowBox[{"pick", "[", "\"\\"", "]"}], "]"}]}], "Input", CellChangeTimes->{3.79068081816991*^9}], Cell[BoxData[ InterpretationBox[ GraphicsBox[{ {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], RectangleBox[{0, 0}, {360, -164}]}, {InsetBox[ GraphicsBox[ {Hue[0.4073186577785305, 0.9, 0.7], StyleBox[{ RectangleBox[{0., 0.19389172793274845}, \ {0.22799999999999998, 0.2057964898375102}], RectangleBox[{0.24, 0.37246315650417705}, \ {0.46799999999999997, 0.3843679184089389}], RectangleBox[{0.48, 0.4200822041232246}, \ {0.708, 0.43198696602798653}], RectangleBox[{0.72, 0.4796060136470343}, \ {0.948, 0.49151077555179606}]}, Antialiasing->True]}, AspectRatio->NCache[6/35, 0.17142857142857143`], Background->GrayLevel[1], Frame->True, FrameStyle->GrayLevel[0.75], FrameTicks->False, ImagePadding->None, PlotRange->{All, All}, PlotRangePadding->{Automatic, 0.05}], {180, -35}, ImageScaled[{0.5, 0.5}], {350, 60}, Background->RGBColor[ 0.9568627450980393, 0.9568627450980393, 0.9568627450980393]], InsetBox[ GraphicsBox[ {GrayLevel[0.6], RectangleBox[{0, 0}]}, AspectRatio->NCache[6/35, 0.17142857142857143`], Background->GrayLevel[1], Frame->True, FrameStyle->GrayLevel[0.75], FrameTicks->False, ImagePadding->None], {180, -100}, ImageScaled[{0.5, 0.5}], {350, 60}, Background->RGBColor[ 0.9568627450980393, 0.9568627450980393, 0.9568627450980393]]}, InsetBox[ StyleBox[ TemplateBox[{ StyleBox[ "\" | \"", FontSize -> 14, FontColor -> RGBColor[0.5098039215686274, 0.5098039215686274, 0.5098039215686274], StripOnInput -> False], StyleBox[ TemplateBox[{"\"0.96\"", "\" s\""}, "RowDefault"], FontColor -> RGBColor[0.5098039215686274, 0.5098039215686274, 0.5098039215686274], StripOnInput -> False]}, "RowWithSeparator"], "DialogStyle", StripOnInput->False], {355, -159}, Scaled[{1, 0}]], TagBox[{ {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], RectangleBox[{5, -158}, {29, -135}]}, {RGBColor[0.27450980392156865`, 0.5411764705882353, 0.796078431372549], PolygonBox[ NCache[{{11, -157}, {11, -136}, {20., (-293)/2}, {11, -157}}, {{ 11, -157}, {11, -136}, {20., -146.5}, {11, -157}}]], StyleBox[{}, Antialiasing->False]}}, EventHandlerTag[{"MouseClicked" :> If[True, Sound`EmitMIDI[ Sound`MIDISequence[{ Sound`MIDITrack[{ Sound`MIDIEvent[0, "SetTempo", "Tempo" -> 1000000], Sound`MIDIEvent[ 0, "ProgramCommand", "Channel" -> 0, "Value" -> 24], Sound`MIDIEvent[ 0, "NoteOn", "Note" -> 40, "Channel" -> 0, "Velocity" -> 127], Sound`MIDIEvent[ 288, "NoteOff", "Note" -> 40, "Channel" -> 0, "Velocity" -> 0], Sound`MIDIEvent[ 288, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 127], Sound`MIDIEvent[ 576, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], Sound`MIDIEvent[ 576, "NoteOn", "Note" -> 59, "Channel" -> 0, "Velocity" -> 127], Sound`MIDIEvent[ 864, "NoteOff", "Note" -> 59, "Channel" -> 0, "Velocity" -> 0], Sound`MIDIEvent[ 864, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 127], Sound`MIDIEvent[ 1152, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0]}]}, "DivisionType" -> "PPQ", "Resolution" -> 1200]]; Sound`EmitSampledSound[None, "Preemptive"], FEPrivate`EmitSound[None, "Preemptive"]], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], TagBox[{ {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], RectangleBox[{29, -158}, {53, -135}]}, {RGBColor[0.27450980392156865`, 0.5411764705882353, 0.796078431372549], RectangleBox[{35, -152}, {47, -141}], StyleBox[{}, Antialiasing->False]}}, EventHandlerTag[{"MouseClicked" :> If[True, Sound`EmitSampledSound[ SampledSoundList[{{0.}}, 8000], "Preemptive"]; Sound`StopMIDI[], FEPrivate`EmitSound[ SampledSoundList[{{0.}}, 8000], "Preemptive"]], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], {GrayLevel[0.75], StyleBox[LineBox[{{0, 0}, {360, 0}, {360, -164}, {0, -164}, {0, 0}}], Antialiasing->False]}}, ContentSelectable->False, ImageSize->250, PlotRange->{{0, 360}, {-164, 0}}, PlotRangePadding->1], Sound[{ SoundNote["E2", 0.24, "Guitar"], SoundNote["G3", 0.24, "Guitar"], SoundNote["B3", 0.24, "Guitar"], SoundNote["E4", 0.24, "Guitar"]}]]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.7263131455413313`*^9}] }, Open ]], Cell["Simulate playing music:", "Text", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.72631113180816*^9, 3.726311135847542*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"pattern", "=", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "3", ",", "2"}], "}"}]}], ";", RowBox[{ RowBox[{"pick", "[", "ch_String", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"SoundNote", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ "ResourceData", "[", "\"\\"", "]"}], "[", "ch", "]"}], "[", RowBox[{"[", "#", "]"}], "]"}], ",", ".24", ",", "\"\\""}], "]"}], "&"}], "/@", "pattern"}]}], ";", RowBox[{"Sound", "[", RowBox[{"pick", "[", "\"\\"", "]"}], "]"}]}]], "Input", CellChangeTimes->{3.790680820150692*^9}], Cell[BoxData[ InterpretationBox[ GraphicsBox[{ {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], RectangleBox[{0, 0}, {360, -164}]}, {InsetBox[ GraphicsBox[ {Hue[0.4073186577785305, 0.9, 0.7], StyleBox[{ RectangleBox[{0., 0.2653202993613199}, \ {0.22799999999999998, 0.27722506126608165}], RectangleBox[{0.24, 0.40817744221846264}, \ {0.46799999999999997, 0.4200822041232246}], RectangleBox[{1.2, 0.40817744221846264}, \ {1.428, 0.4200822041232246}], RectangleBox[{0.48, 0.45579648983751037}, \ {0.708, 0.4677012517422721}], RectangleBox[{0.96, 0.45579648983751037}, \ {1.188, 0.4677012517422721}], RectangleBox[{0.72, 0.49151077555179606}, \ {0.948, 0.5034155374565581}]}, Antialiasing->True]}, AspectRatio->NCache[6/35, 0.17142857142857143`], Background->GrayLevel[1], Frame->True, FrameStyle->GrayLevel[0.75], FrameTicks->False, ImagePadding->None, PlotRange->{All, All}, PlotRangePadding->{Automatic, 0.05}], {180, -35}, ImageScaled[{0.5, 0.5}], {350, 60}, Background->RGBColor[ 0.9568627450980393, 0.9568627450980393, 0.9568627450980393]], InsetBox[ GraphicsBox[ {GrayLevel[0.6], RectangleBox[{0, 0}]}, AspectRatio->NCache[6/35, 0.17142857142857143`], Background->GrayLevel[1], Frame->True, FrameStyle->GrayLevel[0.75], FrameTicks->False, ImagePadding->None], {180, -100}, ImageScaled[{0.5, 0.5}], {350, 60}, Background->RGBColor[ 0.9568627450980393, 0.9568627450980393, 0.9568627450980393]]}, InsetBox[ StyleBox[ TemplateBox[{ StyleBox[ "\" | \"", FontSize -> 14, FontColor -> RGBColor[0.5098039215686274, 0.5098039215686274, 0.5098039215686274], StripOnInput -> False], StyleBox[ TemplateBox[{"\"1.44\"", "\" s\""}, "RowDefault"], FontColor -> RGBColor[0.5098039215686274, 0.5098039215686274, 0.5098039215686274], StripOnInput -> False]}, "RowWithSeparator"], "DialogStyle", StripOnInput->False], {355, -159}, Scaled[{1, 0}]], TagBox[{ {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], RectangleBox[{5, -158}, {29, -135}]}, {RGBColor[0.27450980392156865`, 0.5411764705882353, 0.796078431372549], PolygonBox[ NCache[{{11, -157}, {11, -136}, {20., (-293)/2}, {11, -157}}, {{ 11, -157}, {11, -136}, {20., -146.5}, {11, -157}}]], StyleBox[{}, Antialiasing->False]}}, EventHandlerTag[{"MouseClicked" :> If[True, Sound`EmitMIDI[ Sound`MIDISequence[{ Sound`MIDITrack[{ Sound`MIDIEvent[0, "SetTempo", "Tempo" -> 1000000], Sound`MIDIEvent[ 0, "ProgramCommand", "Channel" -> 0, "Value" -> 24], Sound`MIDIEvent[ 0, "NoteOn", "Note" -> 46, "Channel" -> 0, "Velocity" -> 127], Sound`MIDIEvent[ 288, "NoteOff", "Note" -> 46, "Channel" -> 0, "Velocity" -> 0], Sound`MIDIEvent[ 288, "NoteOn", "Note" -> 58, "Channel" -> 0, "Velocity" -> 127], Sound`MIDIEvent[ 576, "NoteOff", "Note" -> 58, "Channel" -> 0, "Velocity" -> 0], Sound`MIDIEvent[ 576, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 127], Sound`MIDIEvent[ 864, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], Sound`MIDIEvent[ 864, "NoteOn", "Note" -> 65, "Channel" -> 0, "Velocity" -> 127], Sound`MIDIEvent[ 1152, "NoteOff", "Note" -> 65, "Channel" -> 0, "Velocity" -> 0], Sound`MIDIEvent[ 1152, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 127], Sound`MIDIEvent[ 1440, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], Sound`MIDIEvent[ 1440, "NoteOn", "Note" -> 58, "Channel" -> 0, "Velocity" -> 127], Sound`MIDIEvent[ 1728, "NoteOff", "Note" -> 58, "Channel" -> 0, "Velocity" -> 0]}]}, "DivisionType" -> "PPQ", "Resolution" -> 1200]]; Sound`EmitSampledSound[None, "Preemptive"], FEPrivate`EmitSound[None, "Preemptive"]], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], TagBox[{ {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], RectangleBox[{29, -158}, {53, -135}]}, {RGBColor[0.27450980392156865`, 0.5411764705882353, 0.796078431372549], RectangleBox[{35, -152}, {47, -141}], StyleBox[{}, Antialiasing->False]}}, EventHandlerTag[{"MouseClicked" :> If[True, Sound`EmitSampledSound[ SampledSoundList[{{0.}}, 8000], "Preemptive"]; Sound`StopMIDI[], FEPrivate`EmitSound[ SampledSoundList[{{0.}}, 8000], "Preemptive"]], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], {GrayLevel[0.75], StyleBox[LineBox[{{0, 0}, {360, 0}, {360, -164}, {0, -164}, {0, 0}}], Antialiasing->False]}}, ContentSelectable->False, ImageSize->250, PlotRange->{{0, 360}, {-164, 0}}, PlotRangePadding->1], Sound[{ SoundNote["B\[Flat]2", 0.24, "Guitar"], SoundNote["B\[Flat]3", 0.24, "Guitar"], SoundNote["D4", 0.24, "Guitar"], SoundNote["F4", 0.24, "Guitar"], SoundNote["D4", 0.24, "Guitar"], SoundNote["B\[Flat]3", 0.24, "Guitar"]}]]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.7263111585089808`*^9}] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, Visible->True, DockedCells->{}, FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) (February 3, 2020)", StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "DataResourceDefinitionStyles.nb", CharacterEncoding -> "UTF-8"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1486, 35, 102, 1, 70, "Subsection",ExpressionUUID->"47a7a11c-aa53-4d50-836c-842caf766335"], Cell[1591, 38, 162, 2, 70, "Text",ExpressionUUID->"0e451a25-c1c4-4d40-8a11-db7c1a6f02fa"], Cell[CellGroupData[{ Cell[1778, 44, 340, 7, 70, "Input",ExpressionUUID->"ba6541bc-b981-4cf7-b503-575b5fe63284"], Cell[2121, 53, 80899, 1592, 70, "Output",ExpressionUUID->"5a54fbf4-a6bb-4eb1-b54d-cfd65dc84cf1"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[83069, 1651, 33, 0, 70, "Subsection",ExpressionUUID->"ad16f34a-fb2e-4cdc-9daf-6926efede203"], Cell[83105, 1653, 211, 3, 70, "Text",ExpressionUUID->"05954e6a-d430-4735-8291-e1a8adc66c5d", CellGroupingRules->"NormalGrouping"], Cell[CellGroupData[{ Cell[83341, 1660, 740, 22, 70, "Input",ExpressionUUID->"cc5c5793-9a1a-4c64-9bca-9acd04ca9771"], Cell[84084, 1684, 5331, 117, 70, "Output",ExpressionUUID->"258fa267-2bfd-42da-bfbb-455f79080f04"] }, Open ]], Cell[89430, 1804, 351, 5, 70, "Text",ExpressionUUID->"a9eac833-0b14-4572-9529-e89ba24d64a6"], Cell[CellGroupData[{ Cell[89806, 1813, 709, 21, 70, "Input",ExpressionUUID->"c8feed49-0c63-4910-a5bf-34ede2199295"], Cell[90518, 1836, 6119, 135, 70, "Output",ExpressionUUID->"dff0242e-e5b1-48ed-b581-970b407f6f71"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)