k++
//нач угол
p0=45;
//амплитуда
pa=10;
f0=Math.Pi/180*k
//угол в градусах
phi=p0+pa*Math.sin(f0);
//в радианах
f=phi*Math.PI/180
//точка на ободе (касание!)
x1=x0+R*Math.cos(f)
y1=y0-R*Math.sin(f)
//КООРДИНАТЫ УГЛОВ	куба
xa=x1+(L*Math.sin(f)-R)*Math.sin(f);
ya=y1+(L*Math.sin(f)-R)*Math.cos(f);
xb=xa+a*Math.cos(f)
yb=ya-a*Math.sin(f)
xc=xb-a*Math.sin(f)
yc=yb-a*Math.cos(f)
xd=xc-a*Math.cos(f)
yd=yc+a*Math.sin(f)
//Рисуем куб
Linestyle(2,0x000000);
Beginfill(0xEBFEE2);
 moveto(xa,ya);lineto(xb,yb);
 lineto(xc,yc);lineto(xd,yd);
endfill();
// функция - прорисовка окружностей
function circle(x0,y0,R){
n=36;
moveTo(x0+R,y0);
for(i=1;i<n+2;i++){
  alf=Math.PI*2/n*i;
  x=x0+R*Math.cos(alf);
  y=y0+R*Math.sin(alf);
lineTo(x,y)};};

// функция - прорисовка спиц
function circle1(x0,y0,R1,R2,n,f){
for(i=1;i<n+2;i++){alf=Math.PI*2/n*i;
x1=x0+R1*Math.cos(alf+f);y1=y0+R1*Math.sin(alf+f);
moveTo(x1,y1);x=x0+R2*Math.cos(alf+f);
y=y0+R2*Math.sin(alf+f);
lineTo(x,y)};};

//Углы. Получено интегрированием в Maple
//Углов скорости W1=(L*cos(f)-R)/R
w1=(L*Math.sin(f)-R*f)/R
w2=-(L*Math.cos(f)+R*f)/R
//Рисуем окружности
circle(x0,y0,R);
circle1(x0,y0,R-17,R-2,8,w1);
circle(x0+L,y0,R);
circle1(x0+L,y0,R-17,R-2,8,w2);