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

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

分形几何

开发平台：

Visual C++

fractus3_03.cpp：源码内容
  1. //---------------------------------------------------------------------------
  3. #include <vcl.h>
  4. #pragma hdrstop
  6. #include "fractus3_03.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma resource "*.dfm"
  10. TForm1 *Form1;
  11. #include "glib.h"
  12. int n_rot;
  13. int N;
  14. double ang,scale;
  15. double r1;
  16. double delta=0.0001;TRect rect;
  17. int colors[16]={0x00000000,0x00FF0000,0x0000FF00,0x00FF8C00,
  18.                 0x000000FF,0x00FF00FF,0x0000FFFF,0x00D7D7D7,
  19.                 0x009BFFFF,0x009BFFFF,0x00A0FF00,0x00FFFF00,
  20.                 0x006E6EFF,0x00FF9BFF,0x009BFFFF,0x00FFFFFF};
  21. //---------------------------------------------------------------------------
  22. __fastcall TForm1::TForm1(TComponent* Owner)
  23.         : TForm(Owner)
  24. {
  25. }
  26. //---------------------------------------------------------------------------
  27. //由圆构成的递归图形
  28. void __fastcall recurs(double r,int n)
  29. {
  30.   int i,j,k;
  31.   if(n<=N)
  32.    {Form1->Image1->Canvas->Pen->Color=colors[n];
  33.     Form1->Image1->Canvas->Brush->Color=colors[n];
  34.     Form1->Image1->Canvas->Ellipse(LPX-r,LPY-r,LPX+r,LPY+r);
  35.     if(n==1)
  36.      {j=n_rot;k=0;}
  37.     else
  38.      {j=3;k=1;}
  39.     for(i=0;i<j;i++)
  40.      {turn((i-k)*ang);
  41.       warp(r*(1+scale));
  42.       recurs(r*scale,n+1);
  43.       turn(180.0);
  44.       warp(r*(1+scale));
  45.       turn(180-(i-k)*ang);
  46.      }
  47.    }
  48.   Form1->Image1->Canvas->Pen->Color=colors[n-1];
  49. }
  52. void __fastcall TForm1::FormCreate(TObject *Sender)
  53. {
  54.   Image1->Height=0;Image1->Top=0;
  55.   Image1->Width=Screen->Width;Image1->Height=Screen->Height;
  56.   rect=Rect(0,0,Image1->Width,Image1->Height);//清屏
  57.   Image1->Canvas->CopyMode=cmBlackness;
  58.   Image1->Canvas->CopyRect(rect,Image1->Canvas,rect);
  59. }
  60. //---------------------------------------------------------------------------
  62. void __fastcall TForm1::N1Click(TObject *Sender)
  63. {
  64.   Image1->Canvas->CopyRect(rect,Image1->Canvas,rect);
  65.   ang=360.0/n_rot;
  66.   setlp(320.0,200.0);
  67.   setangle(90.0);
  68.   recurs(r1,1);
  69. }
  70. //---------------------------------------------------------------------------
  72. void __fastcall TForm1::N2Click(TObject *Sender)
  73. {
  74.   if(SavePictureDialog1->Execute())
  75.     Image1->Picture->SaveToFile(SavePictureDialog1->FileName);
  76. }
  77. //---------------------------------------------------------------------------
  79. void __fastcall TForm1::N3Click(TObject *Sender)
  80. {
  81.   Close();        
  82. }
  83. //---------------------------------------------------------------------------
  85. void __fastcall TForm1::N4_1Click(TObject *Sender)
  86. {
  87.   n_rot=4;N=6;
  88.   scale=0.5;r1=64.0;
  89. }
  90. //---------------------------------------------------------------------------
  92. void __fastcall TForm1::N4_2Click(TObject *Sender)
  93. {
  94.   n_rot=5;N=5;
  95.   scale=0.44;r1=70.0;
  96. }
  97. //---------------------------------------------------------------------------
  99. void __fastcall TForm1::N4_3Click(TObject *Sender)
  100. {
  101.   n_rot=6;N=5;
  102.   scale=0.42;r1=80.0;
  103. }
  104. //---------------------------------------------------------------------------