R/00PolyShapes.R

In qgraph: Graph Plotting Methods, Psychometric Data Visualization and Graphical Model Estimation

### POLYGON SHAPES ###

CROWNPOLY <- structure(list(x = c(0, 0.0526315789473684, 0.105263157894737, 
                                  0.157894736842105, 0.210526315789474, 0.263157894736842, 0.315789473684211, 
                                  0.368421052631579, 0.421052631578947, 0.473684210526316, 0.526315789473684, 
                                  0.578947368421053, 0.631578947368421, 0.684210526315789, 0.736842105263158, 
                                  0.789473684210526, 0.842105263157895, 0.894736842105263, 0.947368421052632, 
                                  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
                                  1, 0.973684210526316, 0.947368421052632, 0.921052631578947, 0.894736842105263, 
                                  0.868421052631579, 0.842105263157895, 0.815789473684211, 0.789473684210526, 
                                  0.763157894736842, 0.736842105263158, 0.710526315789474, 0.684210526315789, 
                                  0.657894736842105, 0.631578947368421, 0.605263157894737, 0.578947368421053, 
                                  0.552631578947368, 0.526315789473684, 0.5, 0.5, 0.473684210526316, 
                                  0.447368421052632, 0.421052631578947, 0.394736842105263, 0.368421052631579, 
                                  0.342105263157895, 0.315789473684211, 0.289473684210526, 0.263157894736842, 
                                  0.236842105263158, 0.210526315789474, 0.184210526315789, 0.157894736842105, 
                                  0.131578947368421, 0.105263157894737, 0.0789473684210527, 0.0526315789473685, 
                                  0.0263157894736842, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
                                  0, 0, 0, 0, 0, 0, 0, 0, -0.0263157894736842, -0.0526315789473684, 
                                  -0.0789473684210526, -0.105263157894737, -0.131578947368421, 
                                  -0.157894736842105, -0.184210526315789, -0.210526315789474, -0.236842105263158, 
                                  -0.263157894736842, -0.289473684210526, -0.315789473684211, -0.342105263157895, 
                                  -0.368421052631579, -0.394736842105263, -0.421052631578947, -0.447368421052632, 
                                  -0.473684210526316, -0.5, -0.5, -0.526315789473684, -0.552631578947368, 
                                  -0.578947368421053, -0.605263157894737, -0.631578947368421, -0.657894736842105, 
                                  -0.684210526315789, -0.710526315789474, -0.736842105263158, -0.763157894736842, 
                                  -0.789473684210526, -0.815789473684211, -0.842105263157895, -0.868421052631579, 
                                  -0.894736842105263, -0.921052631578947, -0.947368421052632, -0.973684210526316, 
                                  -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 
                                  -1, -1, -1, -1, -1, -1, -0.947368421052632, -0.894736842105263, 
                                  -0.842105263157895, -0.789473684210526, -0.736842105263158, -0.684210526315789, 
                                  -0.631578947368421, -0.578947368421053, -0.526315789473684, -0.473684210526316, 
                                  -0.421052631578947, -0.368421052631579, -0.315789473684211, -0.263157894736842, 
                                  -0.210526315789474, -0.157894736842105, -0.105263157894737, -0.0526315789473685, 
                                  0), y = c(-0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, 
                                            -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, 
                                            -0.5, -0.447368421052632, -0.394736842105263, -0.342105263157895, 
                                            -0.289473684210526, -0.236842105263158, -0.184210526315789, -0.131578947368421, 
                                            -0.0789473684210527, -0.0263157894736842, 0.0263157894736842, 
                                            0.0789473684210527, 0.131578947368421, 0.184210526315789, 0.236842105263158, 
                                            0.289473684210526, 0.342105263157895, 0.394736842105263, 0.447368421052632, 
                                            0.5, 0.5, 0.473684210526316, 0.447368421052632, 0.421052631578947, 
                                            0.394736842105263, 0.368421052631579, 0.342105263157895, 0.315789473684211, 
                                            0.289473684210526, 0.263157894736842, 0.236842105263158, 0.210526315789474, 
                                            0.184210526315789, 0.157894736842105, 0.131578947368421, 0.105263157894737, 
                                            0.0789473684210527, 0.0526315789473685, 0.0263157894736842, 0, 
                                            0, 0.0263157894736842, 0.0526315789473684, 0.0789473684210526, 
                                            0.105263157894737, 0.131578947368421, 0.157894736842105, 0.184210526315789, 
                                            0.210526315789474, 0.236842105263158, 0.263157894736842, 0.289473684210526, 
                                            0.315789473684211, 0.342105263157895, 0.368421052631579, 0.394736842105263, 
                                            0.421052631578947, 0.447368421052632, 0.473684210526316, 0.5, 
                                            0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 
                                            0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.473684210526316, 0.447368421052632, 
                                            0.421052631578947, 0.394736842105263, 0.368421052631579, 0.342105263157895, 
                                            0.315789473684211, 0.289473684210526, 0.263157894736842, 0.236842105263158, 
                                            0.210526315789474, 0.184210526315789, 0.157894736842105, 0.131578947368421, 
                                            0.105263157894737, 0.0789473684210527, 0.0526315789473685, 0.0263157894736842, 
                                            0, 0, 0.0263157894736842, 0.0526315789473684, 0.0789473684210526, 
                                            0.105263157894737, 0.131578947368421, 0.157894736842105, 0.184210526315789, 
                                            0.210526315789474, 0.236842105263158, 0.263157894736842, 0.289473684210526, 
                                            0.315789473684211, 0.342105263157895, 0.368421052631579, 0.394736842105263, 
                                            0.421052631578947, 0.447368421052632, 0.473684210526316, 0.5, 
                                            0.5, 0.447368421052632, 0.394736842105263, 0.342105263157895, 
                                            0.289473684210526, 0.236842105263158, 0.184210526315789, 0.131578947368421, 
                                            0.0789473684210527, 0.0263157894736842, -0.0263157894736842, 
                                            -0.0789473684210527, -0.131578947368421, -0.184210526315789, 
                                            -0.236842105263158, -0.289473684210526, -0.342105263157895, -0.394736842105263, 
                                            -0.447368421052632, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, 
                                            -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, 
                                            -0.5, -0.5, -0.5)), .Names = c("x", "y"), row.names = c(NA, -180L
                                            ), class = "data.frame")

ELLIPSEPOLY <- list(
  x = sin(seq(0, 2*pi, length = 200)),
  y = cos(seq(0, 2*pi, length = 200))
)

HEARTPOLY <- structure(list(x = c(0.000524613718038136, 0.00152037576817299, 
                                 0.00837191368505907, 0.0263525265968505, 0.0596231845491932, 
                                 0.110803218240353, 0.180680475594751, 0.268087394223726, 0.369954594919716, 
                                 0.481537715428025, 0.596797695163824, 0.70890097596103, 0.810795329588381, 
                                 0.895810220726289, 0.95822837243697, 0.993777720620083, 1, 0.976463167095426, 
                                 0.924798756665914, 0.848560847051974, 0.752919185599284, 0.644213780440664, 
                                 0.529410581862747, 0.415506655649061, 0.308937708512294, 0.21504056435074, 
                                 0.137618233447556, 0.0786460081162648, 0.0381443807024719, 0.0142296425596522, 
                                 0.0033371202850081, 0.000596558943702696, 0.000325551274901859, 
                                 -0.00340364703380058, -0.0161751396581412, -0.0426714553619016, 
                                 -0.0861970864784513, -0.148326642404516, -0.22870961369511, -0.325049731954249, 
                                 -0.433261288308903, -0.547788934599377, -0.662062851652114, -0.769049036210921, 
                                 -0.861845916483694, -0.934274319260742, -0.981408353675419, -1, 
                                 -0.988759630359335, -0.948467499354436, -0.881906282519685, -0.79362066640824, 
                                 -0.689525383893214, -0.576396567854278, -0.461291662282501, -0.350949456597994, 
                                 -0.251223532033918, -0.166599374905229, -0.0998378919663984, 
                                 -0.0517767300327744, -0.0213066683594325, -0.00552468083396929, 
                                 -4.94560549954004e-05), y = c(0.520897709618179, 0.534947678325485, 
                                                               0.575452559134198, 0.637673315472304, 0.714338676813725, 0.796497437137179, 
                                                               0.87454802681761, 0.939310336192077, 0.98300223008988, 1, 0.987295403433758, 
                                                               0.944606765832239, 0.874151080567606, 0.78013077798753, 0.66802603706674, 
                                                               0.543805951388826, 0.413176650345883, 0.28097147888861, 0.15076013428112, 
                                                               0.024715092692505, -0.0962689496523439, -0.212246769666327, -0.323760566618399, 
                                                               -0.43133676232965, -0.535035885584381, -0.634135831892105, -0.727002022607152, 
                                                               -0.811163164401614, -0.883574411157736, -0.941016958598965, -0.980559871117998, 
                                                               -1, -0.998200691457891, -0.975268605096653, -0.932537068881262, 
                                                               -0.872358940152541, -0.797745974695624, -0.711919363179301, -0.617852572062957, 
                                                               -0.517889982248489, -0.413512473049402, -0.305295947111203, -0.193074914032843, 
                                                               -0.0762862599001901, 0.045565535450107, 0.172405369550093, 0.303141763887568, 
                                                               0.435369118261749, 0.565288730801492, 0.687886497384175, 0.79736440992733, 
                                                               0.887780569712151, 0.953815194758073, 0.99155416691318, 0.999171547693052, 
                                                               0.977400335131055, 0.929705927528264, 0.86211598567256, 0.782708083545859, 
                                                               0.700805731636508, 0.625976704926773, 0.566958524171822, 0.530649611127533
                                 )), .Names = c("x", "y"))

STARPOLY = structure(list(x = c(0, 0.0123744263640521, 0.0247488527281041, 
                                0.0371232790921562, 0.0494977054562083, 0.0618721318202603, 0.0742465581843124, 
                                0.0866209845483645, 0.0989954109124165, 0.111369837276469, 0.123744263640521, 
                                0.136118690004573, 0.148493116368625, 0.160867542732677, 0.173241969096729, 
                                0.185616395460781, 0.197990821824833, 0.210365248188885, 0.222739674552937, 
                                0.235114100916989, 0.235114100916989, 0.272795280673735, 0.31047646043048, 
                                0.348157640187226, 0.385838819943971, 0.423519999700717, 0.461201179457462, 
                                0.498882359214208, 0.536563538970953, 0.574244718727699, 0.611925898484444, 
                                0.64960707824119, 0.687288257997935, 0.724969437754681, 0.762650617511426, 
                                0.800331797268172, 0.838012977024917, 0.875694156781663, 0.913375336538408, 
                                0.951056516295154, 0.951056516295154, 0.921023152622675, 0.890989788950196, 
                                0.860956425277718, 0.830923061605239, 0.800889697932761, 0.770856334260282, 
                                0.740822970587804, 0.710789606915325, 0.680756243242847, 0.650722879570368, 
                                0.62068951589789, 0.590656152225411, 0.560622788552933, 0.530589424880454, 
                                0.500556061207976, 0.470522697535497, 0.440489333863019, 0.41045597019054, 
                                0.380422606518061, 0.380422606518061, 0.391336429979873, 0.402250253441684, 
                                0.413164076903495, 0.424077900365306, 0.434991723827117, 0.445905547288928, 
                                0.45681937075074, 0.467733194212551, 0.478647017674362, 0.489560841136173, 
                                0.500474664597984, 0.511388488059795, 0.522302311521606, 0.533216134983417, 
                                0.544129958445229, 0.55504378190704, 0.565957605368851, 0.576871428830662, 
                                0.587785252292473, 0.587785252292473, 0.556849186382343, 0.525913120472213, 
                                0.494977054562083, 0.464040988651953, 0.433104922741822, 0.402168856831692, 
                                0.371232790921562, 0.340296725011432, 0.309360659101302, 0.278424593191172, 
                                0.247488527281041, 0.216552461370911, 0.185616395460781, 0.154680329550651, 
                                0.123744263640521, 0.0928081977303905, 0.0618721318202603, 0.0309360659101302, 
                                4.89858719658941e-17, 4.89858719658941e-17, -0.0309360659101301, 
                                -0.0618721318202603, -0.0928081977303904, -0.123744263640521, 
                                -0.154680329550651, -0.185616395460781, -0.216552461370911, -0.247488527281041, 
                                -0.278424593191171, -0.309360659101302, -0.340296725011432, -0.371232790921562, 
                                -0.402168856831692, -0.433104922741822, -0.464040988651952, -0.494977054562083, 
                                -0.525913120472213, -0.556849186382343, -0.587785252292473, -0.587785252292473, 
                                -0.576871428830662, -0.565957605368851, -0.55504378190704, -0.544129958445228, 
                                -0.533216134983417, -0.522302311521606, -0.511388488059795, -0.500474664597984, 
                                -0.489560841136173, -0.478647017674362, -0.46773319421255, -0.456819370750739, 
                                -0.445905547288928, -0.434991723827117, -0.424077900365306, -0.413164076903495, 
                                -0.402250253441684, -0.391336429979873, -0.380422606518061, -0.380422606518061, 
                                -0.41045597019054, -0.440489333863019, -0.470522697535497, -0.500556061207976, 
                                -0.530589424880454, -0.560622788552933, -0.590656152225411, -0.62068951589789, 
                                -0.650722879570368, -0.680756243242847, -0.710789606915325, -0.740822970587804, 
                                -0.770856334260283, -0.800889697932761, -0.83092306160524, -0.860956425277718, 
                                -0.890989788950197, -0.921023152622675, -0.951056516295154, -0.951056516295154, 
                                -0.913375336538408, -0.875694156781663, -0.838012977024917, -0.800331797268172, 
                                -0.762650617511426, -0.724969437754681, -0.687288257997935, -0.64960707824119, 
                                -0.611925898484444, -0.574244718727699, -0.536563538970953, -0.498882359214208, 
                                -0.461201179457462, -0.423519999700717, -0.385838819943971, -0.348157640187226, 
                                -0.31047646043048, -0.272795280673735, -0.235114100916989, -0.235114100916989, 
                                -0.222739674552937, -0.210365248188885, -0.197990821824833, -0.185616395460781, 
                                -0.173241969096729, -0.160867542732677, -0.148493116368625, -0.136118690004573, 
                                -0.123744263640521, -0.111369837276469, -0.0989954109124166, 
                                -0.0866209845483645, -0.0742465581843124, -0.0618721318202604, 
                                -0.0494977054562083, -0.0371232790921562, -0.0247488527281041, 
                                -0.0123744263640521, 0), y = c(1, 0.964400357776315, 0.928800715552629, 
                                                               0.893201073328944, 0.857601431105259, 0.822001788881573, 0.786402146657888, 
                                                               0.750802504434203, 0.715202862210518, 0.679603219986832, 0.644003577763147, 
                                                               0.608403935539461, 0.572804293315776, 0.537204651092091, 0.501605008868406, 
                                                               0.46600536664472, 0.430405724421035, 0.39480608219735, 0.359206439973664, 
                                                               0.323606797749979, 0.323606797749979, 0.322838913361819, 0.32207102897366, 
                                                               0.3213031445855, 0.320535260197341, 0.319767375809181, 0.318999491421022, 
                                                               0.318231607032862, 0.317463722644703, 0.316695838256543, 0.315927953868383, 
                                                               0.315160069480224, 0.314392185092064, 0.313624300703905, 0.312856416315745, 
                                                               0.312088531927586, 0.311320647539426, 0.310552763151267, 0.309784878763107, 
                                                               0.309016994374947, 0.309016994374947, 0.286247321105215, 0.263477647835481, 
                                                               0.240707974565749, 0.217938301296016, 0.195168628026283, 0.17239895475655, 
                                                               0.149629281486817, 0.126859608217084, 0.104089934947351, 0.0813202616776177, 
                                                               0.0585505884078848, 0.0357809151381518, 0.0130112418684188, -0.0097584314013141, 
                                                               -0.0325281046710471, -0.0552977779407801, -0.078067451210513, 
                                                               -0.100837124480246, -0.123606797749979, -0.123606797749979, -0.159681018624977, 
                                                               -0.195755239499976, -0.231829460374974, -0.267903681249972, -0.303977902124971, 
                                                               -0.340052122999969, -0.376126343874967, -0.412200564749966, -0.448274785624964, 
                                                               -0.484349006499962, -0.520423227374961, -0.556497448249959, -0.592571669124957, 
                                                               -0.628645889999956, -0.664720110874954, -0.700794331749952, -0.736868552624951, 
                                                               -0.772942773499949, -0.809016994374947, -0.809016994374947, -0.787489784144687, 
                                                               -0.765962573914427, -0.744435363684166, -0.722908153453906, -0.701380943223645, 
                                                               -0.679853732993385, -0.658326522763125, -0.636799312532864, -0.615272102302604, 
                                                               -0.593744892072343, -0.572217681842083, -0.550690471611823, -0.529163261381562, 
                                                               -0.507636051151302, -0.486108840921042, -0.464581630690781, -0.443054420460521, 
                                                               -0.42152721023026, -0.4, -0.4, -0.42152721023026, -0.443054420460521, 
                                                               -0.464581630690781, -0.486108840921042, -0.507636051151302, -0.529163261381562, 
                                                               -0.550690471611823, -0.572217681842083, -0.593744892072344, -0.615272102302604, 
                                                               -0.636799312532864, -0.658326522763125, -0.679853732993385, -0.701380943223646, 
                                                               -0.722908153453906, -0.744435363684166, -0.765962573914427, -0.787489784144687, 
                                                               -0.809016994374948, -0.809016994374948, -0.772942773499949, -0.736868552624951, 
                                                               -0.700794331749953, -0.664720110874954, -0.628645889999956, -0.592571669124958, 
                                                               -0.556497448249959, -0.520423227374961, -0.484349006499962, -0.448274785624964, 
                                                               -0.412200564749966, -0.376126343874967, -0.340052122999969, -0.303977902124971, 
                                                               -0.267903681249972, -0.231829460374974, -0.195755239499976, -0.159681018624977, 
                                                               -0.123606797749979, -0.123606797749979, -0.100837124480246, -0.0780674512105131, 
                                                               -0.0552977779407802, -0.0325281046710472, -0.00975843140131423, 
                                                               0.0130112418684187, 0.0357809151381517, 0.0585505884078846, 0.0813202616776176, 
                                                               0.104089934947351, 0.126859608217084, 0.149629281486816, 0.172398954756549, 
                                                               0.195168628026282, 0.217938301296015, 0.240707974565748, 0.263477647835481, 
                                                               0.286247321105214, 0.309016994374947, 0.309016994374947, 0.309784878763107, 
                                                               0.310552763151266, 0.311320647539426, 0.312088531927586, 0.312856416315745, 
                                                               0.313624300703905, 0.314392185092064, 0.315160069480224, 0.315927953868383, 
                                                               0.316695838256543, 0.317463722644702, 0.318231607032862, 0.318999491421022, 
                                                               0.319767375809181, 0.320535260197341, 0.3213031445855, 0.32207102897366, 
                                                               0.322838913361819, 0.323606797749979, 0.323606797749979, 0.359206439973664, 
                                                               0.39480608219735, 0.430405724421035, 0.46600536664472, 0.501605008868406, 
                                                               0.537204651092091, 0.572804293315776, 0.608403935539461, 0.644003577763147, 
                                                               0.679603219986832, 0.715202862210517, 0.750802504434203, 0.786402146657888, 
                                                               0.822001788881573, 0.857601431105259, 0.893201073328944, 0.928800715552629, 
                                                               0.964400357776315, 1)), .Names = c("x", "y"))