knotR: Knot Diagrams using Bezier Curves

`k9_33` <-	
structure(list(minsymvec = structure(c(handle_A1 = -95.020882024608, 
handle_A2 = -178.523237354082, handle_A3 = -153.78811042846, 
handle_A4 = -118.284639894299, handle_A5 = -91.9716568458101, 
handle_A6 = -30.3646620667645, handle_A7 = 212.901519691045, 
handle_A8 = 177.31366656272, handle_A9 = 131.625668436737, handle_A10 = 21.9941963699614, 
handle_A11 = -200.765424672859, handle_A12 = -236.997301081282, 
handle_A13 = -230.942156374165, handle_A14 = -119.082996218549, 
handle_A15 = 58.2735535838902, handle_A16 = 263.479766237827, 
handle_A17 = 327.75830770328, handle_A18 = 309.303114506717, 
handle_A19 = 138.029767959339, handle_A20 = 23.736678149032, 
handle_A21 = 19.8048274949127, handle_A22 = 28.1629436600314, 
handle_A23 = -82.7149802103763, handle_A24 = -340.877164973128, 
handle_A25 = -356.002392731126, handle_A26 = -328.767550614453, 
handle_A27 = -176.820307735804, handle_A28 = 49.857748586156, 
handle_A29 = 139.876251951044, handle_A30 = 183.341762626801, 
handle_A31 = 13.9687002064367, handle_A32 = -807.517463263491, 
handle_A33 = -494.860640397525, handle_A34 = -385.943856333639, 
handle_A35 = -165.295952707344, handle_A36 = -106.511293604188, 
handle_A37 = -15.1356289861968, handle_A38 = -72.6239476551214, 
handle_A39 = -317.1692301997, handle_A40 = -360.162340773184, 
handle_A41 = -411.566086654102, handle_A42 = -379.817250075925, 
handle_A43 = -296.647735098829, handle_A44 = -245.747775057212, 
handle_A45 = -193.957042625521, handle_A46 = -207.100677836525, 
handle_A47 = -298.213063857992, handle_A48 = -528.646567144263, 
handle_A49 = -603.916509856707, handle_A50 = -692.173491204291, 
handle_A51 = -528.336759809869, handle_A52 = -384.013590419709, 
handle_A53 = -176.374802369241, handle_A54 = 0.294726140982212, 
handle_A55 = -140.442314047317, handle_A56 = -349.639538860818, 
handle_A57 = -433.237197829834, handle_A58 = -536.504396671024, 
handle_A59 = -541.928695496733, handle_A60 = -597.368776082429, 
handle_A61 = -687.155609985059, node1 = -148.231567213867, node2 = -172.111819793741, 
node3 = -139.033688974893, node4 = -109.479082046074, node5 = -85.4460605475284, 
node6 = 54.0993485937062, node7 = 226.588534211541, node8 = 163.813589553287, 
node9 = 103.384216078098, node10 = -69.6023383945738, node11 = -219.760140778917, 
node12 = -236.13495115024, node13 = -195.997955471236, node14 = -49.8531010725684, 
node15 = 122.24059051101, node16 = 303.60691654973, node17 = 324.937252336046, 
node18 = 261.90807861296, node19 = 79.9356581501626, node20 = 23.2343454849515, 
node21 = 22.0518236883488, node22 = 3.05939808048731, node23 = -184.750674094608, 
node24 = -357.438546163529, node25 = -351.255260170682, node26 = -279.507889157253, 
node27 = -79.3166016714788, node28 = 86.1720945850921, node29 = 148.268262524588, 
node30 = 135.78515868813, node32 = -710.46688959465, node33 = -459.885094848994, 
node34 = -287.518630432667, node35 = -142.920833729316, node36 = -96.8297102923058, 
node37 = -13.3480772531771, node38 = -162.282148693825, node39 = -330.665106145987, 
node40 = -375.229949551804, node41 = -410.597961903572, node42 = -351.691711252553, 
node43 = -288.220545273831, node44 = -220.186138208348, node45 = -200.071376425259, 
node46 = -230.493623182058, node47 = -379.242720537499, node48 = -540.484926237499, 
node49 = -641.870054491625, node50 = -643.838062065045, node51 = -471.055352349458, 
node52 = -302.174644039171, node53 = -122.115804158744, node54 = -23.3447264361438, 
node55 = -214.6582190648, node56 = -364.730696066001, node57 = -477.681546500487, 
node58 = -539.606410775407, node59 = -557.690113488771, node60 = -612.780980353402, 
node61 = -747.989134712319, node62 = -809.107587844796), class = "minsymvec"), 
    overunderobj = structure(c(6, 22, 10, 20, 30, 16, 14, 3, 
    27, 23, 15, 21, 28, 19, 8, 4, 11, 2), .Dim = c(9L, 2L)), 
    symobj = list(Mver = NULL, xver = 31, Mhor = NULL, xhor = NULL, 
        Mrot = NULL, exact_h = NULL, exact_v = NULL, mcdonalds = FALSE, 
        celtic = FALSE, reefknot = FALSE, center_crossing = FALSE, 
        indep = c(handle_A1 = TRUE, handle_A2 = TRUE, handle_A3 = TRUE, 
        handle_A4 = TRUE, handle_A5 = TRUE, handle_A6 = TRUE, 
        handle_A7 = TRUE, handle_A8 = TRUE, handle_A9 = TRUE, 
        handle_A10 = TRUE, handle_A11 = TRUE, handle_A12 = TRUE, 
        handle_A13 = TRUE, handle_A14 = TRUE, handle_A15 = TRUE, 
        handle_A16 = TRUE, handle_A17 = TRUE, handle_A18 = TRUE, 
        handle_A19 = TRUE, handle_A20 = TRUE, handle_A21 = TRUE, 
        handle_A22 = TRUE, handle_A23 = TRUE, handle_A24 = TRUE, 
        handle_A25 = TRUE, handle_A26 = TRUE, handle_A27 = TRUE, 
        handle_A28 = TRUE, handle_A29 = TRUE, handle_A30 = TRUE, 
        handle_A31 = TRUE, handle_A32 = TRUE, handle_A33 = TRUE, 
        handle_A34 = TRUE, handle_A35 = TRUE, handle_A36 = TRUE, 
        handle_A37 = TRUE, handle_A38 = TRUE, handle_A39 = TRUE, 
        handle_A40 = TRUE, handle_A41 = TRUE, handle_A42 = TRUE, 
        handle_A43 = TRUE, handle_A44 = TRUE, handle_A45 = TRUE, 
        handle_A46 = TRUE, handle_A47 = TRUE, handle_A48 = TRUE, 
        handle_A49 = TRUE, handle_A50 = TRUE, handle_A51 = TRUE, 
        handle_A52 = TRUE, handle_A53 = TRUE, handle_A54 = TRUE, 
        handle_A55 = TRUE, handle_A56 = TRUE, handle_A57 = TRUE, 
        handle_A58 = TRUE, handle_A59 = TRUE, handle_A60 = TRUE, 
        handle_A61 = TRUE, handle_A62 = FALSE, node1 = TRUE, 
        node2 = TRUE, node3 = TRUE, node4 = TRUE, node5 = TRUE, 
        node6 = TRUE, node7 = TRUE, node8 = TRUE, node9 = TRUE, 
        node10 = TRUE, node11 = TRUE, node12 = TRUE, node13 = TRUE, 
        node14 = TRUE, node15 = TRUE, node16 = TRUE, node17 = TRUE, 
        node18 = TRUE, node19 = TRUE, node20 = TRUE, node21 = TRUE, 
        node22 = TRUE, node23 = TRUE, node24 = TRUE, node25 = TRUE, 
        node26 = TRUE, node27 = TRUE, node28 = TRUE, node29 = TRUE, 
        node30 = TRUE, node31 = FALSE, node32 = TRUE, node33 = TRUE, 
        node34 = TRUE, node35 = TRUE, node36 = TRUE, node37 = TRUE, 
        node38 = TRUE, node39 = TRUE, node40 = TRUE, node41 = TRUE, 
        node42 = TRUE, node43 = TRUE, node44 = TRUE, node45 = TRUE, 
        node46 = TRUE, node47 = TRUE, node48 = TRUE, node49 = TRUE, 
        node50 = TRUE, node51 = TRUE, node52 = TRUE, node53 = TRUE, 
        node54 = TRUE, node55 = TRUE, node56 = TRUE, node57 = TRUE, 
        node58 = TRUE, node59 = TRUE, node60 = TRUE, node61 = TRUE, 
        node62 = TRUE))), class = "knot")