---

//Кадр 1
//для сдвига всего рисунка
x0=120;y0=180;
R=100;
k=1;

---

//Кадр 2

k++
//нач угол
p0=0;
//амплитуда
pa=45;
f0=Math.Pi/180*k
//угол в градусах
phi=p0+pa*Math.sin(f0);
//в радианах
f=phi*Math.PI/180
al=-(f-Math.PI/2)/2
//точка b
xb=x0+R*Math.cos(f)
yb=y0-R*Math.sin(f)
xa=xb-2*R*Math.cos(al)
ya=yb-2*R*Math.sin(al)
yc=yb+2*R*Math.cos(al)
xc=xb-2*R*Math.sin(al)
yd=y0
xd=x0+2*R*Math.cos(f)

//Объекты s1 и s2 - из библиотеки - маленькие кружки размером W=10.0 H=10.0
// их создаем вручную (без кода). Сначала окружность (как в Paint),
//затем заливаем "чайником" нужный цвет
s1._x=xb+5;s1._y=yb;
s2._x=xd;s2._y=yd;

//Рисуем опору
Linestyle(5,0x000000);
moveto(x0-R-2,y0-R+3);lineto(x0-2,y0-R+3);lineto(x0-2,y0+R-3);lineto(x0-R-2,y0+R-3);
//Рисуем направляющие для штока
moveto(x0+220,yd+8);lineto(x0+260,yd+8);
moveto(x0+220,yd-8);lineto(x0+260,yd-8);
//Рисуем уголок
Linestyle(4,0xFF0000);
moveto(xa,ya);lineto(xb,yb); lineto(xc,yc);
//Рисуем спарник
Linestyle(4,0x2E0CF3);
moveto(xd,yd);lineto(xb+5,yb);
//Рисуем шток
Linestyle(4,0x26D949);
moveto(xd,yd);lineto(xd+200,yd);

---

//Кадр 3
clear(); //очищаем
gotoAndPlay(2); //зацикливаем