loop
var xBodyS: int := 700
var yBodyS: int := 0
var xHeadS: int := 700
var yHeadS: int := 40
var xArmS1L: int := 690
var yArmS1L,yArmS1R: int := 20
var xArmS2L: int := 660
var yArmS2L,yArmS2R: int := -10
var xArmS1R: int := 710
var xArmS2R: int := 735
drawfilloval(xBodyS,yBodyS,15,20,7)
drawfilloval(xHeadS,yHeadS,20,20,0)
drawline (xArmS1L,yArmS1L,xArmS2L,yArmS2L,black)
drawline (xArmS1R,yArmS1R,xArmS2R,yArmS2R,black)
delay(30)
drawfilloval(xBodyS,yBodyS,15,20,15)
drawfilloval(xHeadS,yHeadS,20,20,15)
drawline (xArmS1L,yArmS1L,xArmS2L,yArmS2L,15)
drawline (xArmS1R,yArmS1R,xArmS2R,yArmS2R,15)
xBodyS:= xBodyS -1
xHeadS:= xHeadS -1
xArmS1L:= xArmS1L -1
xArmS2L:= xArmS2L -1
xArmS1R:= xArmS1R -1
xArmS2R:= xArmS2R -1
if xBodyS = 500 then
exit
end if
end loop
|