m = 24 (slider from 1 to 50, step 1)
n = 20 (slider from 1 to 50, step 1)
ancho: x(Corner[3.0] - Corner[4.0])
alto: y(Corner[4.0] - Corner[1.0])
A: Corner[4.0] + (ancho, -1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * alto) / 10.0
inc = Min(0.8 * ancho / m, 0.8 * alto / n)
lista1 = Sequence(Segment[A + (s, 0.0) * inc, A + (s, -1.0 * 1.0 * 1.0 * 1.0 * 1.0 * n) * inc], s, 0.0, m)
lista2 = Sequence(Segment[A + (0.0, -1.0 * 1.0 * 1.0 * 1.0 * 1.0 * s) * inc, A + (m, -1.0 * 1.0 * 1.0 * 1.0 * 1.0 * s) * inc], s, 0.0, n)
polígono1: {Polygon[A, A + (m, 0.0) * inc, A + (m, -1.0 * 1.0 * n) * inc, A + (0.0, -1.0 * 1.0 * n) * inc]}
paseo = Segment(A, A + (m, -1.0 * 1.0 * 1.0 * n) * inc)