R/xsplineTangent.s1neg.s2pos.A0.noA3.y.R

In vwline: Draw Variable-Width Lines

xsplineTangent.s1neg.s2pos.A0.noA3.y <- function(px0, px1, px2, px3, py0, py1, py2, py3, s1, s2, t) {
((((-t) * ((-t) * ((-t) * (-t) * (-s1) - ((-t) + (-t)) * 
    (-2 * (-s1) - (-t) * (-s1))) - (2 * (-s1) + (-t) * (-t) * 
    (-2 * (-s1) - (-t) * (-s1)))) - ((-s1) + (-t) * (2 * (-s1) + 
    (-t) * (-t) * (-2 * (-s1) - (-t) * (-s1))))) * py0 + (((1/(-1 - 
    s2) * ((t - 1 - s2)/(-1 - s2)) + ((t - 1 - s2)/(-1 - s2)) * 
    (1/(-1 - s2))) * ((t - 1 - s2)/(-1 - s2)) + ((t - 1 - s2)/(-1 - 
    s2)) * ((t - 1 - s2)/(-1 - s2)) * (1/(-1 - s2))) * (10 - 
    (2 * (-1 - s2) * (-1 - s2)) + (2 * (2 * (-1 - s2) * (-1 - 
    s2)) - 15) * ((t - 1 - s2)/(-1 - s2)) + (6 - (2 * (-1 - s2) * 
    (-1 - s2))) * ((t - 1 - s2)/(-1 - s2)) * ((t - 1 - s2)/(-1 - 
    s2))) + ((t - 1 - s2)/(-1 - s2)) * ((t - 1 - s2)/(-1 - s2)) * 
    ((t - 1 - s2)/(-1 - s2)) * ((2 * (2 * (-1 - s2) * (-1 - s2)) - 
    15) * (1/(-1 - s2)) + ((6 - (2 * (-1 - s2) * (-1 - s2))) * 
    (1/(-1 - s2)) * ((t - 1 - s2)/(-1 - s2)) + (6 - (2 * (-1 - 
    s2) * (-1 - s2))) * ((t - 1 - s2)/(-1 - s2)) * (1/(-1 - s2))))) * 
    py1 + (((-s1) + t * (2 * (-s1) + t * (8 - 12 * (-s1) + t * 
    (14 * (-s1) - 11 + t * (4 - 5 * (-s1)))))) + t * ((2 * (-s1) + 
    t * (8 - 12 * (-s1) + t * (14 * (-s1) - 11 + t * (4 - 5 * 
        (-s1))))) + t * ((8 - 12 * (-s1) + t * (14 * (-s1) - 
    11 + t * (4 - 5 * (-s1)))) + t * ((14 * (-s1) - 11 + t * 
    (4 - 5 * (-s1))) + t * (4 - 5 * (-s1)))))) * py2)/((-t) * 
    ((-s1) + (-t) * (2 * (-s1) + (-t) * (-t) * (-2 * (-s1) - 
        (-t) * (-s1)))) + ((t - 1 - s2)/(-1 - s2)) * ((t - 1 - 
    s2)/(-1 - s2)) * ((t - 1 - s2)/(-1 - s2)) * (10 - (2 * (-1 - 
    s2) * (-1 - s2)) + (2 * (2 * (-1 - s2) * (-1 - s2)) - 15) * 
    ((t - 1 - s2)/(-1 - s2)) + (6 - (2 * (-1 - s2) * (-1 - s2))) * 
    ((t - 1 - s2)/(-1 - s2)) * ((t - 1 - s2)/(-1 - s2))) + t * 
    ((-s1) + t * (2 * (-s1) + t * (8 - 12 * (-s1) + t * (14 * 
        (-s1) - 11 + t * (4 - 5 * (-s1)))))) + 0) - ((-t) * ((-s1) + 
    (-t) * (2 * (-s1) + (-t) * (-t) * (-2 * (-s1) - (-t) * (-s1)))) * 
    py0 + ((t - 1 - s2)/(-1 - s2)) * ((t - 1 - s2)/(-1 - s2)) * 
    ((t - 1 - s2)/(-1 - s2)) * (10 - (2 * (-1 - s2) * (-1 - s2)) + 
    (2 * (2 * (-1 - s2) * (-1 - s2)) - 15) * ((t - 1 - s2)/(-1 - 
        s2)) + (6 - (2 * (-1 - s2) * (-1 - s2))) * ((t - 1 - 
    s2)/(-1 - s2)) * ((t - 1 - s2)/(-1 - s2))) * py1 + t * ((-s1) + 
    t * (2 * (-s1) + t * (8 - 12 * (-s1) + t * (14 * (-s1) - 
        11 + t * (4 - 5 * (-s1)))))) * py2 + 0 * py3) * ((-t) * 
    ((-t) * ((-t) * (-t) * (-s1) - ((-t) + (-t)) * (-2 * (-s1) - 
        (-t) * (-s1))) - (2 * (-s1) + (-t) * (-t) * (-2 * (-s1) - 
        (-t) * (-s1)))) - ((-s1) + (-t) * (2 * (-s1) + (-t) * 
    (-t) * (-2 * (-s1) - (-t) * (-s1)))) + (((1/(-1 - s2) * ((t - 
    1 - s2)/(-1 - s2)) + ((t - 1 - s2)/(-1 - s2)) * (1/(-1 - 
    s2))) * ((t - 1 - s2)/(-1 - s2)) + ((t - 1 - s2)/(-1 - s2)) * 
    ((t - 1 - s2)/(-1 - s2)) * (1/(-1 - s2))) * (10 - (2 * (-1 - 
    s2) * (-1 - s2)) + (2 * (2 * (-1 - s2) * (-1 - s2)) - 15) * 
    ((t - 1 - s2)/(-1 - s2)) + (6 - (2 * (-1 - s2) * (-1 - s2))) * 
    ((t - 1 - s2)/(-1 - s2)) * ((t - 1 - s2)/(-1 - s2))) + ((t - 
    1 - s2)/(-1 - s2)) * ((t - 1 - s2)/(-1 - s2)) * ((t - 1 - 
    s2)/(-1 - s2)) * ((2 * (2 * (-1 - s2) * (-1 - s2)) - 15) * 
    (1/(-1 - s2)) + ((6 - (2 * (-1 - s2) * (-1 - s2))) * (1/(-1 - 
    s2)) * ((t - 1 - s2)/(-1 - s2)) + (6 - (2 * (-1 - s2) * (-1 - 
    s2))) * ((t - 1 - s2)/(-1 - s2)) * (1/(-1 - s2))))) + (((-s1) + 
    t * (2 * (-s1) + t * (8 - 12 * (-s1) + t * (14 * (-s1) - 
        11 + t * (4 - 5 * (-s1)))))) + t * ((2 * (-s1) + t * 
    (8 - 12 * (-s1) + t * (14 * (-s1) - 11 + t * (4 - 5 * (-s1))))) + 
    t * ((8 - 12 * (-s1) + t * (14 * (-s1) - 11 + t * (4 - 5 * 
        (-s1)))) + t * ((14 * (-s1) - 11 + t * (4 - 5 * (-s1))) + 
        t * (4 - 5 * (-s1)))))))/((-t) * ((-s1) + (-t) * (2 * 
    (-s1) + (-t) * (-t) * (-2 * (-s1) - (-t) * (-s1)))) + ((t - 
    1 - s2)/(-1 - s2)) * ((t - 1 - s2)/(-1 - s2)) * ((t - 1 - 
    s2)/(-1 - s2)) * (10 - (2 * (-1 - s2) * (-1 - s2)) + (2 * 
    (2 * (-1 - s2) * (-1 - s2)) - 15) * ((t - 1 - s2)/(-1 - s2)) + 
    (6 - (2 * (-1 - s2) * (-1 - s2))) * ((t - 1 - s2)/(-1 - s2)) * 
        ((t - 1 - s2)/(-1 - s2))) + t * ((-s1) + t * (2 * (-s1) + 
    t * (8 - 12 * (-s1) + t * (14 * (-s1) - 11 + t * (4 - 5 * 
        (-s1)))))) + 0)^2)
}