(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 28750, 694] NotebookOptionsPosition[ 27502, 659] NotebookOutlinePosition[ 28011, 681] CellTagsIndexPosition[ 27968, 678] WindowTitle->Examples for The Golden Ass WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection"], Cell["Retrieve the text:", "Text", CellChangeTimes->{{3.696186645510051*^9, 3.6961866545240507`*^9}, { 3.696187841532233*^9, 3.696187852829363*^9}, {3.886247265108083*^9, 3.886247265926351*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TextCases", "[", RowBox[{ RowBox[{"ResourceData", "[", "\"\\"", "]"}], ",", " ", "\"\\""}], "]"}], "[", RowBox[{"[", "130", "]"}], "]"}]], "Input", CellChangeTimes->{{3.6804518239459944`*^9, 3.680451854651065*^9}, { 3.70542401508827*^9, 3.705424034735361*^9}, {3.7601151069106894`*^9, 3.7601151618675833`*^9}, 3.886247257932989*^9}, CellLabel->"In[1]:="], Cell[BoxData["\<\"In this sort was our marriage disturbed, like the marriage \ of Hyppodame\\nand Perithous. But behold my good mother, now my unhappy \ fortune is\\nrenewed and encreased: For I dreamed in my sleepe, that I was \ pulled out\\nof our house, out of our chamber, and out of my bed, and that I \ removed\\nabout in solitary and unknowne places, calling upon the name of \ my\\nunfortunate husband, and how that he, as soone as he perceived that \ he\\nwas taken away, even smelling with perfumes and crowned with \ garlands,\\ndid trace me by the steppes, desiring the aid of the people to \ assist\\nhim, in that his wife was violently stollen away, and as he went \ crying\\nup and down, one of the theeves mooved with indignation, by reason \ of\\nhis pursuit, took up a stone that lay at his feet, and threw it at \ my\\nhusband and killed him. By the terror of which sight, and the feare \ of\\nso dreadfull a dreame, I awaked.\"\>"], "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.705424008717389*^9, 3.705424035248501*^9}, {3.7601151091972446`*^9, 3.760115162470668*^9}, 3.886247259727454*^9}, CellLabel->"Out[1]="] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Visualization", "Subsection"], Cell["Generate a WordCloud:", "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.705424040079495*^9, 3.705424042964239*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"WordCloud", "[", RowBox[{"DeleteStopwords", "[", RowBox[{"ResourceData", "[", "\"\\"", "]"}], "]"}], "]"}]], "Input", 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.705424044184967*^9, 3.705424054344182*^9}, 3.8862472619532537`*^9}], Cell[BoxData[ GraphicsBox[{InsetBox[ StyleBox["\<\"Great\"\>", StripOnInput->False, FontSize->Scaled[0.20833333333333331`], FontColor->RGBColor[0.368417, 0.506779, 0.709798]], {0, 0}, Center, Automatic], InsetBox[ StyleBox["\<\"thou\"\>", StripOnInput->False, FontSize->Scaled[0.19345238095238093`], FontColor->RGBColor[0.880722, 0.611041, 0.142051]], {14., 50.}, Center, Automatic], InsetBox[ StyleBox["\<\"unto\"\>", StripOnInput->False, FontSize->Scaled[0.1410455486542443], FontColor->RGBColor[0.560181, 0.691569, 0.194885]], {14., -40.}, Center, Automatic], InsetBox[ StyleBox["\<\"came\"\>", StripOnInput->False, FontSize->Scaled[0.13198757763975155`], FontColor->RGBColor[0.528488, 0.470624, 0.701351]], {0., -71.}, Center, Automatic], InsetBox[ StyleBox["\<\"selfe\"\>", StripOnInput->False, FontSize->Scaled[0.11193064182194616`], FontColor->RGBColor[0.363898, 0.618501, 0.782349]], {-72., -42.}, Center, Automatic], InsetBox[ StyleBox["\<\"House\"\>", StripOnInput->False, FontSize->Scaled[0.09446169772256728], FontColor->RGBColor[0.915, 0.3325, 0.2125]], {28., 80.}, Center, Automatic], InsetBox[ StyleBox["\<\"shee\"\>", StripOnInput->False, FontSize->Scaled[0.10610766045548653`], FontColor->RGBColor[0.647624, 0.37816, 0.614037]], {-88., 48.}, Center, Automatic], InsetBox[ StyleBox["\<\"away\"\>", StripOnInput->False, FontSize->Scaled[0.09769668737060042], FontColor->RGBColor[0.571589, 0.586483, 0.]], {0., -98.}, Center, Automatic], InsetBox[ StyleBox["\<\"thy\"\>", StripOnInput->False, FontSize->Scaled[0.1261645962732919], FontColor->RGBColor[0.772079, 0.431554, 0.102387]], {90., -43.}, Center, Automatic], InsetBox[ StyleBox["\<\"husband\"\>", StripOnInput->False, FontSize->Scaled[0.07311076604554866], FontColor->RGBColor[ 0.5833680111493557, 0.4126186601628758, 0.8290799721266107]], {0., 106.}, Center, Automatic], InsetBox[ StyleBox["\<\"man\"\>", StripOnInput->False, FontSize->Scaled[0.13910455486542442`], FontColor->RGBColor[0.922526, 0.385626, 0.209179]], {-100., -70.}, Center, Automatic], InsetBox[ StyleBox["\<\"brought\"\>", StripOnInput->False, FontSize->Scaled[0.07505175983436851], FontColor->RGBColor[ 0.838355547812947, 0.44746667828057946`, 0.0208888695323676]], {-91., 77.}, Center, Automatic], InsetBox[ StyleBox["\<\"hee\"\>", StripOnInput->False, FontSize->Scaled[0.10998964803312629`], FontColor->RGBColor[1, 0.75, 0]], {106., 42.}, Center, Automatic], InsetBox[ StyleBox["\<\"PSYCHES\"\>", StripOnInput->False, FontSize->Scaled[0.06081780538302277], FontColor->RGBColor[ 0.6184987019729621, 0.39212575718243875`, 0.7412532450675947]], {-28., -122.}, Center, Automatic], InsetBox[ StyleBox["\<\"good\"\>", StripOnInput->False, FontSize->Scaled[0.08216873706004141], FontColor->RGBColor[ 0.9728288904374106, 0.621644452187053, 0.07336199581899142]], {86., -76.}, Center, Automatic], InsetBox[ StyleBox["\<\"thee\"\>", StripOnInput->False, FontSize->Scaled[0.0899327122153209], FontColor->RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85]], {-113., -16.}, Center, Automatic], InsetBox[ StyleBox["\<\"Goddesse\"\>", StripOnInput->False, FontSize->Scaled[0.05564182194616977], FontColor->RGBColor[ 0.8878600487784333, 0.33792799024431336`, 0.2577332520359445]], {0., 127.}, Center, Automatic], InsetBox[ StyleBox["\<\"Behold\"\>", StripOnInput->False, FontSize->Scaled[0.0692287784679089], FontColor->RGBColor[ 0.28240003484173815`, 0.6090799721266095, 0.7538800418100857]], {-76., -100.}, Center, Automatic], InsetBox[ StyleBox["\<\"things\"\>", StripOnInput->False, FontSize->Scaled[0.06534679089026914], FontColor->RGBColor[ 0.8857244243136628, 0.3764133635295058, 0.1393110607841571]], {114., -1.}, Center, Automatic], InsetBox[ StyleBox["\<\"shall\"\>", StripOnInput->False, FontSize->Scaled[0.07828674948240165], FontColor->RGBColor[0.736782672705901, 0.358, 0.5030266573755369]], {-114., 9.}, Center, Automatic], InsetBox[ StyleBox["\<\"night\"\>", StripOnInput->False, FontSize->Scaled[0.07246376811594203], FontColor->RGBColor[0.8996399512215667, 0.7463488834690629, 0.]], {101., 69.}, Center, Automatic], InsetBox[ StyleBox["\<\"went\"\>", StripOnInput->False, FontSize->Scaled[0.07634575569358178], FontColor->RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965]], {69., -102.}, Center, Automatic], InsetBox[ StyleBox["\<\"whereby\"\>", StripOnInput->False, FontSize->Scaled[0.04593685300207039], FontColor->RGBColor[0.8493197142977551, 0.7407577460330839, 0.]], {80., 96.}, Center, Automatic], InsetBox[ StyleBox["\<\"body\"\>", StripOnInput->False, FontSize->Scaled[0.06081780538302277], FontColor->RGBColor[ 0.8613800418100862, 0.48092002787339083`, 0.02824203762907758]], {-72., 101.}, Center, Automatic], InsetBox[ StyleBox["\<\"thought\"\>", StripOnInput->False, FontSize->Scaled[0.04723084886128364], FontColor->RGBColor[0.2187618985811806, 0.715, 0.5074848563512248]], {118., -21.}, Center, Automatic], InsetBox[ StyleBox["\<\"woman\"\>", StripOnInput->False, FontSize->Scaled[0.06017080745341614], FontColor->RGBColor[0.7678998606330495, 0.7317110956258943, 0.]], {57., -124.}, Center, Automatic], InsetBox[ StyleBox["\<\"greatly\"\>", StripOnInput->False, FontSize->Scaled[0.05240683229813665], FontColor->RGBColor[0.7132613816472081, 0.358, 0.5392132590042952]], {76., 115.}, Center, Automatic], InsetBox[ StyleBox["\<\"come\"\>", StripOnInput->False, FontSize->Scaled[0.07116977225672878], FontColor->RGBColor[ 0.8439466852489265, 0.3467106629502147, 0.3309221912517893]], {-1., -139.}, Center, Automatic], InsetBox[ StyleBox["\<\"Asse\"\>", StripOnInput->False, FontSize->Scaled[0.06081780538302277], FontColor->RGBColor[ 0.16397784358994957`, 0.7038177251280403, 0.6117734123079395]], {-72., 121.}, Center, Automatic], InsetBox[ StyleBox["\<\"said\"\>", StripOnInput->False, FontSize->Scaled[0.0666407867494824], FontColor->RGBColor[ 0.6753413537738198, 0.3589675436319385, 0.5991466155654507]], {66., 133.}, Center, Automatic], InsetBox[ StyleBox["\<\"againe\"\>", StripOnInput->False, FontSize->Scaled[0.049818840579710144`], FontColor->RGBColor[0.9810598048862722, 0.7553955338762525, 0.]], {-70., -138.}, Center, Automatic], InsetBox[ StyleBox["\<\"tooke\"\>", StripOnInput->False, FontSize->Scaled[0.05434782608695652], FontColor->RGBColor[ 0.9637822400302223, 0.5764112001511111, 0.0977879519184]], {-120., 97.}, Center, Automatic], InsetBox[ StyleBox["\<\"chamber\"\>", StripOnInput->False, FontSize->Scaled[0.04399585921325051], FontColor->RGBColor[ 0.9492067688690977, 0.5394711792460651, 0.10728609198218791`]], {-70., 138.}, Center, Automatic], InsetBox[ StyleBox["\<\"downe\"\>", StripOnInput->False, FontSize->Scaled[0.04917184265010351], FontColor->RGBColor[ 0.9052934053395919, 0.510195603559728, 0.06776406480563275]], {-104., -116.}, Center, Automatic], InsetBox[ StyleBox["\<\"day\"\>", StripOnInput->False, FontSize->Scaled[0.06534679089026914], FontColor->RGBColor[0.5407932311309059, 0.715, 0.09762679674248334]], {116., -99.}, Center, Automatic], InsetBox[ StyleBox["\<\"time\"\>", StripOnInput->False, FontSize->Scaled[0.06275879917184264], FontColor->RGBColor[ 0.9874666782805795, 0.6948333914028977, 0.033839968642435214`]], {-118., 114.}, Center, Automatic], InsetBox[ StyleBox["\<\"young\"\>", StripOnInput->False, FontSize->Scaled[0.049818840579710144`], FontColor->RGBColor[ 0.23716678280579248`, 0.645266573755366, 0.699600139366951]], {116., -119.}, Center, Automatic], InsetBox[ StyleBox["\<\"master\"\>", StripOnInput->False, FontSize->Scaled[0.05111283643892339], FontColor->RGBColor[0.37977756485605163`, 0.715, 0.3025558265468435]], {85., -139.}, Center, Automatic], InsetBox[ StyleBox["\<\"sort\"\>", StripOnInput->False, FontSize->Scaled[0.06793478260869565], FontColor->RGBColor[ 0.9324333565611593, 0.5282889043741062, 0.0921900209050434]], {125., 110.}, Center, Automatic], InsetBox[ StyleBox["\<\"matter\"\>", StripOnInput->False, FontSize->Scaled[0.049818840579710144`], FontColor->RGBColor[ 0.8168067340273636, 0.3521386531945273, 0.3761554432877274]], {118., 18.}, Center, Automatic], InsetBox[ StyleBox["\<\"howbeit\"\>", StripOnInput->False, FontSize->Scaled[0.042701863354037264`], FontColor->RGBColor[0.5019668524892619, 0.46131988850644284`, 0.85]], {113., 130.}, Center, Automatic], InsetBox[ StyleBox["\<\"doe\"\>", StripOnInput->False, FontSize->Scaled[0.062111801242236024`], FontColor->RGBColor[0.7748409210981391, 0.358, 0.4444755060028629]], {-116., -135.}, Center, Automatic], InsetBox[ StyleBox["\<\"words\"\>", StripOnInput->False, FontSize->Scaled[0.047877846790890265`], FontColor->RGBColor[0.7513196300394465, 0.358, 0.48066210763162087`]], {-124., 132.}, Center, Automatic], InsetBox[ StyleBox["\<\"Wherefore\"\>", StripOnInput->False, FontSize->Scaled[0.03558488612836439], FontColor->RGBColor[ 0.8926354502560807, 0.366046824615879, 0.15658862564020168`]], {0., 143.}, Center, Automatic], InsetBox[ StyleBox["\<\"saying\"\>", StripOnInput->False, FontSize->Scaled[0.04334886128364389], FontColor->RGBColor[0.47929071933511125`, 0.715, 0.1759027208462221]], {-135., -36.}, Center, Automatic], InsetBox[ StyleBox["\<\"fortune\"\>", StripOnInput->False, FontSize->Scaled[0.042701863354037264`], FontColor->RGBColor[ 0.8745421494417032, 0.39318677583744527`, 0.11135537360425793`]], {-133., 28.}, Center, Automatic], InsetBox[ StyleBox["\<\"began\"\>", StripOnInput->False, FontSize->Scaled[0.04399585921325051], FontColor->RGBColor[ 0.3103557220216354, 0.5867154223826917, 0.7874268664259625]], {133., 87.}, Center, Automatic], InsetBox[ StyleBox["\<\"theeves\"\>", StripOnInput->False, FontSize->Scaled[0.03817287784679089], FontColor->RGBColor[0.31827505306025683`, 0.715, 0.3808317506505822]], {111., 144.}, Center, Automatic], InsetBox[ StyleBox["\<\"like\"\>", StripOnInput->False, FontSize->Scaled[0.06405279503105589], FontColor->RGBColor[0.47401116530937026`, 0.47809330081437784`, 0.85]], {137., -43.}, Center, Automatic], InsetBox[ StyleBox["\<\"wife\"\>", StripOnInput->False, FontSize->Scaled[0.054994824016563144`], FontColor->RGBColor[ 0.35558897405758294`, 0.5505288207539337, 0.8417067688690995]], {136., -63.}, Center, Automatic], InsetBox[ StyleBox["\<\"death\"\>", StripOnInput->False, FontSize->Scaled[0.047877846790890265`], FontColor->RGBColor[0.428777913273419, 0.5052332520359486, 0.85]], {-134., -93.}, Center, Automatic], InsetBox[ StyleBox["\<\"reason\"\>", StripOnInput->False, FontSize->Scaled[0.048524844720496896`], FontColor->RGBColor[ 0.9038177251280404, 0.3492734123079395, 0.18454431282010084`]], {-113., -151.}, Center, Automatic], InsetBox[ StyleBox["\<\"place\"\>", StripOnInput->False, FontSize->Scaled[0.04528985507246377], FontColor->RGBColor[ 0.8607200975568693, 0.34335598048862614`, 0.30296650407188447`]], {-118., 147.}, Center, Automatic], InsetBox[ StyleBox["\<\"pray\"\>", StripOnInput->False, FontSize->Scaled[0.047877846790890265`], FontColor->RGBColor[ 0.9784200278733908, 0.649600139366954, 0.058265924741844846`]], {135., -77.}, Center, Automatic], InsetBox[ StyleBox["\<\"neither\"\>", StripOnInput->False, FontSize->Scaled[0.03817287784679089], FontColor->RGBColor[0.7277983389807635, 0.358, 0.5168487092603637]], {50., 150.}, Center, Automatic], InsetBox[ StyleBox["\<\"called\"\>", StripOnInput->False, FontSize->Scaled[0.040760869565217385`], FontColor->RGBColor[ 0.8781534541180211, 0.4921023027453475, 0.04333810870621905]], {133., -138.}, Center, Automatic], InsetBox[ StyleBox["\<\"hand\"\>", StripOnInput->False, FontSize->Scaled[0.048524844720496896`], FontColor->RGBColor[0.6361597700445392, 0.7170733077827265, 0.]], {-147., 43.}, Center, Automatic], InsetBox[ StyleBox["\<\"poore\"\>", StripOnInput->False, FontSize->Scaled[0.042701863354037264`], FontColor->RGBColor[ 0.9930578157165594, 0.7227890785827968, 0.01874389756528967]], {0., -154.}, Center, Automatic], InsetBox[ StyleBox["\<\"according\"\>", StripOnInput->False, FontSize->Scaled[0.030408902691511384`], FontColor->RGBColor[ 0.8064401951137368, 0.3542119609772526, 0.39343300814377197`]], {0., 155.}, Center, Automatic], InsetBox[ StyleBox["\<\"know\"\>", StripOnInput->False, FontSize->Scaled[0.04205486542443064], FontColor->RGBColor[ 0.7896667828057927, 0.3575666434388414, 0.4213886953236787]], {-144., 58.}, Center, Automatic], InsetBox[ StyleBox["\<\"hands\"\>", StripOnInput->False, FontSize->Scaled[0.04011387163561076], FontColor->RGBColor[0.7175796237092107, 0.7261199581899123, 0.]], {-46., -153.}, Center, Automatic], InsetBox[ StyleBox["\<\"likewise\"\>", StripOnInput->False, FontSize->Scaled[0.03558488612836439], FontColor->RGBColor[ 0.922066817647527, 0.5213778784316846, 0.08286013588277422]], {43., -155.}, Center, Automatic], InsetBox[ StyleBox["\<\"people\"\>", StripOnInput->False, FontSize->Scaled[0.03558488612836439], FontColor->RGBColor[0.5788038738141875, 0.715, 0.049249615145579635`]], {-51., 152.}, Center, Automatic], InsetBox[ StyleBox["\<\"amongst\"\>", StripOnInput->False, FontSize->Scaled[0.02976190476190476], FontColor->RGBColor[ 0.9107287510704583, 0.33890687339431275`, 0.20182187767614543`]], {86., -153.}, Center, Automatic], InsetBox[ StyleBox["\<\"ground\"\>", StripOnInput->False, FontSize->Scaled[0.03170289855072464], FontColor->RGBColor[0.7042770479220728, 0.358, 0.5530353108891188]], {148., 60.}, Center, Automatic], InsetBox[ StyleBox["\<\"home\"\>", StripOnInput->False, FontSize->Scaled[0.03752587991718426], FontColor->RGBColor[ 0.5750747800184488, 0.4174563783225715, 0.8498130499538777]], {-146., -105.}, Center, Automatic], InsetBox[ StyleBox["\<\"little\"\>", StripOnInput->False, FontSize->Scaled[0.046583850931677016`], FontColor->RGBColor[ 0.8342400905885153, 0.4628267270590103, 0.0038160815296638794`]], {-150., 74.}, Center, Automatic], InsetBox[ StyleBox["\<\"feare\"\>", StripOnInput->False, FontSize->Scaled[0.03752587991718426], FontColor->RGBColor[ 0.845266573755366, 0.437100139366951, 0.03816643438841502]], {-87., 158.}, Center, Automatic], InsetBox[ StyleBox["\<\"hath\"\>", StripOnInput->False, FontSize->Scaled[0.040760869565217385`], FontColor->RGBColor[ 0.6319174318193065, 0.38429816477207124`, 0.7077064204517338]], {152., 30.}, Center, Automatic], InsetBox[ StyleBox["\<\"Venus\"\>", StripOnInput->False, FontSize->Scaled[0.036231884057971016`], FontColor->RGBColor[ 0.8335801463353031, 0.3487839707329394, 0.3481997561078282]], {80., 161.}, Center, Automatic], InsetBox[ StyleBox["\<\"verily\"\>", StripOnInput->False, FontSize->Scaled[0.036231884057971016`], FontColor->RGBColor[ 0.26512246998569167`, 0.6229020240114467, 0.73314696398283]], {151., -103.}, Center, Automatic], InsetBox[ StyleBox["\<\"sayd\"\>", StripOnInput->False, FontSize->Scaled[0.03881987577639751], FontColor->RGBColor[ 0.969373377466199, 0.6043668873309952, 0.08269188084126262]], {-144., -119.}, Center, Automatic], InsetBox[ StyleBox["\<\"saw\"\>", StripOnInput->False, FontSize->Scaled[0.05111283643892339], FontColor->RGBColor[0.5472001045252132, 0.43417993728487203`, 0.85]], {116., 157.}, Center, Automatic], InsetBox[ StyleBox["\<\"owne\"\>", StripOnInput->False, FontSize->Scaled[0.04399585921325051], FontColor->RGBColor[0.6897400905885174, 0.358, 0.5753998606330502]], {128., -151.}, Center, Automatic], InsetBox[ StyleBox["\<\"mee\"\>", StripOnInput->False, FontSize->Scaled[0.04917184265010351], FontColor->RGBColor[ 0.6536293927965667, 0.37163285420200276`, 0.6534265180085832]], {-146., 160.}, Center, Automatic], InsetBox[ StyleBox["\<\"old\"\>", StripOnInput->False, FontSize->Scaled[0.05111283643892339], FontColor->RGBColor[ 0.8564488486273256, 0.42032672705901153`, 0.06612212156831418]], {-155., 0.}, Center, Automatic], InsetBox[ StyleBox["\<\"end\"\>", StripOnInput->False, FontSize->Scaled[0.041407867494824016`], FontColor->RGBColor[ 0.19193353076984873`, 0.681453175384121, 0.6453202369238185]], {42., -140.}, Center, Automatic], InsetBox[ StyleBox["\<\"quoth\"\>", StripOnInput->False, FontSize->Scaled[0.031055900621118012`], FontColor->RGBColor[ 0.9986489531525362, 0.7507447657626809, 0.0036478264881522893`]], {150., 71.}, Center, Automatic], InsetBox[ StyleBox["\<\"desire\"\>", StripOnInput->False, FontSize->Scaled[0.030408902691511384`], FontColor->RGBColor[ 0.8949268664259606, 0.5032845776173072, 0.05843417978336459]], {-150., -135.}, Center, Automatic], InsetBox[ StyleBox["\<\"dead\"\>", StripOnInput->False, FontSize->Scaled[0.03364389233954451], FontColor->RGBColor[ 0.9840111653093676, 0.677555826546838, 0.04316985366470745]], {152., 44.}, Center, Automatic], InsetBox[ StyleBox["\<\"thing\"\>", StripOnInput->False, FontSize->Scaled[0.034290890269151136`], FontColor->RGBColor[0.4567336004533182, 0.4884598397280091, 0.85]], {150., 142.}, Center, Automatic], InsetBox[ StyleBox["\<\"face\"\>", StripOnInput->False, FontSize->Scaled[0.03881987577639751], FontColor->RGBColor[0.38354466123747527`, 0.5323732032575149, 0.85]], {-152., 144.}, Center, Automatic], InsetBox[ StyleBox["\<\"long\"\>", StripOnInput->False, FontSize->Scaled[0.03752587991718426], FontColor->RGBColor[0.9307395679624266, 0.7498043964402695, 0.]], {-154., 113.}, Center, Automatic], InsetBox[ StyleBox["\<\"found\"\>", StripOnInput->False, FontSize->Scaled[0.031055900621118012`], FontColor->RGBColor[ 0.8633598745697435, 0.40996018814538476`, 0.08339968642435877]], {149., 154.}, Center, Automatic], InsetBox[ StyleBox["\<\"say\"\>", StripOnInput->False, FontSize->Scaled[0.03946687370600414], FontColor->RGBColor[ 0.9046334610863751, 0.334573307782725, 0.22977756485604156`]], {-31., 89.}, Center, Automatic], InsetBox[ StyleBox["\<\"make\"\>", StripOnInput->False, FontSize->Scaled[0.031055900621118012`], FontColor->RGBColor[0.529922539669161, 0.44454647619850335`, 0.85]], {-153., -160.}, Center, Automatic], InsetBox[ StyleBox["\<\"meane\"\>", StripOnInput->False, FontSize->Scaled[0.030408902691511384`], FontColor->RGBColor[0.6672593867853922, 0.7205288207539324, 0.]], {40., 163.}, Center, Automatic], InsetBox[ StyleBox["\<\"gold\"\>", StripOnInput->False, FontSize->Scaled[0.032349896480331264`], FontColor->RGBColor[0.7989994773739094, 0.735166608597101, 0.]], {155., 12.}, Center, Automatic], InsetBox[ StyleBox["\<\"God\"\>", StripOnInput->False, FontSize->Scaled[0.03364389233954451], FontColor->RGBColor[0.7658565873730018, 0.358, 0.4582975578876895]], {-155., -21.}, Center, Automatic], InsetBox[ StyleBox["\<\"head\"\>", StripOnInput->False, FontSize->Scaled[0.032349896480331264`], FontColor->RGBColor[ 0.8774935098648088, 0.34000129802703827`, 0.2750108168919853]], {153., -118.}, Center, Automatic], InsetBox[ StyleBox["\<\"men\"\>", StripOnInput->False, FontSize->Scaled[0.03558488612836439], FontColor->RGBColor[ 0.6670481226429111, 0.3638052617916352, 0.6198796933927223]], {-78., -162.}, Center, Automatic], InsetBox[ StyleBox["\<\"love\"\>", StripOnInput->False, FontSize->Scaled[0.032349896480331264`], FontColor->RGBColor[ 0.3383114092015346, 0.5643508726387724, 0.8209736910418415]], {-93., 28.}, Center, Automatic], InsetBox[ StyleBox["\<\"Let\"\>", StripOnInput->False, FontSize->Scaled[0.03299689440993789], FontColor->RGBColor[ 0.8510135028964549, 0.47400900193096995`, 0.018912152606809424`]], {154., -4.}, Center, Automatic], InsetBox[ StyleBox["\<\"tell\"\>", StripOnInput->False, FontSize->Scaled[0.03364389233954451], FontColor->RGBColor[0.15725938678540247`, 0.715, 0.5857607804549424]], {156., -18.}, Center, Automatic], InsetBox[ StyleBox["\<\"wee\"\>", StripOnInput->False, FontSize->Scaled[0.032349896480331264`], FontColor->RGBColor[ 0.9603267270590103, 0.5591336352950514, 0.10711783694067224`]], {-154., 14.}, Center, Automatic], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, FontSize->Scaled[0.046583850931677016`], FontColor->RGBColor[ 0.596786740995709, 0.404791067752503, 0.7955331475107271]], {-152., -52.}, Center, Automatic], InsetBox[ StyleBox["\<\"bed\"\>", StripOnInput->False, FontSize->Scaled[0.031055900621118012`], FontColor->RGBColor[0.4177882075393331, 0.715, 0.25417864494993975`]], {-155., -66.}, Center, Automatic], InsetBox[ StyleBox["\<\"life\"\>", StripOnInput->False, FontSize->Scaled[0.03299689440993789], FontColor->RGBColor[ 0.6102054708420535, 0.39696347534213544`, 0.7619863228948663]], {-151., 88.}, Center, Automatic], InsetBox[ StyleBox["\<\"fell\"\>", StripOnInput->False, FontSize->Scaled[0.030408902691511384`], FontColor->RGBColor[ 0.6453361616656581, 0.37647057236169945`, 0.6741595958358548]], {159., -31.}, Center, Automatic], InsetBox[ StyleBox["\<\"art\"\>", StripOnInput->False, FontSize->Scaled[0.030408902691511384`], FontColor->RGBColor[ 0.2198892179497479, 0.6590886256402017, 0.6788670615396974]], {-52., 162.}, Center, Automatic]}, DefaultBaseStyle->{"Graphics", FontFamily -> "Helvetica"}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}, PlotRange->{{-168.5, 167.5}, {-168.5, 168.5}}]], "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.705424063301099*^9}] }, Open ]] }, Open ]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"Examples for The Golden Ass", Visible->True, DockedCells->{}, TaggingRules->{"NotebookTemplateVersion" -> 1.}, CellContext->Notebook, ShowCellTags->True, FrontEndVersion->"13.2 for Mac OS X x86 (64-bit) (November 18, 2022)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[621, 23, 36, 0, 70, "Subsection",ExpressionUUID->"49431fb6-20d0-4427-94a1-46f2229c02f9"], Cell[660, 25, 200, 3, 70, "Text",ExpressionUUID->"a4a4fb57-a5e9-4a89-8bc0-f9d3e3c9b440"], Cell[CellGroupData[{ Cell[885, 32, 443, 10, 70, "Input",ExpressionUUID->"e12999d5-3946-4b25-9c9e-5f5e59a6f6ae"], Cell[1331, 44, 1372, 19, 70, "Output",ExpressionUUID->"97162eee-0596-4a1e-8775-27e8f07ce738"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2752, 69, 35, 0, 70, "Subsection",ExpressionUUID->"ac29c70c-3af8-4bdf-a203-e6363e23ad79"], Cell[2790, 71, 350, 5, 70, "Text",ExpressionUUID->"016e799d-48cc-46b4-acdf-300efb615d21"], Cell[CellGroupData[{ Cell[3165, 80, 505, 9, 70, "Input",ExpressionUUID->"ca7cde9e-39ec-4133-b143-1787bc635ef3"], Cell[3673, 91, 23801, 564, 70, "Output",ExpressionUUID->"d89ad87b-51cb-4316-9de2-9de3467c6737"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)