help with animation

[asianrandy]

i need help because when i run the program is doesn't show all the details.

code:

%Randy Phalla TIK 20 - Computer and Information Science Culminating Activity setscreen ("graphics:1010;670") View.Set ("offscreenonly") var background : int; % Background drawfillbox (0, 0, maxx, maxy, black) % Field drawfillbox (1, 150, 1010, 1, red) % City drawfillbox (1000, 300, 950, 10, gray) drawfillbox (880, 300, 830, 10, gray) drawfillbox (950, 100, 880, 10, gray) % Windows drawfillbox (900, 70, 840, 100, yellow) background := Pic.New (0, 0, maxx, maxy) for i : 0 .. 50     cls     Pic.Draw (background, 0, 0, picCopy)     %Transfomer     drawfillbox (800 - i * 2, 300, 670 - i * 2, 500, red)    %body     drawfillbox (540 - i * 2, 470, 670 - i * 2, 500, blue)    % right arm     drawfillbox (800 - i * 2, 470, 920 - i * 2, 500, blue)    % left arm     drawfillbox (770 - i * 2, 570, 700 - i * 2, 500, black)    % Head     drawfillbox (770 - i * 2, 600, 790 - i * 2, 500, blue)    % ears     drawfillbox (700 - i * 2, 600, 677 - i * 2, 500, blue)    %ears     drawfillbox (730 - i * 2, 170, 670 - i * 2, 300, blue)    %right leg     drawfillbox (740 - i * 2, 170, 800 - i * 2, 299, blue)    % left leg     drawfillbox (770 - i * 2, 575, 700 - i * 2, 571, gray)    %top of the head     drawfillbox (700 - i * 2, 530, 770 - i * 2, 500, gray)    % Month     drawfillbox (770 - i * 2, 505, 700 - i * 2, 500, black)     drawfillbox (770 - i * 2, 510, 700 - i * 2, 515, black)     drawfillbox (770 - i * 2, 525, 700 - i * 2, 520, black)     drawfillbox (670 - i * 2, 180, 730 - i * 2, 170, gray)    % left foot     drawfillbox (740 - i * 2, 180, 800 - i * 2, 170, gray)    % left foot     View.Update     delay (100) end for background := Pic.New (0, 0, maxx, maxy) for i : 0 .. 50     Pic.Draw (background, 0, 0, picCopy)     % Tank     drawfillbox (60 + i * 1, 20, 140 + i * 1, 4, green)         % bottom Body     drawfillbox (70 + i * 1, 50, 110 + i * 1, 20, green)         % top     drawfillbox (70 + i * 1, 50, 150 + i * 1, 40, green)         % Cannon     % 2 tank     drawfillbox (400 + i * 1, 83, 300 + i * 1, 100, green)         % Bottom body     drawfillbox (350 + i * 1, 100, 310 + i * 1, 130, green)         % middle     drawfillbox (420 + i * 1, 130, 310 + i * 1, 140, green)         % Cannon     View.Update     delay (50) end for % Tank Lazers for a : 1 .. 50     Draw.DashedLine (600, 300, 470, 140, drawDot, red)     delay (1)     Draw.DashedLine (600, 300, 470, 140, drawDot, red)     delay (1)     Draw.DashedLine (700, 300, 210, 50, drawDot, yellow)     delay (1)     Draw.DashedLine (700, 300, 210, 50, drawDot, yellow)     delay (1) end for % explosion set 1 for f : 1 .. 10     delay (1)     Draw.FillOval (700, 300, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (600, 300, 0 + f, 0 + f, brightred) end for background := Pic.New (0, 0, maxx, maxy) for i : 0 .. 50     Pic.Draw (background, 0, 0, picCopy)     % Good Tranformer     drawfillbox (50 + i * 2, 400, 110 + i * 2, 500, gray) % body     drawfillbox (60 + i * 2, 550, 100 + i * 2, 500, blue) % head     drawfillbox (60 + i * 2, 500, 50 + i * 2, 550, red)     drawfillbox (110 + i * 2, 500, 100 + i * 2, 550, red)     drawfillbox (50 + i * 2, 400, 75 + i * 2, 300, blue) % left leg     drawfillbox (110 + i * 2, 400, 85 + i * 2, 300, blue) %right leg     drawfillbox (75 + i * 2, 300, 50 + i * 2, 295, gray) %left foot     drawfillbox (110 + i * 2, 300, 85 + i * 2, 295, gray) % right foot     drawfillbox (170 + i * 2, 480, 110 + i * 2, 500, red) % right arm     drawfillbox (50 + i * 2, 480, 5 + i * 2, 500, red) % left arm     View.Update     delay (100) end for % Good tranformer lazers for a : 1 .. 50     Draw.DashedLine (115, 485, 600, 450, drawDot, yellow)     delay (1)     Draw.DashedLine (215, 485, 600, 450, drawDot, yellow)     delay (1) end for % explosion set 2 from good tranformer for f : 1 .. 10     delay (1)     Draw.FillOval (600, 450, 0 + f, 0 + f, brightred) end for %------------------------------------------------------------ Part 2 % Background drawfillbox (0, 0, maxx, maxy, black) % Field drawfillbox (1, 150, 1010, 1, red) % City drawfillbox (1000, 300, 950, 10, gray) drawfillbox (880, 300, 830, 10, gray) drawfillbox (950, 100, 880, 10, gray) % Windows drawfillbox (900, 70, 840, 100, yellow) %Good Tranformer drawfillbox (210, 400, 150, 500, gray) % body drawfillbox (210, 550, 150, 500, blue)  % head drawfillbox (160, 550, 150, 500, red) % left ears drawfillbox (210, 550, 200, 500, red) % right ears drawfillbox (175, 295, 150, 400, blue) %left leg drawfillbox (185, 295, 210, 400, blue) % right leg drawfillbox (175, 295, 150, 300, gray) % left foot drawfillbox (185, 295, 210, 300, gray) drawfillbox (149, 480, 105, 500, red) %left arm drawfillbox (211, 480, 270, 500, red) % right arm % tank drawfillbox (110, 20, 190, 5, green) % bottom body drawfillbox (120, 50, 160, 21, green) % top drawfillbox (120, 50, 200, 42, green) % cannon % 2 tanks drawfillbox (450, 83, 350, 100, green) % bottom body drawfillbox (400, 100, 360, 140, green) % middle drawfillbox (470, 130, 360, 140, green) % cannon %Bad transformer drawfillbox (700, 300, 570, 500, red) % body drawfillbox (440, 470, 570, 500, blue) %left arm drawfillbox (700, 470, 820, 500, blue) % right arm drawfillbox (670, 570, 600, 500, black) % head drawfillbox (670, 600, 690, 500, blue) % right ear drawfillbox (600, 600, 577, 500, blue) % left ear drawfillbox (630, 170, 570, 300, blue) % left leg drawfillbox (640, 170, 700, 299, blue) % right leg drawfillbox (670, 575, 600, 571, gray) % top of the head drawfillbox (670, 505, 600, 500, gray) % 3 drawfillbox (670, 510, 600, 515, gray) %2 drawfillbox (670, 525, 600, 520, gray) %1 drawfillbox (570, 180, 630, 170, gray) % left foot drawfillbox (640, 180, 700, 170, gray) % right foot % Good tranformer lazers for a : 1 .. 50     Draw.DashedLine (270, 485, 600, 400, drawDot, gray)     delay (1)     Draw.DashedLine (270, 485, 600, 400, drawDot, gray)     delay (1) end for % explosion set 2 from good tranformer for f : 1 .. 10     delay (1)     Draw.FillOval (600, 400, 0 + f, 0 + f, brightred)     delay (1) end for % tank lazers for a : 1 .. 50     Draw.DashedLine (600, 200, 470, 140, drawDot, yellow)     delay (1)     Draw.DashedLine (600, 200, 470, 140, drawDot, yellow)     delay (1)     Draw.DashedLine (700, 200, 210, 50, drawDot, yellow)     delay (1)     Draw.DashedLine (700, 200, 210, 50, drawDot, yellow)     delay (1) end for % explosion set 2 from tank for f : 1 .. 10     delay (1)     Draw.FillOval (600, 200, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (700, 200, 0 + f, 0 + f, brightred) end for %--------------------------------------------------------------------Part3 % Background drawfillbox (0, 0, maxx, maxy, black) % Field drawfillbox (1, 150, 1010, 1, red) % City drawfillbox (1000, 300, 950, 10, gray) drawfillbox (880, 300, 830, 10, gray) drawfillbox (950, 100, 880, 10, gray) % Windows drawfillbox (900, 70, 840, 100, yellow) %Good Tranformer drawfillbox (210, 400, 150, 500, gray) % body drawfillbox (210, 550, 150, 500, blue)  % head drawfillbox (160, 550, 150, 500, red) % left ears drawfillbox (210, 550, 200, 500, red) % right ears drawfillbox (175, 295, 150, 400, blue) %left leg drawfillbox (185, 295, 210, 400, blue) % right leg drawfillbox (175, 295, 150, 300, gray) % left foot drawfillbox (185, 295, 210, 300, gray) drawfillbox (149, 480, 105, 500, red) %left arm drawfillbox (211, 480, 270, 500, red) % right arm % tank drawfillbox (110, 20, 190, 5, green) % bottom body drawfillbox (120, 50, 160, 21, green) % top drawfillbox (120, 50, 200, 42, green) % cannon % 2 tanks drawfillbox (450, 83, 350, 100, green) % bottom body drawfillbox (400, 100, 360, 140, green) % middle drawfillbox (470, 130, 360, 140, green) % cannon %Bad transformer drawfillbox (700, 300, 570, 500, red) % body drawfillbox (440, 470, 570, 500, blue) %left arm drawfillbox (700, 470, 820, 500, blue) % right arm drawfillbox (670, 570, 600, 500, black) % head drawfillbox (670, 600, 690, 500, blue) % right ear drawfillbox (600, 600, 577, 500, blue) % left ear drawfillbox (630, 170, 570, 300, blue) % left leg drawfillbox (640, 170, 700, 299, blue) % right leg drawfillbox (670, 575, 600, 571, gray) % top of the head drawfillbox (670, 505, 600, 500, gray) % 3 drawfillbox (670, 510, 600, 515, gray) %2 drawfillbox (670, 525, 600, 520, gray) %1 drawfillbox (570, 180, 630, 170, gray) % left foot drawfillbox (640, 180, 700, 170, gray) % right foot %bad transfomer blast for i : 0 .. 50     drawfillbox (440 - i * 7, 470, 441, 500, gray)     View.Update     delay (1) end for % explosion set 3 blast for f : 1 .. 10     delay (1)     Draw.FillOval (200, 500, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (300, 500, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (400, 500, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (350, 470, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (250, 470, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (150, 470, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (100, 500, 0 + f, 0 + f, brightred) end for %--------------------------------------------------------------------Part 4 % Background drawfillbox (0, 0, maxx, maxy, black) % Field drawfillbox (1, 150, 1010, 1, red) % City drawfillbox (1000, 300, 950, 10, gray) drawfillbox (880, 300, 830, 10, gray) drawfillbox (950, 100, 880, 10, gray) % Windows drawfillbox (900, 70, 840, 100, yellow) %Bad transformer drawfillbox (700, 300, 570, 500, red) % body drawfillbox (440, 470, 570, 500, blue) %left arm drawfillbox (700, 470, 820, 500, blue) % right arm drawfillbox (670, 570, 600, 500, black) % head drawfillbox (670, 600, 690, 500, blue) % right ear drawfillbox (600, 600, 577, 500, blue) % left ear drawfillbox (630, 170, 570, 300, blue) % left leg drawfillbox (640, 170, 700, 299, blue) % right leg drawfillbox (670, 575, 600, 571, gray) % top of the head drawfillbox (670, 505, 600, 500, gray) % 3 drawfillbox (670, 510, 600, 515, gray) %2 drawfillbox (670, 525, 600, 520, gray) %1 drawfillbox (570, 180, 630, 170, gray) % left foot drawfillbox (640, 180, 700, 170, gray) % right foot % tank drawfillbox (110, 20, 190, 5, green) % bottom body drawfillbox (120, 50, 160, 21, green) % top drawfillbox (120, 50, 200, 42, green) % cannon % 2 tanks drawfillbox (450, 83, 350, 100, green) % bottom body drawfillbox (400, 100, 360, 140, green) % middle drawfillbox (470, 130, 360, 140, green) % cannon %Good Tranformer drawfillbox (210, 400, 150, 500, gray) % body drawfillbox (210, 550, 150, 500, blue)  % head drawfillbox (160, 550, 150, 500, red) % left ears drawfillbox (210, 550, 200, 500, red) % right ears drawfillbox (175, 295, 150, 400, blue) %left leg drawfillbox (185, 295, 210, 400, blue) % right leg drawfillbox (175, 295, 150, 300, gray) % left foot drawfillbox (185, 295, 210, 300, gray) drawfillbox (210, 470, 150, 500, black) % for f : 1 .. 10     delay (1)     Draw.FillOval (170, 400, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (180, 550, 0 + f, 0 + f, brightred) end for for f : 1 .. 7     delay (1)     Draw.FillOval (170, 400, 0 + f, 0 + f, gray)     delay (1)     Draw.FillOval (180, 550, 0 + f, 0 + f, gray) end for %------------------------------------------------------------- Part5 % Background drawfillbox (0, 0, maxx, maxy, black) % Field drawfillbox (1, 150, 1010, 1, red) % City drawfillbox (1000, 300, 950, 10, gray) drawfillbox (880, 300, 830, 10, gray) drawfillbox (950, 100, 880, 10, gray) % Windows drawfillbox (900, 70, 840, 100, yellow) %Bad transformer drawfillbox (700, 300, 570, 500, red) % body drawfillbox (440, 470, 570, 500, blue) %left arm drawfillbox (700, 470, 820, 500, blue) % right arm drawfillbox (670, 570, 600, 500, black) % head drawfillbox (670, 600, 690, 500, blue) % right ear drawfillbox (600, 600, 577, 500, blue) % left ear drawfillbox (630, 170, 570, 300, blue) % left leg drawfillbox (640, 170, 700, 299, blue) % right leg drawfillbox (670, 575, 600, 571, gray) % top of the head drawfillbox (670, 505, 600, 500, gray) % 3 drawfillbox (670, 510, 600, 515, gray) %2 drawfillbox (670, 525, 600, 520, gray) %1 drawfillbox (570, 180, 630, 170, gray) % left foot drawfillbox (640, 180, 700, 170, gray) % right foot % tank drawfillbox (110, 20, 190, 5, green) % bottom body drawfillbox (120, 50, 160, 21, green) % top drawfillbox (120, 50, 200, 42, green) % cannon % 2 tanks drawfillbox (450, 83, 350, 100, green) % bottom body drawfillbox (400, 100, 360, 140, green) % middle drawfillbox (470, 130, 360, 140, green) % cannon %Good Tranformer drawfillbox (210, 400, 150, 500, gray) % body drawfillbox (210, 550, 150, 500, blue)  % head drawfillbox (160, 550, 150, 500, red) % left ears drawfillbox (210, 550, 200, 500, red) % right ears drawfillbox (175, 295, 150, 400, blue) %left leg drawfillbox (185, 295, 210, 400, blue) % right leg drawfillbox (175, 295, 150, 300, gray) % left foot drawfillbox (185, 295, 210, 300, gray) drawfillbox (210, 470, 150, 500, black) %Big explosion for f : 1 .. 250     delay (2)     Draw.FillOval (170, 400, 0 + f, 0 + f, brightred)     delay (2)     Draw.FillOval (180, 550, 0 + f, 0 + f, brightred) end for for f : 1 .. 110     delay (2)     Draw.FillOval (170, 400, 0 + f, 0 + f, gray)     delay (2)     Draw.FillOval (180, 550, 0 + f, 0 + f, gray) end for %--------------------------------------------Part 6 % Background drawfillbox (0, 0, maxx, maxy, black) % Field drawfillbox (1, 150, 1010, 1, red) % City drawfillbox (1000, 300, 950, 10, gray) drawfillbox (880, 300, 830, 10, gray) drawfillbox (950, 100, 880, 10, gray) % Windows drawfillbox (900, 70, 840, 100, yellow) % tank drawfillbox (110, 20, 190, 5, green) % bottom body drawfillbox (120, 50, 160, 21, green) % top drawfillbox (120, 50, 200, 42, green) % cannon % 2 tanks drawfillbox (450, 83, 350, 100, green) % bottom body drawfillbox (400, 100, 360, 140, green) % middle drawfillbox (470, 130, 360, 140, green) % cannon %Bad transformer drawfillbox (700, 300, 570, 500, red) % body drawfillbox (440, 470, 570, 500, blue) %left arm drawfillbox (670, 570, 600, 500, black) % head drawfillbox (670, 600, 690, 500, blue) % right ear drawfillbox (600, 600, 577, 500, blue) % left ear drawfillbox (630, 170, 570, 300, blue) % left leg drawfillbox (640, 170, 700, 299, blue) % right leg drawfillbox (670, 575, 600, 571, gray) % top of the head drawfillbox (670, 505, 600, 500, gray) % 3 drawfillbox (670, 510, 600, 515, gray) %2 drawfillbox (670, 525, 600, 520, gray) %1 drawfillbox (570, 180, 630, 170, gray) % left foot drawfillbox (640, 180, 700, 170, gray) % right foot % Bad transfomer down background := Pic.New (0, 0, maxx, maxy) for i : 1 .. 50     Pic.Draw (background, 0, 0, picCopy)     drawfillbox (700, 470 - i * 8, 820, 500 - i * 8, blue) % right arm     View.Update     delay (30) end for % Bad Transfomer arm blast for i : 1 .. 50     drawfillbox (700 - i * 14, 70, 699, 100, gray)     delay (10) end for % for f : 1 .. 10     delay (1)     Draw.FillOval (650, 100, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (600, 67, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (550, 100, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (500, 67, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (450, 100, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (400, 67, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (350, 100, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (300, 67, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (250, 100, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (200, 67, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (150, 100, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (100, 67, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (50, 100, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (0, 67, 0 + f, 0 + f, brightred) end for %------------------------------------------------------- Part 7 drawfillbox (0, 0, maxx, maxy, black)%background drawfillbox (1, 150, 1010, 1, red) % Field drawfillbox (1000, 300, 950, 10, gray) %city drawfillbox (880, 300, 830, 10, gray) drawfillbox (950, 100, 880, 10, gray) drawfillbox (900, 70, 840, 100, yellow)% Windows % tank drawfillbox (110, 20, 190, 5, green) % bottom body drawfillbox (120, 50, 160, 21, green) % top drawfillbox (120, 50, 200, 42, green) % cannon % 2 tank is dead drawfillbox (450, 93, 350, 100, gray) % bottom body %Bad transformer drawfillbox (700, 300, 570, 500, red) % body drawfillbox (440, 470, 570, 500, blue) %left arm drawfillbox (700, 470, 820, 500, blue) % right arm drawfillbox (670, 570, 600, 500, black) % head drawfillbox (670, 600, 690, 500, blue) % right ear drawfillbox (600, 600, 577, 500, blue) % left ear drawfillbox (630, 170, 570, 300, blue) % left leg drawfillbox (640, 170, 700, 299, blue) % right leg drawfillbox (670, 575, 600, 571, gray) % top of the head drawfillbox (670, 505, 600, 500, gray) % 3 drawfillbox (670, 510, 600, 515, gray) %2 drawfillbox (670, 525, 600, 520, gray) %1 drawfillbox (570, 180, 630, 170, gray) % left foot drawfillbox (640, 180, 700, 170, gray) % right foot % bad tranfomer arm go down 2 time background := Pic.New (0, 0, maxx, maxy) for i : 1 .. 50     Pic.Draw (background, 0, 0, picCopy)     drawfillbox (700, 70 - i * 1, 820, 100 - i * 1, blue)     View.Update     delay (1) end for % bad tranfomer arm blast for i : 1 .. 50     drawfillbox (700 - i * 14, 20, 700, 50, gray)     delay (1) end for for f : 1 .. 10     delay (1)     Draw.FillOval (450, 50, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (400, 20, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (500, 20, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (550, 50, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (600, 20, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (650, 50, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (690, 20, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (350, 50, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (300, 20, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (250, 50, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (200, 20, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (150, 50, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (100, 20, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (50, 50, 0 + f, 0 + f, brightred)     delay (1)     Draw.FillOval (0, 20, 0 + f, 0 + f, brightred) end for %------------------------------------------------------------------ Part 8 % Background drawfillbox (0, 0, maxx, maxy, black) % Field drawfillbox (1, 150, 1010, 1, red) % City drawfillbox (1000, 300, 950, 10, gray) drawfillbox (880, 300, 830, 10, gray) drawfillbox (950, 100, 880, 10, gray) % Windows drawfillbox (900, 70, 840, 100, yellow) %Bad transformer drawfillbox (700, 300, 570, 500, red) % body drawfillbox (440, 470, 570, 500, blue) %left arm drawfillbox (700, 470, 820, 500, blue) % right arm drawfillbox (670, 570, 600, 500, black) % head drawfillbox (670, 600, 690, 500, blue) % right ear drawfillbox (600, 600, 577, 500, blue) % left ear drawfillbox (630, 170, 570, 300, blue) % left leg drawfillbox (640, 170, 700, 299, blue) % right leg drawfillbox (670, 575, 600, 571, gray) % top of the head drawfillbox (670, 505, 600, 500, gray) % 3 drawfillbox (670, 510, 600, 515, gray) %2 drawfillbox (670, 525, 600, 520, gray) %1 drawfillbox (570, 180, 630, 170, gray) % left foot drawfillbox (640, 180, 700, 170, gray) % right foot % tank is dead drawfillbox (110, 10, 190, 5, gray) % bottom body % 2 tank is dead drawfillbox (450, 93, 350, 100, gray) % bottom body

[DarkRider]

You are not seeing every bit of animation because you are not updating the screen everytime you draw you draw a group of graphics. You have to call View.Update () right after each section you want drawn. In your code I think you should be updating right before a loop and right before the end statement of a loop. Example:

Turing:

View.Set ("offscreenonly") Draw.FillBox (10, 10, 60, 60, black) View.Update () for i : 1 .. 10     cls ()     Draw.FillBox (10 + i, 10, 60 + i, 60, black)     delay (100)     View.Update () end for cls () Draw.FillBox (10, 10, 60, 60, black) View.Update () for i : 1 .. 10     cls ()     Draw.FillBox (10, 10 + i, 60, 60 + i, black)     delay (100)     View.Update () end for %Repeat the above until you have completely written your program

[saltpro15]

622 lines for that? Just use View.Update to fix it, and also some procedures would make your code a lot shorter if you know how to use them

[asianrandy]

i don't how to use procedures give me an example for my program.

[saltpro15]

here's some pseudo code

Turing:

setscreen ("graphics:1010;670") View.Set ("offscreenonly") var background : int; proc drawfoo drawfillbox (0, 0, maxx, maxy, black) % drawing your first set of stuff drawfillbox (1, 150, 1010, 1, red) drawfillbox (1000, 300, 950, 10, gray) drawfillbox (880, 300, 830, 10, gray) drawfillbox (950, 100, 880, 10, gray) drawfillbox (900, 70, 840, 100, yellow) end drawfoo drawfoo % this calls the procedure

this makes your main unit a lot smaller too[/syntax]

[asianrandy]

Wow thanks for the View.Updates. i didn't think of that.