CamView.rar

Есть ViewPort3D, на нем TDummy, на котором рисую модель.

Вопрос вот в чем, модель может быть как большая, так и маленькая, как мне вписать ее в размеры ViewPort3D?

Разумеется все максимальные и минимальные координаты модели мне известны, но вот как их использовать не могу сообразить.

Подскажите что не так делаю.

1. При расположении на сцене TTextLayer3D перед 3D объектами - фон текста - непрозрачный. Если поместить TTextLayer3D в 3D объект, тогда фон текста станет прозрачным, для родительского объекта, но останется непрозрачным для "братьев" и "сестер". (рис. 1.jpg, 2.jpg и 21.jpg)

2. При применении скажем TGlowEffect к объекту стоящему за другим объектом, эффект просвечивает сквозь него. (рис. 4.jpg)

3. При применении эффекта к объекту стоящему за другим объектом, при условии что объект находящийся позади не является дочерним, стоящего спереди - в добавок к тому что эффект начинает просвечивать сквозь ближнего, так еще и появляется белая рамка вокруг "заднего" объекта. (рис. 3.jpg)

4. При применении эффекта к TTextLayer3D, эффект применяется только к левой верхней четверти объекта. (рис. 5.jpg)

пробовал на RAD Studio XE5, XE6, XE8, jap.10.2

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

На симуляторе без ретины (такой железки нет) все сразу ок.

На win32 и подавно все ок

Seattle, Ios 9.3.1

Ну и заодно вопрос, как сделать чтобы TTextLayer3D был непрозрачным либо на какой аналог заменить

Только начинаю осваивать FM и программирование 3D, встал вопрос.

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

Все перерыл нигде не могу найти. Или я что то недогоняю...

Во фрейме есть Viewport3D и Camera. Так вот никаким образом эта камера не используется приложением.

Есть решение?

Я как-то предполагал что если есть Viewport3D, то "внутри" этого прямоугольника может использоваться камера если она есть. Однако никаким способом не смог это сделать.. Да, само приложение тоже 3Дэ если это важно.

Запустили приложение, голова прорисована:

Поворачиваем - голова мгновенно "стирается":

Отключаем StyleBook - крутим модельку, всё хорошо:

Как исправить рендеринг сквозь прозрачные пиксели?

P.S.: Если в StyleBook'e поставить галочку на UseStyleManager, то снова всё отрисовывается нормально, но использовать StyleManager очень неудобно.

Код текстурирования

// Скопировать часть битмапа в другой битмап:
procedure CopyBitmapToBitmap(
                              const SrcBitmap    : FMX.Graphics.TBitmap; // Из какого битмапа копируем
                              const DestBitmap   : FMX.Graphics.TBitmap; // В какой битмап копируем
                              const SrcRect      : TRectF;               // Какой прямоугольник
                              const DstRect      : TRectF;               // В какой прямоугольник
                              ScaleCoeff         : Single  = 1.0;        // Коэффициент масштабирования (DstRect * ScaleCoeff)
                              Opacity            : Single  = 1.0;        // Коэффициент прозрачности накладываемого изображения
                              FlushBeforeDrawing : Boolean = True;       // Очищать ли предыдущее содержимое
                              Interpolate        : Boolean = False       // Интерполировать ли при масштабировании
                             );
 
  function Max(const A, B: Single): Single; inline;
  begin
    if A > B then Result := A else Result := B;
  end;
 
begin
  if FlushBeforeDrawing then DestBitmap.Clear($00000000);
  DestBitmap.SetSize(Round(Max(DstRect.Left, DstRect.Right) * ScaleCoeff), Round(Max(DstRect.Top, DstRect.Bottom) * ScaleCoeff));
 
  DestBitmap.Canvas.BeginScene;
  DestBitmap.Canvas.DrawBitmap(
                                SrcBitmap,
                                SrcRect,
                                RectF(
                                       DstRect.Left,
                                       DstRect.Top,
                                       DstRect.Left + ((DstRect.Right - DstRect.Left) * ScaleCoeff),
                                       DstRect.Top  + ((DstRect.Bottom - DstRect.Top) * ScaleCoeff)
                                      ),
                                Opacity,
                                not Interpolate
                               );
  DestBitmap.Canvas.EndScene;
end;
 
 
// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
 
procedure TMainForm.DrawSkin(FileStream: TMemoryStream);
type
  TTextureInfo  = array of Integer;      // OffsetX, OffsetY, Width, Height
  TCubeTexture  = array of TTextureInfo; // Front, Back, Left, Right, Top, Bottom
  TSurfaceArray = array of ^TPlane;
 
// Индексы элементов в массивах:
const
  iOffsetX = 0;
  iOffsetY = 1;
  iWidth   = 2;
  iHeight  = 3;
 
  iFront  = 0;
  iBack   = 1;
  iLeft   = 2;
  iRight  = 3;
  iTop    = 4;
  iBottom = 5;
 
  iHead     = 0;
  iTorso    = 1;
  iLeftArm  = 2;
  iRightArm = 3;
  iLeftLeg  = 4;
  iRightLeg = 5;
  iHelmet   = 6;
 
const
  HeadTexture : TCubeTexture = [// X  Y  W  H
                                 [8 , 8, 8, 8], // Front
                                 [24, 8, 8, 8], // Back
                                 [0 , 8, 8, 8], // Left
                                 [16, 8, 8, 8], // Right
                                 [8 , 0, 8, 8], // Top
                                 [16, 0, 8, 8]  // Bottom
                                ];
 
  ... { здесь пропущен список координат для каждой текстуры из битмапа } ...  
 
const
  ScaleCoeff: Single = 16.0;
 
var
  Bitmap: FMX.Graphics.TBitmap;
 
  // Список поверхностей каждой части модели:
  HeadPlanes     : TSurfaceArray;
  TorsoPlanes    : TSurfaceArray;
  LeftArmPlanes  : TSurfaceArray;
  RightArmPlanes : TSurfaceArray;
  LeftLegPlanes  : TSurfaceArray;
  RightLegPlanes : TSurfaceArray;
  HelmetPlanes   : TSurfaceArray;
 
  // Список частей модели:
  ModelParts: array of ^TSurfaceArray;
 
  // Список текстур каждой части модели:
  ObjectTextures: array of ^TCubeTexture;
 
  // I - счётчик по частям модели, J - счётчик по поверхностям:
  I, J: LongWord;
 
begin
  // Загружаем битмап из PNG-файла:
  Bitmap := FMX.Graphics.TBitmap.Create;
  Bitmap.LoadFromStream(FileStream);
 
  // Составляем массив из групп текстур для каждой части модели:
  ObjectTextures := [@HeadTexture, @TorsoTexture, @LeftArmTexture, @RightArmTexture, @LeftLegTexture, @RightLegTexture, @HelmetTexture];
 
  // Составляем список поверхностей:
  HeadPlanes     := [@HeadFront    , @HeadBack    , @HeadLeft    , @HeadRight    , @HeadTop    , @HeadBottom    ];
  TorsoPlanes    := [@TorsoFront   , @TorsoBack   , @TorsoLeft   , @TorsoRight   , @TorsoTop   , @TorsoBottom   ];
  LeftArmPlanes  := [@LeftArmFront , @LeftArmBack , @LeftArmLeft , @LeftArmRight , @LeftArmTop , @LeftArmBottom ];
  RightArmPlanes := [@RightArmFront, @RightArmBack, @RightArmLeft, @RightArmRight, @RightArmTop, @RightArmBottom];
  LeftLegPlanes  := [@LeftLegFront , @LeftLegBack , @LeftLegLeft , @LeftLegRight , @LeftLegTop , @LeftLegBottom ];
  RightLegPlanes := [@RightLegFront, @RightLegBack, @RightLegLeft, @RightLegRight, @RightLegTop, @RightLegBottom];
  HelmetPlanes   := [@HelmetFront  , @HelmetBack  , @HelmetLeft  , @HelmetRight  , @HelmetTop  , @HelmetBottom  ];
 
  // Составляем список частей модели:
  ModelParts := [@HeadPlanes, @TorsoPlanes, @LeftArmPlanes, @RightArmPlanes, @LeftLegPlanes, @RightLegPlanes, @HelmetPlanes];
 
  // Проходимся по каждой части модели (голова, корпус, ...):
  for I := 0 to High(ModelParts) do
  begin
    // Проходимся по каждой поверхности модели:
    for J := 0 to High(ModelParts[I]^) do
    begin
      // Рисуем текстуру на каждой поверхности:
      with (ModelParts[I]^)[J]^ do
      begin
        CopyBitmapToBitmap(
                            Bitmap,
                            TTextureMaterialSource(MaterialSource).Texture,
                            RectF(
                                   (ObjectTextures[I]^)[J][iOffsetX],
                                   (ObjectTextures[I]^)[J][iOffsetY],
                                   (ObjectTextures[I]^)[J][iOffsetX] + (ObjectTextures[I]^)[J][iWidth],
                                   (ObjectTextures[I]^)[J][iOffsetY] + (ObjectTextures[I]^)[J][iHeight]
                                  ),
                            RectF(0, 0, (ObjectTextures[I]^)[J][iWidth], (ObjectTextures[I]^)[J][iHeight]),
                            ScaleCoeff
                           );
 
        // Инвертируем текстуры для симметрии:
        if I in [iLeftArm, iLeftLeg] then
          TTextureMaterialSource(MaterialSource).Texture.FlipHorizontal;
 
      end;
    end;
  end;
 
  FreeAndNil(Bitmap);
end;

Картинки

Код

void __fastcall TForm5::SwitchTo2D()
{
	delete FViewport;
	//delete FContainer;
	ControlRoot->Visible = true;
}

void __fastcall TForm5::SwitchTo3D()
{
	
FViewport = new TViewport3D(this);


	FViewport->Align = TAlignLayout::Client;

	//FViewport->Color = TAlphaColorRec::Null;
	FViewport->Parent = this;

	FContainer = new TLayer3D(this);
	FContainer->Projection = TProjection::Screen;
	FContainer->Align = TAlignLayout::Client;
	FContainer->Parent = FViewport;

		TImage *img = new TImage(this);
	img->Bitmap->Assign(ControlRoot->MakeScreenshot());
	img->Parent = FContainer;
	img->Align = TAlignLayout::Client;
	img->Margins = ControlRoot->Margins;

	ControlRoot->Visible = false;
}
void __fastcall TForm5::Button1Click(TObject *Sender)
{
	((TButton *)Sender)->Enabled = false;
	SwitchTo3D();
	if (FContainer != NULL)
	{
		TAnimator::AnimateFloat(FContainer, "Position.Z", 500, 1);
		TAnimator::AnimateFloatDelay(FContainer, "Position.Z", 0, 1, 1);
		TAnimator::AnimateFloatWait(FContainer, "RotationAngle.X", 360, 2 , TAnimationType::InOut, TInterpolationType::Back);
	}
	SwitchTo2D();
	((TButton *)Sender)->Enabled = true;

Заранее спасибо)

Скриншот прилагаю.

Можно ли это как-то побороть?

Спасибо.

Прикрепил тестовый проект.

Example.zip