Система координат

[SunKnight]

Подскажите пожалуйста, как настроить канву так, что бы координата [0,0] находилась в центре, а по Х и У координаты изменялись от -100 до +100. как в системе координат.

[_Dmitry]

Придется все время пересчитывать из одной системы в другую

var
  x0,y0,x,y,xs,ys: integer;
  Mx,My: double;
begin
  //центр
  x0:=round(PaintBox1.Width/2);
  y0:=round(PaintBox1.Height/2);
  //масштаб
  Mx:=PaintBox1.Width/200;
  My:=PaintBox1.Height/200;
  //рисуем кружок в начале координат
  x:=0; y:=0;
  //переводим наши координаты в координаты канвы
  xs:=round(x0+x*Mx); ys:=round(y0-y*My);
  PaintBox1.Canvas.Ellipse(xs-5,ys-5,xs+5,ys+5);
  //рисуем кружок в 1 четверти
  x:=50; y:=50;
  xs:=round(x0+x*Mx); ys:=round(y0-y*My);
  PaintBox1.Canvas.Ellipse(xs-5,ys-5,xs+5,ys+5);
  //рисуем кружок в 3 четверти
  x:=-50; y:=-50;
  xs:=round(x0+x*Mx); ys:=round(y0-y*My);
  PaintBox1.Canvas.Ellipse(xs-5,ys-5,xs+5,ys+5);

[SunKnight]

Спасибо, я так пробовал, через PaintBox1.Width/2, но мне нужно вывести кривую по функции таким способом это достаточно сложно. Но погуглив я нашел классный вариант решения этой проблемы: ex01.zip