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

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

分形几何

开发平台：

Visual C++

fractus2_05.cpp：源码内容
  1. //---------------------------------------------------------------------------
  3. #include <vcl.h>
  4. #pragma hdrstop
  6. #include "fractus2_05.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. int N;
  15. double sx,sy;
  16. double leng0;
  17. double gene_1[][2]={{0.0,1.0},{-90.0,-1.0},END};
  18. double gene_2[][2]={{60.0,-1.0},{-60.0,1.0},{-60.0,-1.0},END};
  19. double delta=0.0001;TRect rect;
  20. //---------------------------------------------------------------------------
  21. __fastcall TForm1::TForm1(TComponent* Owner)
  22.         : TForm(Owner)
  23. {
  24. }
  25. //---------------------------------------------------------------------------
  27. void __fastcall fractal(double leng,int n)
  28. {
  29.   int i;
  30.   if(n>=N) move(leng);
  31.   else
  32.    {turn(-180*t/PI);
  33.     for(i=0;i<n_gene;i++)
  34.      {turn(gene[i][0]);
  35.       if((gene[i][0]+180.0)>delta||(gene[i][0]+180.0)<-delta)
  36.         if(gene[i][1]<0)
  37.          {warp(-gene[i][1]*leng/a);
  38.           turn(180.0);
  39.           fractal(-gene[i][1]*leng/a,n+1);
  40.           turn(180.0);
  41.           warp(-gene[i][1]*leng/a);
  42.          }
  43.         else fractal(gene[i][1]*leng/a,n+1);
  44.       else warp(fabs(gene[i][1])*leng/a);
  45.      }
  46.     turn(-s+180*t/PI);
  47.    }
  48. }
  51. void __fastcall TForm1::FormCreate(TObject *Sender)
  52. {
  53.   Image1->Height=0;Image1->Top=0;
  54.   Image1->Width=Screen->Width;Image1->Height=Screen->Height;
  55.   rect=Rect(0,0,Image1->Width,Image1->Height);//清屏
  56.   Image1->Canvas->CopyMode=cmBlackness;
  57.   Image1->Canvas->CopyRect(rect,Image1->Canvas,rect);
  58.   Image1->Canvas->Pen->Color=clGreen;
  59.   Image1->Canvas->Brush->Style=bsClear;
  60.   Image1->Canvas->Font->Color=clRed;
  61. }
  62. //---------------------------------------------------------------------------
  64. void __fastcall TForm1::N1Click(TObject *Sender)
  65. {
  66.   int i=0;
  67.   double b=0,c=0.0;
  68.   a=0;ANGLE=0;
  69.   Image1->Canvas->CopyRect(rect,Image1->Canvas,rect);
  70.   while((gene[i][0]-END)>delta||(gene[i][0]-END)<-delta)
  71.    {turn(gene[i][0]);
  72.     a+=fabs(gene[i][1])*cos(RADIAN);
  73.     c+=fabs(gene[i][1])*sin(RADIAN);
  74.     if((gene[i][0]+180.0)>delta||(gene[i][0]+180.0)<-delta)
  75.       b+=fabs(gene[i][1]);
  76.     i++;
  77.    }
  78.   n_gene=i;
  79.   s=ANGLE;
  80.   t=atan(c/a);a/=cos(t);
  81.   Image1->Canvas->Rectangle(0,0,99,79);
  82.   setlp(10.0,sy/5);
  83.   setangle(0.0);
  84.   turn(-180*t/PI);
  85.   for(i=0;i<n_gene;i++)
  86.    {turn(gene[i][0]);
  87.     if((gene[i][0]-180.0)>delta||(gene[i][0]-180.0)<-delta)
  88.       move(fabs(gene[i][1])*80/a);
  89.     else warp(fabs(gene[i][1])*80/a);
  90.    }
  91.   setlp(sx,sy);
  92.   setangle(0.0);
  93.   fractal(leng0,0);
  94. }
  95. //---------------------------------------------------------------------------
  97. void __fastcall TForm1::N2Click(TObject *Sender)
  98. {
  99.   if(SavePictureDialog1->Execute())
  100.     Image1->Picture->SaveToFile(SavePictureDialog1->FileName);
  101. }
  102. //---------------------------------------------------------------------------
  104. void __fastcall TForm1::N4_1Click(TObject *Sender)
  105. {
  106.   N=16;
  107.   sx=220.0;sy=300.0;
  108.   leng0=200.0;
  109.   gene=gene_1;
  110. }
  111. //---------------------------------------------------------------------------
  113. void __fastcall TForm1::N4_2Click(TObject *Sender)
  114. {
  115.   N=9;
  116.   sx=170.0;sy=320.0;
  117.   leng0=300.0;
  118.   gene=gene_2;
  119. }
  120. //---------------------------------------------------------------------------
  125. void __fastcall TForm1::N3Click(TObject *Sender)
  126. {
  127.   Close();        
  128. }
  129. //---------------------------------------------------------------------------