Совместное создание игры (2)

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
const half_size = Screen->Height < Screen->Width ? Screen->Height / 4 : Screen->Width / 4,
      shift = 1, shift_per_second = 50, coef = 1, coef2 = 1, count = 720, color_count = 17;
int half_width, half_height, dir = 1, coef3 = random(1000) + 1;
TPoint pt[count];
TColor colors[color_count] = {clMaroon, clGreen, clOlive, clNavy, clPurple, clTeal, clGray, clSilver, clRed, clLime,
                              clYellow, clBlue, clFuchsia, clAqua, clWhite, clMoneyGreen, clSkyBlue},
       color = colors[random(color_count)];
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
  Color = clBlack;
 
  half_width = Screen->Width / 2, half_height = Screen->Height / 2;
  Timer->Interval = 1000 / shift_per_second;
  Canvas->Brush->Color = clGreen;
  randomize();
  mciSendString(L"open music.mid alias song", NULL, 0, 0);
  mciSendString(L"play song", NULL, 0, 0);  // repeat works with mp3, not mid
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{
  if (Key == VK_ESCAPE)
    Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
  Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TimerTimer(TObject *Sender)
{
  Tag += dir;
 
  if (Tag == coef * half_size / shift)
  {
    color = colors[random(color_count)];
    dir = -1;
  }
  if (Tag == - coef * half_size / shift)
  {
    color = colors[random(color_count)];
    dir = 1;
  }
  if (Tag == 0)
  {
    color = colors[random(color_count)];
    coef3 = random(951) + 50;
  }
 
  Refresh();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormPaint(TObject *Sender)
{
  unsigned i;
 
  for (i = 0; i < 1000; i++)
  {
    Canvas->Pixels[random(ClientWidth + 1)]
                  [random(ClientHeight + 1)]
                  = TColor(RGB(random(256), random(256), random(256)));
  }
 
  for (i = 0; i < count; i++)
  {
    double angle = 2 * M_PI / count * i, angle2 = 2 * M_PI / count * i * coef3;
    pt[i] = TPoint(half_width + half_size * cos(angle) + Tag * coef2 * cos(angle2),
                   half_height + half_size * sin(angle) + Tag * coef2 * sin(angle2));
 
//  Canvas->Brush->Color = clWhite;
//  Canvas->TextOutW(10, 10, "coef:  " + String(coef3));
//  Canvas->TextOutW(10, 30, "angle: " + String((int)angle2));
//  Canvas->TextOutW(10, 50, "color: " + ColorToString(color).SubString(3, 10).UpperCase());
  }
 
//  color = 85;
//  Canvas->Brush->Color = TColor(RGB(random(color) + color, (Tag + 2 * half_size / shift) % 256, random(color) + color));
  Canvas->Brush->Color = color;
  Canvas->Polygon(pt, count - 1);
}

    ///------------------------------------------------------------------------|
    /// ManegerCutterImage.
    /// Сюда теперь можно сложить весь набор тествых картинок.
    ///----------------------------------------------------- ManegerCutterImage:
    struct  ManegerCutterImage : std::vector<CutterImage*>
    {       ManegerCutterImage(std::string_view dir = "./img/")
                :   filesCargo(dir)
            {
                const auto& cargo = filesCargo.get(".jpg");
 
                reserve(cargo.size());
 
                for(const auto&  filename : cargo)
                {   alloc.emplace_back (CutterImage(filename.string()));
                    push_back(&alloc.back());
                }
            }
 
        CutterImage& getNext()
        {   auto i = cnt; cnt = myl::geti(i, size()); return *((*this)[i]);
        }
 
    private:
        std::list<CutterImage> alloc;
        FilesCargo        filesCargo;
 
        unsigned cnt{};
 
        TEST
        {
            ManegerCutterImage manegerCutterImage;
                            ln(manegerCutterImage.filesCargo.debug())
        }
    };

                        case sf::Keyboard::Scancode::N:
                        {
                            pVImg[2] = getDrawImage(ptrDrawImage);
                            pImg     = pVImg[2];
                            break;
                        }