Рисование bounding box

procedure TZObject.DrawBounds(AParams: Pointer);
const
  F: single = 0.1; //Длина вектора в диапазоне [0..1]

begin
  //Переводим точки в пространство камеры
  MulBounds(FMVP^, FBounds, FBoundsPoints);

  //3 вектора от точки 0
  DrawVectorA(FP0^, VecScaleA(FP0^, FP1^, F), FBoundsColor);
  DrawVectorA(FP0^, VecScaleA(FP0^, FP3^, F), FBoundsColor);
  DrawVectorA(FP0^, VecScaleA(FP0^, FP4^, F), FBoundsColor);

  //3 вектора от точки 1
  DrawVectorA(FP1^, VecScaleA(FP1^, FP0^, F), FBoundsColor);
  DrawVectorA(FP1^, VecScaleA(FP1^, FP2^, F), FBoundsColor);
  DrawVectorA(FP1^, VecScaleA(FP1^, FP5^, F), FBoundsColor);

  //3 вектора от точки 2
  DrawVectorA(FP2^, VecScaleA(FP2^, FP1^, F), FBoundsColor);
  DrawVectorA(FP2^, VecScaleA(FP2^, FP3^, F), FBoundsColor);
  DrawVectorA(FP2^, VecScaleA(FP2^, FP6^, F), FBoundsColor);

  //3 вектора от точки 3
  DrawVectorA(FP3^, VecScaleA(FP3^, FP0^, F), FBoundsColor);
  DrawVectorA(FP3^, VecScaleA(FP3^, FP2^, F), FBoundsColor);
  DrawVectorA(FP3^, VecScaleA(FP3^, FP7^, F), FBoundsColor);

  //3 вектора от точки 4
  DrawVectorA(FP4^, VecScaleA(FP4^, FP0^, F), FBoundsColor);
  DrawVectorA(FP4^, VecScaleA(FP4^, FP5^, F), FBoundsColor);
  DrawVectorA(FP4^, VecScaleA(FP4^, FP7^, F), FBoundsColor);

  //3 вектора от точки 5
  DrawVectorA(FP5^, VecScaleA(FP5^, FP1^, F), FBoundsColor);
  DrawVectorA(FP5^, VecScaleA(FP5^, FP4^, F), FBoundsColor);
  DrawVectorA(FP5^, VecScaleA(FP5^, FP6^, F), FBoundsColor);

  //3 вектора от точки 6
  DrawVectorA(FP6^, VecScaleA(FP6^, FP2^, F), FBoundsColor);
  DrawVectorA(FP6^, VecScaleA(FP6^, FP5^, F), FBoundsColor);
  DrawVectorA(FP6^, VecScaleA(FP6^, FP7^, F), FBoundsColor);

  //3 вектора от точки 7
  DrawVectorA(FP7^, VecScaleA(FP7^, FP3^, F), FBoundsColor);
  DrawVectorA(FP7^, VecScaleA(FP7^, FP4^, F), FBoundsColor);
  DrawVectorA(FP7^, VecScaleA(FP7^, FP6^, F), FBoundsColor);
end;

// Сортировка точек по минимуму и максимуму
// APoints - массив точек объекта (Align 16)
// ABounds - массив из 8-и точек описывающий границы объекта (Align 16)
// AVolume - массив из 2-х TVertex описывающий размеры объекта (Align 16)
// AStride - размер структуры TVertex (обычно 16 байт)
// ACount - кол-во точек в массиве APoints

type
  XMM128D = array[0..3] of DWord;

procedure MeshVolume(APoints, ABounds, AVolume: Pointer; AStride, ACount: QWord);
const
  SingleOne: Single = 1.0;
  SingleHalfOne: Single = 0.5;
  AbsMask128: XMM128D = ($7FFFFFFF, $7FFFFFFF, $7FFFFFFF, $7FFFFFFF);

asm
  mov r11, ACount

  //---------------------------------------------
  // Первая точка вынесена за цикл
  //---------------------------------------------

  movaps xmm0, dqword ptr [APoints]
  movaps xmm1, xmm0

  add APoints, AStride //Смещение к следующей точке
  dec r11

  //---------------------------------------------
  // Цикл
  //---------------------------------------------

 @N:
  movaps xmm2, dqword ptr [APoints]
  minps xmm0, xmm2
  maxps xmm1, xmm2

  add APoints, AStride //Смещение к следующей точке
  dec r11
  jnz @N

  //---------------------------------------------
  // Конец цикла
  //---------------------------------------------

  // minX = xmm0, 0
  // minY = xmm0, 1
  // minZ = xmm0, 2

  // maxX = xmm1, 0
  // maxY = xmm1, 1
  // maxZ = xmm1, 2

  // FBounds^[0] := Vec3(minX^, minY^, minZ^);
  insertps xmm3, xmm0, 00000000b
  insertps xmm3, xmm0, 01010000b
  insertps xmm3, xmm0, 10100000b
  insertps xmm3, xmm3, 11111000b //0.0

  // FBounds^[1] := Vec3(minX^, maxY^, minZ^);
  insertps xmm4, xmm0, 00000000b
  insertps xmm4, xmm1, 01010000b
  insertps xmm4, xmm0, 10100000b
  insertps xmm4, xmm4, 11111000b //0.0

  // FBounds^[2] := Vec3(maxX^, maxY^, minZ^);
  insertps xmm5, xmm1, 00000000b
  insertps xmm5, xmm1, 01010000b
  insertps xmm5, xmm0, 10100000b
  insertps xmm5, xmm5, 11111000b //0.0

  // FBounds^[3] := Vec3(maxX^, minY^, minZ^);
  insertps xmm6, xmm1, 00000000b
  insertps xmm6, xmm0, 01010000b
  insertps xmm6, xmm0, 10100000b
  insertps xmm6, xmm6, 11111000b //0.0

  // FBounds^[4] := Vec3(minX^, minY^, maxZ^);
  insertps xmm7, xmm0, 00000000b
  insertps xmm7, xmm0, 01010000b
  insertps xmm7, xmm1, 10100000b
  insertps xmm7, xmm7, 11111000b //0.0

  // FBounds^[5] := Vec3(minX^, maxY^, maxZ^);
  insertps xmm8, xmm0, 00000000b
  insertps xmm8, xmm1, 01010000b
  insertps xmm8, xmm1, 10100000b
  insertps xmm8, xmm8, 11111000b //0.0

  // FBounds^[6] := Vec3(maxX^, maxY^, maxZ^);
  insertps xmm9, xmm1, 00000000b
  insertps xmm9, xmm1, 01010000b
  insertps xmm9, xmm1, 10100000b
  insertps xmm9, xmm9, 11111000b //0.0

  // FBounds^[7] := Vec3(maxX^, minY^, maxZ^);
  insertps xmm10, xmm1, 00000000b
  insertps xmm10, xmm0, 01010000b
  insertps xmm10, xmm1, 10100000b
  insertps xmm10, xmm10, 11111000b //0.0

  // Заполняем массив ABounds
  movaps dqword ptr [ABounds], xmm3
  movaps dqword ptr [ABounds + 16], xmm4
  movaps dqword ptr [ABounds + 32], xmm5
  movaps dqword ptr [ABounds + 48], xmm6
  movaps dqword ptr [ABounds + 64], xmm7
  movaps dqword ptr [ABounds + 80], xmm8
  movaps dqword ptr [ABounds + 96], xmm9
  movaps dqword ptr [ABounds + 112], xmm10

  movups xmm0, [AbsMask128]
  movss xmm1, [SingleOne]
  movss xmm2, [SingleHalfOne]

  // FVolume.Size := VecAbs(FBounds^[6] - FBounds^[0]);
  subps xmm9, xmm3
  andps xmm9, xmm0

  // FVolume.Center := FBounds^[0] + (FVolume.Size * 0.5);
  shufps xmm2, xmm2, 00b
  movaps xmm0, xmm9 //Копия Volume.Size
  mulps xmm0, xmm2
  addps xmm0, xmm3

  insertps xmm0, xmm1, 00110000b //W = 1.0

  movaps dqword ptr [AVolume], xmm9
  movaps dqword ptr [AVolume + 16], xmm0
end;