DEF f0(x)=SIN(x)+SIN(3*x)/3+SIN(5*x)/5+SIN(7*x)/7+SIN(9*x)/9
DEF f1(x)=SIN(11*x)/11+SIN(13*x)/13+SIN(15*x)/15+SIN(17*x)/17+SIN(19*x)/19
DEF f2(x)=SIN(21*x)/21+SIN(23*x)/23+SIN(25*x)/25+SIN(27*x)/27+SIN(29*x)/29
DEF f3(x)=SIN(31*x)/31+SIN(33*x)/33+SIN(35*x)/35+SIN(37*x)/37+SIN(39*x)/39
DEF f4(x)=SIN(41*x)/41+SIN(43*x)/43+SIN(45*x)/45+SIN(47*x)/47+SIN(49*x)/49
DEF f5(x)=SIN(51*x)/51+SIN(53*x)/53+SIN(55*x)/55+SIN(57*x)/57+SIN(59*x)/59
DEF f6(x)=SIN(61*x)/61+SIN(63*x)/63+SIN(65*x)/65+SIN(67*x)/67+SIN(69*x)/69
DEF f7(x)=SIN(71*x)/71+SIN(73*x)/73+SIN(75*x)/75+SIN(77*x)/77+SIN(79*x)/79
DEF f8(x)=SIN(81*x)/81+SIN(83*x)/83+SIN(85*x)/85+SIN(87*x)/87+SIN(89*x)/89
DEF f9(x)=SIN(91*x)/91+SIN(93*x)/93+SIN(95*x)/95+SIN(97*x)/97+SIN(99*x)/99
DEF f10(x)=SIN(101*x)/101+SIN(103*x)/103+SIN(105*x)/105+SIN(107*x)/107+SIN(109*x)/109
DEF f11(x)=SIN(111*x)/111+SIN(113*x)/113+SIN(115*x)/115+SIN(117*x)/117+SIN(119*x)/119
DEF f12(x)=SIN(121*x)/121+SIN(123*x)/123+SIN(125*x)/125+SIN(127*x)/127+SIN(129*x)/129
SET WINDOW -2*PI-0.2,2*PI+0.2,-PI-0.1,PI+0.1
PLOT LINES: -2*PI-0.2,0;2*PI+0.2,0
FOR i=1 TO 7
   SET LINE COLOR 4
   FOR x=-2*PI-0.2 TO 2*PI+0.2 STEP 0.01
      PLOT LINES: x,(f0(x)+f1(x)+f2(x)+f3(x)+f4(x)+f5(x)+f6(x)+f7(x)+f8(x)+f9(x)+f10(x)+f11(x)+f12(x))*4/PI;
   NEXT x
   PLOT LINES
   WAIT DELAY 4
   LET R = MOD(i,2)
   SET LINE COLOR R
   FOR x=-2*PI-0.2 TO 2*PI+0.2 STEP 0.01
      PLOT LINES: x,f0(x-PI)*4/PI
   NEXT x
   PLOT LINES
   FOR x=-2*PI-0.2 TO 2*PI+0.2 STEP 0.01
      PLOT LINES: x,SIN(x)
   NEXT x
   PLOT LINES
NEXT i
END