PolarPlot[Sec[t-(2*Pi)/Pi*Round[(Pi*t)/(2*Pi)]],{t,0,3*2*Pi}]