2D движок SR2D. Софтверный движок для работы с 2D графикой на VB6, vb.net, C#. (41 стр)

procedure BlendPixelMMX(dA: QWord; AColor: TColor32; Alpha, Opacity: byte);
const
  ShufMask: QWord = $0100010001000100;

asm
  .NOFRAME

  pxor mm0, mm0 //<- APixel
  pxor mm1, mm1 //<- AColor
  movq mm2, ShufMask //Формирование маски умножения

  punpcklbw mm0, [dA] //Преобразуем байты в слова
  psrld mm0, 8 //Преобразование старших бит в младшие

  movd mm5, AColor
  punpcklbw mm1, mm5 //Преобразуем байты в слова
  psrld mm1, 8 //Преобразование старших бит в младшие

  movzx eax, Alpha //Вычислим прозрачность альфа-канала
  inc eax //Прибавим единицу, чтобы корректно разделить на 256
  movzx r8d, Opacity //Компонента прозрачности
  mul eax, r8d //Умножаем
  shr ax, 8 //Делим на 256
  mov dx, ax
  xor dx, $FF //<- ADif - величина цвета обратная альфе

  inc edx //Прибавим единицу, чтобы корректно разделить на 256
  movd mm3, edx
  pshufb mm3, mm2 //<- mm3: формируем маску разницы ADif

  inc eax //Прибавим единицу, чтобы корректно разделить на 256
  movd mm4, eax
  pshufb mm4, mm2 //<- mm2: формируем 64-битную альфа-маску

  pmullw mm1, mm4 // AColor * Alpha = lpBR, lpBG, lpBB
  pmullw mm0, mm3 // APixel * ADif
  paddusw mm0, mm1 //APixel + AColor
  psrlw mm0, 8 //(APixel + AColor) div 256

  packuswb mm0, mm0 //Транслируем слова в байты
  movd [dA], mm0
end;

procedure BlendPixelXMM(dA: QWord; AColor: TColor32; Alpha, Opacity: byte);
const
  PExtractAlpha: UInt128 = ($0100010001000100, $0100010001000100); //Для формирования маски умножения Alpha и ADif
  PExtractColor: UInt128 = ($0F0F0F020F010F00, $0F0F0F0F0F0F0F0F); //Формирование маски цвета
  PExtractPixel: UInt128 = ($0F0F0F020F010F00, $0F0F0F060F050F04); //Формирование маски исходного пиксела
  PInvMask: UInt128 = ($00000000000000FF, $0000000000000000); //Маска инверсии

asm
  .NOFRAME

  movd xmm1, AColor //Цвет наложения
  movdqu xmm2, PExtractColor //Формирование маски цвета
  pshufb xmm1, xmm2 //Разложим байты в слова

  movzx eax, Alpha //Вычислим прозрачность альфа-канала
  inc eax //Прибавим единицу, чтобы корректно разделить на 256
  movd xmm4, eax
  movzx r8d, Opacity //Компонента прозрачности
  movd xmm3, r8d

  mov eax, 1
  movd xmm6, eax //Единица для коррекции

  pmullw xmm4, xmm3 //<- xmm4 - Alpha
  psrlw xmm4, 8 //Делим на 256
  movdqu xmm3, xmm4
  movdqu xmm5, PInvMask
  pxor xmm3, xmm5  //PDifMask //<- xmm3 - AlphaDif - величина обратная альфе

  paddusw xmm3, xmm6 //Добавим единицу
  paddusw xmm4, xmm6 //Добавим единицу

  movdqu xmm2, PExtractAlpha //Формирование маски умножения

  pshufb xmm3, xmm2 //<- mm3: формируем маску разницы AlphaDif
  pshufb xmm4, xmm2 //<- mm2: формируем 64-битную альфа-маску
  pmullw xmm1, xmm4 // AColor * Alpha = BR, BG, BB

  movdqu xmm2, PExtractPixel //Формирование маски извлечения пикселов

  movd xmm0, [dA] //Читаем 32 бит, т.е. 1 пиксел
  pshufb xmm0, xmm2 //Транслируем пиксел в слова
  pmullw xmm0, xmm3 // APixel * ADif
  paddusw xmm0, xmm1 //APixel + AColor
  psrlw xmm0, 8 //Делим на 256
  packuswb xmm0, xmm0 //Транслируем слова в байты
  movd [dA], xmm0  //Пишем обратно
end;