Scrolling examples

[Han]

Code:

export VSCROLL()
begin
  local i;
  dimgrob_p(G1,320,240);
  blit_p(G1,G0);
  for i from 239 downto 0 step 1 do
    blit_p(G0,0,0,G1,0,240-i,320,240);
    blit_p(G0,0,i,G1,0,0,320,240-i);
//    wait(.001); // uncomment on emulator
  end;
end;

export HSCROLL()
begin
  local i;
  dimgrob_p(G1,320,240);
  blit_p(G1,G0);
  for i from 319 downto 0 step 1 do
    blit_p(G0,0,0,G1,320-i,0,320,240);
    blit_p(G0,i,0,G1,0,0,320-i,240);
//    wait(.001); // uncomment on emulator
  end;
end;