D = (-1, 0.62)
C = (0.28, 0.96)
B = (1.46, 0.62)
A = (0.12, -0.04)
S_L = Intersect(Line[A, D], Line[B, C])
S_R = Intersect(Line[A, B], Line[C, D])
h = Line(S_L, S_R)
S = Intersect(h, Line[A, C])
A1: A
B1: B
C1: C
D1: D
A2: D1
B2: C1
C2 = Intersect(Line[S, A2], Line[B2, S_L])
D2 = Intersect(Line[S_L, A2], Line[C2, S_R])
E1, F1, G1, H1, I1 = Polygon(A1, B1, C1, D1)
E2, F2, G2, H2, I2 = Polygon(A2, B2, C2, D2)
A3: D2
B3: C2
C3 = Intersect(Line[S, A3], Line[B3, S_L])
D3 = Intersect(Line[S_L, A3], Line[C3, S_R])
E3, F3, G3, H3, I3 = Polygon(A3, B3, C3, D3)
A4: D3
B4: C3
C4 = Intersect(Line[S, A4], Line[B4, S_L])
D4 = Intersect(Line[S_L, A4], Line[C4, S_R])
E4, F4, G4, H4, I4 = Polygon(A4, B4, C4, D4)
A5: D4
B5: C4
C5 = Intersect(Line[S, A5], Line[B5, S_L])
D5 = Intersect(Line[S_L, A5], Line[C5, S_R])
E5, F5, G5, H5, I5 = Polygon(A5, B5, C5, D5)
A6: D5
B6: C5
C6 = Intersect(Line[S, A6], Line[B6, S_L])
D6 = Intersect(Line[S_L, A6], Line[C6, S_R])
E6, F6, G6, H6, I6 = Polygon(A6, B6, C6, D6)
A7: D6
B7: C6
C7 = Intersect(Line[S, A7], Line[B7, S_L])
D7 = Intersect(Line[S_L, A7], Line[C7, S_R])
E7, F7, G7, H7, I7 = Polygon(A7, B7, C7, D7)
A8: D7
B8: C7
C8 = Intersect(Line[S, A8], Line[B8, S_L])
D8 = Intersect(Line[S_L, A8], Line[C8, S_R])
E8, F8, G8, H8, I8 = Polygon(A8, B8, C8, D8)
A9: D8
B9: C8
C9 = Intersect(Line[S, A9], Line[B9, S_L])
D9 = Intersect(Line[S_L, A9], Line[C9, S_R])
E9, F9, G9, H9, I9 = Polygon(A9, B9, C9, D9)
A10: D9
B10: C9
C10 = Intersect(Line[S, A10], Line[B10, S_L])
D10 = Intersect(Line[S_L, A10], Line[C10, S_R])
E10, F10, G10, H10, I10 = Polygon(A10, B10, C10, D10)
A11: D10
B11: C10
C11 = Intersect(Line[S, A11], Line[B11, S_L])
D11 = Intersect(Line[S_L, A11], Line[C11, S_R])
E11, F11, G11, H11, I11 = Polygon(A11, B11, C11, D11)
A12: D11
B12: C11
C12 = Intersect(Line[S, A12], Line[B12, S_L])
D12 = Intersect(Line[S_L, A12], Line[C12, S_R])
E12, F12, G12, H12, I12 = Polygon(A12, B12, C12, D12)
A13: D12
B13: C12
C13 = Intersect(Line[S, A13], Line[B13, S_L])
D13 = Intersect(Line[S_L, A13], Line[C13, S_R])
E13, F13, G13, H13, I13 = Polygon(A13, B13, C13, D13)
A14: D13
B14: C13
C14 = Intersect(Line[S, A14], Line[B14, S_L])
D14 = Intersect(Line[S_L, A14], Line[C14, S_R])
E14, F14, G14, H14, I14 = Polygon(A14, B14, C14, D14)
A15: D14
B15: C14
C15 = Intersect(Line[S, A15], Line[B15, S_L])
D15 = Intersect(Line[S_L, A15], Line[C15, S_R])
E15, F15, G15, H15, I15 = Polygon(A15, B15, C15, D15)
K0 = 0
L0 = 0
J1: B1
M1: C1
L1 = Intersect(Line[S, J1], Line[S_R, M1])
K1 = Intersect(Line[S_L, L1], Line[S_R, J1])
N1, O1, P1, Q1, R1 = Polygon(J1, K1, L1, M1)
J2: M1
K2: L1
L2 = Intersect(Line[S, J2], Line[K2, S_L])
M2 = Intersect(Line[S_L, J2], Line[L2, S_R])
N2, O2, P2, Q2, R2 = Polygon(J2, K2, L2, M2)
J3: M2
K3: L2
L3 = Intersect(Line[S, J3], Line[K3, S_L])
M3 = Intersect(Line[S_L, J3], Line[L3, S_R])
N3, O3, P3, Q3, R3 = Polygon(J3, K3, L3, M3)
J4: M3
K4: L3
L4 = Intersect(Line[S, J4], Line[K4, S_L])
M4 = Intersect(Line[S_L, J4], Line[L4, S_R])
N4, O4, P4, Q4, R4 = Polygon(J4, K4, L4, M4)
J5: M4
K5: L4
L5 = Intersect(Line[S, J5], Line[K5, S_L])
M5 = Intersect(Line[S_L, J5], Line[L5, S_R])
N5, O5, P5, Q5, R5 = Polygon(J5, K5, L5, M5)
J6: M5
K6: L5
L6 = Intersect(Line[S, J6], Line[K6, S_L])
M6 = Intersect(Line[S_L, J6], Line[L6, S_R])
N6, O6, P6, Q6, R6 = Polygon(J6, K6, L6, M6)
J7: M6
K7: L6
L7 = Intersect(Line[S, J7], Line[K7, S_L])
M7 = Intersect(Line[S_L, J7], Line[L7, S_R])
N7, O7, P7, Q7, R7 = Polygon(J7, K7, L7, M7)
J8: M7
K8: L7
L8 = Intersect(Line[S, J8], Line[K8, S_L])
M8 = Intersect(Line[S_L, J8], Line[L8, S_R])
N8, O8, P8, Q8, R8 = Polygon(J8, K8, L8, M8)
J9: M8
K9: L8
L9 = Intersect(Line[S, J9], Line[K9, S_L])
M9 = Intersect(Line[S_L, J9], Line[L9, S_R])
N9, O9, P9, Q9, R9 = Polygon(J9, K9, L9, M9)
J10: M9
K10: L9
L10 = Intersect(Line[S, J10], Line[K10, S_L])
M10 = Intersect(Line[S_L, J10], Line[L10, S_R])
N10, O10, P10, Q10, R10 = Polygon(J10, K10, L10, M10)
J11: M10
K11: L10
L11 = Intersect(Line[S, J11], Line[K11, S_L])
M11 = Intersect(Line[S_L, J11], Line[L11, S_R])
N11, O11, P11, Q11, R11 = Polygon(J11, K11, L11, M11)
J12: M11
K12: L11
L12 = Intersect(Line[S, J12], Line[K12, S_L])
M12 = Intersect(Line[S_L, J12], Line[L12, S_R])
N12, O12, P12, Q12, R12 = Polygon(J12, K12, L12, M12)
J13: M12
K13: L12
L13 = Intersect(Line[S, J13], Line[K13, S_L])
M13 = Intersect(Line[S_L, J13], Line[L13, S_R])
N13, O13, P13, Q13, R13 = Polygon(J13, K13, L13, M13)
J14: M13
K14: L13
L14 = Intersect(Line[S, J14], Line[K14, S_L])
M14 = Intersect(Line[S_L, J14], Line[L14, S_R])
N14, O14, P14, Q14, R14 = Polygon(J14, K14, L14, M14)
J15: M14
K15: L14
L15 = Intersect(Line[S, J15], Line[K15, S_L])
M15 = Intersect(Line[S_L, J15], Line[L15, S_R])
N15, O15, P15, Q15, R15 = Polygon(J15, K15, L15, M15)
S1: K1
V1: L1
U1 = Intersect(Line[S, S1], Line[S_R, V1])
T1 = Intersect(Line[S_L, U1], Line[S_R, S1])
W1, X1, Y1, Z1, AA1 = Polygon(S1, T1, U1, V1)
S2: V1
T2: U1
U2 = Intersect(Line[S, S2], Line[T2, S_L])
V2 = Intersect(Line[S_L, S2], Line[U2, S_R])
W2, X2, Y2, Z2, AA2 = Polygon(S2, T2, U2, V2)
S3: V2
T3: U2
U3 = Intersect(Line[S, S3], Line[T3, S_L])
V3 = Intersect(Line[S_L, S3], Line[U3, S_R])
W3, X3, Y3, Z3, AA3 = Polygon(S3, T3, U3, V3)
S4: V3
T4: U3
U4 = Intersect(Line[S, S4], Line[T4, S_L])
V4 = Intersect(Line[S_L, S4], Line[U4, S_R])
W4, X4, Y4, Z4, AA4 = Polygon(S4, T4, U4, V4)
S5: V4
T5: U4
U5 = Intersect(Line[S, S5], Line[T5, S_L])
V5 = Intersect(Line[S_L, S5], Line[U5, S_R])
W5, X5, Y5, Z5, AA5 = Polygon(S5, T5, U5, V5)
S6: V5
T6: U5
U6 = Intersect(Line[S, S6], Line[T6, S_L])
V6 = Intersect(Line[S_L, S6], Line[U6, S_R])
W6, X6, Y6, Z6, AA6 = Polygon(S6, T6, U6, V6)
S7: V6
T7: U6
U7 = Intersect(Line[S, S7], Line[T7, S_L])
V7 = Intersect(Line[S_L, S7], Line[U7, S_R])
W7, X7, Y7, Z7, AA7 = Polygon(S7, T7, U7, V7)
S8: V7
T8: U7
U8 = Intersect(Line[S, S8], Line[T8, S_L])
V8 = Intersect(Line[S_L, S8], Line[U8, S_R])
W8, X8, Y8, Z8, AA8 = Polygon(S8, T8, U8, V8)
S9: V8
T9: U8
U9 = Intersect(Line[S, S9], Line[T9, S_L])
V9 = Intersect(Line[S_L, S9], Line[U9, S_R])
W9, X9, Y9, Z9, AA9 = Polygon(S9, T9, U9, V9)
S10: V9
T10: U9
U10 = Intersect(Line[S, S10], Line[T10, S_L])
V10 = Intersect(Line[S_L, S10], Line[U10, S_R])
W10, X10, Y10, Z10, AA10 = Polygon(S10, T10, U10, V10)
S11: V10
T11: U10
U11 = Intersect(Line[S, S11], Line[T11, S_L])
V11 = Intersect(Line[S_L, S11], Line[U11, S_R])
W11, X11, Y11, Z11, AA11 = Polygon(S11, T11, U11, V11)
S12: V11
T12: U11
U12 = Intersect(Line[S, S12], Line[T12, S_L])
V12 = Intersect(Line[S_L, S12], Line[U12, S_R])
W12, X12, Y12, Z12, AA12 = Polygon(S12, T12, U12, V12)
S13: V12
T13: U12
U13 = Intersect(Line[S, S13], Line[T13, S_L])
V13 = Intersect(Line[S_L, S13], Line[U13, S_R])
W13, X13, Y13, Z13, AA13 = Polygon(S13, T13, U13, V13)
S14: V13
T14: U13
U14 = Intersect(Line[S, S14], Line[T14, S_L])
V14 = Intersect(Line[S_L, S14], Line[U14, S_R])
W14, X14, Y14, Z14, AA14 = Polygon(S14, T14, U14, V14)
S15: V14
T15: U14
U15 = Intersect(Line[S, S15], Line[T15, S_L])
V15 = Intersect(Line[S_L, S15], Line[U15, S_R])
W15, X15, Y15, Z15, AA15 = Polygon(S15, T15, U15, V15)
AB1: T1
AE1: U1
AD1 = Intersect(Line[S, AB1], Line[S_R, AE1])
AC1 = Intersect(Line[S_L, AD1], Line[S_R, AB1])
AF1, AG1, AH1, AI1, AJ1 = Polygon(AB1, AC1, AD1, AE1)
AB2: AE1
AC2: AD1
AD2 = Intersect(Line[S, AB2], Line[AC2, S_L])
AE2 = Intersect(Line[S_L, AB2], Line[AD2, S_R])
AF2, AG2, AH2, AI2, AJ2 = Polygon(AB2, AC2, AD2, AE2)
AB3: AE2
AC3: AD2
AD3 = Intersect(Line[S, AB3], Line[AC3, S_L])
AE3 = Intersect(Line[S_L, AB3], Line[AD3, S_R])
AF3, AG3, AH3, AI3, AJ3 = Polygon(AB3, AC3, AD3, AE3)
AB4: AE3
AC4: AD3
AD4 = Intersect(Line[S, AB4], Line[AC4, S_L])
AE4 = Intersect(Line[S_L, AB4], Line[AD4, S_R])
AF4, AG4, AH4, AI4, AJ4 = Polygon(AB4, AC4, AD4, AE4)
AB5: AE4
AC5: AD4
AD5 = Intersect(Line[S, AB5], Line[AC5, S_L])
AE5 = Intersect(Line[S_L, AB5], Line[AD5, S_R])
AF5, AG5, AH5, AI5, AJ5 = Polygon(AB5, AC5, AD5, AE5)
AB6: AE5
AC6: AD5
AD6 = Intersect(Line[S, AB6], Line[AC6, S_L])
AE6 = Intersect(Line[S_L, AB6], Line[AD6, S_R])
AF6, AG6, AH6, AI6, AJ6 = Polygon(AB6, AC6, AD6, AE6)
AB7: AE6
AC7: AD6
AD7 = Intersect(Line[S, AB7], Line[AC7, S_L])
AE7 = Intersect(Line[S_L, AB7], Line[AD7, S_R])
AF7, AG7, AH7, AI7, AJ7 = Polygon(AB7, AC7, AD7, AE7)
AB8: AE7
AC8: AD7
AD8 = Intersect(Line[S, AB8], Line[AC8, S_L])
AE8 = Intersect(Line[S_L, AB8], Line[AD8, S_R])
AF8, AG8, AH8, AI8, AJ8 = Polygon(AB8, AC8, AD8, AE8)
AB9: AE8
AC9: AD8
AD9 = Intersect(Line[S, AB9], Line[AC9, S_L])
AE9 = Intersect(Line[S_L, AB9], Line[AD9, S_R])
AF9, AG9, AH9, AI9, AJ9 = Polygon(AB9, AC9, AD9, AE9)
AB10: AE9
AC10: AD9
AD10 = Intersect(Line[S, AB10], Line[AC10, S_L])
AE10 = Intersect(Line[S_L, AB10], Line[AD10, S_R])
AF10, AG10, AH10, AI10, AJ10 = Polygon(AB10, AC10, AD10, AE10)
AB11: AE10
AC11: AD10
AD11 = Intersect(Line[S, AB11], Line[AC11, S_L])
AE11 = Intersect(Line[S_L, AB11], Line[AD11, S_R])
AF11, AG11, AH11, AI11, AJ11 = Polygon(AB11, AC11, AD11, AE11)
AB12: AE11
AC12: AD11
AD12 = Intersect(Line[S, AB12], Line[AC12, S_L])
AE12 = Intersect(Line[S_L, AB12], Line[AD12, S_R])
AF12, AG12, AH12, AI12, AJ12 = Polygon(AB12, AC12, AD12, AE12)
AB13: AE12
AC13: AD12
AD13 = Intersect(Line[S, AB13], Line[AC13, S_L])
AE13 = Intersect(Line[S_L, AB13], Line[AD13, S_R])
AF13, AG13, AH13, AI13, AJ13 = Polygon(AB13, AC13, AD13, AE13)
AB14: AE13
AC14: AD13
AD14 = Intersect(Line[S, AB14], Line[AC14, S_L])
AE14 = Intersect(Line[S_L, AB14], Line[AD14, S_R])
AF14, AG14, AH14, AI14, AJ14 = Polygon(AB14, AC14, AD14, AE14)
AB15: AE14
AC15: AD14
AD15 = Intersect(Line[S, AB15], Line[AC15, S_L])
AE15 = Intersect(Line[S_L, AB15], Line[AD15, S_R])
AF15, AG15, AH15, AI15, AJ15 = Polygon(AB15, AC15, AD15, AE15)
AK1: AC1
AN1: AD1
AM1 = Intersect(Line[S, AK1], Line[S_R, AN1])
AL1 = Intersect(Line[S_L, AM1], Line[S_R, AK1])
AO1, AP1, AQ1, AR1, AS1 = Polygon(AK1, AL1, AM1, AN1)
AK2: AN1
AL2: AM1
AM2 = Intersect(Line[S, AK2], Line[AL2, S_L])
AN2 = Intersect(Line[S_L, AK2], Line[AM2, S_R])
AO2, AP2, AQ2, AR2, AS2 = Polygon(AK2, AL2, AM2, AN2)
AK3: AN2
AL3: AM2
AM3 = Intersect(Line[S, AK3], Line[AL3, S_L])
AN3 = Intersect(Line[S_L, AK3], Line[AM3, S_R])
AO3, AP3, AQ3, AR3, AS3 = Polygon(AK3, AL3, AM3, AN3)
AK4: AN3
AL4: AM3
AM4 = Intersect(Line[S, AK4], Line[AL4, S_L])
AN4 = Intersect(Line[S_L, AK4], Line[AM4, S_R])
AO4, AP4, AQ4, AR4, AS4 = Polygon(AK4, AL4, AM4, AN4)
AK5: AN4
AL5: AM4
AM5 = Intersect(Line[S, AK5], Line[AL5, S_L])
AN5 = Intersect(Line[S_L, AK5], Line[AM5, S_R])
AO5, AP5, AQ5, AR5, AS5 = Polygon(AK5, AL5, AM5, AN5)
AK6: AN5
AL6: AM5
AM6 = Intersect(Line[S, AK6], Line[AL6, S_L])
AN6 = Intersect(Line[S_L, AK6], Line[AM6, S_R])
AO6, AP6, AQ6, AR6, AS6 = Polygon(AK6, AL6, AM6, AN6)
AK7: AN6
AL7: AM6
AM7 = Intersect(Line[S, AK7], Line[AL7, S_L])
AN7 = Intersect(Line[S_L, AK7], Line[AM7, S_R])
AO7, AP7, AQ7, AR7, AS7 = Polygon(AK7, AL7, AM7, AN7)
AK8: AN7
AL8: AM7
AM8 = Intersect(Line[S, AK8], Line[AL8, S_L])
AN8 = Intersect(Line[S_L, AK8], Line[AM8, S_R])
AO8, AP8, AQ8, AR8, AS8 = Polygon(AK8, AL8, AM8, AN8)
AK9: AN8
AL9: AM8
AM9 = Intersect(Line[S, AK9], Line[AL9, S_L])
AN9 = Intersect(Line[S_L, AK9], Line[AM9, S_R])
AO9, AP9, AQ9, AR9, AS9 = Polygon(AK9, AL9, AM9, AN9)
AK10: AN9
AL10: AM9
AM10 = Intersect(Line[S, AK10], Line[AL10, S_L])
AN10 = Intersect(Line[S_L, AK10], Line[AM10, S_R])
AO10, AP10, AQ10, AR10, AS10 = Polygon(AK10, AL10, AM10, AN10)
AK11: AN10
AL11: AM10
AM11 = Intersect(Line[S, AK11], Line[AL11, S_L])
AN11 = Intersect(Line[S_L, AK11], Line[AM11, S_R])
AO11, AP11, AQ11, AR11, AS11 = Polygon(AK11, AL11, AM11, AN11)
AK12: AN11
AL12: AM11
AM12 = Intersect(Line[S, AK12], Line[AL12, S_L])
AN12 = Intersect(Line[S_L, AK12], Line[AM12, S_R])
AO12, AP12, AQ12, AR12, AS12 = Polygon(AK12, AL12, AM12, AN12)
AK13: AN12
AL13: AM12
AM13 = Intersect(Line[S, AK13], Line[AL13, S_L])
AN13 = Intersect(Line[S_L, AK13], Line[AM13, S_R])
AO13, AP13, AQ13, AR13, AS13 = Polygon(AK13, AL13, AM13, AN13)
AK14: AN13
AL14: AM13
AM14 = Intersect(Line[S, AK14], Line[AL14, S_L])
AN14 = Intersect(Line[S_L, AK14], Line[AM14, S_R])
AO14, AP14, AQ14, AR14, AS14 = Polygon(AK14, AL14, AM14, AN14)
AK15: AN14
AL15: AM14
AM15 = Intersect(Line[S, AK15], Line[AL15, S_L])
AN15 = Intersect(Line[S_L, AK15], Line[AM15, S_R])
AO15, AP15, AQ15, AR15, AS15 = Polygon(AK15, AL15, AM15, AN15)
AT1: AL1
AW1: AM1
AV1 = Intersect(Line[S, AT1], Line[S_R, AW1])
AU1 = Intersect(Line[S_L, AV1], Line[S_R, AT1])
AX1, AY1, AZ1, BA1, BB1 = Polygon(AT1, AU1, AV1, AW1)
AT2: AW1
AU2: AV1
AV2 = Intersect(Line[S, AT2], Line[AU2, S_L])
AW2 = Intersect(Line[S_L, AT2], Line[AV2, S_R])
AX2, AY2, AZ2, BA2, BB2 = Polygon(AT2, AU2, AV2, AW2)
AT3: AW2
AU3: AV2
AV3 = Intersect(Line[S, AT3], Line[AU3, S_L])
AW3 = Intersect(Line[S_L, AT3], Line[AV3, S_R])
AX3, AY3, AZ3, BA3, BB3 = Polygon(AT3, AU3, AV3, AW3)
AT4: AW3
AU4: AV3
AV4 = Intersect(Line[S, AT4], Line[AU4, S_L])
AW4 = Intersect(Line[S_L, AT4], Line[AV4, S_R])
AX4, AY4, AZ4, BA4, BB4 = Polygon(AT4, AU4, AV4, AW4)
AT5: AW4
AU5: AV4
AV5 = Intersect(Line[S, AT5], Line[AU5, S_L])
AW5 = Intersect(Line[S_L, AT5], Line[AV5, S_R])
AX5, AY5, AZ5, BA5, BB5 = Polygon(AT5, AU5, AV5, AW5)
AT6: AW5
AU6: AV5
AV6 = Intersect(Line[S, AT6], Line[AU6, S_L])
AW6 = Intersect(Line[S_L, AT6], Line[AV6, S_R])
AX6, AY6, AZ6, BA6, BB6 = Polygon(AT6, AU6, AV6, AW6)
AT7: AW6
AU7: AV6
AV7 = Intersect(Line[S, AT7], Line[AU7, S_L])
AW7 = Intersect(Line[S_L, AT7], Line[AV7, S_R])
AX7, AY7, AZ7, BA7, BB7 = Polygon(AT7, AU7, AV7, AW7)
AT8: AW7
AU8: AV7
AV8 = Intersect(Line[S, AT8], Line[AU8, S_L])
AW8 = Intersect(Line[S_L, AT8], Line[AV8, S_R])
AX8, AY8, AZ8, BA8, BB8 = Polygon(AT8, AU8, AV8, AW8)
AT9: AW8
AU9: AV8
AV9 = Intersect(Line[S, AT9], Line[AU9, S_L])
AW9 = Intersect(Line[S_L, AT9], Line[AV9, S_R])
AX9, AY9, AZ9, BA9, BB9 = Polygon(AT9, AU9, AV9, AW9)
AT10: AW9
AU10: AV9
AV10 = Intersect(Line[S, AT10], Line[AU10, S_L])
AW10 = Intersect(Line[S_L, AT10], Line[AV10, S_R])
AX10, AY10, AZ10, BA10, BB10 = Polygon(AT10, AU10, AV10, AW10)
AT11: AW10
AU11: AV10
AV11 = Intersect(Line[S, AT11], Line[AU11, S_L])
AW11 = Intersect(Line[S_L, AT11], Line[AV11, S_R])
AX11, AY11, AZ11, BA11, BB11 = Polygon(AT11, AU11, AV11, AW11)
AT12: AW11
AU12: AV11
AV12 = Intersect(Line[S, AT12], Line[AU12, S_L])
AW12 = Intersect(Line[S_L, AT12], Line[AV12, S_R])
AX12, AY12, AZ12, BA12, BB12 = Polygon(AT12, AU12, AV12, AW12)
AT13: AW12
AU13: AV12
AV13 = Intersect(Line[S, AT13], Line[AU13, S_L])
AW13 = Intersect(Line[S_L, AT13], Line[AV13, S_R])
AX13, AY13, AZ13, BA13, BB13 = Polygon(AT13, AU13, AV13, AW13)
AT14: AW13
AU14: AV13
AV14 = Intersect(Line[S, AT14], Line[AU14, S_L])
AW14 = Intersect(Line[S_L, AT14], Line[AV14, S_R])
AX14, AY14, AZ14, BA14, BB14 = Polygon(AT14, AU14, AV14, AW14)
AT15: AW14
AU15: AV14
AV15 = Intersect(Line[S, AT15], Line[AU15, S_L])
AW15 = Intersect(Line[S_L, AT15], Line[AV15, S_R])
AX15, AY15, AZ15, BA15, BB15 = Polygon(AT15, AU15, AV15, AW15)
BC1: AU1
BF1: AV1
BE1 = Intersect(Line[S, BC1], Line[S_R, BF1])
BD1 = Intersect(Line[S_L, BE1], Line[S_R, BC1])
BG1, BH1, BI1, BJ1, BK1 = Polygon(BC1, BD1, BE1, BF1)
BC2: BF1
BD2: BE1
BE2 = Intersect(Line[S, BC2], Line[BD2, S_L])
BF2 = Intersect(Line[S_L, BC2], Line[BE2, S_R])
BG2, BH2, BI2, BJ2, BK2 = Polygon(BC2, BD2, BE2, BF2)
BC3: BF2
BD3: BE2
BE3 = Intersect(Line[S, BC3], Line[BD3, S_L])
BF3 = Intersect(Line[S_L, BC3], Line[BE3, S_R])
BG3, BH3, BI3, BJ3, BK3 = Polygon(BC3, BD3, BE3, BF3)
BC4: BF3
BD4: BE3
BE4 = Intersect(Line[S, BC4], Line[BD4, S_L])
BF4 = Intersect(Line[S_L, BC4], Line[BE4, S_R])
BG4, BH4, BI4, BJ4, BK4 = Polygon(BC4, BD4, BE4, BF4)
BC5: BF4
BD5: BE4
BE5 = Intersect(Line[S, BC5], Line[BD5, S_L])
BF5 = Intersect(Line[S_L, BC5], Line[BE5, S_R])
BG5, BH5, BI5, BJ5, BK5 = Polygon(BC5, BD5, BE5, BF5)
BC6: BF5
BD6: BE5
BE6 = Intersect(Line[S, BC6], Line[BD6, S_L])
BF6 = Intersect(Line[S_L, BC6], Line[BE6, S_R])
BG6, BH6, BI6, BJ6, BK6 = Polygon(BC6, BD6, BE6, BF6)
BC7: BF6
BD7: BE6
BE7 = Intersect(Line[S, BC7], Line[BD7, S_L])
BF7 = Intersect(Line[S_L, BC7], Line[BE7, S_R])
BG7, BH7, BI7, BJ7, BK7 = Polygon(BC7, BD7, BE7, BF7)
BC8: BF7
BD8: BE7
BE8 = Intersect(Line[S, BC8], Line[BD8, S_L])
BF8 = Intersect(Line[S_L, BC8], Line[BE8, S_R])
BG8, BH8, BI8, BJ8, BK8 = Polygon(BC8, BD8, BE8, BF8)
BC9: BF8
BD9: BE8
BE9 = Intersect(Line[S, BC9], Line[BD9, S_L])
BF9 = Intersect(Line[S_L, BC9], Line[BE9, S_R])
BG9, BH9, BI9, BJ9, BK9 = Polygon(BC9, BD9, BE9, BF9)
BC10: BF9
BD10: BE9
BE10 = Intersect(Line[S, BC10], Line[BD10, S_L])
BF10 = Intersect(Line[S_L, BC10], Line[BE10, S_R])
BG10, BH10, BI10, BJ10, BK10 = Polygon(BC10, BD10, BE10, BF10)
BC11: BF10
BD11: BE10
BE11 = Intersect(Line[S, BC11], Line[BD11, S_L])
BF11 = Intersect(Line[S_L, BC11], Line[BE11, S_R])
BG11, BH11, BI11, BJ11, BK11 = Polygon(BC11, BD11, BE11, BF11)
BC12: BF11
BD12: BE11
BE12 = Intersect(Line[S, BC12], Line[BD12, S_L])
BF12 = Intersect(Line[S_L, BC12], Line[BE12, S_R])
BG12, BH12, BI12, BJ12, BK12 = Polygon(BC12, BD12, BE12, BF12)
BC13: BF12
BD13: BE12
BE13 = Intersect(Line[S, BC13], Line[BD13, S_L])
BF13 = Intersect(Line[S_L, BC13], Line[BE13, S_R])
BG13, BH13, BI13, BJ13, BK13 = Polygon(BC13, BD13, BE13, BF13)
BC14: BF13
BD14: BE13
BE14 = Intersect(Line[S, BC14], Line[BD14, S_L])
BF14 = Intersect(Line[S_L, BC14], Line[BE14, S_R])
BG14, BH14, BI14, BJ14, BK14 = Polygon(BC14, BD14, BE14, BF14)
BC15: BF14
BD15: BE14
BE15 = Intersect(Line[S, BC15], Line[BD15, S_L])
BF15 = Intersect(Line[S_L, BC15], Line[BE15, S_R])
BG15, BH15, BI15, BJ15, BK15 = Polygon(BC15, BD15, BE15, BF15)
BL1: BD1
BO1: BE1
BN1 = Intersect(Line[S, BL1], Line[S_R, BO1])
BM1 = Intersect(Line[S_L, BN1], Line[S_R, BL1])
BP1, BQ1, BR1, BS1, BT1 = Polygon(BL1, BM1, BN1, BO1)
BL2: BO1
BM2: BN1
BN2 = Intersect(Line[S, BL2], Line[BM2, S_L])
BO2 = Intersect(Line[S_L, BL2], Line[BN2, S_R])
BP2, BQ2, BR2, BS2, BT2 = Polygon(BL2, BM2, BN2, BO2)
BL3: BO2
BM3: BN2
BN3 = Intersect(Line[S, BL3], Line[BM3, S_L])
BO3 = Intersect(Line[S_L, BL3], Line[BN3, S_R])
BP3, BQ3, BR3, BS3, BT3 = Polygon(BL3, BM3, BN3, BO3)
BL4: BO3
BM4: BN3
BN4 = Intersect(Line[S, BL4], Line[BM4, S_L])
BO4 = Intersect(Line[S_L, BL4], Line[BN4, S_R])
BP4, BQ4, BR4, BS4, BT4 = Polygon(BL4, BM4, BN4, BO4)
BL5: BO4
BM5: BN4
BN5 = Intersect(Line[S, BL5], Line[BM5, S_L])
BO5 = Intersect(Line[S_L, BL5], Line[BN5, S_R])
BP5, BQ5, BR5, BS5, BT5 = Polygon(BL5, BM5, BN5, BO5)
BL6: BO5
BM6: BN5
BN6 = Intersect(Line[S, BL6], Line[BM6, S_L])
BO6 = Intersect(Line[S_L, BL6], Line[BN6, S_R])
BP6, BQ6, BR6, BS6, BT6 = Polygon(BL6, BM6, BN6, BO6)
BL7: BO6
BM7: BN6
BN7 = Intersect(Line[S, BL7], Line[BM7, S_L])
BO7 = Intersect(Line[S_L, BL7], Line[BN7, S_R])
BP7, BQ7, BR7, BS7, BT7 = Polygon(BL7, BM7, BN7, BO7)
BL8: BO7
BM8: BN7
BN8 = Intersect(Line[S, BL8], Line[BM8, S_L])
BO8 = Intersect(Line[S_L, BL8], Line[BN8, S_R])
BP8, BQ8, BR8, BS8, BT8 = Polygon(BL8, BM8, BN8, BO8)
BL9: BO8
BM9: BN8
BN9 = Intersect(Line[S, BL9], Line[BM9, S_L])
BO9 = Intersect(Line[S_L, BL9], Line[BN9, S_R])
BP9, BQ9, BR9, BS9, BT9 = Polygon(BL9, BM9, BN9, BO9)
BL10: BO9
BM10: BN9
BN10 = Intersect(Line[S, BL10], Line[BM10, S_L])
BO10 = Intersect(Line[S_L, BL10], Line[BN10, S_R])
BP10, BQ10, BR10, BS10, BT10 = Polygon(BL10, BM10, BN10, BO10)
BL11: BO10
BM11: BN10
BN11 = Intersect(Line[S, BL11], Line[BM11, S_L])
BO11 = Intersect(Line[S_L, BL11], Line[BN11, S_R])
BP11, BQ11, BR11, BS11, BT11 = Polygon(BL11, BM11, BN11, BO11)
BL12: BO11
BM12: BN11
BN12 = Intersect(Line[S, BL12], Line[BM12, S_L])
BO12 = Intersect(Line[S_L, BL12], Line[BN12, S_R])
BP12, BQ12, BR12, BS12, BT12 = Polygon(BL12, BM12, BN12, BO12)
BL13: BO12
BM13: BN12
BN13 = Intersect(Line[S, BL13], Line[BM13, S_L])
BO13 = Intersect(Line[S_L, BL13], Line[BN13, S_R])
BP13, BQ13, BR13, BS13, BT13 = Polygon(BL13, BM13, BN13, BO13)
BL14: BO13
BM14: BN13
BN14 = Intersect(Line[S, BL14], Line[BM14, S_L])
BO14 = Intersect(Line[S_L, BL14], Line[BN14, S_R])
BP14, BQ14, BR14, BS14, BT14 = Polygon(BL14, BM14, BN14, BO14)
BL15: BO14
BM15: BN14
BN15 = Intersect(Line[S, BL15], Line[BM15, S_L])
BO15 = Intersect(Line[S_L, BL15], Line[BN15, S_R])
BP15, BQ15, BR15, BS15, BT15 = Polygon(BL15, BM15, BN15, BO15)
BU1: BM1
BX1: BN1
BW1 = Intersect(Line[S, BU1], Line[S_R, BX1])
BV1 = Intersect(Line[S_L, BW1], Line[S_R, BU1])
BY1, BZ1, CA1, CB1, CC1 = Polygon(BU1, BV1, BW1, BX1)
BU2: BX1
BV2: BW1
BW2 = Intersect(Line[S, BU2], Line[BV2, S_L])
BX2 = Intersect(Line[S_L, BU2], Line[BW2, S_R])
BY2, BZ2, CA2, CB2, CC2 = Polygon(BU2, BV2, BW2, BX2)
BU3: BX2
BV3: BW2
BW3 = Intersect(Line[S, BU3], Line[BV3, S_L])
BX3 = Intersect(Line[S_L, BU3], Line[BW3, S_R])
BY3, BZ3, CA3, CB3, CC3 = Polygon(BU3, BV3, BW3, BX3)
BU4: BX3
BV4: BW3
BW4 = Intersect(Line[S, BU4], Line[BV4, S_L])
BX4 = Intersect(Line[S_L, BU4], Line[BW4, S_R])
BY4, BZ4, CA4, CB4, CC4 = Polygon(BU4, BV4, BW4, BX4)
BU5: BX4
BV5: BW4
BW5 = Intersect(Line[S, BU5], Line[BV5, S_L])
BX5 = Intersect(Line[S_L, BU5], Line[BW5, S_R])
BY5, BZ5, CA5, CB5, CC5 = Polygon(BU5, BV5, BW5, BX5)
BU6: BX5
BV6: BW5
BW6 = Intersect(Line[S, BU6], Line[BV6, S_L])
BX6 = Intersect(Line[S_L, BU6], Line[BW6, S_R])
BY6, BZ6, CA6, CB6, CC6 = Polygon(BU6, BV6, BW6, BX6)
BU7: BX6
BV7: BW6
BW7 = Intersect(Line[S, BU7], Line[BV7, S_L])
BX7 = Intersect(Line[S_L, BU7], Line[BW7, S_R])
BY7, BZ7, CA7, CB7, CC7 = Polygon(BU7, BV7, BW7, BX7)
BU8: BX7
BV8: BW7
BW8 = Intersect(Line[S, BU8], Line[BV8, S_L])
BX8 = Intersect(Line[S_L, BU8], Line[BW8, S_R])
BY8, BZ8, CA8, CB8, CC8 = Polygon(BU8, BV8, BW8, BX8)
BU9: BX8
BV9: BW8
BW9 = Intersect(Line[S, BU9], Line[BV9, S_L])
BX9 = Intersect(Line[S_L, BU9], Line[BW9, S_R])
BY9, BZ9, CA9, CB9, CC9 = Polygon(BU9, BV9, BW9, BX9)
BU10: BX9
BV10: BW9
BW10 = Intersect(Line[S, BU10], Line[BV10, S_L])
BX10 = Intersect(Line[S_L, BU10], Line[BW10, S_R])
BY10, BZ10, CA10, CB10, CC10 = Polygon(BU10, BV10, BW10, BX10)
BU11: BX10
BV11: BW10
BW11 = Intersect(Line[S, BU11], Line[BV11, S_L])
BX11 = Intersect(Line[S_L, BU11], Line[BW11, S_R])
BY11, BZ11, CA11, CB11, CC11 = Polygon(BU11, BV11, BW11, BX11)
BU12: BX11
BV12: BW11
BW12 = Intersect(Line[S, BU12], Line[BV12, S_L])
BX12 = Intersect(Line[S_L, BU12], Line[BW12, S_R])
BY12, BZ12, CA12, CB12, CC12 = Polygon(BU12, BV12, BW12, BX12)
BU13: BX12
BV13: BW12
BW13 = Intersect(Line[S, BU13], Line[BV13, S_L])
BX13 = Intersect(Line[S_L, BU13], Line[BW13, S_R])
BY13, BZ13, CA13, CB13, CC13 = Polygon(BU13, BV13, BW13, BX13)
BU14: BX13
BV14: BW13
BW14 = Intersect(Line[S, BU14], Line[BV14, S_L])
BX14 = Intersect(Line[S_L, BU14], Line[BW14, S_R])
BY14, BZ14, CA14, CB14, CC14 = Polygon(BU14, BV14, BW14, BX14)
BU15: BX14
BV15: BW14
BW15 = Intersect(Line[S, BU15], Line[BV15, S_L])
BX15 = Intersect(Line[S_L, BU15], Line[BW15, S_R])
BY15, BZ15, CA15, CB15, CC15 = Polygon(BU15, BV15, BW15, BX15)
CD1: BV1
CG1: BW1
CF1 = Intersect(Line[S, CD1], Line[S_R, CG1])
CE1 = Intersect(Line[S_L, CF1], Line[S_R, CD1])
CH1, CI1, CJ1, CK1, CL1 = Polygon(CD1, CE1, CF1, CG1)
CD2: CG1
CE2: CF1
CF2 = Intersect(Line[S, CD2], Line[CE2, S_L])
CG2 = Intersect(Line[S_L, CD2], Line[CF2, S_R])
CH2, CI2, CJ2, CK2, CL2 = Polygon(CD2, CE2, CF2, CG2)
CD3: CG2
CE3: CF2
CF3 = Intersect(Line[S, CD3], Line[CE3, S_L])
CG3 = Intersect(Line[S_L, CD3], Line[CF3, S_R])
CH3, CI3, CJ3, CK3, CL3 = Polygon(CD3, CE3, CF3, CG3)
CD4: CG3
CE4: CF3
CF4 = Intersect(Line[S, CD4], Line[CE4, S_L])
CG4 = Intersect(Line[S_L, CD4], Line[CF4, S_R])
CH4, CI4, CJ4, CK4, CL4 = Polygon(CD4, CE4, CF4, CG4)
CD5: CG4
CE5: CF4
CF5 = Intersect(Line[S, CD5], Line[CE5, S_L])
CG5 = Intersect(Line[S_L, CD5], Line[CF5, S_R])
CH5, CI5, CJ5, CK5, CL5 = Polygon(CD5, CE5, CF5, CG5)
CD6: CG5
CE6: CF5
CF6 = Intersect(Line[S, CD6], Line[CE6, S_L])
CG6 = Intersect(Line[S_L, CD6], Line[CF6, S_R])
CH6, CI6, CJ6, CK6, CL6 = Polygon(CD6, CE6, CF6, CG6)
CD7: CG6
CE7: CF6
CF7 = Intersect(Line[S, CD7], Line[CE7, S_L])
CG7 = Intersect(Line[S_L, CD7], Line[CF7, S_R])
CH7, CI7, CJ7, CK7, CL7 = Polygon(CD7, CE7, CF7, CG7)
CD8: CG7
CE8: CF7
CF8 = Intersect(Line[S, CD8], Line[CE8, S_L])
CG8 = Intersect(Line[S_L, CD8], Line[CF8, S_R])
CH8, CI8, CJ8, CK8, CL8 = Polygon(CD8, CE8, CF8, CG8)
CD9: CG8
CE9: CF8
CF9 = Intersect(Line[S, CD9], Line[CE9, S_L])
CG9 = Intersect(Line[S_L, CD9], Line[CF9, S_R])
CH9, CI9, CJ9, CK9, CL9 = Polygon(CD9, CE9, CF9, CG9)
CD10: CG9
CE10: CF9
CF10 = Intersect(Line[S, CD10], Line[CE10, S_L])
CG10 = Intersect(Line[S_L, CD10], Line[CF10, S_R])
CH10, CI10, CJ10, CK10, CL10 = Polygon(CD10, CE10, CF10, CG10)
CD11: CG10
CE11: CF10
CF11 = Intersect(Line[S, CD11], Line[CE11, S_L])
CG11 = Intersect(Line[S_L, CD11], Line[CF11, S_R])
CH11, CI11, CJ11, CK11, CL11 = Polygon(CD11, CE11, CF11, CG11)
CD12: CG11
CE12: CF11
CF12 = Intersect(Line[S, CD12], Line[CE12, S_L])
CG12 = Intersect(Line[S_L, CD12], Line[CF12, S_R])
CH12, CI12, CJ12, CK12, CL12 = Polygon(CD12, CE12, CF12, CG12)
CD13: CG12
CE13: CF12
CF13 = Intersect(Line[S, CD13], Line[CE13, S_L])
CG13 = Intersect(Line[S_L, CD13], Line[CF13, S_R])
CH13, CI13, CJ13, CK13, CL13 = Polygon(CD13, CE13, CF13, CG13)
CD14: CG13
CE14: CF13
CF14 = Intersect(Line[S, CD14], Line[CE14, S_L])
CG14 = Intersect(Line[S_L, CD14], Line[CF14, S_R])
CH14, CI14, CJ14, CK14, CL14 = Polygon(CD14, CE14, CF14, CG14)
CD15: CG14
CE15: CF14
CF15 = Intersect(Line[S, CD15], Line[CE15, S_L])
CG15 = Intersect(Line[S_L, CD15], Line[CF15, S_R])
CH15, CI15, CJ15, CK15, CL15 = Polygon(CD15, CE15, CF15, CG15)
CM1: CE1
CP1: CF1
CO1 = Intersect(Line[S, CM1], Line[S_R, CP1])
CN1 = Intersect(Line[S_L, CO1], Line[S_R, CM1])
CQ1, CR1, CS1, CT1, CU1 = Polygon(CM1, CN1, CO1, CP1)
CM2: CP1
CN2: CO1
CO2 = Intersect(Line[S, CM2], Line[CN2, S_L])
CP2 = Intersect(Line[S_L, CM2], Line[CO2, S_R])
CQ2, CR2, CS2, CT2, CU2 = Polygon(CM2, CN2, CO2, CP2)
CM3: CP2
CN3: CO2
CO3 = Intersect(Line[S, CM3], Line[CN3, S_L])
CP3 = Intersect(Line[S_L, CM3], Line[CO3, S_R])
CQ3, CR3, CS3, CT3, CU3 = Polygon(CM3, CN3, CO3, CP3)
CM4: CP3
CN4: CO3
CO4 = Intersect(Line[S, CM4], Line[CN4, S_L])
CP4 = Intersect(Line[S_L, CM4], Line[CO4, S_R])
CQ4, CR4, CS4, CT4, CU4 = Polygon(CM4, CN4, CO4, CP4)
CM5: CP4
CN5: CO4
CO5 = Intersect(Line[S, CM5], Line[CN5, S_L])
CP5 = Intersect(Line[S_L, CM5], Line[CO5, S_R])
CQ5, CR5, CS5, CT5, CU5 = Polygon(CM5, CN5, CO5, CP5)
CM6: CP5
CN6: CO5
CO6 = Intersect(Line[S, CM6], Line[CN6, S_L])
CP6 = Intersect(Line[S_L, CM6], Line[CO6, S_R])
CQ6, CR6, CS6, CT6, CU6 = Polygon(CM6, CN6, CO6, CP6)
CM7: CP6
CN7: CO6
CO7 = Intersect(Line[S, CM7], Line[CN7, S_L])
CP7 = Intersect(Line[S_L, CM7], Line[CO7, S_R])
CQ7, CR7, CS7, CT7, CU7 = Polygon(CM7, CN7, CO7, CP7)
CM8: CP7
CN8: CO7
CO8 = Intersect(Line[S, CM8], Line[CN8, S_L])
CP8 = Intersect(Line[S_L, CM8], Line[CO8, S_R])
CQ8, CR8, CS8, CT8, CU8 = Polygon(CM8, CN8, CO8, CP8)
CM9: CP8
CN9: CO8
CO9 = Intersect(Line[S, CM9], Line[CN9, S_L])
CP9 = Intersect(Line[S_L, CM9], Line[CO9, S_R])
CQ9, CR9, CS9, CT9, CU9 = Polygon(CM9, CN9, CO9, CP9)
CM10: CP9
CN10: CO9
CO10 = Intersect(Line[S, CM10], Line[CN10, S_L])
CP10 = Intersect(Line[S_L, CM10], Line[CO10, S_R])
CQ10, CR10, CS10, CT10, CU10 = Polygon(CM10, CN10, CO10, CP10)
CM11: CP10
CN11: CO10
CO11 = Intersect(Line[S, CM11], Line[CN11, S_L])
CP11 = Intersect(Line[S_L, CM11], Line[CO11, S_R])
CQ11, CR11, CS11, CT11, CU11 = Polygon(CM11, CN11, CO11, CP11)
CM12: CP11
CN12: CO11
CO12 = Intersect(Line[S, CM12], Line[CN12, S_L])
CP12 = Intersect(Line[S_L, CM12], Line[CO12, S_R])
CQ12, CR12, CS12, CT12, CU12 = Polygon(CM12, CN12, CO12, CP12)
CM13: CP12
CN13: CO12
CO13 = Intersect(Line[S, CM13], Line[CN13, S_L])
CP13 = Intersect(Line[S_L, CM13], Line[CO13, S_R])
CQ13, CR13, CS13, CT13, CU13 = Polygon(CM13, CN13, CO13, CP13)
CM14: CP13
CN14: CO13
CO14 = Intersect(Line[S, CM14], Line[CN14, S_L])
CP14 = Intersect(Line[S_L, CM14], Line[CO14, S_R])
CQ14, CR14, CS14, CT14, CU14 = Polygon(CM14, CN14, CO14, CP14)
CM15: CP14
CN15: CO14
CO15 = Intersect(Line[S, CM15], Line[CN15, S_L])
CP15 = Intersect(Line[S_L, CM15], Line[CO15, S_R])
CQ15, CR15, CS15, CT15, CU15 = Polygon(CM15, CN15, CO15, CP15)
CV1: CN1
CY1: CO1
CX1 = Intersect(Line[S, CV1], Line[S_R, CY1])
CW1 = Intersect(Line[S_L, CX1], Line[S_R, CV1])
CZ1, DA1, DB1, DC1, DD1 = Polygon(CV1, CW1, CX1, CY1)
CV2: CY1
CW2: CX1
CX2 = Intersect(Line[S, CV2], Line[CW2, S_L])
CY2 = Intersect(Line[S_L, CV2], Line[CX2, S_R])
CZ2, DA2, DB2, DC2, DD2 = Polygon(CV2, CW2, CX2, CY2)
CV3: CY2
CW3: CX2
CX3 = Intersect(Line[S, CV3], Line[CW3, S_L])
CY3 = Intersect(Line[S_L, CV3], Line[CX3, S_R])
CZ3, DA3, DB3, DC3, DD3 = Polygon(CV3, CW3, CX3, CY3)
CV4: CY3
CW4: CX3
CX4 = Intersect(Line[S, CV4], Line[CW4, S_L])
CY4 = Intersect(Line[S_L, CV4], Line[CX4, S_R])
CZ4, DA4, DB4, DC4, DD4 = Polygon(CV4, CW4, CX4, CY4)
CV5: CY4
CW5: CX4
CX5 = Intersect(Line[S, CV5], Line[CW5, S_L])
CY5 = Intersect(Line[S_L, CV5], Line[CX5, S_R])
CZ5, DA5, DB5, DC5, DD5 = Polygon(CV5, CW5, CX5, CY5)
CV6: CY5
CW6: CX5
CX6 = Intersect(Line[S, CV6], Line[CW6, S_L])
CY6 = Intersect(Line[S_L, CV6], Line[CX6, S_R])
CZ6, DA6, DB6, DC6, DD6 = Polygon(CV6, CW6, CX6, CY6)
CV7: CY6
CW7: CX6
CX7 = Intersect(Line[S, CV7], Line[CW7, S_L])
CY7 = Intersect(Line[S_L, CV7], Line[CX7, S_R])
CZ7, DA7, DB7, DC7, DD7 = Polygon(CV7, CW7, CX7, CY7)
CV8: CY7
CW8: CX7
CX8 = Intersect(Line[S, CV8], Line[CW8, S_L])
CY8 = Intersect(Line[S_L, CV8], Line[CX8, S_R])
CZ8, DA8, DB8, DC8, DD8 = Polygon(CV8, CW8, CX8, CY8)
CV9: CY8
CW9: CX8
CX9 = Intersect(Line[S, CV9], Line[CW9, S_L])
CY9 = Intersect(Line[S_L, CV9], Line[CX9, S_R])
CZ9, DA9, DB9, DC9, DD9 = Polygon(CV9, CW9, CX9, CY9)
CV10: CY9
CW10: CX9
CX10 = Intersect(Line[S, CV10], Line[CW10, S_L])
CY10 = Intersect(Line[S_L, CV10], Line[CX10, S_R])
CZ10, DA10, DB10, DC10, DD10 = Polygon(CV10, CW10, CX10, CY10)
CV11: CY10
CW11: CX10
CX11 = Intersect(Line[S, CV11], Line[CW11, S_L])
CY11 = Intersect(Line[S_L, CV11], Line[CX11, S_R])
CZ11, DA11, DB11, DC11, DD11 = Polygon(CV11, CW11, CX11, CY11)
CV12: CY11
CW12: CX11
CX12 = Intersect(Line[S, CV12], Line[CW12, S_L])
CY12 = Intersect(Line[S_L, CV12], Line[CX12, S_R])
CZ12, DA12, DB12, DC12, DD12 = Polygon(CV12, CW12, CX12, CY12)
CV13: CY12
CW13: CX12
CX13 = Intersect(Line[S, CV13], Line[CW13, S_L])
CY13 = Intersect(Line[S_L, CV13], Line[CX13, S_R])
CZ13, DA13, DB13, DC13, DD13 = Polygon(CV13, CW13, CX13, CY13)
CV14: CY13
CW14: CX13
CX14 = Intersect(Line[S, CV14], Line[CW14, S_L])
CY14 = Intersect(Line[S_L, CV14], Line[CX14, S_R])
CZ14, DA14, DB14, DC14, DD14 = Polygon(CV14, CW14, CX14, CY14)
CV15: CY14
CW15: CX14
CX15 = Intersect(Line[S, CV15], Line[CW15, S_L])
CY15 = Intersect(Line[S_L, CV15], Line[CX15, S_R])
CZ15, DA15, DB15, DC15, DD15 = Polygon(CV15, CW15, CX15, CY15)
DE1: CW1
DH1: CX1
DG1 = Intersect(Line[S, DE1], Line[S_R, DH1])
DF1 = Intersect(Line[S_L, DG1], Line[S_R, DE1])
DI1, DJ1, DK1, DL1, DM1 = Polygon(DE1, DF1, DG1, DH1)
DE2: DH1
DF2: DG1
DG2 = Intersect(Line[S, DE2], Line[DF2, S_L])
DH2 = Intersect(Line[S_L, DE2], Line[DG2, S_R])
DI2, DJ2, DK2, DL2, DM2 = Polygon(DE2, DF2, DG2, DH2)
DE3: DH2
DF3: DG2
DG3 = Intersect(Line[S, DE3], Line[DF3, S_L])
DH3 = Intersect(Line[S_L, DE3], Line[DG3, S_R])
DI3, DJ3, DK3, DL3, DM3 = Polygon(DE3, DF3, DG3, DH3)
DE4: DH3
DF4: DG3
DG4 = Intersect(Line[S, DE4], Line[DF4, S_L])
DH4 = Intersect(Line[S_L, DE4], Line[DG4, S_R])
DI4, DJ4, DK4, DL4, DM4 = Polygon(DE4, DF4, DG4, DH4)
DE5: DH4
DF5: DG4
DG5 = Intersect(Line[S, DE5], Line[DF5, S_L])
DH5 = Intersect(Line[S_L, DE5], Line[DG5, S_R])
DI5, DJ5, DK5, DL5, DM5 = Polygon(DE5, DF5, DG5, DH5)
DE6: DH5
DF6: DG5
DG6 = Intersect(Line[S, DE6], Line[DF6, S_L])
DH6 = Intersect(Line[S_L, DE6], Line[DG6, S_R])
DI6, DJ6, DK6, DL6, DM6 = Polygon(DE6, DF6, DG6, DH6)
DE7: DH6
DF7: DG6
DG7 = Intersect(Line[S, DE7], Line[DF7, S_L])
DH7 = Intersect(Line[S_L, DE7], Line[DG7, S_R])
DI7, DJ7, DK7, DL7, DM7 = Polygon(DE7, DF7, DG7, DH7)
DE8: DH7
DF8: DG7
DG8 = Intersect(Line[S, DE8], Line[DF8, S_L])
DH8 = Intersect(Line[S_L, DE8], Line[DG8, S_R])
DI8, DJ8, DK8, DL8, DM8 = Polygon(DE8, DF8, DG8, DH8)
DE9: DH8
DF9: DG8
DG9 = Intersect(Line[S, DE9], Line[DF9, S_L])
DH9 = Intersect(Line[S_L, DE9], Line[DG9, S_R])
DI9, DJ9, DK9, DL9, DM9 = Polygon(DE9, DF9, DG9, DH9)
DE10: DH9
DF10: DG9
DG10 = Intersect(Line[S, DE10], Line[DF10, S_L])
DH10 = Intersect(Line[S_L, DE10], Line[DG10, S_R])
DI10, DJ10, DK10, DL10, DM10 = Polygon(DE10, DF10, DG10, DH10)
DE11: DH10
DF11: DG10
DG11 = Intersect(Line[S, DE11], Line[DF11, S_L])
DH11 = Intersect(Line[S_L, DE11], Line[DG11, S_R])
DI11, DJ11, DK11, DL11, DM11 = Polygon(DE11, DF11, DG11, DH11)
DE12: DH11
DF12: DG11
DG12 = Intersect(Line[S, DE12], Line[DF12, S_L])
DH12 = Intersect(Line[S_L, DE12], Line[DG12, S_R])
DI12, DJ12, DK12, DL12, DM12 = Polygon(DE12, DF12, DG12, DH12)
DE13: DH12
DF13: DG12
DG13 = Intersect(Line[S, DE13], Line[DF13, S_L])
DH13 = Intersect(Line[S_L, DE13], Line[DG13, S_R])
DI13, DJ13, DK13, DL13, DM13 = Polygon(DE13, DF13, DG13, DH13)
DE14: DH13
DF14: DG13
DG14 = Intersect(Line[S, DE14], Line[DF14, S_L])
DH14 = Intersect(Line[S_L, DE14], Line[DG14, S_R])
DI14, DJ14, DK14, DL14, DM14 = Polygon(DE14, DF14, DG14, DH14)
DE15: DH14
DF15: DG14
DG15 = Intersect(Line[S, DE15], Line[DF15, S_L])
DH15 = Intersect(Line[S_L, DE15], Line[DG15, S_R])
DI15, DJ15, DK15, DL15, DM15 = Polygon(DE15, DF15, DG15, DH15)