[VotapilD]

Program Nya;
Uses    sensor,bezier;
Var    xf, yf, xs, ys, xb, yb, sx, xy:integer; 
state, i, j, dre: integer;
//
//Безье изгиб
Procedure MakeBpoints;
Begin
	xb:=xs-(xf-xs)/2;
	yb:=ys-(yf-ys)/2;
	xf:=xs;
	yf:=ys;
        xs:=pointer_dragged_x;
	ys:=pointer_dragged_y;
	DrawBezier(xf, yf, xb, yb, xs, ys);
End;
//
Begin
    sensor.init; // Инициализация библиотеки
    repeat
        state:=pointer_state; // Читаем состояние сенсора
        MakeBpoints;//Просчт точки Безье
	 // Рисуем нормали
	SetColor(200, 200, 200);
	DrawLine(xf, yf, xb, yb);
	DrawLine(xb, yb, xs, ys);
	SetColor(0, 0, 0);
	//
        Repaint; // Отрисовка линии 
				delay(20);
    until false;

В чем ошибка? Телефон всё время рисует из точки 0;0 ((
Philips X800