M: 50. Chéops
Author: Frédéric Chanez

échelle = 3000 (slider from 2000 to 10000, step 500)
h_m: 147 / échelle
h_cm: (h_m * 100)
c_m: 230 / échelle
c_cm: (c_m * 100)
a: sqrt(h_cm^(2) + (c_cm / 2)^(2))
d: c_cm / 2
texte4: "Demi-côté de la maquette = " + c_cm + " : 2 = " + d + " cm"
texte3: "Apothème =  \sqrt{ " + h_cm + "² + " + d + "² } = " + a + " cm"
A = (28, -2)
B = Point(Circle[A, c_cm])
b = Segment(A, B)
poly1, a_1, b_1, c, e, C, D = Polygon(A, B, 4)
f = LineBisector(c)
g = LineBisector(b_1)
E = Intersect(f, c)
h: x(E)
F: (x(E), y(E) + a)
G = Intersect(g, b_1)
H = Point(Circle[G, a])
i = Segment(G, H)
I = Intersect(a_1, f)
J = Intersect(g, e)
K: (x(I), y(I) - a)
L: (x(J) - a, y(J))
poly2, c_1, d_1, f_1 = Polygon(D, F, C)
poly3, h_1, c_2, b_2 = Polygon(C, B, H)
poly4, k, a_2, b_3 = Polygon(A, B, K)
poly5, d_2, a_3, l = Polygon(A, L, D)
j = Segment(E, F)
m = Segment(J, L)
n = Segment(I, K)
texte6: "Echelle = 1 : " + échelle
o = 5 (slider from -1 to 5, step 1)
M = (2, -10)
N = (2, 2)
texte1: "Hauteur de la maquette = 147 m : " + échelle + " = " + h_m + " m = " + h_cm + " cm"
texte2: "Côté de la maquette = 230 m : " + échelle + " = " + c_m + " m = " + c_cm + " cm"