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

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

分形几何

开发平台：

Visual C++

fractus2_10.cpp：源码内容
  1. //---------------------------------------------------------------------------
  3. #include <vcl.h>
  4. #pragma hdrstop
  6. #include "fractus2_10.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma resource "*.dfm"
  10. TForm1 *Form1;
  11. #include "glib.h"
  12. int n_br;
  13. int n_st;
  14. double k,r0=180.0;
  15. double scale;
  16. double ang;
  17. double delta=0.0001;TRect rect;
  18. //---------------------------------------------------------------------------
  19. __fastcall TForm1::TForm1(TComponent* Owner)
  20.         : TForm(Owner)
  21. {
  22. }
  23. //---------------------------------------------------------------------------
  24. //基本图案的反复映像生成的分形图形（2)
  25. void __fastcall fractal(double leng)
  26. {
  27.   int i,j;double s;
  28.   s=1;
  29.   if(leng<=k/2||k<=1.0)
  30.     Form1->Image1->Canvas->Pixels[LPX][LPY]=clWhite;
  31.   else
  32.    {for(i=0;i<n_br;i++)
  33.      {if(!i)
  34.        {turn(-ang/2);
  35.         fractal(leng/k);
  36.         turn(ang/2);
  37.        }
  38.       for(j=1;j<=n_st;j++,s*=scale)
  39.        {warp(leng*s/k);
  40.         warp(leng*s*scale/k);
  41.         turn(ang/2);
  42.         fractal(leng*s*scale/k);
  43.         turn(ang/2);
  44.        }
  45.       turn(180.0);
  46.       for(j=n_st;j>=1;j--,s/=scale)
  47.        {turn(-ang);
  48.         warp(leng*s/k);
  49.         warp(leng*s/(scale*k));
  50.        }
  51.       turn(180.0);
  52.       turn(360.0/n_br);
  53.      }
  54.    }
  55. }
  58. void __fastcall TForm1::FormCreate(TObject *Sender)
  59. {
  60.   Image1->Height=0;Image1->Top=0;
  61.   Image1->Width=Screen->Width;Image1->Height=Screen->Height;
  62.   rect=Rect(0,0,Image1->Width,Image1->Height);//清屏
  63.   Image1->Canvas->CopyMode=cmBlackness;
  64.   Image1->Canvas->CopyRect(rect,Image1->Canvas,rect);
  65. }
  66. //---------------------------------------------------------------------------
  68. void __fastcall TForm1::N1Click(TObject *Sender)
  69. {
  70.   int i;
  71.   double a,b;
  72.   double s;
  73.   Image1->Canvas->CopyRect(rect,Image1->Canvas,rect);
  74.   setlp(0.0,0.0);setangle(0.0);
  75.   s=1;
  76.   for(i=1;i<=n_st;i++,s*=scale)
  77.    {warp(s);
  78.     a=s*scale;
  79.     warp(a);
  80.     b=sqrt(LPX*LPX+LPY*LPY);
  81.     if(k<a+b) k=a+b;
  82.     turn(ang);
  83.    }
  84.   setlp(320.0,200.0);
  85.   setangle(90.0);
  86.   fractal(r0);
  87. }
  88. //---------------------------------------------------------------------------
  90. void __fastcall TForm1::N2Click(TObject *Sender)
  91. {
  92.   if(SavePictureDialog1->Execute())
  93.     Image1->Picture->SaveToFile(SavePictureDialog1->FileName);
  94. }
  95. //---------------------------------------------------------------------------
  97. void __fastcall TForm1::N3Click(TObject *Sender)
  98. {
  99.   Close();        
  100. }
  101. //---------------------------------------------------------------------------
  103. void __fastcall TForm1::N4_1Click(TObject *Sender)
  104. {
  105.   n_br=5;n_st=3;
  106.   scale=0.5;ang=30.0;
  107. }
  108. //---------------------------------------------------------------------------
  110. void __fastcall TForm1::N4_2Click(TObject *Sender)
  111. {
  112.   n_br=6;n_st=1;
  113.   scale=0.5;ang=0.0;
  114. }
  115. //---------------------------------------------------------------------------
  117. void __fastcall TForm1::N4_3Click(TObject *Sender)
  118. {
  119.   n_br=6;n_st=5;
  120.   scale=0.5;ang=0.0;
  121. }
  122. //---------------------------------------------------------------------------