distance between number lines

height of unit marks

C*D

A = (-2.7, 3.52)
ht = 1.4 (slider from 0 to 5, step 0.1)
B: (x(A), y(A) - ht)
u = 1
Au: (x(A) + u, y(A))
a = Line(A, Au)
ht1 = 0.2 (slider from 0 to 1, step 0.05)
list1 = Sequence(Segment[(x(A) + i * u, y(A) - ht1), (x(A) + i * u, y(A) + ht1)], i, 0, 10)
Bu: (x(A) + u, y(B))
b = Line(B, Bu)
C = Point(a)
D = Point(b)
list2 = Sequence(Segment[(x(B) + i * u, y(B) - ht1), (x(B) + i * u, y(B) + ht1)], i, 0, 10)
scoot = -0.05
bump = -0.05
list3 = Sequence(Text[i, (x(A) + i * u + scoot, y(A) - ht1 + bump), true, true], i, 0, 10)
list4 = Sequence(Text[i, (x(B) + i * u + scoot, y(B) - ht1 + bump), true, true], i, 0, 10)
c: (x(C) - x(A)) / u
d: (x(D) - x(B)) / u
list5 = Sequence(Vector[(x(A) + i * u, y(A)), (x(B) + i * u * d, y(B))], i, 0, 10)
CD: (x(B) + u * c * d, y(B))
v = Vector(C, CD)
ht2: 0.7 * ht1
f1 = 1 (slider from 1 to 25, step 1)
f2 = 1 (slider from 1 to 25, step 1)
list6 = Sequence(Sequence[Segment[(x(A) + i * u / f1, y(A) - ht2), (x(A) + i * u / f1, y(A + ht2))], i, f1 * j + 1, f1 * (j + 1) - 1, 1], j, 0, 9, 1)
list7 = Sequence(Sequence[Segment[(x(B) + i * u / f2, y(B) - ht2), (x(B) + i * u / f2, y(B) + ht2)], i, f2 * j + 1, f2 * (j + 1) - 1, 1], j, 0, 9, 1)