knotR: Knot Diagrams using Bezier Curves

`k11a1` <-
structure(list(minsymvec = structure(c(172.297001196249, 279.230281833923, 
229.984134263909, 42.8826153981216, -60.251722917878, -225.005671532452, 
-332.244814105154, -196.81155694826, -8.27377011406526, 26.6307522421754, 
1.6555358532452, -59.4912809569899, -178.737184274369, -445.320404049023, 
-266.796538288732, -219.25748289515, -187.815111336386, -113.347793449224, 
48.4641280489356, 204.822664105697, 378.152883009788, 410.053112160257, 
221.964776401382, 189.973904347136, 234.128191900562, 354.822119458446, 
319.65229476966, 166.67058351567, 90.2964817445231, -27.681286622668, 
-20.3327373018068, 116.758319844698, 294.396300627409, 185.032397047554, 
5.32941719542777, -95.8120805755794, -75.0216678601215, 93.167804567359, 
255.959636919547, 200.208604969625, 133.173791675924, 29.238413932096, 
-115.021648577048, -246.446390057739, -109.885520284027, 48.5356902516435, 
26.3504286221432, -85.2783583169382, -237.410862006139, -280.179030961351, 
-202.186495448628, -63.6805198124148, 173.48369277922, 185.268808646721, 
104.965424926046, 14.3310075743576, -116.434521759868, -255.012609402949, 
-216.899983419296, -89.0553153875077, 43.4195611907492, 259.135880070546, 
303.286109211367, 207.928028728832, 273.580238048205, 163.845415709538, 
-120.281620971574, -274.052635679528, -298.083516692661, -120.184432349695, 
3.51874459525223, 22.4235371319731, -27.5134380936614, -88.5100476289088, 
-274.292263349553, -397.479283739067, -256.890893088365, -200.920438231401, 
-168.693772538164, -60.0480417359233, 102.201781463778, 262.773884384665, 
404.80938501827, 339.302638093851, 208.008366905542, 201.280543531452, 
280.747525088152, 354.261734309329, 262.954385109253, 129.312887342859, 
48.7074945472942, -47.9509193788391, 26.6700670738035, 127.1328761472, 
266.772008212471, 116.569673560141, -43.221626423479, -103.783146522963, 
-84.4754208791686, -28.4350212504002, 154.89877269717, 250.22940483689, 
181.066854124548, 92.3174669085137, -32.0022904190269, -153.804459258437, 
-228.302688662635, -14.0754530248045, 44.276070992037, -13.5506022556062, 
-140.936733733227, -259.310882357117, -261.94276686211, -153.986849877075, 
11.7085225062424, 203.566964140871, 160.386173456315, 71.8381012842816, 
-33.7370849567753, -163.119201646163, -256.882572859166, -161.66300590697, 
-28.2226785316767, 120.488247616641, 284.164164109787, 301.749837720721
), .Names = c("handle_A1", "handle_A2", "handle_A3", "handle_A4", 
"handle_A5", "handle_A6", "handle_A7", "handle_A8", "handle_A9", 
"handle_A10", "handle_A11", "handle_A12", "handle_A13", "handle_A14", 
"handle_A15", "handle_A16", "handle_A17", "handle_A18", "handle_A19", 
"handle_A20", "handle_A21", "handle_A22", "handle_A23", "handle_A24", 
"handle_A25", "handle_A26", "handle_A27", "handle_A28", "handle_A29", 
"handle_A30", "handle_A31", "handle_A32", "handle_A33", "handle_A34", 
"handle_A35", "handle_A37", "handle_A38", "handle_A39", "handle_A40", 
"handle_A41", "handle_A42", "handle_A43", "handle_A44", "handle_A45", 
"handle_A46", "handle_A47", "handle_A48", "handle_A49", "handle_A50", 
"handle_A51", "handle_A52", "handle_A53", "handle_A54", "handle_A55", 
"handle_A56", "handle_A57", "handle_A58", "handle_A59", "handle_A60", 
"handle_A61", "handle_A62", "handle_A63", "handle_A64", "node1", 
"node2", "node3", "node5", "node6", "node7", "node8", "node9", 
"node10", "node11", "node12", "node13", "node14", "node15", "node16", 
"node17", "node18", "node19", "node20", "node21", "node22", "node23", 
"node24", "node25", "node26", "node27", "node28", "node29", "node30", 
"node31", "node32", "node33", "node34", "node35", "node36", "node37", 
"node38", "node39", "node40", "node41", "node42", "node43", "node44", 
"node45", "node46", "node47", "node48", "node49", "node50", "node51", 
"node52", "node53", "node54", "node55", "node56", "node57", "node58", 
"node59", "node60", "node61", "node62", "node63", "node64"), class = "minsymvec"), 
    overunderobj = structure(c(2, 25, 4, 12, 6, 15, 9, 30, 18, 
    28, 21, 23, 3, 29, 5, 17, 7, 31, 11, 13, 20, 26), .Dim = c(11L, 
    2L)), symobj = structure(list(Mver = NULL, xver = 4, Mhor = NULL, 
        xhor = NULL, Mrot = NULL, exact_h = NULL, exact_v = NULL, 
        mcdonalds = FALSE, celtic = FALSE, reefknot = FALSE, 
        center_crossing = FALSE, indep = structure(c(TRUE, TRUE, 
        TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, 
        TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Names = c("handle_A1", 
        "handle_A2", "handle_A3", "handle_A4", "handle_A5", "handle_A6", 
        "handle_A7", "handle_A8", "handle_A9", "handle_A10", 
        "handle_A11", "handle_A12", "handle_A13", "handle_A14", 
        "handle_A15", "handle_A16", "handle_A17", "handle_A18", 
        "handle_A19", "handle_A20", "handle_A21", "handle_A22", 
        "handle_A23", "handle_A24", "handle_A25", "handle_A26", 
        "handle_A27", "handle_A28", "handle_A29", "handle_A30", 
        "handle_A31", "handle_A32", "handle_A33", "handle_A34", 
        "handle_A35", "handle_A36", "handle_A37", "handle_A38", 
        "handle_A39", "handle_A40", "handle_A41", "handle_A42", 
        "handle_A43", "handle_A44", "handle_A45", "handle_A46", 
        "handle_A47", "handle_A48", "handle_A49", "handle_A50", 
        "handle_A51", "handle_A52", "handle_A53", "handle_A54", 
        "handle_A55", "handle_A56", "handle_A57", "handle_A58", 
        "handle_A59", "handle_A60", "handle_A61", "handle_A62", 
        "handle_A63", "handle_A64", "node1", "node2", "node3", 
        "node4", "node5", "node6", "node7", "node8", "node9", 
        "node10", "node11", "node12", "node13", "node14", "node15", 
        "node16", "node17", "node18", "node19", "node20", "node21", 
        "node22", "node23", "node24", "node25", "node26", "node27", 
        "node28", "node29", "node30", "node31", "node32", "node33", 
        "node34", "node35", "node36", "node37", "node38", "node39", 
        "node40", "node41", "node42", "node43", "node44", "node45", 
        "node46", "node47", "node48", "node49", "node50", "node51", 
        "node52", "node53", "node54", "node55", "node56", "node57", 
        "node58", "node59", "node60", "node61", "node62", "node63", 
        "node64"))), .Names = c("Mver", "xver", "Mhor", "xhor", 
    "Mrot", "exact_h", "exact_v", "mcdonalds", "celtic", "reefknot", 
    "center_crossing", "indep"))), .Names = c("minsymvec", "overunderobj", 
"symobj"), class = "knot")