carreracaballos0
Author: Pepe

Ver resultado

Lanzar

Reiniciar

Final de carrera

Final de carrera

O1 = (-3.2, 0)
C_1 = (-2.2, 1.8)
D_1: C_1 - (0, 0.25)
E1 = Point(Segment[C_1, D_1])
Pos1 = (-2, -5.6)
Q1: O1 + (1, 0)
Q2: Q1 + (0.76, 0)
O2: O1 + (0.76, 0)
A = (0, 4.8)
B = (12, 4.800000000000001)
C = (0, 4)
D = (12, 4)
E = (0, 3.2)
F = (12, 3.2)
G = (0, 2.4)
H = (12, 2.4000000000000004)
I = (0, 1.6)
J = (12, 1.6)
K = (0, 0.8)
L = (12, 0.8)
M = (0, 0)
N = (12, 0)
O = (0, -0.8)
P = (12, -0.8)
Q = (0, -1.6)
R = (12, -1.6)
S = (0, -2.4)
T = (12, -2.4000000000000004)
U = (0, -3.2)
V = (12, -3.2)
W = (0, -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)
lista14: {"1", "2", "3", "4", "5", "6", "7", "8", "9"}
p = Random(1, 6)
q = Random(1, 6)
a = true
A_1 = (-1.2, 0.8)
lista1: {Polygon[(-0.4, 4.71), (x(Cab12), (0.78 * 12) - 4.65), (x(Cab12), (0.78 * 12) - 5.25), (-0.4, 4.11)]}
lista10: {Polygon[(-0.4, -2.31), (x(Cab3), (0.78 * 3) - 4.65), (x(Cab3), (0.78 * 3) - 5.25), (-0.4, -2.91)]}
lista11: {Polygon[(-0.4, -3.09), (x(Cab2), (0.78 * 2) - 4.65), (x(Cab2), (0.78 * 2) - 5.25), (-0.4, -3.69)]}
lista12: {Polygon[(-0.4, -3.87), (x(Cab1), 0.78 - 4.65), (x(Cab1), 0.78 - 5.25), (-0.4, -4.47)]}
lista2: {Polygon[(-0.4, 3.93), (x(Cab11), (0.78 * 11) - 4.65), (x(Cab11), (0.78 * 11) - 5.25), (-0.4, 3.33)]}
lista3: {Polygon[(-0.4, 3.15), (x(Cab10), (0.78 * 10) - 4.65), (x(Cab10), (0.78 * 10) - 5.25), (-0.4, 2.55)]}
lista4: {Polygon[(-0.4, 2.37), (x(Cab9), (0.78 * 9) - 4.65), (x(Cab9), (0.78 * 9) - 5.25), (-0.4, 1.77)]}
lista5: {Polygon[(-0.4, 1.59), (x(Cab8), (0.78 * 8) - 4.65), (x(Cab8), (0.78 * 8) - 5.25), (-0.4, 0.99)]}
lista6: {Polygon[(-0.4, 0.81), (x(Cab7), (0.78 * 7) - 4.65), (x(Cab7), (0.78 * 7) - 5.25), (-0.4, 0.21)]}
lista7: {Polygon[(-0.4, 0.03), (x(Cab6), (0.78 * 6) - 4.65), (x(Cab6), (0.78 * 6) - 5.25), (-0.4, -0.57)]}
lista8: {Polygon[(-0.4, -0.75), (x(Cab5), (0.78 * 5) - 4.65), (x(Cab5), (0.78 * 5) - 5.25), (-0.4, -1.35)]}
lista9: {Polygon[(-0.4, -1.53), (x(Cab4), (0.78 * 4) - 4.65), (x(Cab4), (0.78 * 4) - 5.25), (-0.4, -2.13)]}
lista15 = Sequence(Text[Element[lista14, t], ((1.2 * t) - 1.2, (-1 * 5.2))], t, 1, 9)
lista13 = Sequence(Segment[(t, (-1 * 4.8)), (t, 4.8)], t, 0, 10, 1.2)
A1 = 1
A2 = 2
A3 = 3
A4 = 4
A5 = 5
A6 = 6
A7 = 7
A8 = 8
A9 = 9
A10 = 10
A11 = 11
A12 = 12
B10 = 0
B4 = 0
B6 = 0
B5 = 0
B12 = 0
B9 = 0
B11 = 0
B8 = 0
B1 = 0
B2 = 0
B3 = 0
B7 = 0
texto1 = TableText({{A1, B1}, {A2, B2}, {A3, B3}, {A4, B4}, {A5, B5}, {A6, B6}, {A7, B7}, {A8, B8}, {A9, B9}, {A10, B10}, {A11, B11}, {A12, B12}}, "|_")
B_1 = (-3.64, -8.26)
E_1 = (-3.4, -8.88)
C2 = If(B2 ≥ 9, "Ganador n.º" + A2, " ")
C3 = If(B3 ≥ 9, "Ganador n.º" + A3, " ")
C4 = If(B4 ≥ 9, "Ganador n.º" + A4, " ")
C5 = If(B5 ≥ 9, "Ganador n.º" + A5, " ")
C6 = If(B6 ≥ 9, "Ganador n.º" + A6, " ")
C7 = If(B7 ≥ 9, "Ganador n.º " + A7, " ")
C8 = If(B8 ≥ 9, "Ganador n.º" + A8, " ")
C9 = If(B9 ≥ 9, "Ganador n.º" + A9, " ")
C10 = If(B10 ≥ 9, "Ganador n.º" + A10, " ")
C11 = If(B11 ≥ 9, "Ganador n.º" + A11, " ")
C12 = If(B12 ≥ 9, "Ganador n.º" + A12, " ")