Notebook[{Cell[ CellGroupData[{Cell[ "\","Subsection"],Cell[ CellGroupData[ {Cell[ "\","Text",CellChangeTimes->{{3.6821849447840075*^9,3.682184951647694*^9},{3.6821850182913575*^9,3.6821850462121496*^9},{3.6821850885233803*^9,3.68218509051958*^9}}, ExpressionUUID->"e20d1b29-2e00-40ad-9461-0ab516d64999"],Cell[ CellGroupData[{Cell[ BoxData[ RowBox[{"ResourceObject","[","\"Oedipus the King\"","]"}]],"Input",CellChangeTimes->{{3.6804517731799183*^9,3.6804517885604563*^9},{3.6804527318597765*^9,3.6804527390684977*^9}}, ExpressionUUID->"ccb19ad5-3a95-410d-87e5-bfabd45ae03f"],Cell[ BoxData[InterpretationBox[ RowBox[{TagBox["ResourceObject","SummaryHead"],"[",DynamicModuleBox[{Set[Typeset`open$$, False]},PanelBox[PaneSelectorBox[{False->GridBox[{{PaneBox[ButtonBox[DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps","SquarePlusIconMedium"],ImageSizeCache->{12.,{0.,12.}}],Appearance->None, RuleDelayed[ButtonFunction,Set[Typeset`open$$,True]],Evaluator->Automatic,Method->"Preemptive"], Alignment->{Center,Center},ImageSize->Dynamic[{Automatic,Times[3.5,CurrentValue["FontCapHeight"], Power[AbsoluteCurrentValue[Magnification],-1]]}]],GraphicsBox[{{{{Thickness[0.011111111111111112],{{{{FaceForm[ {RGBColor[0.648987,0.648987,0.648987],Opacity[1.]}],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.274612,0.618881,0.810913],Opacity[1.]}],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.648987,0.648987,0.648987],Opacity[1.]}],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}}}]}}}}}}}}, AspectRatio->1,Axes->False,Background->None,Frame->None,FrameTicks->None,ImageSize->{Automatic,Dynamic[ Times[3.5,CurrentValue["FontCapHeight"],Power[AbsoluteCurrentValue[Magnification], -1]],ImageSizeCache->{45.,{0.,9.}}]}],GridBox[{{RowBox[{TagBox["\"Name: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[ "\"Oedipus the King\"","SummaryItem"]}]},{RowBox[{TagBox["\"Type: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[ "\"DataResource\"","SummaryItem"]}]},{RowBox[{TagBox["\"Description: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[ "\"Plaintext for Sophocles' \\\"Oedipus the King\\\"\"","SummaryItem"]}]}},AutoDelete->False, BaseStyle->{ShowStringCharacters->False,NumberMarks->False,PrintPrecision->3,ShowSyntaxStyles->False}, GridBoxAlignment->{"Columns"->{{Left}},"Rows"->{{Automatic}}},GridBoxItemSize->{"Columns"->{{Automatic}},"Rows"->{{Automatic}}}, GridBoxSpacings->{"Columns"->{{2}},"Rows"->{{Automatic}}}]}},AutoDelete->False,BaselinePosition->{1,1}, GridBoxAlignment->{"Rows"->{{Top}}},GridBoxItemSize->{"Columns"->{{Automatic}},"Rows"->{{Automatic}}}],True->GridBox[ {{PaneBox[ButtonBox[DynamicBox[FEPrivate`FrontEndResource["FEBitmaps","SquareMinusIconMedium"]], Appearance->None,RuleDelayed[ButtonFunction,Set[Typeset`open$$,False]],Evaluator->Automatic, Method->"Preemptive"],Alignment->{Center,Center},ImageSize->Dynamic[{Automatic,Times[ 3.5,CurrentValue["FontCapHeight"],Power[AbsoluteCurrentValue[Magnification],-1]]}]],GraphicsBox[ {{{{Thickness[0.011111111111111112],{{{{FaceForm[{RGBColor[0.648987,0.648987,0.648987],Opacity[ 1.]}],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.274612,0.618881,0.810913],Opacity[1.]}],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.648987,0.648987,0.648987],Opacity[1.]}],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}}}]}}}}}}}}, AspectRatio->1,Axes->False,Background->None,Frame->None,FrameTicks->None,ImageSize->{Automatic,Dynamic[ Times[3.5,CurrentValue["FontCapHeight"],Power[AbsoluteCurrentValue[Magnification], -1]],ImageSizeCache->{45.,{0.,9.}}]}],GridBox[{{RowBox[{TagBox["\"Name: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[ "\"Oedipus the King\"","SummaryItem"]}]},{RowBox[{TagBox["\"Type: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[ "\"DataResource\"","SummaryItem"]}]},{RowBox[{TagBox["\"Description: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[ "\"Plaintext for Sophocles' \\\"Oedipus the King\\\"\"","SummaryItem"]}]},{RowBox[ {TagBox["\"Categories: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[TagBox[ TemplateBox[{",","\",\"","\"Textual Data\"","\"Literature\""},"RowWithSeparators"], Short],"SummaryItem"]}]},{RowBox[{TagBox["\"ContentTypes: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[ TagBox[TemplateBox[{",","\",\"","\"Text\""},"RowWithSeparators"],Short],"SummaryItem"]}]},{RowBox[ {TagBox["\"Keywords: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[TagBox[ TemplateBox[{",","\",\"","\"text\"","\"play\"","\"fiction\"","\"greece\""},"RowWithSeparators"], Short],"SummaryItem"]}]},{RowBox[{TagBox["\"Data Location: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[ DynamicModuleBox[{Set[DataResource`Private`typesetstorage$$,DataResource`Private`typesetstorageLocation],DataResource`Private`info$$}, DynamicBox[ToBoxes[CompoundExpression[Set[DataResource`Private`info$$,DataResource`Private`resourceInfo[ "8c6465c0-dc47-4b9c-93c8-141a34c0b933"]],If[AssociationQ[DataResource`Private`info$$], DataResource`Private`typesetstorage$$[Lookup[DataResource`Private`info$$,"ContentElementLocations", None]],Missing["NotAvailable"]]],StandardForm]],RuleDelayed[DynamicModuleValues,{}]], "SummaryItem"]}]},{RowBox[{TagBox["\"UUID: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[ "\"8c6465c0-dc47-4b9c-93c8-141a34c0b933\"","SummaryItem"]}]},{RowBox[{TagBox["\"Version: \"", "SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox["\"1.0.0\"","SummaryItem"]}]},{RowBox[ {TagBox["\"Size: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[TemplateBox[ {"89.4`","\"kB\"","kilobytes","\"Kilobytes\""},"Quantity"],"SummaryItem"]}]},{RowBox[ {TagBox["\"Elements: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[TagBox[ TemplateBox[{",","\",\"","\"Plaintext\""},"RowWithSeparators"],Function[Short[Slot[ 1],2]]],"SummaryItem"]}]}},AutoDelete->False,BaseStyle->{ShowStringCharacters->False,NumberMarks->False,PrintPrecision->3,ShowSyntaxStyles->False}, GridBoxAlignment->{"Columns"->{{Left}},"Rows"->{{Automatic}}},GridBoxItemSize->{"Columns"->{{Automatic}},"Rows"->{{Automatic}}}, GridBoxSpacings->{"Columns"->{{2}},"Rows"->{{Automatic}}}]}},AutoDelete->False,BaselinePosition->{1,1}, GridBoxAlignment->{"Rows"->{{Top}}},GridBoxItemSize->{"Columns"->{{Automatic}},"Rows"->{{Automatic}}}]}, Dynamic[Typeset`open$$],ImageSize->Automatic],BaselinePosition->Baseline],RuleDelayed[ DynamicModuleValues,{}]],"]"}],ResourceObject[Association["Name"->"Oedipus the King", "UUID"->"8c6465c0-dc47-4b9c-93c8-141a34c0b933","ResourceType"->"DataResource","Version"->"1.0.0", "Description"->"Plaintext for Sophocles' \"Oedipus the King\"","ContentSize"->Quantity[ 89.4,"Kilobytes"],"ContentElements"->{"Plaintext"}]],Editable->False,SelectWithContents->True, Selectable->False]],"Output",CellChangeTimes->{3.683648791618267*^9},ExpressionUUID->"8d25f943-eaf2-4ebf-8814-2aee0ee56647"]}, Open]]},Open]],Cell[ CellGroupData[{Cell[ "\","Text",CellChangeTimes->{{3.682184974529982*^9,3.6821849772962584*^9},{3.6821850234008684*^9,3.6821850240499334*^9},{3.6821850586563935*^9,3.6821850629428225*^9}}, ExpressionUUID->"b2a06f40-4692-45f1-b4da-491e2b24ac7f"],Cell[ CellGroupData[{Cell[ BoxData[ RowBox[{RowBox[{"TextCases","[",RowBox[{RowBox[{"ResourceData","[","\"Oedipus the King\"","]"}],",","\"Paragraph\""}],"]"}],"[",RowBox[ {"[","200","]"}],"]"}]],"Input",CellChangeTimes->{{3.6804518239459944*^9,3.680451854651065*^9},{3.683648796375431*^9,3.683648805575732*^9},{3.70136657549339*^9,3.70136672948715*^9}}, ExpressionUUID->"208884a6-baa9-4f4e-b716-9a4601fea127"],Cell[ BoxData["\" I speak no more. For thee, if passioning\\n Doth comfort thee, on, passion to thy fill!\""], "Output",CellChangeTimes->{{3.701366621728108*^9,3.7013666573929462*^9},{3.701366727166531*^9,3.7013667299341583*^9}}, ExpressionUUID->"c8a874e4-3344-4c32-93fa-3fb8816f4379"]},Open]]},Open]]},Open]],Cell[ CellGroupData[ {Cell[ "\","Subsection"],Cell[ "\", "Text",CellChangeTimes->{{3.6833767760993433*^9,3.683376779650175*^9},{3.683392737528262*^9,3.683392747535935*^9}}, ExpressionUUID->"2d538aa5-5583-4dc6-85c8-e3b2ce62ef2e"],Cell[ CellGroupData[{Cell[ BoxData[ RowBox[{"TakeLargest","[",RowBox[{RowBox[{"Counts","[",RowBox[{"TextCases","[",RowBox[ {RowBox[{"ResourceData","[","\"Oedipus the King\"","]"}],",","\"Adjective\""}],"]"}],"]"}],",","20"}],"]"}]], "Input",CellChangeTimes->{{3.683288613378517*^9,3.683288613382518*^9},{3.6832886994881277*^9,3.6832887138925676*^9},3.68364894453946*^9}, ExpressionUUID->"f91205f4-76d5-441f-9f9d-a100e5e511e1"],Cell[ BoxData[RowBox[{"\\[LeftAssociation]",RowBox[ {RowBox[{"\"thy\"","\[Rule]","79"}],",",RowBox[{"\"own\"","\[Rule]","47"}],",",RowBox[ {"\"old\"","\[Rule]","38"}],",",RowBox[{"\"thou\"","\[Rule]","32"}],",",RowBox[{"\"true\"","\[Rule]","22"}],",",RowBox[ {"\"more\"","\[Rule]","20"}],",",RowBox[{"\"such\"","\[Rule]","19"}],",",RowBox[{"\"great\"","\[Rule]","19"}],",",RowBox[ {"\"thee\"","\[Rule]","17"}],",",RowBox[{"\"dead\"","\[Rule]","15"}],",",RowBox[{"\"mine\"","\[Rule]","12"}],",",RowBox[ {"\"clear\"","\[Rule]","12"}],",",RowBox[{"\"wild\"","\[Rule]","11"}],",",RowBox[ {"\"strong\"","\[Rule]","11"}],",",RowBox[{"\"good\"","\[Rule]","10"}],",",RowBox[ {"\"full\"","\[Rule]","9"}],",",RowBox[{"\"long\"","\[Rule]","9"}],",",RowBox[{"\"last\"","\[Rule]","9"}],",",RowBox[ {"\"hast\"","\[Rule]","8"}],",",RowBox[{"\"sure\"","\[Rule]","8"}]}],"\\[RightAssociation]"}]], "Output",CellChangeTimes->{3.683648952459117*^9},ExpressionUUID->"fd295333-a46f-45f1-8d5e-d08ab3b3cd8b"]}, Open]],Cell[ "\","Text",CellChangeTimes->{{3.683033608693839*^9,3.683033641819641*^9},{3.683375609032626*^9,3.6833756106526203*^9},{3.701366755735161*^9,3.701366761590885*^9}}, ExpressionUUID->"6a100980-00c2-487c-8cd6-5685adeb0421"],Cell[ CellGroupData[{Cell[ BoxData[ RowBox[{"WordCloud","[",RowBox[{"ResourceData","[","\"Oedipus the King\"","]"}],"]"}]], "Input",CellChangeTimes->{{3.6830333795804577*^9,3.683033425254339*^9},{3.6830334646198807*^9,3.6830335879807243*^9},{3.683033646860409*^9,3.683033691272203*^9},3.683035619972542*^9,3.6836489581258507*^9,{3.7013667442388897*^9,3.70136674914522*^9}}, ExpressionUUID->"8001e1d3-2db7-4528-95be-cff6080da6a5"],Cell[ BoxData[GraphicsBox[ {{InsetBox[StyleBox["\"OEDIPUS\"",StripOnInput->False,FontSize->Scaled[0.22151898734177214], FontColor->RGBColor[0.368417,0.506779,0.709798]],{0,0},Center,Automatic],InsetBox[ StyleBox["\"thou\"",StripOnInput->False,FontSize->Scaled[0.1649789029535865],FontColor->RGBColor[ 0.880722,0.611041,0.142051]],{-0.5,-45.5},Center,Automatic],InsetBox[StyleBox["\"Sidenote\"", StripOnInput->False,FontSize->Scaled[0.09071729957805907],FontColor->RGBColor[0.772079, 0.431554,0.102387]],{-0.5,44.5},Center,Automatic],InsetBox[StyleBox["\"thee\"",StripOnInput->False, FontSize->Scaled[0.1320675105485232],FontColor->RGBColor[0.560181,0.691569,0.194885]], {-0.5,73.5},Center,Automatic],InsetBox[StyleBox["\"CREON\"",StripOnInput->False,FontSize->Scaled[ 0.08987341772151898],FontColor->RGBColor[1,0.75,0]],{-0.5,-78.5},Center,Automatic],InsetBox[ StyleBox["\"STRANGER\"",StripOnInput->False,FontSize->Scaled[0.06371308016877637], FontColor->RGBColor[0.8996399512215667,0.7463488834690629,0.]],{-10.5,-99.5},Center, Automatic],InsetBox[StyleBox["\"JOCASTA\"",StripOnInput->False,FontSize->Scaled[0.06793248945147679], FontColor->RGBColor[0.915,0.3325,0.2125]],{30.5,94.5},Center,Automatic],InsetBox[ StyleBox["\"thy\"",StripOnInput->False,FontSize->Scaled[0.10506329113924051],FontColor->RGBColor[ 0.922526,0.385626,0.209179]],{70.5,-32.5},Center,Automatic],InsetBox[StyleBox["\"Man\"", StripOnInput->False,FontSize->Scaled[0.09324894514767931],FontColor->RGBColor[0.528488, 0.470624,0.701351]],{-81.5,-35.5},Center,Automatic],InsetBox[StyleBox["\"SHEPHERD\"", StripOnInput->False,FontSize->Scaled[0.04767932489451477],FontColor->RGBColor[0.8613800418100862, 0.48092002787339083,0.02824203762907758]],{84.5,59.5},Center,Automatic],InsetBox[ StyleBox["\"LEADER\"",StripOnInput->False,FontSize->Scaled[0.056118143459915615], FontColor->RGBColor[0.6753413537738198,0.3589675436319385,0.5991466155654507]],{-77.5,65.5}, Center,Automatic],InsetBox[StyleBox["\"Thebes\"",StripOnInput->False,FontSize->Scaled[ 0.060337552742616034],FontColor->RGBColor[0.28240003484173815,0.6090799721266095, 0.7538800418100857]],{-91.5,41.5},Center,Automatic],InsetBox[StyleBox["\"TIRESIAS\"", StripOnInput->False,FontSize->Scaled[0.048523206751054856],FontColor->RGBColor[0.16397784358994957, 0.7038177251280403,0.6117734123079395]],{-85.5,-56.5},Center,Automatic],InsetBox[ StyleBox["\"speak\"",StripOnInput->False,FontSize->Scaled[0.06118143459915611],FontColor->RGBColor[ 0.8439466852489265,0.3467106629502147,0.3309221912517893]],{78.5,-59.5},Center,Automatic],InsetBox[ StyleBox["\"Shall\"",StripOnInput->False,FontSize->Scaled[0.06371308016877637],FontColor->RGBColor[ 0.5833680111493557,0.4126186601628758,0.8290799721266107]],{-76.5,-74.5},Center,Automatic],InsetBox[ StyleBox["\"mine\"",StripOnInput->False,FontSize->Scaled[0.0670886075949367],FontColor->RGBColor[ 0.9728288904374106,0.621644452187053,0.07336199581899142]],{-67.5,83.5},Center,Automatic],InsetBox[ StyleBox["\"hath\"",StripOnInput->False,FontSize->Scaled[0.06877637130801688],FontColor->RGBColor[ 0.571589,0.586483,0.]],{-36.5,102.5},Center,Automatic],InsetBox[StyleBox["\"Know\"", StripOnInput->False,FontSize->Scaled[0.057805907172995774],FontColor->RGBColor[0.9324333565611593, 0.5282889043741062,0.0921900209050434]],{82.5,40.5},Center,Automatic],InsetBox[StyleBox[ "\"King\"",StripOnInput->False,FontSize->Scaled[0.06455696202531645],FontColor->RGBColor[ 0.28026441037696703,0.715,0.4292089322474965]],{71.5,-81.5},Center,Automatic],InsetBox[ StyleBox["\"God\"",StripOnInput->False,FontSize->Scaled[0.06624472573839663],FontColor->RGBColor[ 0.736782672705901,0.358,0.5030266573755369]],{3.5,114.5},Center,Automatic],InsetBox[ StyleBox["\"La\[IDoubleDot]us\"",StripOnInput->False,FontSize->Scaled[0.048523206751054856], FontColor->RGBColor[0.9874666782805795,0.6948333914028977,0.033839968642435214]], {70.5,74.5},Center,Automatic],InsetBox[StyleBox["\"death\"",StripOnInput->False,FontSize->Scaled[ 0.048523206751054856],FontColor->RGBColor[0.8857244243136628,0.3764133635295058,0.1393110607841571]], {3.5,-116.5},Center,Automatic],InsetBox[StyleBox["\"thine\"",StripOnInput->False, FontSize->Scaled[0.04767932489451477],FontColor->RGBColor[0.6184987019729621,0.39212575718243875, 0.7412532450675947]],{111.5,-35.5},Center,Automatic],InsetBox[StyleBox["\"thing\"", StripOnInput->False,FontSize->Scaled[0.048523206751054856],FontColor->RGBColor[0.7748409210981391, 0.358,0.4444755060028629]],{64.5,-100.5},Center,Automatic],InsetBox[StyleBox["\"ye\"", StripOnInput->False,FontSize->Scaled[0.06793248945147679],FontColor->RGBColor[0.40082222609352647, 0.5220066643438841,0.85]],{42.5,-6.5},Center,Automatic],InsetBox[StyleBox["\"children\"", StripOnInput->False,FontSize->Scaled[0.03670886075949367],FontColor->RGBColor[0.19193353076984873, 0.681453175384121,0.6453202369238185]],{45.5,111.5},Center,Automatic],InsetBox[StyleBox[ "\"vv\"",StripOnInput->False,FontSize->Scaled[0.09071729957805907],FontColor->RGBColor[ 0.363898,0.618501,0.782349]],{-33.5,-116.5},Center,Automatic],InsetBox[StyleBox["\"heart\"", StripOnInput->False,FontSize->Scaled[0.04430379746835443],FontColor->RGBColor[0.8878600487784333, 0.33792799024431336,0.2577332520359445]],{41.5,-115.5},Center,Automatic],InsetBox[ StyleBox["\"things\"",StripOnInput->False,FontSize->Scaled[0.040084388185654005], FontColor->RGBColor[0.8168067340273636,0.3521386531945273,0.3761554432877274]],{-85.5,-90.5}, Center,Automatic],InsetBox[StyleBox["\"APOLLO\"",StripOnInput->False,FontSize->Scaled[ 0.03333333333333333],FontColor->RGBColor[0.6670481226429111,0.3638052617916352,0.6198796933927223]], {-40.5,119.5},Center,Automatic],InsetBox[StyleBox["\"Twas\"",StripOnInput->False, FontSize->Scaled[0.04177215189873418],FontColor->RGBColor[0.37977756485605163,0.715, 0.3025558265468435]],{-76.5,100.5},Center,Automatic],InsetBox[StyleBox["\"fear\"", StripOnInput->False,FontSize->Scaled[0.048523206751054856],FontColor->RGBColor[0.47401116530937026, 0.47809330081437784,0.85]],{105.5,74.5},Center,Automatic],InsetBox[StyleBox["\"Corinth\"", StripOnInput->False,FontSize->Scaled[0.03417721518987342],FontColor->RGBColor[0.845266573755366, 0.437100139366951,0.03816643438841502]],{125.5,41.5},Center,Automatic],InsetBox[StyleBox[ "\"O\"",StripOnInput->False,FontSize->Scaled[0.07215189873417721],FontColor->RGBColor[ 0.647624,0.37816,0.614037]],{-120.5,-35.5},Center,Automatic],InsetBox[StyleBox["\"Words\"", StripOnInput->False,FontSize->Scaled[0.03755274261603376],FontColor->RGBColor[0.5019668524892619, 0.46131988850644284,0.85]],{123.5,-49.5},Center,Automatic],InsetBox[StyleBox["\"tis\"", StripOnInput->False,FontSize->Scaled[0.06455696202531645],FontColor->RGBColor[0.838355547812947, 0.44746667828057946,0.0208888695323676]],{-128.5,4.5},Center,Automatic],InsetBox[ StyleBox["\"thought\"",StripOnInput->False,FontSize->Scaled[0.03164556962025317], FontColor->RGBColor[0.6672593867853922,0.7205288207539324,0.]],{110.5,-73.5},Center, Automatic],InsetBox[StyleBox["\"great\"",StripOnInput->False,FontSize->Scaled[0.03755274261603376], FontColor->RGBColor[0.3103557220216354,0.5867154223826917,0.7874268664259625]],{96.5,90.5}, Center,Automatic],InsetBox[StyleBox["\"word\"",StripOnInput->False,FontSize->Scaled[ 0.039240506329113925],FontColor->RGBColor[0.9038177251280404,0.3492734123079395,0.18454431282010084]], {-68.5,-1.5},Center,Automatic],InsetBox[StyleBox["\"hand\"",StripOnInput->False,FontSize->Scaled[ 0.04177215189873418],FontColor->RGBColor[0.7132613816472081,0.358,0.5392132590042952]], {-66.5,-115.5},Center,Automatic],InsetBox[StyleBox["\"father\"",StripOnInput->False, FontSize->Scaled[0.035864978902953586],FontColor->RGBColor[0.7175796237092107,0.7261199581899123, 0.]],{-115.5,-70.5},Center,Automatic],InsetBox[StyleBox["\"mother\"",StripOnInput->False, FontSize->Scaled[0.03164556962025317],FontColor->RGBColor[0.2198892179497479,0.6590886256402017, 0.6788670615396974]],{57.5,122.5},Center,Automatic],InsetBox[StyleBox["\"house\"", StripOnInput->False,FontSize->Scaled[0.0350210970464135],FontColor->RGBColor[0.31827505306025683, 0.715,0.3808317506505822]],{-108.5,81.5},Center,Automatic],InsetBox[StyleBox["\"God's\"", StripOnInput->False,FontSize->Scaled[0.03670886075949367],FontColor->RGBColor[0.8781534541180211, 0.4921023027453475,0.04333810870621905]],{-80.5,113.5},Center,Automatic],InsetBox[ StyleBox["\"old\"",StripOnInput->False,FontSize->Scaled[0.05443037974683544],FontColor->RGBColor[ 0.5407932311309059,0.715,0.09762679674248334]],{91.5,103.5},Center,Automatic],InsetBox[ StyleBox["\"eyes\"",StripOnInput->False,FontSize->Scaled[0.04092827004219409],FontColor->RGBColor[ 0.9810598048862722,0.7553955338762525,0.]],{73.5,-116.5},Center,Automatic],InsetBox[ StyleBox["\"Palace\"",StripOnInput->False,FontSize->Scaled[0.03164556962025317],FontColor->RGBColor[ 0.8949268664259606,0.5032845776173072,0.05843417978336459]],{109.5,-85.5},Center, Automatic],InsetBox[StyleBox["\"blood\"",StripOnInput->False,FontSize->Scaled[0.0350210970464135], FontColor->RGBColor[0.7277983389807635,0.358,0.5168487092603637]],{97.5,-101.5},Center, Automatic],InsetBox[StyleBox["\"came\"",StripOnInput->False,FontSize->Scaled[0.039240506329113925], FontColor->RGBColor[0.9052934053395919,0.510195603559728,0.06776406480563275]],{-99.5,-101.5}, Center,Automatic],InsetBox[StyleBox["\"come\"",StripOnInput->False,FontSize->Scaled[ 0.04092827004219409],FontColor->RGBColor[0.5472001045252132,0.43417993728487203,0.85]], {-131.5,57.5},Center,Automatic],InsetBox[StyleBox["\"men\"",StripOnInput->False,FontSize->Scaled[ 0.04683544303797468],FontColor->RGBColor[0.7678998606330495,0.7317110956258943,0.]], {-107.5,93.5},Center,Automatic],InsetBox[StyleBox["\"long\"",StripOnInput->False, FontSize->Scaled[0.03839662447257384],FontColor->RGBColor[0.8342400905885153,0.4628267270590103, 0.0038160815296638794]],{-118.5,-83.5},Center,Automatic],InsetBox[StyleBox["\"away\"", StripOnInput->False,FontSize->Scaled[0.03248945147679325],FontColor->RGBColor[0.7658565873730018, 0.358,0.4582975578876895]],{142.5,-26.5},Center,Automatic],InsetBox[StyleBox["\"make\"", StripOnInput->False,FontSize->Scaled[0.03417721518987342],FontColor->RGBColor[0.8335801463353031, 0.3487839707329394,0.3481997561078282]],{-140.5,41.5},Center,Automatic],InsetBox[ StyleBox["\"child\"",StripOnInput->False,FontSize->Scaled[0.03670886075949367],FontColor->RGBColor[ 0.7896667828057927,0.3575666434388414,0.4213886953236787]],{-136.5,-52.5},Center, Automatic],InsetBox[StyleBox["\"name\"",StripOnInput->False,FontSize->Scaled[0.03755274261603376], FontColor->RGBColor[0.47929071933511125,0.715,0.1759027208462221]],{-131.5,69.5}, Center,Automatic],InsetBox[StyleBox["\"good\"",StripOnInput->False,FontSize->Scaled[ 0.03248945147679325],FontColor->RGBColor[0.7989994773739094,0.735166608597101,0.]], {88.5,117.5},Center,Automatic],InsetBox[StyleBox["\"dark\"",StripOnInput->False,FontSize->Scaled[ 0.03755274261603376],FontColor->RGBColor[0.8607200975568693,0.34335598048862614,0.30296650407188447]], {-96.5,-114.5},Center,Automatic],InsetBox[StyleBox["\"heard\"",StripOnInput->False, FontSize->Scaled[0.03333333333333333],FontColor->RGBColor[0.4567336004533182,0.4884598397280091, 0.85]],{142.5,52.5},Center,Automatic],InsetBox[StyleBox["\"blind\"",StripOnInput->False, FontSize->Scaled[0.0350210970464135],FontColor->RGBColor[0.969373377466199,0.6043668873309952, 0.08269188084126262]],{-144.5,-29.5},Center,Automatic],InsetBox[StyleBox["\"answer\"", StripOnInput->False,FontSize->Scaled[0.03248945147679325],FontColor->RGBColor[0.9840111653093676, 0.677555826546838,0.04316985366470745]],{106.5,-112.5},Center,Automatic],InsetBox[ StyleBox["\"say\"",StripOnInput->False,FontSize->Scaled[0.039240506329113925],FontColor->RGBColor[ 0.6361597700445392,0.7170733077827265,0.]],{123.5,86.5},Center,Automatic],InsetBox[ StyleBox["\"clear\"",StripOnInput->False,FontSize->Scaled[0.03164556962025317],FontColor->RGBColor[ 0.8633598745697435,0.40996018814538476,0.08339968642435877]],{-109.5,104.5},Center, Automatic],InsetBox[StyleBox["\"think\"",StripOnInput->False,FontSize->Scaled[0.03248945147679325], FontColor->RGBColor[0.7042770479220728,0.358,0.5530353108891188]],{140.5,63.5},Center, Automatic],InsetBox[StyleBox["\"dead\"",StripOnInput->False,FontSize->Scaled[0.03417721518987342], FontColor->RGBColor[0.5750747800184488,0.4174563783225715,0.8498130499538777]],{142.5,-62.5}, Center,Automatic],InsetBox[StyleBox["\"hast\"",StripOnInput->False,FontSize->Scaled[ 0.03755274261603376],FontColor->RGBColor[0.9492067688690977,0.5394711792460651,0.10728609198218791]], {116.5,102.5},Center,Automatic],InsetBox[StyleBox["\"Lord\"",StripOnInput->False, FontSize->Scaled[0.03839662447257384],FontColor->RGBColor[0.596786740995709,0.404791067752503, 0.7955331475107271]],{126.5,-97.5},Center,Automatic],InsetBox[StyleBox["\"doth\"", StripOnInput->False,FontSize->Scaled[0.03839662447257384],FontColor->RGBColor[0.9784200278733908, 0.649600139366954,0.058265924741844846]],{-137.5,80.5},Center,Automatic],InsetBox[ StyleBox["\"true\"",StripOnInput->False,FontSize->Scaled[0.040084388185654005],FontColor->RGBColor[ 0.23716678280579248,0.645266573755366,0.699600139366951]],{-128.5,-94.5},Center,Automatic],InsetBox[ StyleBox["\"cast\"",StripOnInput->False,FontSize->Scaled[0.04092827004219409],FontColor->RGBColor[ 0.8564488486273256,0.42032672705901153,0.06612212156831418]],{-110.5,117.5},Center, Automatic],InsetBox[StyleBox["\"Oh\"",StripOnInput->False,FontSize->Scaled[0.042616033755274264], FontColor->RGBColor[0.9637822400302223,0.5764112001511111,0.0977879519184]],{-142.5,-67.5}, Center,Automatic],InsetBox[StyleBox["\"way\"",StripOnInput->False,FontSize->Scaled[ 0.035864978902953586],FontColor->RGBColor[0.38354466123747527,0.5323732032575149, 0.85]],{142.5,-74.5},Center,Automatic],InsetBox[StyleBox["\"day\"",StripOnInput->False, FontSize->Scaled[0.03839662447257384],FontColor->RGBColor[0.428777913273419,0.5052332520359486, 0.85]],{113.5,117.5},Center,Automatic],InsetBox[StyleBox["\"deed\"",StripOnInput->False, FontSize->Scaled[0.03333333333333333],FontColor->RGBColor[0.8926354502560807,0.366046824615879, 0.15658862564020168]],{-137.5,92.5},Center,Automatic],InsetBox[StyleBox["\"earth\"", StripOnInput->False,FontSize->Scaled[0.03417721518987342],FontColor->RGBColor[0.9307395679624266, 0.7498043964402695,0.]],{-123.5,-114.5},Center,Automatic],InsetBox[StyleBox["\"seek\"", StripOnInput->False,FontSize->Scaled[0.03164556962025317],FontColor->RGBColor[0.6453361616656581, 0.37647057236169945,0.6741595958358548]],{-144.5,-79.5},Center,Automatic],InsetBox[ StyleBox["\"land\"",StripOnInput->False,FontSize->Scaled[0.03839662447257384],FontColor->RGBColor[ 0.7513196300394465,0.358,0.48066210763162087]],{142.5,97.5},Center,Automatic],InsetBox[ StyleBox["\"Nay\"",StripOnInput->False,FontSize->Scaled[0.03417721518987342],FontColor->RGBColor[ 0.26512246998569167,0.6229020240114467,0.73314696398283]],{145.5,77.5},Center,Automatic],InsetBox[ StyleBox["\"comes\"",StripOnInput->False,FontSize->Scaled[0.03248945147679325],FontColor->RGBColor[ 0.8510135028964549,0.47400900193096995,0.018912152606809424]],{106.5,-122.5},Center, Automatic],InsetBox[StyleBox["\"save\"",StripOnInput->False,FontSize->Scaled[0.039240506329113925], FontColor->RGBColor[0.6536293927965667,0.37163285420200276,0.6534265180085832]],{-137.5,104.5}, Center,Automatic],InsetBox[StyleBox["\"help\"",StripOnInput->False,FontSize->Scaled[ 0.03248945147679325],FontColor->RGBColor[0.3383114092015346,0.5643508726387724,0.8209736910418415]], {136.5,-110.5},Center,Automatic],InsetBox[StyleBox["\"hear\"",StripOnInput->False, FontSize->Scaled[0.03248945147679325],FontColor->RGBColor[0.8774935098648088,0.34000129802703827, 0.2750108168919853]],{136.5,113.5},Center,Automatic],InsetBox[StyleBox["\"bear\"", StripOnInput->False,FontSize->Scaled[0.03248945147679325],FontColor->RGBColor[0.15725938678540247, 0.715,0.5857607804549424]],{-136.5,114.5},Center,Automatic],InsetBox[StyleBox["\"tale\"", StripOnInput->False,FontSize->Scaled[0.03755274261603376],FontColor->RGBColor[0.8745421494417032, 0.39318677583744527,0.11135537360425793]],{-0.5,-130.5},Center,Automatic],InsetBox[ StyleBox["\"wife\"",StripOnInput->False,FontSize->Scaled[0.03164556962025317],FontColor->RGBColor[ 0.9107287510704583,0.33890687339431275,0.20182187767614543]],{-0.5,129.5},Center, Automatic],InsetBox[StyleBox["\"born\"",StripOnInput->False,FontSize->Scaled[0.03164556962025317], FontColor->RGBColor[0.4177882075393331,0.715,0.25417864494993975]],{21.5,130.5},Center, Automatic],InsetBox[StyleBox["\"the\"",StripOnInput->False,FontSize->Scaled[0.035864978902953586], FontColor->RGBColor[0.9046334610863751,0.334573307782725,0.22977756485604156]],{-28.5,6.5}, Center,Automatic],InsetBox[StyleBox["\"ask\"",StripOnInput->False,FontSize->Scaled[ 0.03670886075949367],FontColor->RGBColor[0.9930578157165594,0.7227890785827968,0.01874389756528967]], {22.5,-129.5},Center,Automatic],InsetBox[StyleBox["\"let\"",StripOnInput->False,FontSize->Scaled[ 0.042616033755274264],FontColor->RGBColor[0.35558897405758294,0.5505288207539337, 0.8417067688690995]],{83.5,2.5},Center,Automatic],InsetBox[StyleBox["\"tell\"",StripOnInput->False, FontSize->Scaled[0.03670886075949367],FontColor->RGBColor[0.6319174318193065,0.38429816477207124, 0.7077064204517338]],{-21.5,130.5},Center,Automatic],InsetBox[StyleBox["\"like\"", StripOnInput->False,FontSize->Scaled[0.03839662447257384],FontColor->RGBColor[0.2187618985811806, 0.715,0.5074848563512248]],{43.5,-128.5},Center,Automatic],InsetBox[StyleBox["\"end\"", StripOnInput->False,FontSize->Scaled[0.03164556962025317],FontColor->RGBColor[0.9986489531525362, 0.7507447657626809,0.0036478264881522893]],{-22.5,-131.5},Center,Automatic],InsetBox[ StyleBox["\"call\"",StripOnInput->False,FontSize->Scaled[0.03333333333333333],FontColor->RGBColor[ 0.5788038738141875,0.715,0.049249615145579635]],{-40.5,130.5},Center,Automatic],InsetBox[ StyleBox["\"Evil\"",StripOnInput->False,FontSize->Scaled[0.03164556962025317],FontColor->RGBColor[ 0.8064401951137368,0.3542119609772526,0.39343300814377197]],{42.5,131.5},Center,Automatic],InsetBox[ StyleBox["\"none\"",StripOnInput->False,FontSize->Scaled[0.03248945147679325],FontColor->RGBColor[ 0.9603267270590103,0.5591336352950514,0.10711783694067224]],{-45.5,-131.5},Center, Automatic],InsetBox[StyleBox["\"die\"",StripOnInput->False,FontSize->Scaled[0.03164556962025317], FontColor->RGBColor[0.529922539669161,0.44454647619850335,0.85]],{83.5,15.5},Center, Automatic],InsetBox[StyleBox["\"life\"",StripOnInput->False,FontSize->Scaled[0.03755274261603376], FontColor->RGBColor[0.6897400905885174,0.358,0.5753998606330502]],{-60.5,131.5},Center, Automatic],InsetBox[StyleBox["\"far\"",StripOnInput->False,FontSize->Scaled[0.03248945147679325], FontColor->RGBColor[0.6102054708420535,0.39696347534213544,0.7619863228948663]],{61.5,-129.5}, Center,Automatic],InsetBox[StyleBox["\"art\"",StripOnInput->False,FontSize->Scaled[ 0.03755274261603376],FontColor->RGBColor[0.8493197142977551,0.7407577460330839,0.]], {-66.5,-128.5},Center,Automatic],InsetBox[StyleBox["\"son\"",StripOnInput->False, FontSize->Scaled[0.03417721518987342],FontColor->RGBColor[0.922066817647527,0.5213778784316846, 0.08286013588277422]],{-79.5,125.5},Center,Automatic]}},DefaultBaseStyle->{"Graphics",FontFamily->"Helvetica"}, Method->{"DefaultBoundaryStyle"->Automatic,"DefaultPlotStyle"->Automatic},PlotRange->{{-158.,158.},{-137.,139.}}]], "Output",CellChangeTimes->{3.683648960514597*^9,3.70136675553057*^9},ExpressionUUID->"24de61b0-6c79-4e0e-904a-f3a17dab8003"]}, Open]]},Open]]},WindowSize->{775,751},WindowMargins->{{Automatic,-99},{Automatic,52}}, WindowTitle->"Examples for Oedipus the King",TaggingRules->{"NotebookTemplateVersion"->1.}, CellContext->Notebook,ShowCellTags->True,Nothing,Nothing,Nothing,Nothing,Nothing, Nothing,Nothing,StyleDefinitions->FrontEnd`FileName[{"Wolfram"},"CreateDataResourceStyleSheet.nb", CharacterEncoding->"UTF-8"],DockedCells->{},Background->GrayLevel[0.9999],FrontEndVersion->"10.0 for Wolfram Cloud Platform (June 2 2014)"]