Post Reply 
Scrolling examples
12-25-2013, 05:35 AM (This post was last modified: 12-25-2013 05:36 AM by Han.)
Post: #1
Scrolling examples
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;

Graph 3D | QPI | SolveSys
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
Scrolling examples - Han - 12-25-2013 05:35 AM
RE: Scrolling examples - ArielPalazzesi - 12-25-2013, 03:37 PM



User(s) browsing this thread: 1 Guest(s)