求教大神，编写的动画，播放到一半左右，背景颜色会全部变成粉色

Tix[t_] := Module[
{g1, g2, g3, g4, g5, g6, g7, g8, g9, g10, g11, g12, g13, g14, g15,
g16, g17, g18, g19, g20, g21, g22, g23, g24, g25, g26, g27, g28,
g29, g30, g31, x},
g1 = Show[Graphics[{RGBColor[1, 1, 0], Disk[{0, 5}, {62, 59}]}]];
g2 = Plot[0.5*Sin[0.5 x*t] + 50, {x, -11 \[Pi], 11 \[Pi]},
PlotStyle -> {RGBColor[0, 0, 0], Thickness[0.005]}, Axes -> True];
g3 = Plot[0.5*Sin[0.5 x] - 12, {x, -10 \[Pi], 10 \[Pi]},
PlotStyle -> {RGBColor[0, 0, 0], Thickness[0.005]}, Axes -> True];
g4 = Show[Graphics[{RGBColor[1, 1, 1], Disk[{-8, 32}, {9, 8}]}],
Frame -> True, Axes -> True];
g5 = Show[Graphics[{RGBColor[0, 0, 0], Circle[{-8, 32}, {9, 8}]}],
Axes -> True];
g6 = Show[Graphics[{RGBColor[1, 1, 1], Disk[{8.5, 32}, {9, 8}]}],
Frame -> True, Axes -> True];
g7 = Show[Graphics[{RGBColor[0, 0, 0], Circle[{8.5, 32}, {9, 8}]}],
Axes -> True];
g8 = Show[Graphics[{RGBColor[0.08, 0.46, 0.84], Disk[{-6, 31}, 5]}],
Frame -> True, Axes -> True];
g9 = Show[Graphics[{RGBColor[1, 1, 1], Circle[{-6, 31}, {6, 5}]}],
Axes -> True];
g10 = Show[Graphics[{RGBColor[0.08, 0.46, 0.84], Disk[{6, 31}, 5]}],
Frame -> True, Axes -> True];
g11 = Show[Graphics[{RGBColor[1, 1, 1], Circle[{6, 31}, {6, 5}]}],
Axes -> True];
g12 = Show[Graphics[{RGBColor[0, 0, 0], Disk[{-6, 30.7}, {4, 3}]}],
Axes -> True];
g13 = Show[Graphics[{RGBColor[0, 0, 0], Disk[{6, 30.7}, {4, 3}]}],
Frame -> True, Axes -> True];
g14 = Plot[-2 x + 17, {x, -13, -11.5},
PlotStyle -> {RGBColor[0, 0, 0], Thickness[0.008]}, Axes -> True];
g15 = Plot[-2 x + 51, {x, 4, 5.5},
PlotStyle -> {RGBColor[0, 0, 0], Thickness[0.008]}, Axes -> True];
g16 = Plot[-8000 x - 60000, {x, -7.5055, -7.50508},
PlotStyle -> {RGBColor[0, 0, 0], Thickness[0.008]}, Axes -> True];
g17 = Plot[8000 x - 80000, {x, 10.00508, 10.0055},
PlotStyle -> {RGBColor[0, 0, 0], Thickness[0.008]}, Axes -> True];
g18 = Plot[2 x + 45, {x, -2.8, -1.2},
PlotStyle -> {RGBColor[0, 0, 0], Thickness[0.008]}, Axes -> True];
g19 = Plot[2 x + 10, {x, 14.5, 16.1},
PlotStyle -> {RGBColor[0, 0, 0], Thickness[0.008]}, Axes -> True];
g20 = Plot[-0.4 x^2 + 28, {x, -3.8, 3.8},
PlotStyle -> {RGBColor[0, 0, 0], Thickness[0.005]}];
g21 = Plot[-0.2*(x - 20)^2 + 30, {x, 16, 24},
PlotStyle -> {RGBColor[0, 0, 0], Thickness[0.005]}];
g22 = Plot[-0.2*(x + 20)^2 + 30, {x, -24, -16},
PlotStyle -> {RGBColor[0, 0, 0], Thickness[0.005]}];
g23 = Plot[-0.35*(x - 20)^2 + 28, {x, 18, 22},
PlotStyle -> {RGBColor[0, 0, 0], Thickness[0.005]}];
g24 = Plot[-0.35*(x + 20)^2 + 28, {x, -22, -18},
PlotStyle -> {RGBColor[0, 0, 0], Thickness[0.005]}];
g25 = Plot[
Which[t < 0.5, 0.012 (x)^2 + 21, t < 1,
0.019 (x)^2 + 17], {x, -22, 22},
PlotStyle -> {RGBColor[0, 0, 0], Thickness[0.005]}];
g26 = Plot[0.052 (x)^2 + 1, {x, -22, 22},
PlotStyle -> {RGBColor[0, 0, 0], Thickness[0.005]}];
g27 = Show[
Graphics[{RGBColor[1, 1, 1],
Rectangle[{-8, Which[t < 0.5, 15.2, t < 1, 11]}, {-2,
Which[t < 0.5, 20.7, t < 1, 16.5]}]}],
AspectRatio -> Automatic];
g28 =
Show[Graphics[{RGBColor[1, 1, 1],
Rectangle[{8, Which[t < 0.5, 15.2, t < 1, 11]}, {2,
Which[t < 0.5, 20.7, t < 1, 16.5]}]}],
AspectRatio -> Automatic];
g29 = Plot[-0.18*(x + 4)^2 + 7, {x, -7.5, 0},
PlotStyle -> {RGBColor[1, 0.3, 0], Thickness[0.005]}];
g30 = Plot[-0.18*(x - 4)^2 + 7, {x, 0, 7.5},
PlotStyle -> {RGBColor[1, 0.3, 0], Thickness[0.005]}];
g31 = Plot[
Which[t < 0.3, 0.01 x - 5, t < 0.6, 0.4*Sin[0.4 x*3 t] - 5 + 2 t,
t < 1, 0.034 (x*t)^2 - 5], {x, -4.5 \[Pi], 4.5 \[Pi]},
PlotStyle -> {RGBColor[1, 0.2, 0.4], Thickness[0.005]}];
Show[g1, g2, g3, g4, g5, g6, g7, g8, g9, g10, g11, g12, g13, g14,
g15, g16, g17, g18, g19, g20, g21, g22, g23, g24, g25, g26, g27,
g28, g29, g30, g31, PlotRange -> {{-65, 65}, {-78, 70}},
AspectRatio -> Automatic]]
Animate[Tix[t ], {t, 0, 1, 0.01}]

如果是鼠标拖动时间轴的话，拖到最后也会变成粉色

变红色是因为出了错误

你的Which没对t=1的情况给出定义。要么补上，要么在Animate里把这点挖掉。