f = Segment((0, 0), (20, 0))
n = 40 (slider from 1 to 100, step 1)
g = Segment((0, 0.5), (20, 0.5))
l4 = Sequence(Segment[((i * 0.2), 0.5), ((i * 0.2), 0.35)], i, 0, 100)
l3 = Sequence(Segment[((i * 2), 0.65), ((i * 2), 0.5)], i, 0, 10)
l1 = Sequence(Segment[((i * 20 / n), 0.125), ((i * 20 / n), -0.125)], i, 0, n)
l6 = Sequence(Segment[(i, 0.6), (i, 0.5)], i, 1, 20)
l2 = Sequence(Text[i, ((i * 20 / n) - 0.08, -0.35)], i, 0, n)
entspricht = 27 (slider from 0 to n, step 0.2)
l5 = Sequence(Text[(10 * i) + "%", ((i * 2) - 0.2, 0.8)], i, 0, 10)
u = Segment(((entspricht * 20 / n), 0), ((entspricht * 20 / n), 0.5))