Модифицировать код программы, вращающий геометрические объекты

@BReDD · Регистрация: 17.11.2015

Author24 — интернет-сервис помощи студентам

Доброго времени суток!
Есть следующий код написанный в BorlandC

C++

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <math.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
struct figure {
 int x0, y0, R;
 int x[32], y[32];
};
int xx, yy, Xdrag, Ydrag, F, Xcur,Ycur;
double Rx, Ry;
figure s,sDefault;
double M[32][3], M1[32][3];   //initial matrix
double T[3][3]; //matrix of transformation
 
 
void drawfig(TImage *Image1){
//---------------------background-------------------------
Image1->Canvas->Pen->Color=clWhite;
 Image1->Canvas->MoveTo(0, Image1->Height);
 for (int j=0; j<Image1->Height; j++)
 {
   Image1->Canvas->MoveTo(0, j);
   Image1->Canvas->LineTo(Image1->Width, j);
 
 }
 Image1->Canvas->Pen->Color = clRed;
 Image1->Canvas->MoveTo(Image1->Width/2, 0);
 Image1->Canvas->LineTo(Image1->Width/2, Image1->Height);
 Image1->Canvas->MoveTo(0, Image1->Height/2);
 Image1->Canvas->LineTo(Image1->Width, Image1->Height/2);
 Image1->Canvas->Pen->Color = clBlack;
//--------------matr->coord---------------
  for (int n = 0; n<32; n++){
    s.x[n] = M1[n][0] + Image1->Width/2;
    s.y[n] = M1[n][1] + Image1->Height/2;
  }
 
 Image1->Canvas->MoveTo(s.x[0],s.y[0]);
 for (int h = 1; h< 20;h++)
   Image1->Canvas->LineTo(s.x[h],s.y[h]);
 Image1->Canvas->LineTo(s.x[0], s.y[0]);
 
  //-------------------------------drawing----------------------
 
  Image1->Canvas->MoveTo(s.x[20],s.y[20]);
  for (int j = 20; j<26; j++){
   Image1->Canvas->LineTo(s.x[j+6],s.y[j+6]);
   if (j<25)
   Image1->Canvas->LineTo(s.x[j+1],s.y[j+1]);
  }
  Image1->Canvas->LineTo(s.x[20],s.y[20]);
}
 
//----------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Edit1->Focused();
s.x0 = Image1->Width/2;
s.y0 = Image1->Height/2;
s.R = 100;
xx = 0;
yy = 0;
Xcur = Image1->Width/2;
Ycur = Image1->Height/2;
//---------------------- circle------------------
  int i = 0;
  double m = 0;
  double md = M_PI/10;
  while (m < 2* M_PI-M_PI/12){
   s.x[i] = s.x0 + s.R*cos(m);
   s.y[i] = s.y0 + s.R*sin(m);
   m += md;
   i++;
 }
//----------------------------- rschet coordinat-----------------
 
  int n = 30;
  while (n < 390){
  double n1 = (double)n*M_PI/180;
    s.x[i] = s.x0 + s.R*cos(n1);
    s.y[i] = s.y0 + s.R*sin(n1);
    n = n+60;
    i++;
  }
   n = 60;
  while( n < 420){
  double n1 = (double)n*M_PI/180;
  double r = sqrt(s.R*s.R*3/4);
    s.x[i] = s.x0 + 2*r*cos(n1);
    s.y[i] = s.y0 + 2*r*sin(n1);
    n = n+60;
    i++;
  }
  for (int j = 0;j<32;j++){      //save default position
    sDefault.x[j] = s.x[j];
   sDefault.y[j] = s.y[j];
  }
  sDefault.R = s.R;
  sDefault.x0 = s.x0;
  sDefault.y0 = s.y0;
//-----------------------create of initial matr-------------------
  for (int i = 0; i<32; i++){
    M[i][0] = s.x[i] - Image1->Width/2;
    M[i][1] = s.y[i] - Image1->Height/2;
    M[i][2] = 1;
    M1[i][0] = s.x[i] - Image1->Width/2;
    M1[i][1] = s.y[i] - Image1->Height/2;
    M1[i][2] = 1;
  }
//----------------------------------------------------------------
 
 drawfig(Image1);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
int Xdrag, Ydrag;
Xdrag =StrToIntDef(Edit1->Text,0);
Ydrag =StrToIntDef(Edit2->Text,0);
//create trasformation matr
T[0][0] = 1;
T[0][1] = 0;
T[0][2] = 0;
T[1][0] = 0;
T[1][1] = 1;
T[1][2] = 0;
T[2][0] = Xdrag;
T[2][1] = Ydrag;
T[2][2] = 1;
//multiply
for (int i = 0; i<32; i++)
  for (int j = 0; j<3; j++){
    M1[i][j] = 0;
    for (int k = 0; k < 3; k++)
     M1[i][j] += ((M[i][k])*T[k][j]);
  }
for (int i = 0; i<32;i++){
  M[i][0] = M1[i][0];
  M[i][1] = M1[i][1];
  M[i][2] = M1[i][2];
}
xx+=Xdrag;
yy+=Ydrag;
drawfig(Image1);
 
}
 
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button4Click(TObject *Sender)
{
F  = StrToIntDef(Edit3->Text, 0);
int m = Xcur-Image1->Width/2;
int n = Ycur-Image1->Height/2;
 
double Ff = F*M_PI/180;
    T[0][0] = cos(Ff);
    T[0][1] = sin(Ff);
    T[0][2] = 0;
    T[1][0] = -sin(Ff);
    T[1][1] = cos(Ff);
    T[1][2] = 0;
    T[2][0] = -m*(cos(Ff)-1) + n*(sin(Ff));
    T[2][1] = -m*sin(Ff) - n*(cos(Ff)-1);
    T[2][2] = 1;
//multiply
for (int i = 0; i<32; i++)
  for (int j = 0; j<3; j++){
    M1[i][j] = 0;
    for (int k = 0; k < 3; k++)
     M1[i][j] += (M[i][k]*T[k][j]);
  }
for (int i = 0; i<32;i++){
  M[i][0] = M1[i][0];
  M[i][1] = M1[i][1];
  M[i][2] = M1[i][2];
}
drawfig (Image1);
 
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 
  if (CheckBox1->Checked){
    T[0][0] = 1;
    T[0][1] = 0;
    T[0][2] = 0;
    T[1][0] = 0;
    T[1][1] = -1;
    T[1][2] = 0;
    T[2][0] = 0;
    T[2][1] = 0;
    T[2][2] = 1;
    //multiply
for (int i = 0; i<32; i++)
  for (int j = 0; j<3; j++){
    M1[i][j] = 0;
    for (int k = 0; k < 3; k++)
     M1[i][j] += ((M[i][k])*T[k][j]);
  }
for (int i = 0; i<32;i++){
  M[i][0] = M1[i][0];
  M[i][1] = M1[i][1];
  M[i][2] = M1[i][2];
}
drawfig(Image1);
  }
  if (CheckBox2->Checked){
    T[0][0] = -1;
    T[0][1] = 0;
    T[0][2] = 0;
    T[1][0] = 0;
    T[1][1] = 1;
    T[1][2] = 0;
    T[2][0] = 0;
    T[2][1] = 0;
    T[2][2] = 1;
    //multiply
for (int i = 0; i<32; i++)
  for (int j = 0; j<3; j++){
    M1[i][j] = 0;
    for (int k = 0; k < 3; k++)
     M1[i][j] += ((M[i][k])*T[k][j]);
  }
for (int i = 0; i<32;i++){
  M[i][0] = M1[i][0];
  M[i][1] = M1[i][1];
  M[i][2] = M1[i][2];
}
drawfig(Image1);
  }
   if (CheckBox2->Checked && CheckBox1->Checked){
    T[0][0] = 0;
    T[0][1] = 1;
    T[0][2] = 0;
    T[1][0] = 1;
    T[1][1] = 0;
    T[1][2] = 0;
    T[2][0] = 0;
    T[2][1] = 0;
    T[2][2] = 1;
    //multiply
for (int i = 0; i<32; i++)
  for (int j = 0; j<3; j++){
    M1[i][j] = 0;
    for (int k = 0; k < 3; k++)
     M1[i][j] += ((M[i][k])*T[k][j]);
  }
for (int i = 0; i<32;i++){
  M[i][0] = M1[i][0];
  M[i][1] = M1[i][1];
  M[i][2] = M1[i][2];
}
drawfig(Image1);
  }
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
 
Rx = StrToFloatDef(Edit4->Text,1);
Ry = StrToFloatDef(Edit5->Text,1);
    T[0][0] = Rx;
    T[0][1] = 0;
    T[0][2] = 0;
    T[1][0] = 0;
    T[1][1] = Ry;
    T[1][2] = 0;
    T[2][0] = 0;
    T[2][1] = 0;
    T[2][2] = 1;
    //multiply
for (int i = 0; i<32; i++)
  for (int j = 0; j<3; j++){
    M1[i][j] = 0;
    for (int k = 0; k < 3; k++)
     M1[i][j] += ((M[i][k])*T[k][j]);
  }
for (int i = 0; i<32;i++){
  M[i][0] = M1[i][0];
  M[i][1] = M1[i][1];
  M[i][2] = M1[i][2];
}
drawfig (Image1);
xx*=Rx;
yy*=Ry;
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
Image1->Canvas->Pen->Color = clWhite;
Image1->Canvas->Ellipse(Xcur+3,Ycur+3,Xcur-3,Ycur-3); //delete previous points
Xcur = X;
Ycur = Y;
Image1->Canvas->Pen->Color = clBlack;
Image1->Canvas->Ellipse(X+3,Y+3,X-3,Y-3);            //make new points
 
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
for (int i = 0; i<32; i++){
  M[i][0] = M1[i][0] = sDefault.x[i]-Image1->Width/2;
  M[i][1] = M1[i][1] = sDefault.y[i]-Image1->Height/2;
  M[i][2] = M1[i][2] = 1;
}
 
drawfig(Image1);
s.x0 = Image1->Width/2;
s.y0 = Image1->Height/2;
 
}//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if (Key == VK_LEFT) {
Edit1->Text = -10;
Edit2->Text = 0;
Button1Click(this);
}
if (Key == VK_RIGHT) {
Edit1->Text = 10;
Edit2->Text = 0;
 Button1Click(this);
}
if (Key == VK_UP) {
Edit1->Text = 0;
Edit2->Text = -10;
  Button1Click(this);
}
if (Key == VK_DOWN) {
Edit1->Text = 0;
Edit2->Text = 10;
  Button1Click(this);
}
 
}
//---------------------------------------------------------------------------

Модифицировать код программы, вращающий геометрические объекты

Данный код выводит вот такую фигуру и позволяет проводить с ней различные манипуляции (вращение, перемещение и т.д.). Помогите пожалуйста модифицировать саму фигуру, надо просто круг и две линии в нем, типа снайперский прицел.

@BReDD · 06.05.2016, 10:58 **[ТС]**

Есть еще один код, который необходимо поправить.

C++

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <math.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
bool rot;
int type = 0;
double M[8][4], M1[8][4];                //modified matrix
double T[4][4], centr[2];
double L = 100, H = 150, W = 100, p, q;
  double Mdef[8][4] = {0,0,W,1,         // A
                       0,-H,W,1,         // B
                       L,-H,W,1,         // C
                       L,0,W,1,         // D
                       0,0,0,1,         // A1
                       0,-H,0,1,         // B1
                       L,-H,0,1,         // C1
                       L,0,0,1};        // D1
 
//---------------------------------------------------------------------------
void multiply()
{
  for (int i = 0; i<8; i++)
    for (int j = 0; j<4; j++){
      M[i][j] = 0;
      for (int k = 0; k < 4; k++)
       M[i][j] += ((M1[i][k])*T[k][j]);
    }
  for (int i = 0; i<8; i++)
    for (int j = 0; j<4;j++)
      M1[i][j] = M[i][j];
}
//----------------------------------------------------------------------------
void background(TImage *Image1)
{
  Image1->Canvas->Pen->Width = 1;
  Image1->Canvas->Pen->Color=clWhite;
  Image1->Canvas->MoveTo(0, Image1->Height);
  for (int j=0; j<Image1->Height; j++)
  {
    Image1->Canvas->MoveTo(0, j);
    Image1->Canvas->LineTo(Image1->Width, j);
  }
  Image1->Canvas->Pen->Color = clRed;
  Image1->Canvas->MoveTo(Image1->Width/2, 0);
  Image1->Canvas->LineTo(Image1->Width/2, Image1->Height);
  Image1->Canvas->MoveTo(0, Image1->Height/2);
  Image1->Canvas->LineTo(Image1->Width, Image1->Height/2);
  Image1->Canvas->Pen->Color = clBlack;
  if(type == 1)
  {
    Image1->Canvas->MoveTo(centr[0],centr[1]);
    Image1->Canvas->Pen->Color = clRed;
    Image1->Canvas->LineTo(Image1->Width/2 - centr[1], Image1->Height);
  }
 
}
 
void drawfig(TImage *Image1)
{
  background(Image1);
  Image1->Canvas->Pen->Color = clBlack;
  Image1->Canvas->Pen->Width = 3;
  for (int i = 0; i<8; i++){
    M[i][0]+= centr[0];
    M[i][1]+= centr[1];
  }
 
  Image1->Canvas->MoveTo(M[0][0],M[0][1]);
  for (int i = 1; i<4; i++)
    Image1->Canvas->LineTo(M[i][0],M[i][1]);
  Image1->Canvas->LineTo(M[0][0],M[0][1]);
 
  Image1->Canvas->MoveTo(M[4][0],M[4][1]);
  for (int i = 5; i<8; i++)
    Image1->Canvas->LineTo(M[i][0],M[i][1]);
  Image1->Canvas->LineTo(M[4][0],M[4][1]);
 
  for (int i = 0; i<4; i++){
    Image1->Canvas->MoveTo(M[i][0],M[i][1]);
    Image1->Canvas->LineTo(M[i+4][0],M[i+4][1]);
  }
}
//------------------2point proection-------------------------
void proection()
{
double r = 0.005;
double t = -45*M_PI/180;
if (type == 0){
   T[0][0] = 1;  T[0][1] = 0;  T[0][2] = 0;  T[0][3] = 0;
   T[1][0] = 0;  T[1][1] = 1;  T[1][2] = 0;  T[1][3] = 0;
   T[2][0] = 0;  T[2][1] = 0;  T[2][2] = 0;  T[2][3] = 0;
   T[3][0] = 0;  T[3][1] = 0;  T[3][2] = 0;  T[3][3] = 1;
 }
 if (type == 1){
   T[0][0] = 1;  T[0][1] = 0;  T[0][2] = 0;  T[0][3] = 0;
   T[1][0] = 0;  T[1][1] = 1;  T[1][2] = 0;  T[1][3] = 0;
   T[2][0] = 0.3*cos(t);  T[2][1] = 0.3*sin(t);  T[2][2] = 0;  T[2][3] = 0;
   T[3][0] = 0;  T[3][1] = 0;  T[3][2] = 0;  T[3][3] = 1;
 }
 if (type == 2){
   T[0][0] = 1;  T[0][1] = 0;  T[0][2] = 0;  T[0][3] = 0;
   T[1][0] = 0;  T[1][1] = 1;  T[1][2] = 0;  T[1][3] = 0;
   T[2][0] = 0;  T[2][1] = 0;  T[2][2] = 0;  T[2][3] = r;
   T[3][0] = 0;  T[3][1] = 0;  T[3][2] = 0;  T[3][3] = 1;
 }
   for (int i = 0; i<8; i++)
    for (int j = 0; j<4; j++){
      M[i][j] = 0;
      for (int k = 0; k < 4; k++)
       M[i][j] += ((M1[i][k])*T[k][j]);
    }
   for (int i = 0; i<8; i++){
     for (int j = 0; j<2; j++){
       M[i][j] = M[i][j]/M[i][3];
     }
     M[i][2] = 0;
     M[i][3] = 1;
   }
}
 
 
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  background(Image1);
  centr[0] = Image1->Width/2;
  centr[1] = Image1->Height/2;
  for (int i = 0; i<8; i++)
  {
    Mdef[i][0] = Mdef[i][0]-L/2;
    Mdef[i][1] = Mdef[i][1]+H/2;
  }
 
  for (int i = 0; i<8; i++)
    for (int j = 0; j<4; j++){
      M[i][j] = Mdef[i][j];
      M1[i][j] = Mdef[i][j];
    }
  drawfig(Image1);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonDefaultClick(TObject *Sender)
{
  for (int i = 0; i<8; i++)
    for (int j = 0; j<4; j++){
      M[i][j] = Mdef[i][j];
      M1[i][j] = Mdef[i][j];
    }
 
  drawfig(Image1);
   type = 0;
  RadioButton7->Checked = true;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ButtonRotateClick(TObject *Sender)
{
 p = -StrToFloatDef(Edit4->Text,1)*M_PI/180;
 if (RadioButton1->Checked)
 {
   T[0][0] = 1; T[0][1] = 0;       T[0][2] = 0;       T[0][3] = 0;
   T[1][0] = 0; T[1][1] = cos(p);  T[1][2] = sin(p);  T[1][3] = 0;
   T[2][0] = 0; T[2][1] = -sin(p); T[2][2] = cos(p);  T[2][3] = 0;
   T[3][0] = 0; T[3][1] = 0;       T[3][2] = 0;       T[3][3] = 1;
 }
 if (RadioButton2->Checked)
 {
   T[0][0] = cos(p); T[0][1] = 0; T[0][2] = -sin(p); T[0][3] = 0;
   T[1][0] = 0;      T[1][1] = 1; T[1][2] = 0;       T[1][3] = 0;
   T[2][0] = sin(p); T[2][1] = 0; T[2][2] = cos(p);  T[2][3] = 0;
   T[3][0] = 0;      T[3][1] = 0; T[3][2] = 0;       T[3][3] = 1;
 }
 if (RadioButton3->Checked)
 {
   T[0][0] = cos(p);  T[0][1] = sin(p); T[0][2] = 0;       T[0][3] = 0;
   T[1][0] = -sin(p); T[1][1] = cos(p); T[1][2] = 0;       T[1][3] = 0;
   T[2][0] = 0;       T[2][1] = 0;      T[2][2] = cos(p);  T[2][3] = 0;
   T[3][0] = 0;       T[3][1] = 0;      T[3][2] = 0;       T[3][3] = 1;
 }
  multiply();
  proection();
  drawfig(Image1);
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::ButtonScaleClick(TObject *Sender)
{
   double Sx,Sy,Sz;
   Sx = StrToFloatDef(Edit1->Text,1);
   Sy = StrToFloatDef(Edit2->Text,1);
   Sz = StrToFloatDef(Edit3->Text,1);
   T[0][0] = Sx;  T[0][1] = 0;  T[0][2] = 0;  T[0][3] = 0;
   T[1][0] = 0;   T[1][1] = Sy; T[1][2] = 0;  T[1][3] = 0;
   T[2][0] = 0;   T[2][1] = 0;  T[2][2] = Sz; T[2][3] = 0;
   T[3][0] = 0;   T[3][1] = 0;  T[3][2] = 0;  T[3][3] = 1;
 
  multiply();
  proection();
  drawfig(Image1);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ButtonMoveClick(TObject *Sender)
{
 double Mx,My,Mz;
   Mx = StrToFloatDef(Edit5->Text,0);
   My = -StrToFloatDef(Edit6->Text,0);
   Mz = StrToFloatDef(Edit7->Text,0);
   T[0][0] = 1;   T[0][1] = 0;  T[0][2] = 0;  T[0][3] = 0;
   T[1][0] = 0;   T[1][1] = 1;  T[1][2] = 0;  T[1][3] = 0;
   T[2][0] = 0;   T[2][1] = 0;  T[2][2] = 1;  T[2][3] = 0;
   T[3][0] = Mx;  T[3][1] = My; T[3][2] = Mz; T[3][3] = 1;
 
  multiply();
  proection();
  drawfig(Image1);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ButtonReflectClick(TObject *Sender)
{
 
  T[0][0] = 1;   T[0][1] = 0;  T[0][2] = 0;  T[0][3] = 0;
  T[1][0] = 0;   T[1][1] = 1;  T[1][2] = 0;  T[1][3] = 0;
  T[2][0] = 0;   T[2][1] = 0;  T[2][2] = 1;  T[2][3] = 0;
  T[3][0] = 0;   T[3][1] = 0;  T[3][2] = 0;  T[3][3] = 1;
 
 if (RadioButton4->Checked)
   T[0][0] = -1;
 if (RadioButton5->Checked)
   T[1][1] = -1;
 if (RadioButton6->Checked)
   T[2][2] = -1;
 
  multiply();
  proection();
  drawfig(Image1);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
proection();
drawfig(Image1);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::RadioButton7Click(TObject *Sender)
{
  type = 0;
  for (int i = 0; i<8; i++)
    for (int j = 0; j<4; j++)
      M[i][j] = M1[i][j];
  proection();
  drawfig(Image1);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::RadioButton8Click(TObject *Sender)
{
  type = 1;
  for (int i = 0; i<8; i++)
    for (int j = 0; j<4; j++)
      M[i][j] = M1[i][j];
  proection();
  drawfig(Image1);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::RadioButton9Click(TObject *Sender)
{
  type = 2;
  for (int i = 0; i<8; i++)
    for (int j = 0; j<4; j++)
      M[i][j] = M1[i][j];
  proection();
  drawfig(Image1);
}
//---------------------------------------------------------------------------

Название: 13.png
Просмотров: 37

Размер: 3.6 Кб

Здесь фигура прямоугольный куб, а необходимо сделать вот такую.

Название: 14.png
Просмотров: 38

Размер: 3.2 Кб

Может кто нибудь помочь и подсказать саму процедуру отрисовки фигур в обоих кодах. Все остальное понятно. Просто надо срочно, а я пока разберусь...

@gunslinger · 10.05.2016, 01:52

А целиком проекты имеются?

@gunslinger случайный прохожий 2935 / 1951 / 606 Регистрация: 20.07.2013 Сообщений: 5,159
	10.05.2016, 01:52	3
	А целиком проекты имеются? 0