α = Slider(pi/2, 3 pi/2, 0.01, 1, 200, false, true, false, false)[br]β = Slider(pi/2, pi, 0.01, 1, 200, false, true, false, false)[br]s1 = Slider(0, 1, 0.01, 1, 200, false, true, false, false)[br]s2 = Slider(0, 1, 0.01, 1, 200, false, true, false, false)[br][br]A = (0, 0)[br]B = (0, 2)[br][br]f = Segment(A, B)[br][br]C = Dilate(Rotate(Point(f, 0), α,Point(f, 1)), s1, Point(f, 1))[br]D = Dilate(Rotate(Point(f, 0), β, Point(f, 1)), s2, Point(f, 1))[br]ListOutPut = {Segment(B, C), Segment(B, D)}

All the details are available here:[br][br]https://www.geogebra.org/m/wjyyydzk

IterationList(Flatten(Zip(Grow(α, β, s1, s2, s), s, level)), level, {{f}}, 8)