%
% Purpose: To make a stickman do jumping jacks three times
procedure graphic3
%backround
colourback (87)
cls
drawfillbox (780, 580, 20, 30, 62)
%hair
drawfilloval (410, 415, 40, 40, black)
drawfilloval (444, 445, 10, 10, black)
drawfilloval (374, 445, 10, 10, black)
%face
drawfilloval (410, 415, 35, 35, 89)
drawfilloval (401, 421, 5, 5, black)
drawfilloval (420, 421, 5, 5, black)
drawfilloval (410, 398, 15, 4, brightmagenta)
%body
drawline (410,375,410,194,89)
%legs(left)
drawline (410,200,360,100,89)
%right
drawline (410,200,450,100,89)
%arm right
drawline (490,300,410,300,89)
%left
drawline (410,300,340,300,89)
for num:1..3
for count: 100..185
%legs(left)
drawline (410,200,360,100+count-100,89)
%right
drawline (410,200,450,100+count-100,89)
%arm right
drawline (490,300+count-100,410,300,89)
%left
drawline (410,300,340,300+count-100,89)
delay (50)
%legs(left)
drawline (410,200,360,100+count-100,62)
%right
drawline (410,200,450,100+count-100,62)
%arm right
drawline (490,300+count-100,410,300,62)
%left
drawline (410,300,340,300+count-100,62)
end for
for decreasing count: 185..100
%legs(left)
drawline (410,200,360,100+count-100,89)
%right
drawline (410,200,450,100+count-100,89)
%arm right
drawline (490,300+count-100,410,300,89)
%left
drawline (410,300,340,300+count-100,89)
delay (50)
%legs(left)
drawline (410,200,360,100+count-100,62)
%right
drawline (410,200,450,100+count-100,62)
%arm right
drawline (490,300+count-100,410,300,62)
%left
drawline (410,300,340,300+count-100,62)
end for
end for
%legs(left)
drawline (410,200,360,100,89)
%right
drawline (410,200,450,100,89)
%arm right
drawline (490,300,410,300,89)
%left
drawline (410,300,340,300,89)
end graphic3
setscreen ("graphics:800;600")
graphic3
|