[VotapilD]

/me ОЧЕНЬ ЗЛОЙ!
Такую простую вещь и не могу сделать(
Плиз, ребята, хелп^^

Program Pointer;
Uses    sensor,bezier;//uses
Var    xf, yf, xs, ys, xb, yb, sx, xy,nya, i, j, dre, xx, yy, state, key: integer;


//Безье изгиб
Procedure MakeBpoints;
Begin
 state:=pointer_state; // Читаем состояние сенсора
 if state=1 then begin
	if (xf=0) and (yf=0) then begin
	 xf:=pointer_dragged_x; 
	 yf:=pointer_dragged_y;
	 nya:=1;
  end;
  else begin
	xb:=xs-(xf-xs)/2;
	yb:=ys-(yf-ys)/2;	
	xf:=xs;
	yf:=ys;
 end;
  xs:=pointer_dragged_x;
  ys:=pointer_dragged_y;
	if nya=1 then begin
	 xb:=xf-(xf-xs)/2;
	 yb:=yf-(yf-ys)/2;	
	 nya:=0;
  end;
	DrawBezier(xf, yf, xb, yb, xs, ys);
 end;
 else begin
	xf:=0;//x First
	yf:=0;
	xb:=0;//x Bezie
	yb:=0;
	xs:=0;//x Second
	ys:=0;
 end;
End;
//



//           >=<=<=!=ИГРА=!=>=>=<
Begin
sensor.init; // Инициализация библиотеки
repeat
	 MakeBpoints;
	 Repaint; // Отрисовка линии 
until false;
End.

Вектор не прерывается, ведёт себя странно при рисовании(не так искривляется (по оси x, по крайней мере))