Escoge aquí el número de cuadraditos.

C_1 = (-2.46, 4.78)
f = Line(C_1, xAxis)
n = 5 (slider from 2 to 20, step 1)
ZOOM = 10.3 (slider from -5 to 20, step 0.1)
aa: round(random() * n)
A = (-0.9937823627287868, 4.276246256239601)
g = Line(A, yAxis)
C = Point(g)
b = Line(A, xAxis)
c = Circle(A, ZOOM)
B_1, B = Intersect(c, b)
d = Segment(A, B)
dis: d / n
e = Circle(C_1, dis)
D_1, E_1 = Intersect(e, f)
u = Vector(C_1, E_1)
L1 = Sequence(Translate[A, i * u], i, 0.0, n)
L2 = Sequence(Translate[C, i * u], i, 0.0, aa)
bb: round(random() * n)
cc: round(random() * n)
h = Segment(C, Element[L2, aa + 1.0])
D: C + aa * u
i = Line(C_1, yAxis)
E, F = Intersect(e, i)
v = Vector(C_1, F)
liste1 = Sequence(Translate[A, i * v], i, 0.0, n)
liste2 = Sequence(Translate[B, i * v], i, 0.0, n)
j = Line(A, i)
G, H = Intersect(c, j)
liste3 = Sequence(Translate[H, i * u], i, 0.0, n)
liste4 = Sequence(Segment[Element[liste1, i], Element[liste2, i]], i, 0.0, n)
liste5 = Sequence(Segment[Element[L1, i], Element[liste3, i]], i, 0.0, n)
k = Circle(B, ZOOM)
l = Line(B, i)
I, J = Intersect(k, l)
m = Segment(A, B)
p = Segment(B, J)
q = Segment(J, H)
r = Segment(H, A)
liste6 = Sequence(Translate[C, i * v], i, 0.0, bb)
liste7 = Sequence(Translate[D, i * v], i, 0.0, bb)
liste8 = Sequence(Translate[Element[liste6, bb + 1.0], i * u], i, 0.0, aa)
K = (-5.006714143094844, -0.928404658901831)
L = (-3.86363660565724, -0.9527254575707162)
M = (-4, -2)
N = (-4.860789351081533, -1.9012366056572387)
poly2, c_1, d_1, s, t = Polygon(C, D, Element[liste7, bb + 1.0], Element[liste6, bb + 1.0])
T2: "o  \; sea  \;  \frac{" + (aa * bb) + " }{ " + (n * n) + "}  \; del \;  cuadrado  \; total"
texte1: "La superficie azul tiene " + (aa * bb)
T1: "Este cuadrado tiene " + (n * n) + " cuadraditos"