Пропорции

[ArtGrek]

ну да, ты ведь хочеш что б она у тебя лучше виднелась

[Arkuz]

Вот кручу, верчу... что-то не пойму как это всё прокрутить дело. Может поможете с алгоритмической стороны на примере 2х линий ?

[ArtGrek]

скинь програмку, что в график рисовала, а я координаты попробую зделать

[Arkuz]

вот исходники

на первой вкладке я эксперементировал, там не правильно рисует.

[Arkuz]

Найдено решение для отображения отрезка с любыми координатами:
Оси OX и OY поменяны местами. Это специально для геодезических задач.

Точка1 рисуется в координатах (0;0), а Точка2 вращается относительно первой под нужным углом.

Готовим канву:

procedure ReadyImg(Img:TImage);
var
 i:integer;
begin
 with Img do
 begin  //действительно для канвы 330x330
        //очистка канвы
        Canvas.Pen.Color:=clWhite;
        Canvas.Brush.Color:=clWhite;
        Canvas.Rectangle(0,0,330,330);
        Canvas.Refresh;

        //задаём параметры
        //рисуем сетку
        Canvas.Pen.Style:=psSolid;
        Canvas.Pen.Color:=clBlue;
        Canvas.Pen.Width:=1;
        i:=0;
        while i<>330 do
        begin
          Canvas.MoveTo(i,1);
          Canvas.LineTo(i,330);
          Canvas.MoveTo(1,i);
          Canvas.LineTo(330,i);
          i:=i+30;
        end;
        //--------------

        //отрисовка осей координат и X,Y
        Canvas.Pen.Width:=3;
        Canvas.TextOut(10,10,'X');
        Canvas.TextOut(310,310,'Y');
        Canvas.MoveTo(1,1);
        Canvas.LineTo(1,329);
        Canvas.LineTo(329,329);
        Canvas.Pen.Color:=clRed;
        //----------------
 end;
end;

[Arkuz]

Рисуем линию:

TPoints = record
            x:double;
            y:double;
           end;
 T2Points = record
            p1:TPoints;
            p2:TPoints;
           end;

procedure LineDraw(Img:TImage; Points:T2Points; p1Name,p2Name:string);
var
 x1,x2,y1,y2,dx,dy,t,ch,cwh,ty,tx:integer;
begin
        x1:=round(Points.p1.x);
        y1:=round(Points.p1.y);
        x2:=round(Points.p2.x);
        y2:=round(Points.p2.y);

        //переменная содержащая длину канвы
        //канва квадратная
        with Img do
        begin

        cwh:=Width;
        dx:=round(x1-x2);
        dy:=round(y1-y2);

        if abs(dx)>=abs(dy) then
         begin
          ch:=round(abs(dx)/10*2);
          t:=round(abs(dx)+ch);
         end;

        if abs(dx)<abs(dy) then
         begin
          ch:=round(abs(dy)/10*2);
          t:=round(abs(dy)+ch);
         end;

          x1:=round(cwh/2);
          y1:=round(cwh/2);

          //работает
          if (dx>0) and (dy>0) then
          begin
            x2:=round(cwh/2+(dx*(cwh/2))/t);
            y2:=round(cwh/2-(dy*(cwh/2))/t);
          end;
          //работает
          if (dx<0) and (dy>0) then
          begin
            x2:=round(cwh/2+(dx*(cwh/2))/t);
            y2:=round(cwh/2-(dy*(cwh/2))/t);
          end;
          //работает
          if (dx<0) and (dy<0) then
          begin
            x2:=round(cwh/2+(dx*(cwh/2))/t);
            y2:=round(cwh/2-(dy*(cwh/2))/t);
          end;

          //работает
          if (dx>0) and (dy<0) then
          begin
            x2:=round(cwh/2+(dx*(cwh/2))/t);
            y2:=round(cwh/2-(dy*(cwh/2))/t);
          end;
          //0 градусов
          if (dy=0) and (dx>0) then
           begin
             x1:=round(cwh/2-(dx*(cwh/2))/t);
             y1:=round(cwh/2);
             x2:=round(cwh/2);
             y2:=round(cwh/2);
           end;

           //180 градусов
           if (dy=0) and (dx<0) then
           begin
             x1:=round((dx*(cwh/2))/t);
             x1:=round(abs(x1)+cwh/2);
             y1:=round(cwh/2);
             x2:=round(cwh/2);
             y2:=round(cwh/2);
           end;

           //90 градусов
           if (dx=0) and (dy>0) then
           begin
             y2:=round(cwh/2-(dy*(cwh/2))/t);
             x2:=round(cwh/2);
             y1:=round(cwh/2);
             x1:=round(cwh/2);
           end;

           //270 градусов
           if (dx=0) and (dy<0) then
           begin
             y2:=round((dy*(cwh/2))/t);
             y2:=round(abs(y2)+cwh/2);
             x2:=round(cwh/2);
             y1:=round(cwh/2);
             x1:=round(cwh/2);
           end;

         //проводим линию
         Canvas.MoveTo(y1,x1);
         Canvas.LineTo(y2,x2);

        //рисуем точки
        Canvas.Pen.Color:=clGreen;
        Canvas.Pen.Width:=7;
        Canvas.MoveTo(y1,x1);
        Canvas.LineTo(y1,x1);
        Canvas.MoveTo(y2,x2);
        Canvas.LineTo(y2,x2);

        cwh:=round(cwh/2);
        if (x1<cwh) and (y1<cwh) then Canvas.TextOut(y1+length(p1Name)*3,x1+5,p1Name);
        if (x1>=cwh) and (y1<cwh) then Canvas.TextOut(y1+length(p1Name)*3,x1-15,p1Name);
        if (x1<cwh) and (y1>=cwh) then Canvas.TextOut(y1-length(p1Name)*3,x1+5,p1Name);
        if (x1>=cwh) and (y1>=cwh) then Canvas.TextOut(y1-length(p1Name)*3,x1-15,p1Name);

        if (x2<cwh) and (y2<cwh) then Canvas.TextOut(y2+length(p2Name)*3,x2+5,p2Name);
        if (x2>=cwh) and (y2<cwh) then Canvas.TextOut(y2+length(p2Name)*3,x2-15,p2Name);
        if (x2<cwh) and (y2>=cwh) then Canvas.TextOut(y2-length(p2Name)*3,x2+5,p2Name);
        if (x2>=cwh) and (y2>=cwh) then Canvas.TextOut(y2-length(p2Name)*3,x2-15,p2Name)
        end;  
end;

[Arkuz]

................