Delphi. Вращение 3D объектов

[Nitrox]

Нужно написать программу, которая вращает диаграмму. положение камеры должно изменяться мышью. прочел кучу листингов в нете, моск взорвался...помогите написать код, или хотя бы ссылку дайте на нормальный учебник или статью по этому поводу

[keef]

Создавай ImageList в него пихай картинки под разным углом. Далее присваивай флаги на событие нажатие отпускание кнопки на картинке. И попутно в потоке проверяй координаты мыши по получению которых на условии IF(if (flag=true) and (p.X>n) then Form1.Image1.Picture.Bitmap:=b) показывается определенная картинка из ImageList

А по вопросу как это сделать уже либо во фриланс либо в личку за небольшую плату.

[Nitrox]

У меня обычный Image и там уже создано неподвижное изображение. его только осталось научиться вертеть

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, ExtCtrls;

type
  zoomImage=record
    x,y:integer;
  end;

  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    StringGrid1: TStringGrid;
    Button1: TButton;
    Panel1: TPanel;
    Image2: TImage;
    Button2: TButton;
    procedure Edit1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  s,ymax:integer;
  x,y: array of integer;
  i:byte;
  h:real;
  zoom:zoomimage;


implementation

{$R *.dfm}

procedure TForm1.Edit1Click(Sender: TObject);
begin
  Edit1.Text:='';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (StrToInt(Edit1.Text)>=1) and (StrToInt(Edit1.Text)<=10) then begin
    s:=trunc((zoom.x-200)/(StrToInt(Edit1.Text)*2+1));
    StringGrid1.RowCount:=StrToInt(Edit1.Text);
    for i:=0 to StringGrid1.RowCount-1 do
    begin
      setlength(x,2*StringGrid1.RowCount);
      setlength(y,StringGrid1.RowCount);
      y[i]:=StrToInt(StringGrid1.Cells[1,i]);
    end;
    ymax:=y[0];
    for i:=0 to StringGrid1.RowCount-1 do
    begin
      if y[i]>ymax then ymax:=y[i];
    end;
    x[0]:=(100+s);
    for i:=1 to StringGrid1.RowCount*2-1 do x[i]:=x[i-1]+s;
    if ymax<>0 then h:=(zoom.y-200)/ymax;
    with Image2.Canvas do
    begin
      Image2.Canvas.brush.Color:=clWhite;
      Brush.Color:=clWhite;
      for i:=0 to StringGrid1.RowCount-1 do
      begin
        Rectangle(x[i*2]-80,trunc(zoom.y-195),x[i*2+1]-80,trunc(zoom.y-195-y[i]*h));    //Зад
        Polygon([point(x[i*2+1]-100,trunc(zoom.y-175)),            // Бок
                point(x[i*2+1]-80,trunc(zoom.y-195)),
                point(x[i*2+1]-80,trunc(zoom.y-195-y[i]*h)),
                point(x[i*2+1]-100,trunc(zoom.y-175-y[i]*h))]);
        Polygon([point(x[i*2+1]-100,trunc(zoom.y-175-y[i]*h)),     //Верх
                point(x[i*2+1]-80,trunc(zoom.y-195-y[i]*h)),
                point(x[i*2]-80,trunc(zoom.y-195-y[i]*h)),
                point(x[i*2]-100,trunc(zoom.y-175-y[i]*h))]);
        Rectangle(x[i*2]-100,trunc(zoom.y-175),x[i*2+1]-100,trunc(zoom.y-175-y[i]*h));  //Перед
      end;
    end;
  end
  else
  ShowMessage('Введите данные правильно');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  for I := 0 to 9 do begin
    StringGrid1.Cells[1,i]:='0';
    StringGrid1.Cells[0,i]:=IntToStr(i+1)+'.';
  end;
  zoom.y:=750;
  zoom.x:=825;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Close;
end;
end.