开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 图形图像 > 分形几何 > 查看源码
fractus2_04A.cpp
资源名称：fenxin.rar　[点击查看]
上传用户：hzcygd
上传日期：2022-04-30
资源大小：109k
文件大小：5k
源码类别：

分形几何

开发平台：

Visual C++

fractus2_04A.cpp：源码内容
  1. //---------------------------------------------------------------------------
  3. #include <vcl.h>
  4. #pragma hdrstop
  6. #include "fractus2_04A.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma resource "*.dfm"
  10. TForm1 *Form1;
  11. #include "glib.h"
  12. double a=0.0,s,t;//1/a为缩小率
  13. int n_gene;double (*gene)[2];
  14. double sx,sy;
  15. double leng0;
  16. double gene_1[][2]={{0.0,1.0},{90.0,1.0},{-90.0,1.0},{-90.0,2.0},
  17.                     {90.0,1.0},{90.0,1.0},{-90.0,1.0},END};
  18. double gene_2[][2]={{90.0,1.0},{-90.0,2.0},END};
  19. double gene_3[][2]={{0.0,1.0},{85.0,1.0},{-170.0,1.0},
  20.                     {85.0,2.0},END};
  21. double gene_4[][2]={{0.0,2.0},{90.0,1.0},{150.0,1.0},
  22.                     {90.0,2.0},END};
  23. double gene_5[][2]={{0.0,0.6},{80.0,1.0},{-180.0,1.0},{20.0,1.0},
  24.                     {-180.0,1.0},{-100.0,0.55},{80.0,0.9},{-180.0,0.9},
  25.                     {20.0,0.9},{-180.0,0.9},{-100.0,0.5},{80.0,0.8},
  26.                     {-180.0,0.8},{20.0,0.8},{-180.0,0.8},{-100.0,0.45},
  27.                     {80.0,0.7},{-180.0,0.7},{20.0,0.7},{-180.0,0.7},
  28.                     {-100.0,0.4},{80.0,0.6},{-180.0,0.6},{20.0,0.6},
  29.                     {-180.0,0.6},{-100.0,0.35},{80.0,0.5},{-180.0,0.5},
  30.                     {20.0,0.5},{-180.0,0.5},{-100.0,0.3},{80.0,0.4},
  31.                     {-180.0,0.4},{20.0,0.4},{-180.0,0.4},{-100.0,0.25},
  32.                     {80.0,0.3},{-180.0,0.3},{20.0,0.3},{-180.0,0.3},
  33.                     {-100.0,0.2},{80.0,0.2},{-180.0,0.2},{20.2,0.2},
  34.                     {-180.0,0.2},{-100.0,0.15},{80.0,0.1},{-180.0,0.1},
  35.                     {20.0,0.1},{-180.0,0.1},{-100.0,0.1},END};
  36. double delta=0.0001;TRect rect;
  37. //---------------------------------------------------------------------------
  38. __fastcall TForm1::TForm1(TComponent* Owner)
  39.         : TForm(Owner)
  40. {
  41. }
  42. //---------------------------------------------------------------------------
  44. void __fastcall fractal(double leng)
  45. {
  46.   int i;
  47.   if(leng<=a) move(leng);
  48.   else
  49.    {turn(-180*t/PI);
  50.     for(i=0;i<n_gene;i++)
  51.      {turn(gene[i][0]);
  52.       if((gene[i][0]+180.0)>delta||(gene[i][0]+180.0)<-delta)
  53.         fractal(gene[i][1]*leng/a);
  54.       else warp(gene[i][1]*leng/a);
  55.      }
  56.     turn(-s+180*t/PI);
  57.    }
  58. }
  61. void __fastcall TForm1::FormCreate(TObject *Sender)
  62. {
  63.   Image1->Height=0;Image1->Top=0;
  64.   Image1->Width=Screen->Width;Image1->Height=Screen->Height;
  65.   rect=Rect(0,0,Image1->Width,Image1->Height);//清屏
  66.   Image1->Canvas->CopyMode=cmBlackness;
  67.   Image1->Canvas->CopyRect(rect,Image1->Canvas,rect);
  68.   Image1->Canvas->Pen->Color=clGreen;
  69.   Image1->Canvas->Brush->Style=bsClear;
  70.   Image1->Canvas->Font->Color=clRed;
  71. }
  72. //---------------------------------------------------------------------------
  74. void __fastcall TForm1::N1Click(TObject *Sender)
  75. {
  76.   int i=0;
  77.   double b=0,c=0.0;
  78.   a=0;ANGLE=0;
  79.   Image1->Canvas->CopyRect(rect,Image1->Canvas,rect);
  80.   while((gene[i][0]-END)>delta||(gene[i][0]-END)<-delta)
  81.    {turn(gene[i][0]);
  82.     a+=gene[i][1]*cos(RADIAN);
  83.     c+=gene[i][1]*sin(RADIAN);
  84.     if((gene[i][0]+180.0)>delta||(gene[i][0]+180.0)<-delta)
  85.       b+=gene[i][1];
  86.     i++;
  87.    }
  88.   n_gene=i;
  89.   s=ANGLE;
  90.   t=atan(c/a);a/=cos(t);
  91.   Image1->Canvas->Rectangle(0,0,99,79);
  92.   setlp(10.0,sy/5);
  93.   setangle(0.0);
  94.   turn(-180*t/PI);
  95.   for(i=0;i<n_gene;i++)
  96.    {turn(gene[i][0]);
  97.     if((gene[i][0]-180.0)>delta||(gene[i][0]-180.0)<-delta)
  98.       move(gene[i][1]*80/a);
  99.     else warp(gene[i][1]*80/a);
  100.    }
  101.   setlp(sx,sy);
  102.   setangle(0.0);
  103.   fractal(leng0);
  104. }
  105. //---------------------------------------------------------------------------
  107. void __fastcall TForm1::N2Click(TObject *Sender)
  108. {
  109.   if(SavePictureDialog1->Execute())
  110.     Image1->Picture->SaveToFile(SavePictureDialog1->FileName);
  111. }
  112. //---------------------------------------------------------------------------
  114. void __fastcall TForm1::N4_1Click(TObject *Sender)
  115. {
  116.   sx=120.0;sy=200.0;
  117.   leng0=400.0;
  118.   gene=gene_1;
  119. }
  120. //---------------------------------------------------------------------------
  122. void __fastcall TForm1::N4_2Click(TObject *Sender)
  123. {
  124.   sx=220.0;sy=280.0;
  125.   leng0=200.0;
  126.   gene=gene_2;
  127. }
  128. //---------------------------------------------------------------------------
  130. void __fastcall TForm1::N4_3Click(TObject *Sender)
  131. {
  132.   sx=120.0;sy=280.0;
  133.   leng0=400.0;
  134.   gene=gene_3;
  135. }
  136. //---------------------------------------------------------------------------
  138. void __fastcall TForm1::N4_4Click(TObject *Sender)
  139. {
  140.   sx=120.0;sy=300.0;
  141.   leng0=400.0;
  142.   gene=gene_4;
  143. }
  144. //---------------------------------------------------------------------------
  146. void __fastcall TForm1::N4_5Click(TObject *Sender)
  147. {
  148.   sx=120.0;sy=200.0;
  149.   leng0=400.0;
  150.   gene=gene_5;
  151. }
  152. //---------------------------------------------------------------------------
  154. void __fastcall TForm1::N3Click(TObject *Sender)
  155. {
  156.   Close();        
  157. }
  158. //---------------------------------------------------------------------------