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

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonClick(TObject *Sender)
{
//  PaintBox->Canvas->FillRect(PaintBox->Canvas->ClipRect);
  Refresh();
 
  struct Complex // Обьявляем структрура для хранения комплексных чисел
  {
    long double real; // Действительная часть
    long double image; // Мнимая часть
  };
 
  const int iteration = 500; // Обьявляем и инициализируем константу, которая хранит количество итераций
  const int max = 32; // Обьявляем и инициализируем константу, которая хранит максимальное значение,
  // Которое не должно превосходить сумма квадратов действительной и мнимой части комплексного числа
 
  Complex zComplex; // Обьявляем обьекты структуры Complex
  Complex tempComplex; // Которые будут хранить
  Complex cComplex; // Комплексные числа
 
  int valueX; // Координаты по Ох
  int valueY; // Координаты по Оу
  int counter; // Счетчик
 
  int lengthX; // Длина поля по Ох
  int lengthY; // Длина поля по Оу
 
  TColor color; // Цвета для закрашивания пикселей
  TColor secondColor; // Для RGB формата
  TColor thirdColor;
 
  lengthX = PaintBox->Width / 2; // Считываем половину длины поля по Ох
  lengthY = PaintBox->Height / 2; // Считываем половину длины поля по Оу
 
  srand(time(0));
  int i = 6, j = 9, k = 11;
  i = rand() % (i + 1), j = rand() % (j + 1), k = rand() % (k + 1);
  double step = 1. / pow(10, random(4) + 3) * (random(9) + 1);
  Caption = "Фрактал: шаг = " + String(step) + "; ширина = " + String(PaintBox->Width) + ", высота = " + String(PaintBox->Height);
  Caption = Caption + "; цвет (на основе RGB) = " + String(i) + ", " + String(j) + ", " + String(k);
 
  for (valueY = -lengthY; valueY < lengthY; valueY++)
    for (valueX = -lengthX; valueX < lengthX; valueX++)
    {
      counter = 0; // Обнуляем счетчик
      zComplex.real = valueX * step; // Инициализируем действительную
      zComplex.image = valueY * step; // И мнимую часть комплексного числа
      cComplex.real = -0.56267837374; // Инициализируем действительную и
      cComplex.image = 0.65679461735; // Мнимую часть комплексного числа
 
//    cComplex.real = -0.743643900055;
//    cComplex.image = 0.131825890901;
//    cComplex.real = -0.70176;
//    cComplex.image = -0.3842;
 
      // Считаем фрактал Жулиа пока сумма квадратов действительной и мнимой части
      // Комплексного числа меньше констанкты max и пока значение счетчика
      // counter меньше чем число итераций
      while (std::pow(zComplex.real, 2) + std::pow(zComplex.image, 2) < max && counter < iteration)
      {
        tempComplex = zComplex; // Копируем комплексное число во временную структуру
        // Считаем новые значения действительной части комплексного числа
        zComplex.real = std::pow(tempComplex.real, 2) - std::pow(tempComplex.image, 2) + cComplex.real;
        // Считаем новые значения мнимой части комплексного числа
        zComplex.image = 2 * tempComplex.real * tempComplex.image + cComplex.image;
        counter++; // Инкрементируем значение счетчика
      }
 
      // Если значение счетчика меньше, чем число итераций
      if (counter < iteration)
      {
        color = TColor(counter * i % 255); // Определяем первый цвет
        secondColor = TColor(counter * j % 255); // Определяем второй цвет
        thirdColor = TColor(counter * k % 255); // Определяем третий цвет
        // Заполняем пиксель сформируемым цветом
        PaintBox->Canvas->Pixels[lengthX + valueX * (1 + 0 * cos(M_PI/2))]
                                [lengthY + valueY * (1 + 0 * sin(M_PI/2))] =
                                TColor(RGB(color, secondColor, thirdColor));
      }
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N1Click(TObject *Sender)
{
  String dir = ExtractFilePath(ParamStr(0));
  SetCurrentDir(dir);
  SavePictureDialog->InitialDir = dir;
  SavePictureDialog->FileName = SecondsBetween(Now(), 0);
  if (SavePictureDialog->Execute())
  {
    Graphics::TBitmap *bitmap = new Graphics::TBitmap;
    int w = PaintBox->Width, h = PaintBox->Height;
    bitmap->Width = w;
    bitmap->Height = h;
    bitmap->Canvas->CopyRect(Rect(0, 0, w, h), PaintBox->Canvas, Rect(0, 0, w, h));
    String filename = SavePictureDialog->FileName, ext = ExtractFileExt(filename);
    bitmap->SaveToFile(filename + (ext == "" ? ".bmp" : ""));
    delete bitmap;
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PaintBoxMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
  N1->Enabled = (PaintBox->Canvas->Pixels[X][Y] != 15790320);  // clBtnFace
}

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonClick(TObject *Sender)
{
  Thread(0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N1Click(TObject *Sender)
{
  String dir = ExtractFilePath(ParamStr(0));
  SetCurrentDir(dir);
  SavePictureDialog->InitialDir = dir;
  SavePictureDialog->FileName = SecondsBetween(Now(), 0);
  if (SavePictureDialog->Execute())
  {
    Graphics::TBitmap *bitmap = new Graphics::TBitmap;
    int w = PaintBox->Width, h = PaintBox->Height;
    bitmap->Width = w;
    bitmap->Height = h;
    bitmap->Canvas->CopyRect(Rect(0, 0, w, h), PaintBox->Canvas, Rect(0, 0, w, h));
    String filename = SavePictureDialog->FileName, ext = ExtractFileExt(filename);
    bitmap->SaveToFile(filename + (ext == "" ? ".bmp" : ""));
    delete bitmap;
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PaintBoxMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
  N1->Enabled = (PaintBox->Canvas->Pixels[X][Y] != 15790320);  // clBtnFace
}

#include <vcl.h>
#pragma hdrstop
 
#include "Unit2.h"
#include "Unit1.h"
#pragma package(smart_init)
 
//---------------------------------------------------------------------------
//   Important: Methods and properties of objects in VCL can only be
//   used in a method called using Synchronize, for example:
//
//      Synchronize(&UpdateCaption);
//
//   where UpdateCaption could look like:
//
//      void __fastcall Thread::UpdateCaption()
//      {
//        Form1->Caption = "Updated in a thread";
//      }
//---------------------------------------------------------------------------
 
__fastcall Thread::Thread(bool CreateSuspended)
    : TThread(CreateSuspended)
{
}
//---------------------------------------------------------------------------
  int valueX; // Координаты по Ох
  int valueY; // Координаты по Оу
  int counter; // Счетчик
 
  int lengthX; // Длина поля по Ох
  int lengthY; // Длина поля по Оу
 
  TColor color; // Цвета для закрашивания пикселей
  TColor secondColor; // Для RGB формата
  TColor thirdColor;
//---------------------------------------------------------------------------
void __fastcall Thread::Execute()
{
  //---- Place thread code here ----
 
  //Form1->PaintBox->Canvas->FillRect(Form1->PaintBox->Canvas->ClipRect);
  Form1->Refresh();
 
  Form1->Button->Enabled = 0;
  Form1->N1->Visible = 0;
 
  struct Complex // Обьявляем структрура для хранения комплексных чисел
  {
    long double real; // Действительная часть
    long double image; // Мнимая часть
  };
 
  const int iteration = 500; // Обьявляем и инициализируем константу, которая хранит количество итераций
  const int max = 32; // Обьявляем и инициализируем константу, которая хранит максимальное значение,
  // Которое не должно превосходить сумма квадратов действительной и мнимой части комплексного числа
 
  Complex zComplex; // Обьявляем обьекты структуры Complex
  Complex tempComplex; // Которые будут хранить
  Complex cComplex; // Комплексные числа
 
 
  lengthX = Form1->PaintBox->Width / 2; // Считываем половину длины поля по Ох
  lengthY = Form1->PaintBox->Height / 2; // Считываем половину длины поля по Оу
 
  srand(time(0));
  int i = 6, j = 9, k = 11;
  i = rand() % (i + 1), j = rand() % (j + 1), k = rand() % (k + 1);
  double step = 1. / pow(10, random(4) + 3) * (random(9) + 1);
  Form1->Caption = "Фрактал: шаг = " + String(step) + "; ширина = " + String(Form1->PaintBox->Width) +
                   ", высота = " + String(Form1->PaintBox->Height);
  Form1->Caption = Form1->Caption + "; цвет (на основе RGB) = " + String(i) + ", " + String(j) + ", " + String(k);
 
  Form1->BorderIcons = TBorderIcons(1);  // biSystemMenu
 
  //Form1->BorderStyle = bsSingle;
  Form1->Constraints->MaxHeight = Form1->Height;
  Form1->Constraints->MaxWidth  = Form1->Width;
  Form1->Constraints->MinHeight = Form1->Height;
  Form1->Constraints->MinWidth  = Form1->Width;
 
  for (valueY = -lengthY; valueY < lengthY; valueY++)
    for (valueX = -lengthX; valueX < lengthX; valueX++)
    {
      counter = 0; // Обнуляем счетчик
      zComplex.real = valueX * step; // Инициализируем действительную
      zComplex.image = valueY * step; // И мнимую часть комплексного числа
      cComplex.real = -0.56267837374; // Инициализируем действительную и
      cComplex.image = 0.65679461735; // Мнимую часть комплексного числа
 
//    cComplex.real = -0.743643900055;
//    cComplex.image = 0.131825890901;
//    cComplex.real = -0.70176;
//    cComplex.image = -0.3842;
 
      // Считаем фрактал Жулиа пока сумма квадратов действительной и мнимой части
      // Комплексного числа меньше констанкты max и пока значение счетчика
      // counter меньше чем число итераций
      while (std::pow(zComplex.real, 2) + std::pow(zComplex.image, 2) < max && counter < iteration)
      {
        tempComplex = zComplex; // Копируем комплексное число во временную структуру
        // Считаем новые значения действительной части комплексного числа
        zComplex.real = std::pow(tempComplex.real, 2) - std::pow(tempComplex.image, 2) + cComplex.real;
        // Считаем новые значения мнимой части комплексного числа
        zComplex.image = 2 * tempComplex.real * tempComplex.image + cComplex.image;
        counter++; // Инкрементируем значение счетчика
      }
 
      // Если значение счетчика меньше, чем число итераций
      if (counter < iteration)
      {
        color = TColor(counter * i % 255); // Определяем первый цвет
        secondColor = TColor(counter * j % 255); // Определяем второй цвет
        thirdColor = TColor(counter * k % 255); // Определяем третий цвет
 
        Synchronize(&Update);  // синхронизация
      }
    }
 
  Form1->BorderIcons = TBorderIcons(7);  // biSystemMenu (1), biMinimize (2), biMaximize (4)
 
  //Form1->BorderStyle = bsSizeable;
  Form1->Constraints->MaxHeight = 0;
  Form1->Constraints->MaxWidth  = 0;
  Form1->Constraints->MinHeight = 550;
  Form1->Constraints->MinWidth  = 650;
 
  Form1->Button->Enabled = 1;
  Form1->N1->Visible = 1;
}
//---------------------------------------------------------------------------
void __fastcall Thread::Update()
{
  // Заполняем пиксель сформируемым цветом
  Form1->PaintBox->Canvas->Pixels[lengthX + valueX][lengthY + valueY] = TColor(RGB(color, secondColor, thirdColor));
}