Fenêtre comme demi-ellipse
Author: Debart Patrice

h = 0.7
l = 1.04
f = 0.26
A: ((-l) / 2, h)
B: (l / 2, h)
D: ((-l) / 2, 0)
C: (l / 2, 0)
AB = Segment(A, B)
BC = Segment(B, C)
CD = Segment(C, D)
DA = Segment(D, A)
a: l / 2
O = Midpoint(AB)
F: (0, h + f)
d = Semicircle(A, B)
N' = Rotate(B, 60*°, O)
N = Rotate(B, 120*°, O)
E = Rotate(B, 90*°, O)
ON = Segment(O, N)
ON' = Segment(O, N')
AN = Segment(A, N)
EN = Segment(N, E)
EN' = Segment(E, N')
BN' = Segment(N', B)
d_1 = Line(F, EN)
d_2 = Line(F, EN')
M = Intersect(AN, d_1)
M' = Intersect(d_2, BN')
d_3 = Line(M, ON)
d_4 = Line(M', ON')
I = Intersect(d_3, d_4)
J = Intersect(d_3, AB)
K = Intersect(d_4, AB)
FM = Segment(F, M)
FM' = Segment(F, M')
c_2 = CircleArc(J, M, A)
c_3 = CircleArc(K, B, M')
c_1 = CircleArc(I, M', M)
IM = Segment(I, M)
IM' = Segment(I, M')