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

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

分形几何

开发平台：

Visual C++

fractus3_06.cpp：源码内容
  1. //---------------------------------------------------------------------------
  3. #include <vcl.h>
  4. #pragma hdrstop
  6. #include "fractus3_06.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma resource "*.dfm"
  10. TForm1 *Form1;
  11. #include "glib.h"
  12. const int n_rot_MAX=8;
  13. int n_rot;
  14. int N;
  15. double ang,scale,ks;
  16. double r1;
  17. double delta=0.0001;TRect rect;
  18. int colors[16]={0x00000000,0x00FF0000,0x0000FF00,0x00FF8C00,
  19.                 0x000000FF,0x00FF00FF,0x0000FFFF,0x00D7D7D7,
  20.                 0x009BFFFF,0x009BFFFF,0x00A0FF00,0x00FFFF00,
  21.                 0x006E6EFF,0x00FF9BFF,0x009BFFFF,0x00FFFFFF};
  22. //---------------------------------------------------------------------------
  23. __fastcall TForm1::TForm1(TComponent* Owner)
  24.         : TForm(Owner)
  25. {
  26. }
  27. //---------------------------------------------------------------------------
  28. //星形为构成元素的递归图形（1）
  29. void __fastcall star(double r)
  30.  {TPoint points[2*n_rot_MAX+1];
  31.   int i;
  32.   turn(180.0);
  33.   warp(r);
  34.   turn(90.0+ang);points[0]=Point(LPX,LPY);
  35.   for(i=0;i<n_rot;i++)
  36.    {warp(r*ks);
  37.     points[2*i+1]=Point(LPX,LPY);
  38.     turn(-ang);
  39.     warp(r*ks);
  40.     points[2*i+2]=Point(LPX,LPY);
  41.     turn(2*ang);
  42.    }
  43.   turn(90-ang);
  44.   warp(r);
  45.   Form1->Image1->Canvas->Polygon(points,2*n_rot);
  46.  }
  47. //---------------------------------------------------------------------------
  49. void __fastcall recurs(double r,int n)
  50. {
  51.   int i,j,k;
  52.   if(n<=N)
  53.    {Form1->Image1->Canvas->Pen->Color=colors[n];
  54.     Form1->Image1->Canvas->Brush->Color=colors[n];
  55.     star(r);
  56.     if(n==1)
  57.      {j=n_rot;k=0;}
  58.     else
  59.      {j=n_rot-1;k=1;}
  60.     for(i=0;i<j;i++)
  61.      {turn(180.0);
  62.       turn((i+k)*ang);
  63.       warp(r*(1+scale));
  64.       recurs(r*scale,n+1);
  65.       turn(180.0);
  66.       warp(r*(1+scale));
  67.       turn(-(i+k)*ang);
  68.      }
  69.    }
  70.   Form1->Image1->Canvas->Pen->Color=colors[n-1];
  71. }
  74. void __fastcall TForm1::FormCreate(TObject *Sender)
  75. {
  76.   Image1->Height=0;Image1->Top=0;
  77.   Image1->Width=Screen->Width;Image1->Height=Screen->Height;
  78.   rect=Rect(0,0,Image1->Width,Image1->Height);//清屏
  79.   Image1->Canvas->CopyMode=cmBlackness;
  80.   Image1->Canvas->CopyRect(rect,Image1->Canvas,rect);
  81. }
  82. //---------------------------------------------------------------------------
  84. void __fastcall TForm1::N1Click(TObject *Sender)
  85. {
  86.   Image1->Canvas->CopyRect(rect,Image1->Canvas,rect);
  87.   ang=360.0/n_rot;
  88.   ks=tan(PI/n_rot);
  89.   setlp(320.0,200.0);
  90.   setangle(-90.0);
  91.   recurs(r1,1);
  92. }
  93. //---------------------------------------------------------------------------
  95. void __fastcall TForm1::N2Click(TObject *Sender)
  96. {
  97.   if(SavePictureDialog1->Execute())
  98.     Image1->Picture->SaveToFile(SavePictureDialog1->FileName);
  99. }
  100. //---------------------------------------------------------------------------
  102. void __fastcall TForm1::N3Click(TObject *Sender)
  103. {
  104.   Close();        
  105. }
  106. //---------------------------------------------------------------------------
  108. void __fastcall TForm1::N4_1Click(TObject *Sender)
  109. {
  110.   n_rot=5;N=5;
  111.   scale=0.38;r1=90.0;
  112. }
  113. //---------------------------------------------------------------------------
  115. void __fastcall TForm1::N4_2Click(TObject *Sender)
  116. {
  117.   n_rot=6;N=4;
  118.   scale=0.34;r1=100.0;
  119. }
  120. //---------------------------------------------------------------------------
  122. void __fastcall TForm1::N4_3Click(TObject *Sender)
  123. {
  124.   n_rot=8;N=4;
  125.   scale=0.28;r1=110.0;
  126. }
  127. //---------------------------------------------------------------------------