A = Intersect(xAxis, yAxis)
B = Point(xAxis)
n = 19 (slider from 3 to 30, step 1)
l1 = Sequence(Polygon[A, B, i], i, 1, n)