(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 116702, 2402] NotebookOptionsPosition[ 114382, 2349] NotebookOutlinePosition[ 115041, 2373] CellTagsIndexPosition[ 114953, 2368] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["", "DataResourceWhiteSection", CellFrameMargins->0, CellTags->"DataResourceExampleArea"], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellFrame->False, ShowCellBracket->True, CellMargins->0, CellFrameMargins->{{66, 8}, {8, 8}}, CellFrameColor->GrayLevel[1], CellFrameLabelMargins->6, CellSize->{Automatic, Automatic}], Cell["Retrieve the resource:", "Text", CellGroupingRules->"NormalGrouping", CellChangeTimes->{{3.696186645510051*^9, 3.6961866545240507`*^9}, 3.696187841532233*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceObject", "[", "\"\<4e0ccb37-4db0-49d3-bce1-1e9dae616ea3\>\"", "]"}]], "Input", CellContext->Notebook, CellFrameLabels->None, CellChangeTimes->{{3.696186325360051*^9, 3.696186327021051*^9}, { 3.696186470495051*^9, 3.6961864722920513`*^9}, {3.696187844212501*^9, 3.6961878453076105`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["ResourceObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ Thickness[0.011111111111111112`], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{3.789, 7.266}, {86.20700000000001, 7.266}, {86.20700000000001, 3.266}, {3.789, 3.266}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{14.129, 54.07}, {19.878999999999998`, 54.07}, {19.878999999999998`, 15.57}, {14.129, 15.57}}}]}, FaceForm[ RGBColor[0.648987, 0.648987, 0.648987, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{24.129, 41.82}, {29.879, 41.82}, {29.879, 15.57}, {24.129, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 33.160000000000004`, 54.07}, {38.910000000000004`, 54.07}, { 38.910000000000004`, 15.57}, {33.160000000000004`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{42.191, 31.781}, {47.941, 31.781}, {47.941, 15.569999999999997`}, { 42.191, 15.569999999999997`}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 51.223000000000006`, 46.875}, {56.973000000000006`, 46.875}, {56.973000000000006`, 15.57}, {51.223000000000006`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{60.254, 37.707}, {66.00399999999999, 37.707}, {66.00399999999999, 15.569999999999997`}, {60.254, 15.569999999999997`}}}]}, FaceForm[ RGBColor[0.274612, 0.618881, 0.810913, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 70.12899999999999, 54.07}, {75.87899999999999, 54.07}, { 75.87899999999999, 15.57}, {70.12899999999999, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 9.879000000000001, 60.547}, {24.129, 60.547}, {24.129, 56.547}, {9.879000000000001, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{9.871, 13.097999999999999`}, {80.121, 13.097999999999999`}, {80.121, 9.097999999999999}, {9.871, 9.097999999999999}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 65.87899999999999, 60.547}, {80.12899999999999, 60.547}, { 80.12899999999999, 56.547}, {65.87899999999999, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{11.469000000000001`, 66.54700000000001}, {45., 82.418}, {78.398, 66.54700000000001}}, {{45., 86.73400000000001}, { 2.2230000000000003`, 66.54700000000001}, { 2.2230000000000003`, 62.547}, {87.777, 62.547}, {87.777, 66.54700000000001}}}]}, FaceForm[ RGBColor[0.648987, 0.648987, 0.648987, 1.]], StripOnInput -> False]}, AspectRatio -> 1, Axes -> False, Background -> None, Frame -> None, FrameTicks -> None, ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification]), ImageSizeCache -> {45., {0., 9.}}]}], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{"\"Guitar Chords for Picking\"", "\" \"", TemplateBox[{ "\"\[RightGuillemet]\"", "https://resources.wolframcloud.com/DataRepository/\ resources/MarkGreenberg%3AGuitar-Chords-for-Picking"}, "HyperlinkURL"]}, "RowDefault"], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"DataResource\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Description: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"Complete set of 4-note guitar chords for picking\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ Thickness[0.011111111111111112`], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{3.789, 7.266}, {86.20700000000001, 7.266}, {86.20700000000001, 3.266}, {3.789, 3.266}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{14.129, 54.07}, {19.878999999999998`, 54.07}, {19.878999999999998`, 15.57}, {14.129, 15.57}}}]}, FaceForm[ RGBColor[0.648987, 0.648987, 0.648987, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{24.129, 41.82}, {29.879, 41.82}, {29.879, 15.57}, {24.129, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 33.160000000000004`, 54.07}, {38.910000000000004`, 54.07}, { 38.910000000000004`, 15.57}, {33.160000000000004`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{42.191, 31.781}, {47.941, 31.781}, {47.941, 15.569999999999997`}, { 42.191, 15.569999999999997`}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 51.223000000000006`, 46.875}, {56.973000000000006`, 46.875}, {56.973000000000006`, 15.57}, {51.223000000000006`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{60.254, 37.707}, {66.00399999999999, 37.707}, {66.00399999999999, 15.569999999999997`}, {60.254, 15.569999999999997`}}}]}, FaceForm[ RGBColor[0.274612, 0.618881, 0.810913, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 70.12899999999999, 54.07}, {75.87899999999999, 54.07}, { 75.87899999999999, 15.57}, {70.12899999999999, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 9.879000000000001, 60.547}, {24.129, 60.547}, {24.129, 56.547}, {9.879000000000001, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{9.871, 13.097999999999999`}, {80.121, 13.097999999999999`}, {80.121, 9.097999999999999}, {9.871, 9.097999999999999}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 65.87899999999999, 60.547}, {80.12899999999999, 60.547}, { 80.12899999999999, 56.547}, {65.87899999999999, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{11.469000000000001`, 66.54700000000001}, {45., 82.418}, {78.398, 66.54700000000001}}, {{45., 86.73400000000001}, { 2.2230000000000003`, 66.54700000000001}, { 2.2230000000000003`, 62.547}, {87.777, 62.547}, {87.777, 66.54700000000001}}}]}, FaceForm[ RGBColor[0.648987, 0.648987, 0.648987, 1.]], StripOnInput -> False]}, AspectRatio -> 1, Axes -> False, Background -> None, Frame -> None, FrameTicks -> None, ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification]), ImageSizeCache -> {45., {0., 9.}}]}], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{"\"Guitar Chords for Picking\"", "\" \"", TemplateBox[{ "\"\[RightGuillemet]\"", "https://resources.wolframcloud.com/DataRepository/\ resources/MarkGreenberg%3AGuitar-Chords-for-Picking"}, "HyperlinkURL"]}, "RowDefault"], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"DataResource\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Description: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"Complete set of 4-note guitar chords for picking\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Categories: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{ ",", "\",\"", "\"Culture\"", "\"Human Activities\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\"ContentTypes: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",", "\",\"", "\"Text\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Keywords: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{ ",", "\",\"", "\"music\"", "\"guitar\"", "\"chords\"", "\"arpeggio\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Documentation: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ "\"https://resources.wolframcloud.com/DataRepository/\ resources/MarkGreenberg%3AGuitar-Chords-for-Picking\"", "https://resources.wolframcloud.com/DataRepository/\ resources/MarkGreenberg%3AGuitar-Chords-for-Picking"}, "HyperlinkURL"], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Data Location: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ DynamicModuleBox[{ ResourceSystemClient`Private`typesetstorage$$ = ResourceSystemClient`Private`typesetstorageLocation, ResourceSystemClient`Private`info$$}, DynamicBox[ ToBoxes[ ResourceSystemClient`Private`info$$ = ResourceSystemClient`Private`resourceInfo[ "4e0ccb37-4db0-49d3-bce1-1e9dae616ea3"]; If[ AssociationQ[ResourceSystemClient`Private`info$$], ResourceSystemClient`Private`typesetstorage$$[ Lookup[ ResourceSystemClient`Private`info$$, "ContentElementLocations", None]], Missing["NotAvailable"]], StandardForm]], DynamicModuleValues :> {}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"UUID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"4e0ccb37-4db0-49d3-bce1-1e9dae616ea3\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Version: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"1.0.0\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Size: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"Missing", "[", "\"NotAvailable\"", "]"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",", "\",\"", "\"Guitar Chords\""}, "RowWithSeparators"], Short[#, 2]& ], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel", DisplayFunction->( ButtonBox[#, Active -> False, Alignment -> Left, Appearance -> { "Default" -> FrontEnd`FileName[{"Typeset", "SummaryBox"}, "Panel.9.png"]}, FrameMargins -> 7, BaseStyle -> {}, DefaultBaseStyle -> {"Panel", Background -> None}, BaselinePosition -> Baseline]& )], DynamicModuleValues:>{}], "]"}], ResourceObject[ Association[ "Name" -> "Guitar Chords for Picking", "UUID" -> "4e0ccb37-4db0-49d3-bce1-1e9dae616ea3", "ResourceType" -> "DataResource", "Version" -> "1.0.0", "Description" -> "Complete set of 4-note guitar chords for picking", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/1.0"], "ContentSize" -> Missing["NotAvailable"], "ContentElements" -> {"Guitar Chords"}]], Editable->False, SelectWithContents->True, Selectable->False]], "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.724506245580707*^9, 3.72573420916765*^9, 3.7263111568427153`*^9}] }, Open ]], 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", "[", "\"\<4e0ccb37-4db0-49d3-bce1-1e9dae616ea3\>\"", "]"}]], "Input", CellContext->Notebook, CellFrameLabels->None, CellChangeTimes->{{3.696186325360051*^9, 3.696186327021051*^9}, { 3.696186470495051*^9, 3.6961864722920513`*^9}, {3.696187844212501*^9, 3.6961878557606554`*^9}}], Cell[BoxData[ TemplateBox[{TagBox[ DynamicModuleBox[{ TypeSystem`NestedGrid`PackagePrivate`$state$$ = Data`UnorderedAssociation[ "RowCount" -> 20, "Length" -> 128, "InitialType" -> TypeSystem`Assoc[ TypeSystem`Atom[String], TypeSystem`Vector[ TypeSystem`Atom[String], 4], 128], "Shape" -> TypeSystem`PackageScope`Limited[ TypeSystem`PackageScope`ColumnShape[ TypeSystem`PackageScope`KeyValueShape[ TypeSystem`PackageScope`AtomShape[57.60000000000001], TypeSystem`PackageScope`UnknownShape]], 20, {}], "InitialData" -> TypeSystem`PackageScope`CacheHandle[48589647], "Type" -> TypeSystem`Assoc[ TypeSystem`Atom[String], TypeSystem`Vector[ TypeSystem`Atom[String], 4], 128], "HandleQ" -> True, "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 -> {238., {278., 283.}}, 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", CellFrame->False, ShowCellBracket->True, CellMargins->0, CellFrameMargins->{{66, 8}, {8, 8}}, CellFrameColor->GrayLevel[1], CellFrameLabelMargins->6, CellSize->{Automatic, Automatic}, 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.724506307690754*^9, 3.724506350177733*^9}}], 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", "[", "\"\<4e0ccb37-4db0-49d3-bce1-1e9dae616ea3\>\"", "]"}], "[", "ch", "]"}], "[", RowBox[{"[", "#", "]"}], "]"}], ",", ".24", ",", "\"\\""}], "]"}], "&"}], "/@", "pattern"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Sound", "[", RowBox[{"pick", "[", "\"\\"", "]"}], "]"}]}], "Input"], 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", "[", "\"\<4e0ccb37-4db0-49d3-bce1-1e9dae616ea3\>\"", "]"}], "[", "ch", "]"}], "[", RowBox[{"[", "#", "]"}], "]"}], ",", ".24", ",", "\"\\""}], "]"}], "&"}], "/@", "pattern"}]}], ";", RowBox[{"Sound", "[", RowBox[{"pick", "[", "\"\\"", "]"}], "]"}]}]], "Input"], 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 ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, Visible->True, DockedCells->{}, FrontEndVersion->"11.2 for Linux x86 (64-bit) (September 10, 2017)", StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "DataResourceDefinitionStyles.nb", CharacterEncoding -> "UTF-8"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "DataResourceExampleArea"->{ Cell[580, 22, 96, 2, 70, "DataResourceWhiteSection",ExpressionUUID->"b6587b05-2b16-4b7d-8a17-29fb6e513231", CellTags->"DataResourceExampleArea"]} } *) (*CellTagsIndex CellTagsIndex->{ {"DataResourceExampleArea", 114778, 2362} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 96, 2, 70, "DataResourceWhiteSection",ExpressionUUID->"b6587b05-2b16-4b7d-8a17-29fb6e513231", CellTags->"DataResourceExampleArea"], Cell[CellGroupData[{ Cell[701, 28, 227, 7, 70, "Subsection",ExpressionUUID->"918554fd-8b37-4571-84a9-a44db8891169"], Cell[931, 37, 170, 3, 70, "Text",ExpressionUUID->"eeadfaad-166a-4591-9c2a-6fb9b8759570", CellGroupingRules->"NormalGrouping"], Cell[CellGroupData[{ Cell[1126, 44, 329, 7, 70, "Input",ExpressionUUID->"35cac094-da4e-449e-9b98-37b42d58dc53"], Cell[1458, 53, 17584, 351, 70, "Output",ExpressionUUID->"8bc57099-d133-4295-acbf-c0e1a6c189fc"] }, Open ]], Cell[19057, 407, 162, 2, 70, "Text",ExpressionUUID->"5ee59d8a-8e7f-41ad-b3b9-aa7a9e9731fe"], Cell[CellGroupData[{ Cell[19244, 413, 327, 7, 70, "Input",ExpressionUUID->"ea28af51-bfde-4110-8809-864bc96ba071"], Cell[19574, 422, 80728, 1588, 70, "Output",ExpressionUUID->"fe8cb9ac-d356-4512-b6ca-d5b53205c425"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[100351, 2016, 537, 12, 70, "Subsection",ExpressionUUID->"cea0f7cf-87aa-4c31-8479-87ebcec7f3c0"], Cell[100891, 2030, 211, 3, 70, "Text",ExpressionUUID->"9ab04ab8-c5ea-44bc-86c4-208f3de034e9", CellGroupingRules->"NormalGrouping"], Cell[CellGroupData[{ Cell[101127, 2037, 711, 21, 70, "Input",ExpressionUUID->"f85481c7-cc66-4b2a-9ae1-cba2c584674e"], Cell[101841, 2060, 5320, 116, 70, "Output",ExpressionUUID->"4506ec28-1967-4ad1-b1ec-cb2ac83f011e"] }, Open ]], Cell[107176, 2179, 351, 5, 70, "Text",ExpressionUUID->"aa2e05c7-f2fe-4d84-81c9-8bde987d6382"], Cell[CellGroupData[{ Cell[107552, 2188, 679, 20, 70, "Input",ExpressionUUID->"2f9ffab4-77ed-4111-9604-9f7b7911df5b"], Cell[108234, 2210, 6108, 134, 70, "Output",ExpressionUUID->"e0788bdb-c956-49ac-813a-a51c507af9f6"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)