Нужно организовать процедуру рисующую на канве процесс вращения человеком педали велосипеда.Т.е точку движущуюся по окружности и ногу.Угол и положение колена изменяются по таймеру.Я Написал процедурку, но там что-то не так.
procedure ris;
var x0,a,y0,x1,y1,b,x2,y2,yc,xc,r:integer;
l,x,y:real;
alfa,gamma:real;
begin
r:=30;
x0:=200;
y0:=200;
with form1.Canvas do begin
x0:=strtoint(Form1.koor_x0.Text);
y0:=strtoint(Form1.koor_y0.Text);
l:=(sqrt((sqr(x0-x1)+sqr(y0-y1))+r)/2 ) ;
b:=round(sqrt(sqr(x2-xc)+sqr(y2-yc)));
a:=round(sqrt(L*L-b*b));
alfa:=ArcTan2(b,a);
gamma:=ArcTan2(y1-y2,x1-x2);
x2:=x0+r*round(cos(angle));
y2:=y0+r*round(sin(angle));
xc:=round((x1+x2)/2);
yc:=round((y1+y2)/2);
x:=x2+l*round(cos(gamma+alfa));
y:=y2+l*round(sin(gamma+alfa));
MoveTo(round(x2),round(y2));
LineTo(round(x),round(y));
lineto(round(x1),round(y1));
end;
end;

видимо надо координаты преобразовывать,но я не помню как.
Изображения
 

Такое чувство, что кто то начал делать и забил, а ты поправить не можешь/не хочешь.
Так что
> Я Написал процедурку
не думаю, что имело место.

Топик выше - решат твою задачу за деньги.