0 Members and 1 Guest are viewing this topic.
DIMGROB_P(G3,320,240);DIMGROB_P(G4,320,240);BLIT_P(G4,G0);FOR A FROM 2 TO 16 DOBLIT_P(G3,0,0,320/A,240/A,G4,0,0,320,240);FILLPOLY_P(G3,{{0,0},{320,0},{320,240},{0,240}}, #000000, 16*A);BLIT_P(G0,0,0,320,240,G3,0,0,320/A,240/A);END;
FOR A FROM 16 DOWNTO 2 DOBLIT_P(G3,0,0,320/A,240/A,G4,0,0,320,240);FILLPOLY_P(G3,{{0,0},{320,0},{320,240},{0,240}}, #000000, (16*A)-16);BLIT_P(G0,0,0,320,240,G3,0,0,320/A,240/A);END;
FOR Z FROM 1 TO 29 DOFILLPOLY_P({{0,0},{320,0},{320,240},{0,240}}, #000000, 9);WAIT(1);END;