carreracaballos0
Author: Pepe

Mueve el cubilete y 
a continuación haz
  clic en la casilla 
para ver el resultado

Ver resultado

Ver el resultado

O1 = (-3.2, 0)
C1 = (-2.2, 1.8)
D1: C1 - (0, 0.25)
E1 = Point(Segment[C1, D1])
p = Random(1, 6 + floor(y(E1) - y(E1)))
q = Random(1, 6 + floor(y(E1) - y(E1)))
Pos1 = (0, -5.6000000000000005)
Q1: O1 + (1, 0)
Q2: Q1 + (0.76, 0)
O2: O1 + (0.76, 0)
E1': E1
A = (1.6, 4.800000000000001)
B = (12, 4.800000000000001)
C = (1.6, 4)
D = (12, 4)
E = (1.6, 3.2)
F = (12, 3.2)
G = (1.6, 2.4000000000000004)
H = (12, 2.4000000000000004)
I = (1.6, 1.6)
J = (12, 1.6)
K = (1.6, 0.8)
L = (12, 0.8)
M = (1.6, 0)
N = (12, 0)
O = (1.6, -0.8)
P = (12, -0.8)
Q = (1.6, -1.6)
R = (12, -1.6)
S = (1.6, -2.4000000000000004)
T = (12, -2.4000000000000004)
U = (1.6, -3.2)
V = (12, -3.2)
W = (1.6, -4)
Z = (12, -4)
Cab1 = Point(Segment[W, Z])
Cab2 = Point(Segment[U, V])
Cab3 = Point(Segment[S, T])
Cab4 = Point(Segment[Q, R])
Cab5 = Point(Segment[O, P])
Cab6 = Point(Segment[M, N])
Cab7 = Point(Segment[K, L])
Cab8 = Point(Segment[I, J])
Cab9 = Point(Segment[G, H])
Cab10 = Point(Segment[E, F])
Cab11 = Point(Segment[C, D])
Cab12 = Point(Segment[A, B])
Pos2: Pos1 + (760 / 50, 0)
lista1: {Polygon[(1.6, 4.709999999999999), (x(Cab12), (0.78 * 12) - 4.65), (x(Cab12), (0.78 * 12) - 5.25), (1.6, 4.109999999999999)]}
lista2: {Polygon[(1.6, 3.9299999999999997), (x(Cab11), (0.78 * 11) - 4.65), (x(Cab11), (0.78 * 11) - 5.25), (1.6, 3.33)]}
lista3: {Polygon[(1.6, 3.1500000000000004), (x(Cab10), (0.78 * 10) - 4.65), (x(Cab10), (0.78 * 10) - 5.25), (1.6, 2.5500000000000007)]}
lista4: {Polygon[(1.6, 2.37), (x(Cab9), (0.78 * 9) - 4.65), (x(Cab9), (0.78 * 9) - 5.25), (1.6, 1.7700000000000005)]}
lista5: {Polygon[(1.6, 1.5899999999999999), (x(Cab8), (0.78 * 8) - 4.65), (x(Cab8), (0.78 * 8) - 5.25), (1.6, 0.9900000000000002)]}
lista6: {Polygon[(1.6, 0.8099999999999996), (x(Cab7), (0.78 * 7) - 4.65), (x(Cab7), (0.78 * 7) - 5.25), (1.6, 0.20999999999999996)]}
lista7: {Polygon[(1.6, 0.02999999999999936), (x(Cab6), (0.78 * 6) - 4.65), (x(Cab6), (0.78 * 6) - 5.25), (1.6, -0.5700000000000003)]}
lista8: {Polygon[(1.6, -0.75), (x(Cab5), (0.78 * 5) - 4.65), (x(Cab5), (0.78 * 5) - 5.25), (1.6, -1.3499999999999996)]}
lista9: {Polygon[(1.6, -1.5300000000000002), (x(Cab4), (0.78 * 4) - 4.65), (x(Cab4), (0.78 * 4) - 5.25), (1.6, -2.13)]}
lista10: {Polygon[(1.6, -2.3100000000000005), (x(Cab3), (0.78 * 3) - 4.65), (x(Cab3), (0.78 * 3) - 5.25), (1.6, -2.91)]}
lista11: {Polygon[(1.6, -3.0900000000000003), (x(Cab2), (0.78 * 2) - 4.65), (x(Cab2), (0.78 * 2) - 5.25), (1.6, -3.69)]}
lista12: {Polygon[(1.6, -3.87), (x(Cab1), 0.78 - 4.65), (x(Cab1), 0.78 - 5.25), (1.6, -4.47)]}
lista13 = Sequence(Segment[(t, -4.8), (t, 4.8)], t, 2.4, 12, 1.2)
lista14: {"1", "2", "3", "4", "5", "6", "7", "8", "9"}
lista15 = Sequence(Text[Element[lista14, t], ((1.2 * t) + 1.1, -5.2)], t, 1, 9)
a = false
A_1 = (-1.2, 0.8)