Sans titre

x_{min} = -6673 (slider from -10000 to 5)
x_{max} = -6060 (slider from -10000 to 5)
y_{min} = 3209 (slider from -5 to 5000)
y_{max} = 3822 (slider from -5 to 5000)
P: (-6403, 3612)
A: (-6539, 3311)
B = (-6266.507188720469, 3310.5752147499206)
C = (-6073.110326045803, 3310.5752147499206)
A': (-6220.59728, 3452.77428)
apres2 = Translate(apres1, Vector[A', A])
P': (-6445.53967, 3364.98549)
f = Ray(A, P')
g = Ray(A, P)
alpha = Angle(P', A, P)
apres3 = Rotate(apres2, alpha, A)
apres4 = Dilate(apres3, Segment[A, P] / Segment[A, P'], A)
grille_{h} = Sequence(Segment[(x_{min} - 0.5, n), (x_{max} + 0.5, n)], n, y_{min} - 0.5, y_{max} + 0.5)
grille_{v} = Sequence(Segment[(n, y_{min} - 0.5), (n, y_{max} + 0.5)], n, x_{min} - 0.5, x_{max} + 0.5)
D = (-6176.507665424858, 3045.720779188691)
E = (-5643.100912702407, 3045.720779188691)
P'' = (-6219.305067593407, 3499.7747453613742)
A'': (-6035.26877, 3475.96564)
avant2 = Translate(avant1, Vector[A'', A])
h = Ray(A, P'')
i = Ray(A, P)
alpha2 = Angle(P'', A, P)
avant3 = Rotate(avant2, alpha2, A)
avant4 = Dilate(avant3, Segment[A, P] / Segment[A, P''], A)
F = (-6385.489501061781, 3424.929038141996)
G = (-6363.284486007461, 3412.71905253208)
N: (-6406.56254, 3458.13704)
S: (-6393.46033, 3426.71587)
N' = (-6388.738484846611, 3473.5566717004344)
S' = (-6365.1283770987975, 3415.778409531101)
moulin2 = Translate(moulin1, Vector[S', S])
moulin3 = Rotate(moulin2, Angle[N', S, N], S)
moulin4 = Dilate(moulin3, Segment[S, N] / Segment[S, N'], S)
H: (-6393.46463, 3430.23724)