Опишите, пожалуйста, функции

// основная функция поворота bmp-изображения
void RotateBmpImage(TImage *ImageSource, TImage *ImageDestination, int angle, bool clockwise, TColor ImageDestBackgroundColor)
{
  // если картинка формата bmp
  if (ImageSource->Picture->Graphic->ToString() == "TBitmap")
  {
  // очищаем ImageDestination
  ImageDestination->Canvas->FillRect(ImageDestination->Canvas->ClipRect);
 
  // a - угол в градусах, используется angle;
  // b - угол (его величина задана ниже) наклона отрезка (к оси оХ),
  // проходящего через точки, которые делят высоту и ширину исходной картинки пополам
  double a = angle / 180. * M_PI, b;
 
  // изменяем размеры ImageDestination под габариты повернутого изображения
  ImageDestination->Width = ImageSource->Width * fabs(cos(a)) + ImageSource->Height * fabs(cos(M_PI/2-a));
  ImageDestination->Height = ImageSource->Width * fabs(sin(a)) + ImageSource->Height * fabs(sin(M_PI/2-a));
 
  // значения полуширины и полувысоты изображений (исходного и итогового)
  // расшифровка имен
  // первая буква: h - half; вторая: w - width, h - height;
  // третья буква: d - dest (целевая картинка), s - source (исходная)
  int hwd = ImageDestination->Width/2, hhd = ImageDestination->Height/2,
      hws = ImageSource->Width/2, hhs = ImageSource->Height/2,
  // r - радиус окружности, описанной вокруг (около) прямоугольника, который
  // образует ImageSource
      r = sqrt(hws * hws + hhs * hhs);
 
  // про b написано выше
  // важный момент: использование арктангенса atan2 для расчета I, J
  b = atan2(1. * hhs, hws);
 
  // заливка ImageDestination
  ImageDestination->Canvas->Brush->Color = ImageDestBackgroundColor;
  ImageDestination->Canvas->FloodFill(1, 1, clBlack, fsBorder);
 
  // направление поворота (по или против часовой стрелке)
  int dir = clockwise ? -1 : 1;
  double cos_a = cos(a), sin_a = sin(a), cos_b = cos(b), sin_b = sin(b);
 
  // в цикле пробегаем по всем точкам ImageDest
  // смещения hwd и hhd нужны для того, чтобы "правильно"
  // рисовать исходную картинку в ImageDest -
  // полностью [целиком] (кроме частей за границами Image)
  // и сдвинутую левым верхним углом к центру ImageDest
  for (int i = 0-hwd; i < ImageDestination->Width-hwd; i++)
    for (int j = 0-hhd; j < ImageDestination->Height-hhd; j++)
    {
      // I и J - координаты точек исходной картинки
      // правая часть формул (до r) нужна для поворота
      // картинки вокруг начальной точки (левый верхний угол)
      // слагаемые r*... нужны для того, чтобы вращение происходило
      // вокруг центра изображения
      int I =       i * cos_a - dir * j * sin_a + r * cos_b;
      int J = dir * i * sin_a +       j * cos_a + r * sin_b;
 
      // проверяем, не выходят ли точки за границы исходной картинки
      if (I < 2*hws  && I >= 0 && J < 2*hhs && J >= 0)
        // рисуем итоговое изображение
        ImageDestination->Canvas->Pixels[i+hwd][j+hhd] = ImageSource->Canvas->Pixels[I][J];
    }
  }
  else
    MessageBox(Application->Handle, L"Изображение должно быть в формате bmp.", L"Ошибка", 0);
}

  // сдвигаем (центрируем)
  bool MoveToCenter = CBMoveToCenter->Checked;
  Shape->Left = 430 + MoveToCenter * (500 - Shape->Width) / 2;
  ImageDest->Left = Shape->Left + 1;
  Shape->Top = 25 + MoveToCenter * (400 - Shape->Height) / 2;
  ImageDest->Top = Shape->Top + 1;