Fire Monkey: Camera Test

Захотелось мне сделать такую вещь: пользователь смотрит на 3D-сцену и с ней взаимодействует мышкой. Но при этом где-нибудь на панельке сбоку я хочу показать эту же сцену, но под другим углом,  т.е. с другой камеры. По идее, это должно решаться как-то довольно просто: создаём вторую камеру и для неё говорим, мол рисуй что видишь на такую-то панель. Но не тут-то было…

У камеры есть свойство Target. Попробовал я его – не получилось. Попробовал ещё много всяких способов – всё как-то не то. В итоге получилось не очень красиво… но получилось. Вот картинка:

В левом-верхнем углу – TViewPort3D – сама сцена. В ней несколько объектов крутятся и реагируют на мышь. В остальных углах – это то, что видят другие камеры. Камера 3, при этом, ещё и вращается вокруг основной сцены. Для интереса, я эту камеру нарисовал жёлтым шаром с красным глазом :с)

Код, по захвату того, что видет камера, и сохранение этого на TImage, выглядит примерно так:

  procedure MakeIt(Camera: TCamera; Image: TImage);
  var
    Bmp: TBitmap;
  begin
    Viewport3D1.Camera := Camera;
    Bmp := Viewport3D1.MakeScreenshot;
    try
      Image.Bitmap := Bmp;
    finally
      Bmp.Free;
    end;
  end;
begin
    Viewport3D1.UsingDesignCamera := False;

    MakeIt(Camera1, Image1);
    MakeIt(Camera2, Image2);
    MakeIt(Camera3, Image3);

    Viewport3D1.Camera := nil;
    Viewport3D1.UsingDesignCamera := True;
end;

Этот код вызывается сразу, после того как закончилась прорисовка ViewPort3D (на событии OnPaint), и чтобы он не вызывался во время скриншотов там ещё добавлена проверка. Ну и почему-то обновление TImage не вызывает перерисовку себя на форме (вернее оно вызывает, но отрисовывается всего один раз). Поэтому я там ещё добавил таймер, по которому говорю форме Invalidate.

Есть ещё одна особенность: TViewport3D.MakeScreenshot – создаёт TBitmap, который уничтожать нужно самому…

Скачать: исходник (zip-архив, 1 Мб), исполняемый файл (zip-архив, 3,9 Мб)