Если так устроит
то:
1. Ввести переменную i типа Integer.
2. В раздел "до первой паузы", напр. сразу после задания кружка-головы, добавить:
Код:
circle(x+15,y-10,6);
circle(x+34,y,4);
line(x,y,x+Round(30*Sqrt(3)/2),y+Round(30/2));
for i:=0 to 20 do
line(x+Round(30*Cos(Pi/4+Pi/20*i)),y-Round(30*Sin(Pi/4+Pi/20*i)),
x+Round(40*Cos(Pi/4+Pi/20*i)),y-Round(40*Sin(Pi/4+Pi/20*i)));
3. В раздел "после первой паузы" добавить:
Код:
circle(x+5+15,y-5-10,6);
circle(x+5+34,y-5,4);
line(x+5,y-5,x+5+Round(30*Sqrt(3)/2),y-5+Round(30/2));
for i:=0 to 20 do
line(x+5+Round(30*Cos(Pi/4+Pi/20*i)),y-5-Round(30*Sin(Pi/4+Pi/20*i)),
x+5+Round(40*Cos(Pi/4+Pi/20*i)),y-5-Round(40*Sin(Pi/4+Pi/20*i)));