(* 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[ 28306, 685] NotebookOptionsPosition[ 27028, 650] NotebookOutlinePosition[ 27569, 672] CellTagsIndexPosition[ 27526, 669] WindowTitle->Examples for The First Men in the Moon WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection"], Cell["Retrieve the default content:", "Text", CellChangeTimes->{{3.696186645510051*^9, 3.6961866545240507`*^9}, { 3.696187841532233*^9, 3.696187852829363*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TextCases", "[", RowBox[{ RowBox[{"ResourceData", "[", "\"\\"", "]"}], ",", " ", "\"\\""}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]], "Input", CellChangeTimes->{{3.6804518239459944`*^9, 3.680451854651065*^9}, { 3.705423795207123*^9, 3.705423812766088*^9}, 3.886181369465611*^9}], Cell[BoxData["\<\"As I sit down to write here amidst the shadows of \ vine-leaves under the\\nblue sky of southern Italy, it comes to me with a \ certain quality of\\nastonishment that my participation in these amazing \ adventures of Mr.\\nCavor was, after all, the outcome of the purest accident. \ It might have\\nbeen any one. I fell into these things at a time when I \ thought myself\\nremoved from the slightest possibility of disturbing \ experiences. I had\\ngone to Lympne because I had imagined it the most \ uneventful place in the\\nworld. \\\"Here, at any rate,\\\" said I, \\\"I \ shall find peace and a chance to\\nwork!\\\"\"\>"], "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.705423768745969*^9, { 3.7054238096307096`*^9, 3.705423813723567*^9}}] }, 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.70542382030856*^9, 3.705423823458955*^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.7054238245757513`*^9, 3.7054238348668423`*^9}, 3.886181384250957*^9}], Cell[BoxData[ GraphicsBox[{InsetBox[ StyleBox["\<\"Cavor\"\>", StripOnInput->False, FontSize->Scaled[0.18276643990929706`], FontColor->RGBColor[0.880722, 0.611041, 0.142051]], {0, 0}, Center, Automatic], InsetBox[ StyleBox["\<\"said\"\>", StripOnInput->False, FontSize->Scaled[0.2222222222222222], FontColor->RGBColor[0.368417, 0.506779, 0.709798]], {23., 40.}, Center, Automatic], InsetBox[ StyleBox["\<\"little\"\>", StripOnInput->False, FontSize->Scaled[0.14671201814058957`], FontColor->RGBColor[0.560181, 0.691569, 0.194885]], {0., -41.}, Center, Automatic], InsetBox[ StyleBox["\<\"Selenites\"\>", StripOnInput->False, FontSize->Scaled[0.08480725623582767], FontColor->RGBColor[0.571589, 0.586483, 0.]], {-1., -70.}, Center, Automatic], InsetBox[ StyleBox["\<\"moon\"\>", StripOnInput->False, FontSize->Scaled[0.14467120181405896`], FontColor->RGBColor[0.922526, 0.385626, 0.209179]], {-22., 77.}, Center, Automatic], InsetBox[ StyleBox["\<\"time\"\>", StripOnInput->False, FontSize->Scaled[0.12698412698412698`], FontColor->RGBColor[0.528488, 0.470624, 0.701351]], {-79., -32.}, Center, Automatic], InsetBox[ StyleBox["\<\"sphere\"\>", StripOnInput->False, FontSize->Scaled[0.09569160997732426], FontColor->RGBColor[0.647624, 0.37816, 0.614037]], {89., -28.}, Center, Automatic], InsetBox[ StyleBox["\<\"things\"\>", StripOnInput->False, FontSize->Scaled[0.09841269841269841], FontColor->RGBColor[1, 0.75, 0]], {-83., 45.}, Center, Automatic], InsetBox[ StyleBox["\<\"came\"\>", StripOnInput->False, FontSize->Scaled[0.12290249433106576`], FontColor->RGBColor[0.772079, 0.431554, 0.102387]], {0., -93.}, Center, Automatic], InsetBox[ StyleBox["\<\"like\"\>", StripOnInput->False, FontSize->Scaled[0.11473922902494332`], FontColor->RGBColor[0.363898, 0.618501, 0.782349]], {0., 103.}, Center, Automatic], InsetBox[ StyleBox["\<\"earth\"\>", StripOnInput->False, FontSize->Scaled[0.08412698412698413], FontColor->RGBColor[0.915, 0.3325, 0.2125]], {84., -55.}, Center, Automatic], InsetBox[ StyleBox["\<\"world\"\>", StripOnInput->False, FontSize->Scaled[0.07732426303854875], FontColor->RGBColor[ 0.9728288904374106, 0.621644452187053, 0.07336199581899142]], {102., -2.}, Center, Automatic], InsetBox[ StyleBox["\<\"space\"\>", StripOnInput->False, FontSize->Scaled[0.07052154195011338], FontColor->RGBColor[ 0.9324333565611593, 0.5282889043741062, 0.0921900209050434]], {-88., -54.}, Center, Automatic], InsetBox[ StyleBox["\<\"towards\"\>", StripOnInput->False, FontSize->Scaled[0.05759637188208617], FontColor->RGBColor[ 0.9874666782805795, 0.6948333914028977, 0.033839968642435214`]], {68., 81.}, Center, Automatic], InsetBox[ StyleBox["\<\"thing\"\>", StripOnInput->False, FontSize->Scaled[0.07392290249433106], FontColor->RGBColor[ 0.838355547812947, 0.44746667828057946`, 0.0208888695323676]], {-104., 0.}, Center, Automatic], InsetBox[ StyleBox["\<\"think\"\>", StripOnInput->False, FontSize->Scaled[0.07528344671201814], FontColor->RGBColor[0.736782672705901, 0.358, 0.5030266573755369]], {83., -78.}, Center, Automatic], InsetBox[ StyleBox["\<\"moment\"\>", StripOnInput->False, FontSize->Scaled[0.05623582766439909], FontColor->RGBColor[0.7678998606330495, 0.7317110956258943, 0.]], {19., -113.}, Center, Automatic], InsetBox[ StyleBox["\<\"looked\"\>", StripOnInput->False, FontSize->Scaled[0.05691609977324263], FontColor->RGBColor[ 0.16397784358994957`, 0.7038177251280403, 0.6117734123079395]], {-103., 21.}, Center, Automatic], InsetBox[ StyleBox["\<\"know\"\>", StripOnInput->False, FontSize->Scaled[0.06575963718820863], FontColor->RGBColor[0.5407932311309059, 0.715, 0.09762679674248334]], {110., 19.}, Center, Automatic], InsetBox[ StyleBox["\<\"way\"\>", StripOnInput->False, FontSize->Scaled[0.07256235827664399], FontColor->RGBColor[0.8996399512215667, 0.7463488834690629, 0.]], {-80., -76.}, Center, Automatic], InsetBox[ StyleBox["\<\"eyes\"\>", StripOnInput->False, FontSize->Scaled[0.06235827664399093], FontColor->RGBColor[ 0.8857244243136628, 0.3764133635295058, 0.1393110607841571]], {106., 39.}, Center, Automatic], InsetBox[ StyleBox["\<\"light\"\>", StripOnInput->False, FontSize->Scaled[0.07052154195011338], FontColor->RGBColor[ 0.28240003484173815`, 0.6090799721266095, 0.7538800418100857]], {49., 103.}, Center, Automatic], InsetBox[ StyleBox["\<\"darkness\"\>", StripOnInput->False, FontSize->Scaled[0.046031746031746035`], FontColor->RGBColor[0.6361597700445392, 0.7170733077827265, 0.]], {-59., 98.}, Center, Automatic], InsetBox[ StyleBox["\<\"Presently\"\>", StripOnInput->False, FontSize->Scaled[0.04126984126984127], FontColor->RGBColor[ 0.3103557220216354, 0.5867154223826917, 0.7874268664259625]], {-44., -114.}, Center, Automatic], InsetBox[ StyleBox["\<\"come\"\>", StripOnInput->False, FontSize->Scaled[0.07256235827664399], FontColor->RGBColor[ 0.5833680111493557, 0.4126186601628758, 0.8290799721266107]], {80., -96.}, Center, Automatic], InsetBox[ StyleBox["\<\"lunar\"\>", StripOnInput->False, FontSize->Scaled[0.05691609977324263], FontColor->RGBColor[ 0.8613800418100862, 0.48092002787339083`, 0.02824203762907758]], {106., 53.}, Center, Automatic], InsetBox[ StyleBox["\<\"sort\"\>", StripOnInput->False, FontSize->Scaled[0.07188208616780045], FontColor->RGBColor[ 0.8439466852489265, 0.3467106629502147, 0.3309221912517893]], {-99., 69.}, Center, Automatic], InsetBox[ StyleBox["\<\"suddenly\"\>", StripOnInput->False, FontSize->Scaled[0.042630385487528344`], FontColor->RGBColor[ 0.8342400905885153, 0.4628267270590103, 0.0038160815296638794`]], {-77., -95.}, Center, Automatic], InsetBox[ StyleBox["\<\"away\"\>", StripOnInput->False, FontSize->Scaled[0.05623582766439909], FontColor->RGBColor[ 0.6184987019729621, 0.39212575718243875`, 0.7412532450675947]], {-50., 114.}, Center, Automatic], InsetBox[ StyleBox["\<\"stood\"\>", StripOnInput->False, FontSize->Scaled[0.05215419501133786], FontColor->RGBColor[ 0.8564488486273256, 0.42032672705901153`, 0.06612212156831418]], {18., 122.}, Center, Automatic], InsetBox[ StyleBox["\<\"hand\"\>", StripOnInput->False, FontSize->Scaled[0.05555555555555555], FontColor->RGBColor[ 0.8878600487784333, 0.33792799024431336`, 0.2577332520359445]], {92., 99.}, Center, Automatic], InsetBox[ StyleBox["\<\"quite\"\>", StripOnInput->False, FontSize->Scaled[0.054195011337868484`], FontColor->RGBColor[ 0.9637822400302223, 0.5764112001511111, 0.0977879519184]], {72., -115.}, Center, Automatic], InsetBox[ StyleBox["\<\"air\"\>", StripOnInput->False, FontSize->Scaled[0.07936507936507936], FontColor->RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85]], {115., 69.}, Center, Automatic], InsetBox[ StyleBox["\<\"head\"\>", StripOnInput->False, FontSize->Scaled[0.053514739229024944`], FontColor->RGBColor[0.7132613816472081, 0.358, 0.5392132590042952]], {60., 122.}, Center, Automatic], InsetBox[ StyleBox["\<\"saw\"\>", StripOnInput->False, FontSize->Scaled[0.0746031746031746], FontColor->RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965]], {4., -128.}, Center, Automatic], InsetBox[ StyleBox["\<\"turned\"\>", StripOnInput->False, FontSize->Scaled[0.04399092970521542], FontColor->RGBColor[ 0.9784200278733908, 0.649600139366954, 0.058265924741844846`]], {-25., 128.}, Center, Automatic], InsetBox[ StyleBox["\<\"thought\"\>", StripOnInput->False, FontSize->Scaled[0.0419501133786848], FontColor->RGBColor[0.8493197142977551, 0.7407577460330839, 0.]], {-47., -129.}, Center, Automatic], InsetBox[ StyleBox["\<\"feet\"\>", StripOnInput->False, FontSize->Scaled[0.05691609977324263], FontColor->RGBColor[0.7748409210981391, 0.358, 0.4444755060028629]], {-105., 84.}, Center, Automatic], InsetBox[ StyleBox["\<\"Cavor's\"\>", StripOnInput->False, FontSize->Scaled[0.040589569160997735`], FontColor->RGBColor[ 0.9492067688690977, 0.5394711792460651, 0.10728609198218791`]], {-70., 127.}, Center, Automatic], InsetBox[ StyleBox["\<\"man\"\>", StripOnInput->False, FontSize->Scaled[0.06712018140589569], FontColor->RGBColor[ 0.6753413537738198, 0.3589675436319385, 0.5991466155654507]], {-94., -109.}, Center, Automatic], InsetBox[ StyleBox["\<\"great\"\>", StripOnInput->False, FontSize->Scaled[0.046031746031746035`], FontColor->RGBColor[ 0.9038177251280404, 0.3492734123079395, 0.18454431282010084`]], {97., 115.}, Center, Automatic], InsetBox[ StyleBox["\<\"long\"\>", StripOnInput->False, FontSize->Scaled[0.053514739229024944`], FontColor->RGBColor[0.37977756485605163`, 0.715, 0.3025558265468435]], {-119., -74.}, Center, Automatic], InsetBox[ StyleBox["\<\"Glass\"\>", StripOnInput->False, FontSize->Scaled[0.042630385487528344`], FontColor->RGBColor[0.2187618985811806, 0.715, 0.5074848563512248]], {-90., 112.}, Center, Automatic], InsetBox[ StyleBox["\<\"just\"\>", StripOnInput->False, FontSize->Scaled[0.05555555555555555], FontColor->RGBColor[ 0.35558897405758294`, 0.5505288207539337, 0.8417067688690995]], {-120., -93.}, Center, Automatic], InsetBox[ StyleBox["\<\"Selenite\"\>", StripOnInput->False, FontSize->Scaled[0.037188208616780044`], FontColor->RGBColor[0.31827505306025683`, 0.715, 0.3808317506505822]], {-94., -125.}, Center, Automatic], InsetBox[ StyleBox["\<\"went\"\>", StripOnInput->False, FontSize->Scaled[0.04739229024943311], FontColor->RGBColor[ 0.6536293927965667, 0.37163285420200276`, 0.6534265180085832]], {111., -112.}, Center, Automatic], InsetBox[ StyleBox["\<\"face\"\>", StripOnInput->False, FontSize->Scaled[0.05011337868480726], FontColor->RGBColor[0.9810598048862722, 0.7553955338762525, 0.]], {109., -127.}, Center, Automatic], InsetBox[ StyleBox["\<\"hands\"\>", StripOnInput->False, FontSize->Scaled[0.0419501133786848], FontColor->RGBColor[ 0.596786740995709, 0.404791067752503, 0.7955331475107271]], {99., 128.}, Center, Automatic], InsetBox[ StyleBox["\<\"good\"\>", StripOnInput->False, FontSize->Scaled[0.04399092970521542], FontColor->RGBColor[0.428777913273419, 0.5052332520359486, 0.85]], {-110., 127.}, Center, Automatic], InsetBox[ StyleBox["\<\"make\"\>", StripOnInput->False, FontSize->Scaled[0.04331065759637188], FontColor->RGBColor[0.7513196300394465, 0.358, 0.48066210763162087`]], {14., 137.}, Center, Automatic], InsetBox[ StyleBox["\<\"men\"\>", StripOnInput->False, FontSize->Scaled[0.05759637188208617], FontColor->RGBColor[0.47401116530937026`, 0.47809330081437784`, 0.85]], {44., -134.}, Center, Automatic], InsetBox[ StyleBox["\<\"right\"\>", StripOnInput->False, FontSize->Scaled[0.04739229024943311], FontColor->RGBColor[ 0.9052934053395919, 0.510195603559728, 0.06776406480563275]], {130., -48.}, Center, Automatic], InsetBox[ StyleBox["\<\"imagine\"\>", StripOnInput->False, FontSize->Scaled[0.03310657596371882], FontColor->RGBColor[ 0.9603267270590103, 0.5591336352950514, 0.10711783694067224`]], {53., 136.}, Center, Automatic], InsetBox[ StyleBox["\<\"enormous\"\>", StripOnInput->False, FontSize->Scaled[0.035827664399092976`], FontColor->RGBColor[ 0.922066817647527, 0.5213778784316846, 0.08286013588277422]], {-35., 141.}, Center, Automatic], InsetBox[ StyleBox["\<\"different\"\>", StripOnInput->False, FontSize->Scaled[0.031746031746031744`], FontColor->RGBColor[ 0.8949268664259606, 0.5032845776173072, 0.05843417978336459]], {84., -140.}, Center, Automatic], InsetBox[ StyleBox["\<\"began\"\>", StripOnInput->False, FontSize->Scaled[0.037188208616780044`], FontColor->RGBColor[0.38354466123747527`, 0.5323732032575149, 0.85]], {127., -71.}, Center, Automatic], InsetBox[ StyleBox["\<\"strange\"\>", StripOnInput->False, FontSize->Scaled[0.03310657596371882], FontColor->RGBColor[0.7042770479220728, 0.358, 0.5530353108891188]], {128., -91.}, Center, Automatic], InsetBox[ StyleBox["\<\"Cavorite\"\>", StripOnInput->False, FontSize->Scaled[0.031746031746031744`], FontColor->RGBColor[ 0.2198892179497479, 0.6590886256402017, 0.6788670615396974]], {-126., 100.}, Center, Automatic], InsetBox[ StyleBox["\<\"certain\"\>", StripOnInput->False, FontSize->Scaled[0.035827664399092976`], FontColor->RGBColor[ 0.26512246998569167`, 0.6229020240114467, 0.73314696398283]], {-87., -139.}, Center, Automatic], InsetBox[ StyleBox["\<\"Bedford\"\>", StripOnInput->False, FontSize->Scaled[0.03242630385487528], FontColor->RGBColor[0.4177882075393331, 0.715, 0.25417864494993975`]], {-118., 138.}, Center, Automatic], InsetBox[ StyleBox["\<\"indeed\"\>", StripOnInput->False, FontSize->Scaled[0.03854875283446712], FontColor->RGBColor[ 0.6319174318193065, 0.38429816477207124`, 0.7077064204517338]], {-125., -138.}, Center, Automatic], InsetBox[ StyleBox["\<\"going\"\>", StripOnInput->False, FontSize->Scaled[0.040589569160997735`], FontColor->RGBColor[0.6897400905885174, 0.358, 0.5753998606330502]], {129., 90.}, Center, Automatic], InsetBox[ StyleBox["\<\"night\"\>", StripOnInput->False, FontSize->Scaled[0.040589569160997735`], FontColor->RGBColor[0.47929071933511125`, 0.715, 0.1759027208462221]], {-131., -111.}, Center, Automatic], InsetBox[ StyleBox["\<\"took\"\>", StripOnInput->False, FontSize->Scaled[0.040589569160997735`], FontColor->RGBColor[ 0.8745421494417032, 0.39318677583744527`, 0.11135537360425793`]], {-131., -31.}, Center, Automatic], InsetBox[ StyleBox["\<\"course\"\>", StripOnInput->False, FontSize->Scaled[0.037188208616780044`], FontColor->RGBColor[ 0.969373377466199, 0.6043668873309952, 0.08269188084126262]], {123., -139.}, Center, Automatic], InsetBox[ StyleBox["\<\"got\"\>", StripOnInput->False, FontSize->Scaled[0.048072562358276644`], FontColor->RGBColor[ 0.23716678280579248`, 0.645266573755366, 0.699600139366951]], {-131., -46.}, Center, Automatic], InsetBox[ StyleBox["\<\"clear\"\>", StripOnInput->False, FontSize->Scaled[0.03650793650793651], FontColor->RGBColor[ 0.5750747800184488, 0.4174563783225715, 0.8498130499538777]], {130., 103.}, Center, Automatic], InsetBox[ StyleBox["\<\"stared\"\>", StripOnInput->False, FontSize->Scaled[0.03242630385487528], FontColor->RGBColor[ 0.9986489531525362, 0.7507447657626809, 0.0036478264881522893`]], {-77., 140.}, Center, Automatic], InsetBox[ StyleBox["\<\"place\"\>", StripOnInput->False, FontSize->Scaled[0.034467120181405894`], FontColor->RGBColor[ 0.8926354502560807, 0.366046824615879, 0.15658862564020168`]], {-132., -14.}, Center, Automatic], InsetBox[ StyleBox["\<\"work\"\>", StripOnInput->False, FontSize->Scaled[0.03854875283446712], FontColor->RGBColor[ 0.9046334610863751, 0.334573307782725, 0.22977756485604156`]], {125., 139.}, Center, Automatic], InsetBox[ StyleBox["\<\"far\"\>", StripOnInput->False, FontSize->Scaled[0.04943310657596372], FontColor->RGBColor[ 0.8168067340273636, 0.3521386531945273, 0.3761554432877274]], {-135., 37.}, Center, Automatic], InsetBox[ StyleBox["\<\"Grand\"\>", StripOnInput->False, FontSize->Scaled[0.03378684807256235], FontColor->RGBColor[ 0.8510135028964549, 0.47400900193096995`, 0.018912152606809424`]], {0., -144.}, Center, Automatic], InsetBox[ StyleBox["\<\"sound\"\>", StripOnInput->False, FontSize->Scaled[0.034467120181405894`], FontColor->RGBColor[ 0.9840111653093676, 0.677555826546838, 0.04316985366470745]], {-34., -142.}, Center, Automatic], InsetBox[ StyleBox["\<\"found\"\>", StripOnInput->False, FontSize->Scaled[0.031746031746031744`], FontColor->RGBColor[ 0.6453361616656581, 0.37647057236169945`, 0.6741595958358548]], {142., 44.}, Center, Automatic], InsetBox[ StyleBox["\<\"blue\"\>", StripOnInput->False, FontSize->Scaled[0.04126984126984127], FontColor->RGBColor[ 0.8607200975568693, 0.34335598048862614`, 0.30296650407188447`]], {-134., 66.}, Center, Automatic], InsetBox[ StyleBox["\<\"crater\"\>", StripOnInput->False, FontSize->Scaled[0.03310657596371882], FontColor->RGBColor[ 0.3383114092015346, 0.5643508726387724, 0.8209736910418415]], {4., 150.}, Center, Automatic], InsetBox[ StyleBox["\<\"doubt\"\>", StripOnInput->False, FontSize->Scaled[0.03378684807256235], FontColor->RGBColor[0.15725938678540247`, 0.715, 0.5857607804549424]], {32., -148.}, Center, Automatic], InsetBox[ StyleBox["\<\"look\"\>", StripOnInput->False, FontSize->Scaled[0.03922902494331066], FontColor->RGBColor[0.5019668524892619, 0.46131988850644284`, 0.85]], {144., 0.}, Center, Automatic], InsetBox[ StyleBox["\<\"cavern\"\>", StripOnInput->False, FontSize->Scaled[0.035827664399092976`], FontColor->RGBColor[ 0.8335801463353031, 0.3487839707329394, 0.3481997561078282]], {40., 148.}, Center, Automatic], InsetBox[ StyleBox["\<\"heard\"\>", StripOnInput->False, FontSize->Scaled[0.03242630385487528], FontColor->RGBColor[0.529922539669161, 0.44454647619850335`, 0.85]], {142., 56.}, Center, Automatic], InsetBox[ StyleBox["\<\"mind\"\>", StripOnInput->False, FontSize->Scaled[0.03854875283446712], FontColor->RGBColor[0.7175796237092107, 0.7261199581899123, 0.]], {-137., 78.}, Center, Automatic], InsetBox[ StyleBox["\<\"cried\"\>", StripOnInput->False, FontSize->Scaled[0.03854875283446712], FontColor->RGBColor[ 0.7896667828057927, 0.3575666434388414, 0.4213886953236787]], {74., 147.}, Center, Automatic], InsetBox[ StyleBox["\<\"sun\"\>", StripOnInput->False, FontSize->Scaled[0.050793650793650794`], FontColor->RGBColor[0.5472001045252132, 0.43417993728487203`, 0.85]], {133., 117.}, Center, Automatic], InsetBox[ StyleBox["\<\"asked\"\>", StripOnInput->False, FontSize->Scaled[0.03378684807256235], FontColor->RGBColor[0.7658565873730018, 0.358, 0.4582975578876895]], {-101., 150.}, Center, Automatic], InsetBox[ StyleBox["\<\"round\"\>", StripOnInput->False, FontSize->Scaled[0.034467120181405894`], FontColor->RGBColor[0.4567336004533182, 0.4884598397280091, 0.85]], {-66., -150.}, Center, Automatic], InsetBox[ StyleBox["\<\"open\"\>", StripOnInput->False, FontSize->Scaled[0.031746031746031744`], FontColor->RGBColor[0.6672593867853922, 0.7205288207539324, 0.]], {59., 67.}, Center, Automatic], InsetBox[ StyleBox["\<\"day\"\>", StripOnInput->False, FontSize->Scaled[0.03854875283446712], FontColor->RGBColor[ 0.19193353076984873`, 0.681453175384121, 0.6453202369238185]], {-142., 8.}, Center, Automatic], InsetBox[ StyleBox["\<\"seen\"\>", StripOnInput->False, FontSize->Scaled[0.03922902494331066], FontColor->RGBColor[ 0.9930578157165594, 0.7227890785827968, 0.01874389756528967]], {-142., 52.}, Center, Automatic], InsetBox[ StyleBox["\<\"point\"\>", StripOnInput->False, FontSize->Scaled[0.031746031746031744`], FontColor->RGBColor[ 0.9107287510704583, 0.33890687339431275`, 0.20182187767614543`]], {-143., 20.}, Center, Automatic], InsetBox[ StyleBox["\<\"gold\"\>", StripOnInput->False, FontSize->Scaled[0.03242630385487528], FontColor->RGBColor[ 0.8633598745697435, 0.40996018814538476`, 0.08339968642435877]], {145., -13.}, Center, Automatic], InsetBox[ StyleBox["\<\"felt\"\>", StripOnInput->False, FontSize->Scaled[0.03854875283446712], FontColor->RGBColor[ 0.8781534541180211, 0.4921023027453475, 0.04333810870621905]], {145., 14.}, Center, Automatic], InsetBox[ StyleBox["\<\"vast\"\>", StripOnInput->False, FontSize->Scaled[0.03378684807256235], FontColor->RGBColor[ 0.8774935098648088, 0.34000129802703827`, 0.2750108168919853]], {143., 68.}, Center, Automatic], InsetBox[ StyleBox["\<\"Yes\"\>", StripOnInput->False, FontSize->Scaled[0.037188208616780044`], FontColor->RGBColor[ 0.845266573755366, 0.437100139366951, 0.03816643438841502]], {144., 29.}, Center, Automatic], InsetBox[ StyleBox["\<\"say\"\>", StripOnInput->False, FontSize->Scaled[0.03378684807256235], FontColor->RGBColor[ 0.6102054708420535, 0.39696347534213544`, 0.7619863228948663]], {145., -25.}, Center, Automatic], InsetBox[ StyleBox["\<\"told\"\>", StripOnInput->False, FontSize->Scaled[0.03242630385487528], FontColor->RGBColor[ 0.8064401951137368, 0.3542119609772526, 0.39343300814377197`]], {-146., -87.}, Center, Automatic], InsetBox[ StyleBox["\<\"sky\"\>", StripOnInput->False, FontSize->Scaled[0.03378684807256235], FontColor->RGBColor[0.7989994773739094, 0.735166608597101, 0.]], {-145., -61.}, Center, Automatic], InsetBox[ StyleBox["\<\"fell\"\>", StripOnInput->False, FontSize->Scaled[0.035147392290249435`], FontColor->RGBColor[ 0.6670481226429111, 0.3638052617916352, 0.6198796933927223]], {98., 140.}, Center, Automatic], InsetBox[ StyleBox["\<\"sat\"\>", StripOnInput->False, FontSize->Scaled[0.03650793650793651], FontColor->RGBColor[0.9307395679624266, 0.7498043964402695, 0.]], {137., -105.}, Center, Automatic], InsetBox[ StyleBox["\<\"new\"\>", StripOnInput->False, FontSize->Scaled[0.034467120181405894`], FontColor->RGBColor[0.5788038738141875, 0.715, 0.049249615145579635`]], {-23., 151.}, Center, Automatic], InsetBox[ StyleBox["\<\"life\"\>", StripOnInput->False, FontSize->Scaled[0.037188208616780044`], FontColor->RGBColor[0.7277983389807635, 0.358, 0.5168487092603637]], {56., -150.}, Center, Automatic]}, DefaultBaseStyle->{"Graphics", FontFamily -> "Helvetica"}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}, PlotRange->{{-157.5, 157.5}, {-156.5, 156.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.705423846094597*^9}] }, Open ]] }, Open ]] }, ClosingSaveDialog->False, WindowSize->{775, 852}, WindowMargins->{{462, 443}, {Automatic, 21}}, WindowTitle->"Examples for The First Men in the Moon", 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[632, 23, 36, 0, 70, "Subsection",ExpressionUUID->"ba9330a9-12ab-4d71-8a04-3316956a1b08"], Cell[671, 25, 162, 2, 70, "Text",ExpressionUUID->"9c6b658c-d5f1-4267-8a5d-a3075baa3a6e"], Cell[CellGroupData[{ Cell[858, 31, 376, 8, 70, "Input",ExpressionUUID->"6192c7c0-daed-4510-9f89-ca762b1cf4d5"], Cell[1237, 41, 994, 13, 70, "Output",ExpressionUUID->"5a1c8894-05f5-4c68-ba3c-c92604d79694"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2280, 60, 35, 0, 70, "Subsection",ExpressionUUID->"6cc748b3-69b3-4c57-aeeb-3e05d00ca15f"], Cell[2318, 62, 349, 5, 70, "Text",ExpressionUUID->"63b0be9d-c893-4e3e-a801-b53c1efd17d1"], Cell[CellGroupData[{ Cell[2692, 71, 519, 9, 70, "Input",ExpressionUUID->"78d6c93b-5156-4318-8f64-339cd9cab0f7"], Cell[3214, 82, 23786, 564, 70, "Output",ExpressionUUID->"8781ff40-413e-415c-8b80-c3e544671428"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)