%setscreen ("graphics:600;500")
%  %Anim2
% for i : 40 .. 300
% Draw.FillOval (i,250,40,40,12)
% delay(10)
% cls
% end for
%
% Draw.FillOval (300,250,40,40,12)
% delay (2000)
% cls
%
% for i : 300 .. 550
% Draw.FillOval (i,250,40,40,12)
% delay(3)
% cls
% end for

%setscreen ("graphics:600;500")
%  %Anim3
% for i : 40 .. 300
% Draw.FillOval (i,250,40,40,12)
% delay(10)
% cls
% end for
%
% Draw.FillOval (300,250,40,40,12)
% delay (2000)
% cls
%
% for i : 300 .. 450
% Draw.FillOval (300,i,40,40,12)
% delay(3)
% cls
% end for

%Anim4
setscreen ("graphics:600;400")
for i : 50 .. 550
    Draw.FillBox (i, 0, i + 50, 50, 12)
    delay (10)
    cls
end for

for i : 0 .. 350
    Draw.FillBox (550, i, 600, i + 50, 12)
    delay (10)
    cls
end for

for decreasing i : 550 .. 0
    Draw.FillBox (i, 350, i + 50, 400, 12)
    delay (10)
    cls
end for

for decreasing i : 0 .. 350
    Draw.FillBox (0, 350, 50, 550 + 50, 12)
    delay (10)
    cls
end for