r: 2
R: 3
b: sqrt(R^(2) - r^(2))
V0: (2.23607, 2)
v0 = Vector(V0)
B1: v0
P = (5.532163338239862, 0)
A1: P
C1 = Ray(A1, B1)
C: (((2 * π) * b), ((2 * π) * r))
D: (((2 * π) * b), 0)
c3 = Segment(C, D)
B: (0, ((2 * π) * r))
c2 = Segment(B, C)
d: 3
c = Circle((B + D) / 2, d)
A: (0, 0)
c4 = Segment(A, D)
c1 = Segment(A, B)
D1: RemoveUndefined[{Intersect[c, C1, 1], Intersect[c1, C1], Intersect[c2, C1], Intersect[c3, C1], Intersect[c4, C1]}] \ {A1}
E1: D1(1)
A2 = If(E1 ∈ c, E1, E1 ∈ c1, (x(C), y(E1)), E1 ∈ c3, (x(A), y(E1)), E1 ∈ c2, (x(E1), y(A)), (x(E1), y(C)))
B2 = If(E1 ∈ c, Vector[E1, Mirror[E1 + B1, Tangent[E1, c]]], B1)
C2 = Ray(A2, B2)
D2: RemoveUndefined[{Intersect[c, C2, 1], Intersect[c1, C2], Intersect[c2, C2], Intersect[c3, C2], Intersect[c4, C2]}] \ {A2}
E2 = If(D2(1) ≟ A2, D2(2), D2(1))
A3 = If(E2 ∈ c, E2, E2 ∈ c1, (x(C), y(E2)), E2 ∈ c3, (x(A), y(E2)), E2 ∈ c2, (x(E2), y(A)), (x(E2), y(C)))
B3 = If(E2 ∈ c, Vector[E2, Mirror[E2 + B2, Tangent[E2, c]]], B2)
C3 = Ray(A3, B3)
V: (2.23607, 2)
v = Vector(V)
f = Ray(P, Vector[V])
listaCurvas: {c1, c2, c3, c4}
P0 = Point(listaCurvas)
F1 = If(E1 ∈ c2, Line[B, C], E1 ∈ c4, Line[A, D], E1 ∈ c3, Line[C, D], E1 ∈ c1, Line[B, A], Tangent[E1, c])
lista1a: A1:A50
lista1b: E1:E50
F2 = If(E2 ∈ c2, Line[B, C], E2 ∈ c4, Line[A, D], E2 ∈ c3, Line[C, D], E2 ∈ c1, Line[B, A], Tangent[E2, c])
l1: {Polygon[B, C, D, A]}
lista2 = Sequence(Segment[lista1a(k), lista1b(k)], k, 1, 40)
D3: RemoveUndefined[{Intersect[c, C3, 1], Intersect[c1, C3], Intersect[c2, C3], Intersect[c3, C3], Intersect[c4, C3]}] \ {A3}
E3 = If(D3(1) ≟ A3, D3(2), D3(1))
F3 = If(E3 ∈ c2, Line[B, C], E3 ∈ c4, Line[A, D], E3 ∈ c3, Line[C, D], E3 ∈ c1, Line[B, A], Tangent[E3, c])
A4 = If(E3 ∈ c, E3, E3 ∈ c1, (x(C), y(E3)), E3 ∈ c3, (x(A), y(E3)), E3 ∈ c2, (x(E3), y(A)), (x(E3), y(C)))
B4 = If(E3 ∈ c, Vector[E3, Mirror[E3 + B3, Tangent[E3, c]]], B3)
C4 = Ray(A4, B4)
D4: RemoveUndefined[{Intersect[c, C4, 1], Intersect[c1, C4], Intersect[c2, C4], Intersect[c3, C4], Intersect[c4, C4]}] \ {A4}
E4 = If(D4(1) ≟ A4, D4(2), D4(1))
F4 = If(E4 ∈ c2, Line[B, C], E4 ∈ c4, Line[A, D], E4 ∈ c3, Line[C, D], E4 ∈ c1, Line[B, A], Tangent[E4, c])
A5 = If(E4 ∈ c, E4, E4 ∈ c1, (x(C), y(E4)), E4 ∈ c3, (x(A), y(E4)), E4 ∈ c2, (x(E4), y(A)), (x(E4), y(C)))
B5 = If(E4 ∈ c, Vector[E4, Mirror[E4 + B4, Tangent[E4, c]]], B4)
C5 = Ray(A5, B5)
D5: RemoveUndefined[{Intersect[c, C5, 1], Intersect[c1, C5], Intersect[c2, C5], Intersect[c3, C5], Intersect[c4, C5]}] \ {A5}
E5 = If(D5(1) ≟ A5, D5(2), D5(1))
F5 = If(E5 ∈ c2, Line[B, C], E5 ∈ c4, Line[A, D], E5 ∈ c3, Line[C, D], E5 ∈ c1, Line[B, A], Tangent[E5, c])
A6 = If(E5 ∈ c, E5, E5 ∈ c1, (x(C), y(E5)), E5 ∈ c3, (x(A), y(E5)), E5 ∈ c2, (x(E5), y(A)), (x(E5), y(C)))
B6 = If(E5 ∈ c, Vector[E5, Mirror[E5 + B5, Tangent[E5, c]]], B5)
C6 = Ray(A6, B6)
D6: RemoveUndefined[{Intersect[c, C6, 1], Intersect[c1, C6], Intersect[c2, C6], Intersect[c3, C6], Intersect[c4, C6]}] \ {A6}
E6 = If(D6(1) ≟ A6, D6(2), D6(1))
F6 = If(E6 ∈ c2, Line[B, C], E6 ∈ c4, Line[A, D], E6 ∈ c3, Line[C, D], E6 ∈ c1, Line[B, A], Tangent[E6, c])
A7 = If(E6 ∈ c, E6, E6 ∈ c1, (x(C), y(E6)), E6 ∈ c3, (x(A), y(E6)), E6 ∈ c2, (x(E6), y(A)), (x(E6), y(C)))
B7 = If(E6 ∈ c, Vector[E6, Mirror[E6 + B6, Tangent[E6, c]]], B6)
C7 = Ray(A7, B7)
D7: RemoveUndefined[{Intersect[c, C7, 1], Intersect[c1, C7], Intersect[c2, C7], Intersect[c3, C7], Intersect[c4, C7]}] \ {A7}
E7 = If(D7(1) ≟ A7, D7(2), D7(1))
F7 = If(E7 ∈ c2, Line[B, C], E7 ∈ c4, Line[A, D], E7 ∈ c3, Line[C, D], E7 ∈ c1, Line[B, A], Tangent[E7, c])
A8 = If(E7 ∈ c, E7, E7 ∈ c1, (x(C), y(E7)), E7 ∈ c3, (x(A), y(E7)), E7 ∈ c2, (x(E7), y(A)), (x(E7), y(C)))
B8 = If(E7 ∈ c, Vector[E7, Mirror[E7 + B7, Tangent[E7, c]]], B7)
C8 = Ray(A8, B8)
D8: RemoveUndefined[{Intersect[c, C8, 1], Intersect[c1, C8], Intersect[c2, C8], Intersect[c3, C8], Intersect[c4, C8]}] \ {A8}
E8 = If(D8(1) ≟ A8, D8(2), D8(1))
F8 = If(E8 ∈ c2, Line[B, C], E8 ∈ c4, Line[A, D], E8 ∈ c3, Line[C, D], E8 ∈ c1, Line[B, A], Tangent[E8, c])
A9 = If(E8 ∈ c, E8, E8 ∈ c1, (x(C), y(E8)), E8 ∈ c3, (x(A), y(E8)), E8 ∈ c2, (x(E8), y(A)), (x(E8), y(C)))
B9 = If(E8 ∈ c, Vector[E8, Mirror[E8 + B8, Tangent[E8, c]]], B8)
C9 = Ray(A9, B9)
D9: RemoveUndefined[{Intersect[c, C9, 1], Intersect[c1, C9], Intersect[c2, C9], Intersect[c3, C9], Intersect[c4, C9]}] \ {A9}
E9 = If(D9(1) ≟ A9, D9(2), D9(1))
F9 = If(E9 ∈ c2, Line[B, C], E9 ∈ c4, Line[A, D], E9 ∈ c3, Line[C, D], E9 ∈ c1, Line[B, A], Tangent[E9, c])
A10 = If(E9 ∈ c, E9, E9 ∈ c1, (x(C), y(E9)), E9 ∈ c3, (x(A), y(E9)), E9 ∈ c2, (x(E9), y(A)), (x(E9), y(C)))
B10 = If(E9 ∈ c, Vector[E9, Mirror[E9 + B9, Tangent[E9, c]]], B9)
C10 = Ray(A10, B10)
D10: RemoveUndefined[{Intersect[c, C10, 1], Intersect[c1, C10], Intersect[c2, C10], Intersect[c3, C10], Intersect[c4, C10]}] \ {A10}
E10 = If(D10(1) ≟ A10, D10(2), D10(1))
F10 = If(E10 ∈ c2, Line[B, C], E10 ∈ c4, Line[A, D], E10 ∈ c3, Line[C, D], E10 ∈ c1, Line[B, A], Tangent[E10, c])
A11 = If(E10 ∈ c, E10, E10 ∈ c1, (x(C), y(E10)), E10 ∈ c3, (x(A), y(E10)), E10 ∈ c2, (x(E10), y(A)), (x(E10), y(C)))
B11 = If(E10 ∈ c, Vector[E10, Mirror[E10 + B10, Tangent[E10, c]]], B10)
C11 = Ray(A11, B11)
D11: RemoveUndefined[{Intersect[c, C11, 1], Intersect[c1, C11], Intersect[c2, C11], Intersect[c3, C11], Intersect[c4, C11]}] \ {A11}
E11 = If(D11(1) ≟ A11, D11(2), D11(1))
F11 = If(E11 ∈ c2, Line[B, C], E11 ∈ c4, Line[A, D], E11 ∈ c3, Line[C, D], E11 ∈ c1, Line[B, A], Tangent[E11, c])
A12 = If(E11 ∈ c, E11, E11 ∈ c1, (x(C), y(E11)), E11 ∈ c3, (x(A), y(E11)), E11 ∈ c2, (x(E11), y(A)), (x(E11), y(C)))
B12 = If(E11 ∈ c, Vector[E11, Mirror[E11 + B11, Tangent[E11, c]]], B11)
C12 = Ray(A12, B12)
D12: RemoveUndefined[{Intersect[c, C12, 1], Intersect[c1, C12], Intersect[c2, C12], Intersect[c3, C12], Intersect[c4, C12]}] \ {A12}
E12 = If(D12(1) ≟ A12, D12(2), D12(1))
F12 = If(E12 ∈ c2, Line[B, C], E12 ∈ c4, Line[A, D], E12 ∈ c3, Line[C, D], E12 ∈ c1, Line[B, A], Tangent[E12, c])
A13 = If(E12 ∈ c, E12, E12 ∈ c1, (x(C), y(E12)), E12 ∈ c3, (x(A), y(E12)), E12 ∈ c2, (x(E12), y(A)), (x(E12), y(C)))
B13 = If(E12 ∈ c, Vector[E12, Mirror[E12 + B12, Tangent[E12, c]]], B12)
C13 = Ray(A13, B13)
D13: RemoveUndefined[{Intersect[c, C13, 1], Intersect[c1, C13], Intersect[c2, C13], Intersect[c3, C13], Intersect[c4, C13]}] \ {A13}
E13 = If(D13(1) ≟ A13, D13(2), D13(1))
F13 = If(E13 ∈ c2, Line[B, C], E13 ∈ c4, Line[A, D], E13 ∈ c3, Line[C, D], E13 ∈ c1, Line[B, A], Tangent[E13, c])
A14 = If(E13 ∈ c, E13, E13 ∈ c1, (x(C), y(E13)), E13 ∈ c3, (x(A), y(E13)), E13 ∈ c2, (x(E13), y(A)), (x(E13), y(C)))
B14 = If(E13 ∈ c, Vector[E13, Mirror[E13 + B13, Tangent[E13, c]]], B13)
C14 = Ray(A14, B14)
D14: RemoveUndefined[{Intersect[c, C14, 1], Intersect[c1, C14], Intersect[c2, C14], Intersect[c3, C14], Intersect[c4, C14]}] \ {A14}
E14 = If(D14(1) ≟ A14, D14(2), D14(1))
F14 = If(E14 ∈ c2, Line[B, C], E14 ∈ c4, Line[A, D], E14 ∈ c3, Line[C, D], E14 ∈ c1, Line[B, A], Tangent[E14, c])
A15 = If(E14 ∈ c, E14, E14 ∈ c1, (x(C), y(E14)), E14 ∈ c3, (x(A), y(E14)), E14 ∈ c2, (x(E14), y(A)), (x(E14), y(C)))
B15 = If(E14 ∈ c, Vector[E14, Mirror[E14 + B14, Tangent[E14, c]]], B14)
C15 = Ray(A15, B15)
D15: RemoveUndefined[{Intersect[c, C15, 1], Intersect[c1, C15], Intersect[c2, C15], Intersect[c3, C15], Intersect[c4, C15]}] \ {A15}
E15 = If(D15(1) ≟ A15, D15(2), D15(1))
F15 = If(E15 ∈ c2, Line[B, C], E15 ∈ c4, Line[A, D], E15 ∈ c3, Line[C, D], E15 ∈ c1, Line[B, A], Tangent[E15, c])
A16 = If(E15 ∈ c, E15, E15 ∈ c1, (x(C), y(E15)), E15 ∈ c3, (x(A), y(E15)), E15 ∈ c2, (x(E15), y(A)), (x(E15), y(C)))
B16 = If(E15 ∈ c, Vector[E15, Mirror[E15 + B15, Tangent[E15, c]]], B15)
C16 = Ray(A16, B16)
D16: RemoveUndefined[{Intersect[c, C16, 1], Intersect[c1, C16], Intersect[c2, C16], Intersect[c3, C16], Intersect[c4, C16]}] \ {A16}
E16 = If(D16(1) ≟ A16, D16(2), D16(1))
F16 = If(E16 ∈ c2, Line[B, C], E16 ∈ c4, Line[A, D], E16 ∈ c3, Line[C, D], E16 ∈ c1, Line[B, A], Tangent[E16, c])
A17 = If(E16 ∈ c, E16, E16 ∈ c1, (x(C), y(E16)), E16 ∈ c3, (x(A), y(E16)), E16 ∈ c2, (x(E16), y(A)), (x(E16), y(C)))
B17 = If(E16 ∈ c, Vector[E16, Mirror[E16 + B16, Tangent[E16, c]]], B16)
C17 = Ray(A17, B17)
D17: RemoveUndefined[{Intersect[c, C17, 1], Intersect[c1, C17], Intersect[c2, C17], Intersect[c3, C17], Intersect[c4, C17]}] \ {A17}
E17 = If(D17(1) ≟ A17, D17(2), D17(1))
F17 = If(E17 ∈ c2, Line[B, C], E17 ∈ c4, Line[A, D], E17 ∈ c3, Line[C, D], E17 ∈ c1, Line[B, A], Tangent[E17, c])
A18 = If(E17 ∈ c, E17, E17 ∈ c1, (x(C), y(E17)), E17 ∈ c3, (x(A), y(E17)), E17 ∈ c2, (x(E17), y(A)), (x(E17), y(C)))
B18 = If(E17 ∈ c, Vector[E17, Mirror[E17 + B17, Tangent[E17, c]]], B17)
C18 = Ray(A18, B18)
D18: RemoveUndefined[{Intersect[c, C18, 1], Intersect[c1, C18], Intersect[c2, C18], Intersect[c3, C18], Intersect[c4, C18]}] \ {A18}
E18 = If(D18(1) ≟ A18, D18(2), D18(1))
F18 = If(E18 ∈ c2, Line[B, C], E18 ∈ c4, Line[A, D], E18 ∈ c3, Line[C, D], E18 ∈ c1, Line[B, A], Tangent[E18, c])
A19 = If(E18 ∈ c, E18, E18 ∈ c1, (x(C), y(E18)), E18 ∈ c3, (x(A), y(E18)), E18 ∈ c2, (x(E18), y(A)), (x(E18), y(C)))
B19 = If(E18 ∈ c, Vector[E18, Mirror[E18 + B18, Tangent[E18, c]]], B18)
C19 = Ray(A19, B19)
D19: RemoveUndefined[{Intersect[c, C19, 1], Intersect[c1, C19], Intersect[c2, C19], Intersect[c3, C19], Intersect[c4, C19]}] \ {A19}
E19 = If(D19(1) ≟ A19, D19(2), D19(1))
F19 = If(E19 ∈ c2, Line[B, C], E19 ∈ c4, Line[A, D], E19 ∈ c3, Line[C, D], E19 ∈ c1, Line[B, A], Tangent[E19, c])
A20 = If(E19 ∈ c, E19, E19 ∈ c1, (x(C), y(E19)), E19 ∈ c3, (x(A), y(E19)), E19 ∈ c2, (x(E19), y(A)), (x(E19), y(C)))
B20 = If(E19 ∈ c, Vector[E19, Mirror[E19 + B19, Tangent[E19, c]]], B19)
C20 = Ray(A20, B20)
D20: RemoveUndefined[{Intersect[c, C20, 1], Intersect[c1, C20], Intersect[c2, C20], Intersect[c3, C20], Intersect[c4, C20]}] \ {A20}
E20 = If(D20(1) ≟ A20, D20(2), D20(1))
F20 = If(E20 ∈ c2, Line[B, C], E20 ∈ c4, Line[A, D], E20 ∈ c3, Line[C, D], E20 ∈ c1, Line[B, A], Tangent[E20, c])
A21 = If(E20 ∈ c, E20, E20 ∈ c1, (x(C), y(E20)), E20 ∈ c3, (x(A), y(E20)), E20 ∈ c2, (x(E20), y(A)), (x(E20), y(C)))
B21 = If(E20 ∈ c, Vector[E20, Mirror[E20 + B20, Tangent[E20, c]]], B20)
C21 = Ray(A21, B21)
D21: RemoveUndefined[{Intersect[c, C21, 1], Intersect[c1, C21], Intersect[c2, C21], Intersect[c3, C21], Intersect[c4, C21]}] \ {A21}
E21 = If(D21(1) ≟ A21, D21(2), D21(1))
F21 = If(E21 ∈ c2, Line[B, C], E21 ∈ c4, Line[A, D], E21 ∈ c3, Line[C, D], E21 ∈ c1, Line[B, A], Tangent[E21, c])
A22 = If(E21 ∈ c, E21, E21 ∈ c1, (x(C), y(E21)), E21 ∈ c3, (x(A), y(E21)), E21 ∈ c2, (x(E21), y(A)), (x(E21), y(C)))
B22 = If(E21 ∈ c, Vector[E21, Mirror[E21 + B21, Tangent[E21, c]]], B21)
C22 = Ray(A22, B22)
D22: RemoveUndefined[{Intersect[c, C22, 1], Intersect[c1, C22], Intersect[c2, C22], Intersect[c3, C22], Intersect[c4, C22]}] \ {A22}
E22 = If(D22(1) ≟ A22, D22(2), D22(1))
F22 = If(E22 ∈ c2, Line[B, C], E22 ∈ c4, Line[A, D], E22 ∈ c3, Line[C, D], E22 ∈ c1, Line[B, A], Tangent[E22, c])
A23 = If(E22 ∈ c, E22, E22 ∈ c1, (x(C), y(E22)), E22 ∈ c3, (x(A), y(E22)), E22 ∈ c2, (x(E22), y(A)), (x(E22), y(C)))
B23 = If(E22 ∈ c, Vector[E22, Mirror[E22 + B22, Tangent[E22, c]]], B22)
C23 = Ray(A23, B23)
D23: RemoveUndefined[{Intersect[c, C23, 1], Intersect[c1, C23], Intersect[c2, C23], Intersect[c3, C23], Intersect[c4, C23]}] \ {A23}
E23 = If(D23(1) ≟ A23, D23(2), D23(1))
F23 = If(E23 ∈ c2, Line[B, C], E23 ∈ c4, Line[A, D], E23 ∈ c3, Line[C, D], E23 ∈ c1, Line[B, A], Tangent[E23, c])
A24 = If(E23 ∈ c, E23, E23 ∈ c1, (x(C), y(E23)), E23 ∈ c3, (x(A), y(E23)), E23 ∈ c2, (x(E23), y(A)), (x(E23), y(C)))
B24 = If(E23 ∈ c, Vector[E23, Mirror[E23 + B23, Tangent[E23, c]]], B23)
C24 = Ray(A24, B24)
D24: RemoveUndefined[{Intersect[c, C24, 1], Intersect[c1, C24], Intersect[c2, C24], Intersect[c3, C24], Intersect[c4, C24]}] \ {A24}
E24 = If(D24(1) ≟ A24, D24(2), D24(1))
F24 = If(E24 ∈ c2, Line[B, C], E24 ∈ c4, Line[A, D], E24 ∈ c3, Line[C, D], E24 ∈ c1, Line[B, A], Tangent[E24, c])
A25 = If(E24 ∈ c, E24, E24 ∈ c1, (x(C), y(E24)), E24 ∈ c3, (x(A), y(E24)), E24 ∈ c2, (x(E24), y(A)), (x(E24), y(C)))
B25 = If(E24 ∈ c, Vector[E24, Mirror[E24 + B24, Tangent[E24, c]]], B24)
C25 = Ray(A25, B25)
D25: RemoveUndefined[{Intersect[c, C25, 1], Intersect[c1, C25], Intersect[c2, C25], Intersect[c3, C25], Intersect[c4, C25]}] \ {A25}
E25 = If(D25(1) ≟ A25, D25(2), D25(1))
F25 = If(E25 ∈ c2, Line[B, C], E25 ∈ c4, Line[A, D], E25 ∈ c3, Line[C, D], E25 ∈ c1, Line[B, A], Tangent[E25, c])
A26 = If(E25 ∈ c, E25, E25 ∈ c1, (x(C), y(E25)), E25 ∈ c3, (x(A), y(E25)), E25 ∈ c2, (x(E25), y(A)), (x(E25), y(C)))
B26 = If(E25 ∈ c, Vector[E25, Mirror[E25 + B25, Tangent[E25, c]]], B25)
C26 = Ray(A26, B26)
D26: RemoveUndefined[{Intersect[c, C26, 1], Intersect[c1, C26], Intersect[c2, C26], Intersect[c3, C26], Intersect[c4, C26]}] \ {A26}
E26 = If(D26(1) ≟ A26, D26(2), D26(1))
F26 = If(E26 ∈ c2, Line[B, C], E26 ∈ c4, Line[A, D], E26 ∈ c3, Line[C, D], E26 ∈ c1, Line[B, A], Tangent[E26, c])
A27 = If(E26 ∈ c, E26, E26 ∈ c1, (x(C), y(E26)), E26 ∈ c3, (x(A), y(E26)), E26 ∈ c2, (x(E26), y(A)), (x(E26), y(C)))
B27 = If(E26 ∈ c, Vector[E26, Mirror[E26 + B26, Tangent[E26, c]]], B26)
C27 = Ray(A27, B27)
D27: RemoveUndefined[{Intersect[c, C27, 1], Intersect[c1, C27], Intersect[c2, C27], Intersect[c3, C27], Intersect[c4, C27]}] \ {A27}
E27 = If(D27(1) ≟ A27, D27(2), D27(1))
F27 = If(E27 ∈ c2, Line[B, C], E27 ∈ c4, Line[A, D], E27 ∈ c3, Line[C, D], E27 ∈ c1, Line[B, A], Tangent[E27, c])
A28 = If(E27 ∈ c, E27, E27 ∈ c1, (x(C), y(E27)), E27 ∈ c3, (x(A), y(E27)), E27 ∈ c2, (x(E27), y(A)), (x(E27), y(C)))
B28 = If(E27 ∈ c, Vector[E27, Mirror[E27 + B27, Tangent[E27, c]]], B27)
C28 = Ray(A28, B28)
D28: RemoveUndefined[{Intersect[c, C28, 1], Intersect[c1, C28], Intersect[c2, C28], Intersect[c3, C28], Intersect[c4, C28]}] \ {A28}
E28 = If(D28(1) ≟ A28, D28(2), D28(1))
F28 = If(E28 ∈ c2, Line[B, C], E28 ∈ c4, Line[A, D], E28 ∈ c3, Line[C, D], E28 ∈ c1, Line[B, A], Tangent[E28, c])
A29 = If(E28 ∈ c, E28, E28 ∈ c1, (x(C), y(E28)), E28 ∈ c3, (x(A), y(E28)), E28 ∈ c2, (x(E28), y(A)), (x(E28), y(C)))
B29 = If(E28 ∈ c, Vector[E28, Mirror[E28 + B28, Tangent[E28, c]]], B28)
C29 = Ray(A29, B29)
D29: RemoveUndefined[{Intersect[c, C29, 1], Intersect[c1, C29], Intersect[c2, C29], Intersect[c3, C29], Intersect[c4, C29]}] \ {A29}
E29 = If(D29(1) ≟ A29, D29(2), D29(1))
F29 = If(E29 ∈ c2, Line[B, C], E29 ∈ c4, Line[A, D], E29 ∈ c3, Line[C, D], E29 ∈ c1, Line[B, A], Tangent[E29, c])
A30 = If(E29 ∈ c, E29, E29 ∈ c1, (x(C), y(E29)), E29 ∈ c3, (x(A), y(E29)), E29 ∈ c2, (x(E29), y(A)), (x(E29), y(C)))
B30 = If(E29 ∈ c, Vector[E29, Mirror[E29 + B29, Tangent[E29, c]]], B29)
C30 = Ray(A30, B30)
D30: RemoveUndefined[{Intersect[c, C30, 1], Intersect[c1, C30], Intersect[c2, C30], Intersect[c3, C30], Intersect[c4, C30]}] \ {A30}
E30 = If(D30(1) ≟ A30, D30(2), D30(1))
F30 = If(E30 ∈ c2, Line[B, C], E30 ∈ c4, Line[A, D], E30 ∈ c3, Line[C, D], E30 ∈ c1, Line[B, A], Tangent[E30, c])
A31 = If(E30 ∈ c, E30, E30 ∈ c1, (x(C), y(E30)), E30 ∈ c3, (x(A), y(E30)), E30 ∈ c2, (x(E30), y(A)), (x(E30), y(C)))
B31 = If(E30 ∈ c, Vector[E30, Mirror[E30 + B30, Tangent[E30, c]]], B30)
C31 = Ray(A31, B31)
D31: RemoveUndefined[{Intersect[c, C31, 1], Intersect[c1, C31], Intersect[c2, C31], Intersect[c3, C31], Intersect[c4, C31]}] \ {A31}
E31 = If(D31(1) ≟ A31, D31(2), D31(1))
F31 = If(E31 ∈ c2, Line[B, C], E31 ∈ c4, Line[A, D], E31 ∈ c3, Line[C, D], E31 ∈ c1, Line[B, A], Tangent[E31, c])
A32 = If(E31 ∈ c, E31, E31 ∈ c1, (x(C), y(E31)), E31 ∈ c3, (x(A), y(E31)), E31 ∈ c2, (x(E31), y(A)), (x(E31), y(C)))
B32 = If(E31 ∈ c, Vector[E31, Mirror[E31 + B31, Tangent[E31, c]]], B31)
C32 = Ray(A32, B32)
D32: RemoveUndefined[{Intersect[c, C32, 1], Intersect[c1, C32], Intersect[c2, C32], Intersect[c3, C32], Intersect[c4, C32]}] \ {A32}
E32 = If(D32(1) ≟ A32, D32(2), D32(1))
F32 = If(E32 ∈ c2, Line[B, C], E32 ∈ c4, Line[A, D], E32 ∈ c3, Line[C, D], E32 ∈ c1, Line[B, A], Tangent[E32, c])
A33 = If(E32 ∈ c, E32, E32 ∈ c1, (x(C), y(E32)), E32 ∈ c3, (x(A), y(E32)), E32 ∈ c2, (x(E32), y(A)), (x(E32), y(C)))
B33 = If(E32 ∈ c, Vector[E32, Mirror[E32 + B32, Tangent[E32, c]]], B32)
C33 = Ray(A33, B33)
D33: RemoveUndefined[{Intersect[c, C33, 1], Intersect[c1, C33], Intersect[c2, C33], Intersect[c3, C33], Intersect[c4, C33]}] \ {A33}
E33 = If(D33(1) ≟ A33, D33(2), D33(1))
F33 = If(E33 ∈ c2, Line[B, C], E33 ∈ c4, Line[A, D], E33 ∈ c3, Line[C, D], E33 ∈ c1, Line[B, A], Tangent[E33, c])
A34 = If(E33 ∈ c, E33, E33 ∈ c1, (x(C), y(E33)), E33 ∈ c3, (x(A), y(E33)), E33 ∈ c2, (x(E33), y(A)), (x(E33), y(C)))
B34 = If(E33 ∈ c, Vector[E33, Mirror[E33 + B33, Tangent[E33, c]]], B33)
C34 = Ray(A34, B34)
D34: RemoveUndefined[{Intersect[c, C34, 1], Intersect[c1, C34], Intersect[c2, C34], Intersect[c3, C34], Intersect[c4, C34]}] \ {A34}
E34 = If(D34(1) ≟ A34, D34(2), D34(1))
F34 = If(E34 ∈ c2, Line[B, C], E34 ∈ c4, Line[A, D], E34 ∈ c3, Line[C, D], E34 ∈ c1, Line[B, A], Tangent[E34, c])
A35 = If(E34 ∈ c, E34, E34 ∈ c1, (x(C), y(E34)), E34 ∈ c3, (x(A), y(E34)), E34 ∈ c2, (x(E34), y(A)), (x(E34), y(C)))
B35 = If(E34 ∈ c, Vector[E34, Mirror[E34 + B34, Tangent[E34, c]]], B34)
C35 = Ray(A35, B35)
D35: RemoveUndefined[{Intersect[c, C35, 1], Intersect[c1, C35], Intersect[c2, C35], Intersect[c3, C35], Intersect[c4, C35]}] \ {A35}
E35 = If(D35(1) ≟ A35, D35(2), D35(1))
F35 = If(E35 ∈ c2, Line[B, C], E35 ∈ c4, Line[A, D], E35 ∈ c3, Line[C, D], E35 ∈ c1, Line[B, A], Tangent[E35, c])
A36 = If(E35 ∈ c, E35, E35 ∈ c1, (x(C), y(E35)), E35 ∈ c3, (x(A), y(E35)), E35 ∈ c2, (x(E35), y(A)), (x(E35), y(C)))
B36 = If(E35 ∈ c, Vector[E35, Mirror[E35 + B35, Tangent[E35, c]]], B35)
C36 = Ray(A36, B36)
D36: RemoveUndefined[{Intersect[c, C36, 1], Intersect[c1, C36], Intersect[c2, C36], Intersect[c3, C36], Intersect[c4, C36]}] \ {A36}
E36 = If(D36(1) ≟ A36, D36(2), D36(1))
F36 = If(E36 ∈ c2, Line[B, C], E36 ∈ c4, Line[A, D], E36 ∈ c3, Line[C, D], E36 ∈ c1, Line[B, A], Tangent[E36, c])
A37 = If(E36 ∈ c, E36, E36 ∈ c1, (x(C), y(E36)), E36 ∈ c3, (x(A), y(E36)), E36 ∈ c2, (x(E36), y(A)), (x(E36), y(C)))
B37 = If(E36 ∈ c, Vector[E36, Mirror[E36 + B36, Tangent[E36, c]]], B36)
C37 = Ray(A37, B37)
D37: RemoveUndefined[{Intersect[c, C37, 1], Intersect[c1, C37], Intersect[c2, C37], Intersect[c3, C37], Intersect[c4, C37]}] \ {A37}
E37 = If(D37(1) ≟ A37, D37(2), D37(1))
F37 = If(E37 ∈ c2, Line[B, C], E37 ∈ c4, Line[A, D], E37 ∈ c3, Line[C, D], E37 ∈ c1, Line[B, A], Tangent[E37, c])
A38 = If(E37 ∈ c, E37, E37 ∈ c1, (x(C), y(E37)), E37 ∈ c3, (x(A), y(E37)), E37 ∈ c2, (x(E37), y(A)), (x(E37), y(C)))
B38 = If(E37 ∈ c, Vector[E37, Mirror[E37 + B37, Tangent[E37, c]]], B37)
C38 = Ray(A38, B38)
D38: RemoveUndefined[{Intersect[c, C38, 1], Intersect[c1, C38], Intersect[c2, C38], Intersect[c3, C38], Intersect[c4, C38]}] \ {A38}
E38 = If(D38(1) ≟ A38, D38(2), D38(1))
F38 = If(E38 ∈ c2, Line[B, C], E38 ∈ c4, Line[A, D], E38 ∈ c3, Line[C, D], E38 ∈ c1, Line[B, A], Tangent[E38, c])
A39 = If(E38 ∈ c, E38, E38 ∈ c1, (x(C), y(E38)), E38 ∈ c3, (x(A), y(E38)), E38 ∈ c2, (x(E38), y(A)), (x(E38), y(C)))
B39 = If(E38 ∈ c, Vector[E38, Mirror[E38 + B38, Tangent[E38, c]]], B38)
C39 = Ray(A39, B39)
D39: RemoveUndefined[{Intersect[c, C39, 1], Intersect[c1, C39], Intersect[c2, C39], Intersect[c3, C39], Intersect[c4, C39]}] \ {A39}
E39 = If(D39(1) ≟ A39, D39(2), D39(1))
F39 = If(E39 ∈ c2, Line[B, C], E39 ∈ c4, Line[A, D], E39 ∈ c3, Line[C, D], E39 ∈ c1, Line[B, A], Tangent[E39, c])
A40 = If(E39 ∈ c, E39, E39 ∈ c1, (x(C), y(E39)), E39 ∈ c3, (x(A), y(E39)), E39 ∈ c2, (x(E39), y(A)), (x(E39), y(C)))
B40 = If(E39 ∈ c, Vector[E39, Mirror[E39 + B39, Tangent[E39, c]]], B39)
C40 = Ray(A40, B40)
D40: RemoveUndefined[{Intersect[c, C40, 1], Intersect[c1, C40], Intersect[c2, C40], Intersect[c3, C40], Intersect[c4, C40]}] \ {A40}
E40 = If(D40(1) ≟ A40, D40(2), D40(1))
F40 = If(E40 ∈ c2, Line[B, C], E40 ∈ c4, Line[A, D], E40 ∈ c3, Line[C, D], E40 ∈ c1, Line[B, A], Tangent[E40, c])