knotR: Knot Diagrams using Bezier Curves

`k12a1202` <-
structure(list(minsymvec = structure(c(-403.935609196914, -197.035823372849, 
-72.8781648875139, -35.2081776147877, -214.083002483022, -455.128481326999, 
-264.389330476361, -152.828754140989, 34.0763967034595, -56.4410054502802, 
-111.520116129799, 22.5683817114849, 31.3692901174784, 101.105894779405, 
35.4157476106517, 22.0363290059714, 26.1637326119991, 230.10917522117, 
273.476138243705, 32.5986487979555, 124.201029845904, -360.755495758648, 
-154.945887410884, -51.8894128068189, -35.2008885838021, -266.257440117751, 
-416.469958543661, -244.556477518761, -83.6373900925972, -78.0884694298758, 
-51.9075897185251, 19.2340838427692, 69.6474703032869, 79.4485105042014, 
-0.125167074119796, 20.9081522949734, 105.165844536948, 237.971215402684, 
265.293815614598, 36.391951915683, 54.3273136558338, 179.427759392709
), .Names = c("handle_A23", "handle_A25", "handle_A26", "handle_A27", 
"handle_A30", "handle_A32", "handle_A33", "handle_A34", "handle_A37", 
"handle_A38", "handle_A39", "handle_A63", "handle_A65", "handle_A66", 
"handle_A67", "handle_A70", "handle_A72", "handle_A73", "handle_A74", 
"handle_A78", "handle_A79", "node23", "node25", "node26", "node27", 
"node30", "node32", "node33", "node34", "node38", "node39", "node63", 
"node65", "node66", "node67", "node70", "node72", "node73", "node74", 
"node77", "node78", "node79"), class = "minsymvec"), overunderobj = structure(c(40, 
3, 11, 5, 19, 7, 37, 9, 15, 16, 28, 32, 24, 30, 26, 38, 35, 12, 
4, 10, 6, 18, 8, 36, 20, 29, 17, 23, 31, 25, 39, 27), .Dim = c(16L, 
2L)), symobj = structure(list(Mver = structure(c(32, 33, 34, 
39, 26, 38, 27, 16, 29, 24, 31, 23, 30, 25, 28, 15, 22, 21, 20, 
2, 1, 40, 35, 8, 36, 7, 18, 5, 10, 3, 11, 4, 9, 6, 19, 12, 13, 
14), .Dim = c(19L, 2L)), xver = c(17, 37), Mhor = structure(c(32, 
33, 34, 23, 30, 25, 38, 26, 39, 37, 8, 35, 40, 1, 2, 36, 9, 4, 
11, 22, 21, 20, 31, 24, 29, 16, 28, 15, 17, 6, 19, 14, 13, 12, 
18, 5, 10, 3), .Dim = c(19L, 2L)), xhor = c(2, 7), Mrot = NULL, 
    exact_h = NULL, exact_v = NULL, mcdonalds = FALSE, celtic = TRUE, 
    reefknot = FALSE, center_crossing = FALSE, indep = structure(c(FALSE, 
    FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
    FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
    FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, 
    FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, 
    TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
    FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
    FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, 
    TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, 
    TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, 
    FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
    FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
    FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, 
    TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, 
    TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
    FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
    FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, 
    TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, 
    FALSE, FALSE, TRUE, TRUE, TRUE, FALSE), .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", "handle_A65", "handle_A66", 
    "handle_A67", "handle_A68", "handle_A69", "handle_A70", "handle_A71", 
    "handle_A72", "handle_A73", "handle_A74", "handle_A75", "handle_A76", 
    "handle_A77", "handle_A78", "handle_A79", "handle_A80", "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", "node65", "node66", "node67", "node68", 
    "node69", "node70", "node71", "node72", "node73", "node74", 
    "node75", "node76", "node77", "node78", "node79", "node80"
    ))), .Names = c("Mver", "xver", "Mhor", "xhor", "Mrot", "exact_h", 
"exact_v", "mcdonalds", "celtic", "reefknot", "center_crossing", 
"indep"))), .Names = c("minsymvec", "overunderobj", "symobj"), class = "knot")