PRO TEST_FOR

erase
for i = 1, 4, 1 do begin
  x = findgen(100) * (0.1 * i)
  plot, sin(x) + (2 * i), yrange=[0, 10], /noerase
endfor

END