f(x)=

dist = 5.7 (slider from 0 to 10, step 0.1)
A = Point(yAxis)
B = Point(Circle[A, abs(dist)])
a = Segment(A, B)
b = Line(B, yAxis)
f(x) = (3 * x) + 5
inputBox1 = Textfield(f)
A1 = -10
A2: A1 + 1
A3: A2 + 1
A4: A3 + 1
A5: A4 + 1
A6: A5 + 1
A7: A6 + 1
A8: A7 + 1
A9: A8 + 1
A10: A9 + 1
A11: A10 + 1
A12: A11 + 1
A13: A12 + 1
A14: A13 + 1
A15: A14 + 1
A16: A15 + 1
A17: A16 + 1
A18: A17 + 1
A19: A18 + 1
A20: A19 + 1
A21: A20 + 1
B1: (0, A1)
B2: (0, A2)
B3: (0, A3)
B4: (0, A4)
B5: (0, A5)
B6: (0, A6)
B7: (0, A7)
B8: (0, A8)
B9: (0, A9)
B10: (0, A10)
B11: (0, A11)
B12: (0, A12)
B13: (0, A13)
B14: (0, A14)
B15: (0, A15)
B16: (0, A16)
B17: (0, A17)
B18: (0, A18)
B19: (0, A19)
B20: (0, A20)
B21: (0, A21)
C1: (dist, f(A1))
C2: (dist, f(A2))
C3: (dist, f(A3))
C4: (dist, f(A4))
C5: (dist, f(A5))
C6: (dist, f(A6))
C7: (dist, f(A7))
C8: (dist, f(A8))
C9: (dist, f(A9))
C10: (dist, f(A10))
C11: (dist, f(A11))
C12: (dist, f(A12))
C13: (dist, f(A13))
C14: (dist, f(A14))
C15: (dist, f(A15))
C16: (dist, f(A16))
C17: (dist, f(A17))
C18: (dist, f(A18))
C19: (dist, f(A19))
C20: (dist, f(A20))
C21: (dist, f(A21))
D1 = Segment(B1, C1)
D2 = Segment(B2, C2)
D3 = Segment(B3, C3)
D4 = Segment(B4, C4)
D5 = Segment(B5, C5)
D6 = Segment(B6, C6)
D7 = Segment(B7, C7)
D8 = Segment(B8, C8)
D9 = Segment(B9, C9)
D10 = Segment(B10, C10)
D11 = Segment(B11, C11)
D12 = Segment(B12, C12)
D13 = Segment(B13, C13)
D14 = Segment(B14, C14)
D15 = Segment(B15, C15)
D16 = Segment(B16, C16)
D17 = Segment(B17, C17)
D18 = Segment(B18, C18)
D19 = Segment(B19, C19)
D20 = Segment(B20, C20)
D21 = Segment(B21, C21)