carreracaballos0
Author: Pepe

Mueve el cubilete y
a continuación haz  
  clic en la casilla  
para ver el 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, -2.6)
Q1: O1 + (1, 0)
Q2: Q1 + (0.76, 0)
O2: O1 + (0.76, 0)
E1': E1
M = (1.6, 3)
N = (12, 3)
O = (1.6, 2.2)
P = (12, 2.2)
Q = (1.6, 1.4)
R = (12, 1.4)
S = (1.6, 0.6)
T = (12, 0.6)
U = (1.6, -0.2)
V = (12, -0.2)
W = (1.6, -1)
Z = (12, -1)
Cab0 = Point(Segment[W, Z])
Cab1 = Point(Segment[U, V])
Cab2 = Point(Segment[S, T])
Cab3 = Point(Segment[Q, R])
Cab4 = Point(Segment[O, P])
Cab5 = Point(Segment[M, N])
Pos2: Pos1 + (760 / 50, 0)
lista1: {Polygon[(1.6, 3.03), (x(Cab5), (0.78 * 6) - 1.65), (x(Cab5), (0.78 * 6) - 2.25), (1.6, 2.4299999999999997)]}
lista2: {Polygon[(1.6, 2.2500000000000004), (x(Cab4), (0.78 * 5) - 1.65), (x(Cab4), (0.78 * 5) - 2.25), (1.6, 1.6500000000000004)]}
lista3: {Polygon[(1.6, 1.4700000000000002), (x(Cab3), (0.78 * 4) - 1.65), (x(Cab3), (0.78 * 4) - 2.25), (1.6, 0.8700000000000001)]}
lista4: {Polygon[(1.6, 0.69), (x(Cab2), (0.78 * 3) - 1.65), (x(Cab2), (0.78 * 3) - 2.25), (1.6, 0.08999999999999986)]}
lista5: {Polygon[(1.6, -0.08999999999999986), (x(Cab1), (0.78 * 2) - 1.65), (x(Cab1), (0.78 * 2) - 2.25), (1.6, -0.69)]}
lista6: {Polygon[(1.6, -0.8699999999999999), (x(Cab0), 0.78 - 1.65), (x(Cab0), 0.78 - 2.25), (1.6, -1.47)]}
lista8: {"1", "2", "3", "4", "5", "6", "7", "8", "9"}
lista9 = Sequence(Text[Element[lista8, t], ((1.2 * t) + 1.1, 3.6)], t, 1, 9)
lista7 = Sequence(Segment[(t, -1.8), (t, 3.5)], t, 2.4, 12, 1.2)
A_1 = (-1.2, 0.8)
a = false