График функции

[russian-stalker]

Знаю что обсуждалось тысячи раз, но всё же хочется доработать свой код:

function f(x:real):real;
begin
result:=x*x*x-9*x;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
i:integer;
o:Tpoint;
begin
   with canvas do
   begin
      InValidateRect(Canvas.Handle,nil,true);
      //Начало координат
      Pen.Color:=clblack;
      o.X:=ClientWidth div 2;
      o.Y:=ClientHeight div 2;
      //Рисуем ось
      moveto(0,o.Y);
      Lineto(ClientWidth,o.Y);
      moveto(o.X,0);
      Lineto(o.X,ClientHeight);
      TextOut((o.X)-7,(o.Y)+1,'0');
      moveto(-ClientWidth,-ClientHeight);
      //Рисуем функцию
      Pen.Color:=clred;
      for I := -ClientWidth to ClientWidth do
      begin
      if (-trunc(f(i))+o.Y)>=-50 then
        lineto(i+o.X,-trunc(f(i))+o.Y);
      end;
   end;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
   repaint;
end;

Всё строится и работает замечательно и быстро, но всё же интересует глупый вопрос, как лучше увеличить размер графика? А то всё мелкое, а код для увеличения, который лезет мне в голову похож на мазахизм)

[Stilet]

как лучше увеличить размер графика?

Когда-то чтоб отстал преподаватель я X и Y умножал на коэффициент а потом их отрисовывал. Полноценным масштабированием это не назовешь, но все же. Плюс к этому умельчал шаг изменения одной из координаты (как правило это был икс).

[russian-stalker]

и правда, спасибо, всё оказалось гораздо проще чем я думал:

function f(x:real):real;
begin
result:=sqr(x);
end;

procedure TForm1.FormPaint(Sender: TObject);
const
size=10;
var
i:integer;
o:Tpoint;
ap:array of tpoint;
begin
   with canvas do
   begin
      InValidateRect(Canvas.Handle,nil,true);
      //Начало координат
      Pen.Color:=clblack;
      o.X:=ClientWidth div 2;
      o.Y:=ClientHeight div 2;
      //Рисуем ось
      moveto(0,o.Y);
      Lineto(ClientWidth,o.Y);
      moveto(o.X,0);
      Lineto(o.X,ClientHeight);
      TextOut((o.X)-7,(o.Y)+1,'0');
      moveto(-ClientWidth,-ClientHeight);
      //Рисуем функцию
      Pen.Color:=clred;
      setlength(ap,ClientWidth*2);
      for I := -ClientWidth to ClientWidth do
      begin
         if (-trunc(f(i))+o.Y)>=-200 then
         begin
            ap[I+ClientWidth].X:=(i*size)+o.X;
            ap[i+ClientWidth].Y:=(-trunc(f(i))*size)+o.Y;
         end;
      end;
      Polyline(ap);
   end;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
   repaint;
end;