Computer Science Canada

help with animation
Author:  asianrandy [ Fri Jan 16, 2009 1:16 pm ]
Post subject:  help with animation
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
Author:  DarkRider [ Fri Jan 16, 2009 2:10 pm ]
Post subject:  Re: help with animation
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
Author:  saltpro15 [ Fri Jan 16, 2009 3:15 pm ]
Post subject:  RE:help with animation
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
Author:  asianrandy [ Fri Jan 16, 2009 5:35 pm ]
Post subject:  RE:help with animation
i don't how to use procedures give me an example for my program.
Author:  saltpro15 [ Fri Jan 16, 2009 5:39 pm ]
Post subject:  Re: help with animation
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]
Author:  asianrandy [ Fri Jan 16, 2009 5:53 pm ]
Post subject:  RE:help with animation
Wow thanks for the View.Updates. i didn't think of that.

:


You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy