Triangular wave partial sums of square wave recursion

(*program start*)Clear[x, y, n, a, xmin, xmax, ymin, ymax, c]
xmin = -1*Pi;
xmax = +5*Pi;
x = N[Range[xmin, xmax, 1/(50*Pi)], 90];
y1 = Sin[x];
y2 = Sin[y1];
y3 = Sin[y1 + y2];
y4 = Sin[y1 + y2 + y3];
y5 = Sin[y1 + y2 + y3 + y4];
y6 = Sin[y1 + y2 + y3 + y4 + y5];
y7 = Sin[y1 + y2 + y3 + y4 + y5 + y6];
y8 = Sin[y1 + y2 + y3 + y4 + y5 + y6 + y7];
y9 = Sin[y1 + y2 + y3 + y4 + y5 + y6 + y7 + y8];
y10 = Sin[y1 + y2 + y3 + y4 + y5 + y6 + y7 + y8 + y9];
y11 = Sin[y1 + y2 + y3 + y4 + y5 + y6 + y7 + y8 + y9 + y10];
y12 = Sin[y1 + y2 + y3 + y4 + y5 + y6 + y7 + y8 + y9 + y10 + y11];
y = y1 + y2 + y3 + y4 + y5 + y6 + y7 + y8 + y9 + y10 + y11 + y12;
y1 = -Accumulate[y1];
y2 = -Accumulate[y2];
y3 = -Accumulate[y3];
 {
 {y4 = -Accumulate[y4];},
 {y5 = -Accumulate[y5];
  y6 = -Accumulate[y6];
  y7 = -Accumulate[y7];
  y8 = -Accumulate[y8];
  y9 = -Accumulate[y9];
  y10 = -Accumulate[y10];
  y11 = -Accumulate[y11];
  y12 = -Accumulate[y12];
  y = -Accumulate[y];
  yminmin = -600;
  ymaxmax = 550;}
}
Max[y];
a = Table[{x[[n]], y[[n]]}, {n, 1, Length[x]}];
a1 = Table[{x[[n]], y1[[n]]}, {n, 1, Length[x]}];
a2 = Table[{x[[n]], y2[[n]] + y1[[n]]}, {n, 1, Length[x]}];
a3 = Table[{x[[n]], y3[[n]] + y2[[n]] + y1[[n]]}, {n, 1, Length[x]}];
a4 = Table[{x[[n]], y4[[n]] + y3[[n]] + y2[[n]] + y1[[n]]}, {n, 1,
    Length[x]}];
a5 = Table[{x[[n]],
    y5[[n]] + y4[[n]] + y3[[n]] + y2[[n]] + y1[[n]]}, {n, 1,
    Length[x]}];
a6 = Table[{x[[n]],
    y6[[n]] + y5[[n]] + y4[[n]] + y3[[n]] + y2[[n]] + y1[[n]]}, {n, 1,
     Length[x]}];
a7 = Table[{x[[n]],
    y7[[n]] + y6[[n]] + y5[[n]] + y4[[n]] + y3[[n]] + y2[[n]] +
     y1[[n]]}, {n, 1, Length[x]}];
a8 = Table[{x[[n]],
    y8[[n]] + y7[[n]] + y6[[n]] + y5[[n]] + y4[[n]] + y3[[n]] +
     y2[[n]] + y1[[n]]}, {n, 1, Length[x]}];
a9 = Table[{x[[n]],
    y9[[n]] + y8[[n]] + y7[[n]] + y6[[n]] + y5[[n]] + y4[[n]] +
     y3[[n]] + y2[[n]] + y1[[n]]}, {n, 1, Length[x]}];
a10 = Table[{x[[n]],
    y10[[n]] + y9[[n]] + y8[[n]] + y7[[n]] + y6[[n]] + y5[[n]] +
     y4[[n]] + y3[[n]] + y2[[n]] + y1[[n]]}, {n, 1, Length[x]}];
a11 = Table[{x[[n]],
    y11[[n]] + y10[[n]] + y9[[n]] + y8[[n]] + y7[[n]] + y6[[n]] +
     y5[[n]] + y4[[n]] + y3[[n]] + y2[[n]] + y1[[n]]}, {n, 1,
    Length[x]}];
a12 = Table[{x[[n]],
    y12[[n]] + y11[[n]] + y10[[n]] + y9[[n]] + y8[[n]] + y7[[n]] +
     y6[[n]] + y5[[n]] + y4[[n]] + y3[[n]] + y2[[n]] + y1[[n]]}, {n,
    1, Length[x]}];
ymin = Min[y]/Pi;
ymax = Max[y]/Pi;
ymin = -0 Pi;
ymax = 0 Pi;

g = ListLinePlot[a,
   Ticks -> {Flatten[{xmin, xmax, Table[n, {n, xmin, xmax, Pi}]}],
     Flatten[{ymin, ymax, Table[k, {k, ymin, ymax, Pi}]}]},
   ImageSize -> Full, PlotRange -> {-Pi - 1/2, ymaxmax*Pi + 1/2},
   PlotStyle -> RGBColor[1, 0, 1]];
g1 = ListLinePlot[a1,
   Ticks -> {Flatten[{xmin, xmax, Table[n, {n, xmin, xmax, Pi}]}],
     Flatten[{ymin, ymax, Table[k, {k, ymin, ymax, Pi}]}]},
   ImageSize -> Full, PlotRange -> {-Pi - 1/2, ymaxmax*Pi + 1/2}];
g2 = ListLinePlot[a2,
   Ticks -> {Flatten[{xmin, xmax, Table[n, {n, xmin, xmax, Pi}]}],
     Flatten[{ymin, ymax, Table[k, {k, ymin, ymax, Pi}]}]},
   ImageSize -> Full, PlotRange -> {-Pi - 1/2, ymaxmax*Pi + 1/2}];
g3 = ListLinePlot[a3,
   Ticks -> {Flatten[{xmin, xmax, Table[n, {n, xmin, xmax, Pi}]}],
     Flatten[{ymin, ymax, Table[k, {k, ymin, ymax, Pi}]}]},
   ImageSize -> Full, PlotRange -> {-Pi - 1/2, ymaxmax*Pi + 1/2}];
g4 = ListLinePlot[a4,
   Ticks -> {Flatten[{xmin, xmax, Table[n, {n, xmin, xmax, Pi}]}],
     Flatten[{ymin, ymax, Table[k, {k, ymin, ymax, Pi}]}]},
   ImageSize -> Full, PlotRange -> {-Pi - 1/2, ymaxmax*Pi + 1/2}];
g5 = ListLinePlot[a5,
   Ticks -> {Flatten[{xmin, xmax, Table[n, {n, xmin, xmax, Pi}]}],
     Flatten[{ymin, ymax, Table[k, {k, ymin, ymax, Pi}]}]},
   ImageSize -> Full, PlotRange -> {-Pi - 1/2, Pi + 1/2}];
g6 = ListLinePlot[a6,
   Ticks -> {Flatten[{xmin, xmax, Table[n, {n, xmin, xmax, Pi}]}],
     Flatten[{ymin, ymax, Table[k, {k, ymin, ymax, Pi}]}]},
   ImageSize -> Full, PlotRange -> {-Pi - 1/2, ymaxmax*Pi + 1/2}];
g7 = ListLinePlot[a7,
   Ticks -> {Flatten[{xmin, xmax, Table[n, {n, xmin, xmax, Pi}]}],
     Flatten[{ymin, ymax, Table[k, {k, ymin, ymax, Pi}]}]},
   ImageSize -> Full, PlotRange -> {-Pi - 1/2, ymaxmax*Pi + 1/2}];

g8 = ListLinePlot[a8,
   Ticks -> {Flatten[{xmin, xmax, Table[n, {n, xmin, xmax, Pi}]}],
     Flatten[{ymin, ymax, Table[k, {k, ymin, ymax, Pi}]}]},
   ImageSize -> Full, PlotRange -> {-Pi - 1/2, Pi + 1/2}];

g9 = ListLinePlot[a9,
   Ticks -> {Flatten[{xmin, xmax, Table[n, {n, xmin, xmax, Pi}]}],
     Flatten[{ymin, ymax, Table[k, {k, ymin, ymax, Pi}]}]},
   ImageSize -> Full, PlotRange -> {-Pi - 1/2, ymaxmax*Pi + 1/2}];

g10 = ListLinePlot[a10,
   Ticks -> {Flatten[{xmin, xmax, Table[n, {n, xmin, xmax, Pi}]}],
     Flatten[{ymin, ymax, Table[k, {k, ymin, ymax, Pi}]}]},
   ImageSize -> Full, PlotRange -> {-Pi - 1/2, ymaxmax*Pi + 1/2}];

g11 = ListLinePlot[a11,
   Ticks -> {Flatten[{xmin, xmax, Table[n, {n, xmin, xmax, Pi}]}],
     Flatten[{ymin, ymax, Table[k, {k, ymin, ymax, Pi}]}]},
   ImageSize -> Full, PlotRange -> {-Pi - 1/2, ymaxmax*Pi + 1/2}];

g12 = ListLinePlot[a12,
   Ticks -> {Flatten[{xmin, xmax, Table[n, {n, xmin, xmax, Pi}]}],
     Flatten[{ymin, ymax, Table[k, {k, ymin, ymax, Pi}]}]},
   ImageSize -> Full, PlotRange -> {-Pi - 1/2, ymaxmax*Pi + 1/2}];

Show[g, g1, g2, g3, g4, g5, g6, g7, g8, g9, g10, g11, g12,
 PlotRange -> {-Pi - 1/2, ymaxmax*Pi + 1/2}]
(*program end*)