0 Members and 1 Guest are viewing this topic.
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); 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); end;end;
Code: [Select]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); end;end;This scrolls the current screen pretty fast. Modifying it for horizontal scrolling is also pretty fast.Code: [Select]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); end;end;
lst;EXPORT appendTest()BEGIN RECT(); lst := {1,2,3}; TEXTOUT_P(lst,0,0); lst := append(lst, 4); TEXTOUT_P(lst,0,20); FREEZE;END;