var i : int := 0
var r2, r1 : int
loop
for decreasing z : 40 .. 0 by 5
r2 := z
drawoval (320, 200, 125, 125, 1)
drawoval (275, 230, 20, 20, 1)
drawoval (360, 230, 20, 20, 1)
drawline (320, 200, 320, 170, 1)
drawarc (320, 130, 50, r2, 180, 0, 1)
if z >= 35 then
drawline (225, 250, 260, 250, 1)
drawline (225, 210, 260, 210, 1)
drawline (250, 230, 210, 230, 1)
drawline (210, 230, 205, 240, 1)
drawline (375, 250, 400, 250, 1)
drawline (375, 210, 400, 210, 1)
drawline (385, 230, 420, 230, 1)
drawline (420, 230, 425, 240, 1)
elsif z >= 30 or z >= 25 then
drawline (250, 230, 210, 230, 1)
drawline (210, 230, 205, 240, 1)
drawline (385, 230, 420, 230, 1)
drawline (420, 230, 425, 240, 1)
elsif z >= 20 or z >= 10 then
drawline (250, 230, 210, 230, 1)
drawline (385, 230, 420, 230, 1)
end if
delay (250)
cls
end for
for x : 0 .. 30 by 5
r1 := x
drawoval (320, 200, 125, 125, 1)
drawoval (275, 230, 20, 20, 1)
drawoval (360, 230, 20, 20, 1)
drawline (320, 200, 320, 170, 1)
drawarc (320, 130, 50, r1, 0, 180, 1)
if x = 5 and x < 10 then
drawoval (375, 200, 5, 5, 1)
elsif x = 10 and x < 15 then
drawoval (375, 200, 5, 5, 1)
drawoval (290, 190, 5, 5, 1)
elsif x = 15 and x < 20 then
drawoval (375, 200, 5, 5, 1)
drawoval (290, 190, 5, 5, 1)
drawoval (375, 180, 5, 5, 1)
elsif x = 20 and x < 25 then
drawoval (375, 200, 5, 5, 1)
drawoval (290, 190, 5, 5, 1)
drawoval (375, 180, 5, 5, 1)
drawoval (290, 170, 5, 5, 1)
elsif x >= 25 then
drawoval (375, 200, 5, 5, 1)
drawoval (290, 190, 5, 5, 1)
drawoval (375, 180, 5, 5, 1)
drawoval (290, 170, 5, 5, 1)
drawoval (375, 160, 5, 5, 1)
end if
delay (250)
cls
end for
for decreasing x2 : 30 .. 0 by 5
r1 := x2
drawoval (320, 200, 125, 125, 1)
drawoval (275, 230, 20, 20, 1)
drawoval (360, 230, 20, 20, 1)
drawline (320, 200, 320, 170, 1)
drawarc (320, 130, 50, r1, 0, 180, 1)
if x2 = 5 and x2 < 10 then
drawoval (375, 200, 5, 5, 1)
elsif x2 = 10 and x2 < 15 then
drawoval (375, 200, 5, 5, 1)
drawoval (290, 190, 5, 5, 1)
elsif x2 = 15 and x2 < 20 then
drawoval (375, 200, 5, 5, 1)
drawoval (290, 190, 5, 5, 1)
drawoval (375, 180, 5, 5, 1)
elsif x2 = 20 and x2 < 25 then
drawoval (375, 200, 5, 5, 1)
drawoval (290, 190, 5, 5, 1)
drawoval (375, 180, 5, 5, 1)
drawoval (290, 170, 5, 5, 1)
elsif x2 >= 25 then
drawoval (375, 200, 5, 5, 1)
drawoval (290, 190, 5, 5, 1)
drawoval (375, 180, 5, 5, 1)
drawoval (290, 170, 5, 5, 1)
drawoval (375, 160, 5, 5, 1)
end if
delay (250)
cls
end for
for z2 : 0 .. 40 by 5
r2 := z2
drawoval (320, 200, 125, 125, 1)
drawoval (275, 230, 20, 20, 1)
drawoval (360, 230, 20, 20, 1)
drawline (320, 200, 320, 170, 1)
drawarc (320, 130, 50, r2, 180, 0, 1)
if z2 >= 35 then
drawline (225, 250, 260, 250, 1)
drawline (225, 210, 260, 210, 1)
drawline (250, 230, 210, 230, 1)
drawline (210, 230, 205, 240, 1)
drawline (375, 250, 400, 250, 1)
drawline (375, 210, 400, 210, 1)
drawline (385, 230, 420, 230, 1)
drawline (420, 230, 425, 240, 1)
elsif z2 >= 30 or z2 >= 25 then
drawline (250, 230, 210, 230, 1)
drawline (210, 230, 205, 240, 1)
drawline (385, 230, 420, 230, 1)
drawline (420, 230, 425, 240, 1)
elsif z2 >= 20 or z2 >= 10 then
drawline (250, 230, 210, 230, 1)
drawline (385, 230, 420, 230, 1)
end if
delay (250)
cls
end for
end loop
|