t = -4.856853732986436 (slider from x(Corner[1]) - r to x(Corner[2]) + (2 * r) + d, step (x(Corner[2]) - x(Corner[1])) / 500)
r = 0.42
C: (t, r)
c = Circle(C, r)
A: C + (r; ((-t)) / r)
c_i = Circle(C, (r * 0.9))
r1 = Sequence(Segment[C, C + ((r * 0.9); θ - t / r)], θ, 0, 6.28319, 0.41888)
d = 1.39
C': (t - d, r)
c' = Circle(C', r)
c'_i = Circle(C', (r * 0.9))
r2 = Sequence(Segment[C', C' + ((r * 0.9); θ - t / r + 2°)], θ, 0, 6.283185307179586, 0.41887902047863906)
I: (0.6 * C') + (0.4 * C)
J: I + ((d * 0.6); 110°)
K: J + ((0.5 * d), 0)
velo: {Segment[C', I], Segment[I, J], Segment[C', (0.8 * J) + (0.2 * I)], Segment[(0.8 * J) + (0.2 * I), (0.8 * K) + (0.2 * C)], Segment[I, (0.7 * K) + (0.3 * C)], Segment[K, C]}
Selle = Segment(J - (0.2, 0), J + (0.1, 0))
guidon = Semicircle(K + (0.2; 40°), K)