12-25-2013, 05:35 AM
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;