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

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

分形几何

开发平台：

Visual C++

fractus3_07.cpp：源码内容
  1. //---------------------------------------------------------------------------
  3. #include <vcl.h>
  4. #pragma hdrstop
  6. #include "fractus3_07.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=4;
  14. double ang,scale,kr,ks;
  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. //星形为构成元素的递归图形（2）
  28. void __fastcall star(double r)
  29.  {TPoint points[16];
  30.   int i;
  31.   turn(180.0);
  32.   warp(r);
  33.   turn(180-ang);
  34.   for(i=0;i<n_rot;i++)
  35.    {move(r*ks);
  36.     turn(180-2*ang);
  37.    }
  38.   turn(ang);
  39.   warp(r);
  40.  }
  41. //---------------------------------------------------------------------------
  43. void __fastcall recurs(double r,int n)
  44. {
  45.   int i,j,k;
  46.   if(n<=N)
  47.    {Form1->Image1->Canvas->Pen->Color=colors[n];
  48.     Form1->Image1->Canvas->Brush->Color=colors[n];
  49.     star(r);
  50.     if(n==1)
  51.      {j=n_rot;k=0;}
  52.     else
  53.      {j=n_rot-1;k=1;}
  54.     for(i=0;i<j;i++)
  55.      {turn(180.0);
  56.       turn((i+k)*kr*ang);
  57.       warp(r*(1+scale));
  58.       recurs(r*scale,n+1);
  59.       turn(180.0);
  60.       warp(r*(1+scale));
  61.       turn(-(i+k)*kr*ang);
  62.      }
  63.    }
  64.   Form1->Image1->Canvas->Pen->Color=colors[n-1];
  65. }
  68. void __fastcall TForm1::FormCreate(TObject *Sender)
  69. {
  70.   Image1->Height=0;Image1->Top=0;
  71.   Image1->Width=Screen->Width;Image1->Height=Screen->Height;
  72.   rect=Rect(0,0,Image1->Width,Image1->Height);//清屏
  73.   Image1->Canvas->CopyMode=cmBlackness;
  74.   Image1->Canvas->CopyRect(rect,Image1->Canvas,rect);
  75. }
  76. //---------------------------------------------------------------------------
  78. void __fastcall TForm1::N1Click(TObject *Sender)
  79. {
  80.   Image1->Canvas->CopyRect(rect,Image1->Canvas,rect);
  81.   if(!(n_rot%2))
  82.    {ang=180.0/n_rot;
  83.     ks=2*cos(PI/n_rot);
  84.     kr=2;
  85.    }
  86.   else
  87.    {ang=90.0/n_rot;
  88.     ks=2*cos(PI/(n_rot*2));
  89.     kr=4;
  90.    }
  91.   setlp(320.0,200.0);
  92.   setangle(-90.0);
  93.   recurs(r1,1);
  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::N3Click(TObject *Sender)
  105. {
  106.   Close();        
  107. }
  108. //---------------------------------------------------------------------------
  110. void __fastcall TForm1::N4_1Click(TObject *Sender)
  111. {
  112.   n_rot=7;
  113.   scale=0.3;r1=110.0;
  114. }
  115. //---------------------------------------------------------------------------
  117. void __fastcall TForm1::N4_2Click(TObject *Sender)
  118. {
  119.   n_rot=8;
  120.   scale=0.28;r1=110.0;
  121. }
  122. //---------------------------------------------------------------------------
  124. void __fastcall TForm1::N4_3Click(TObject *Sender)
  125. {
  126.   n_rot=9;
  127.   scale=0.25;r1=120.0;
  128. }
  129. //---------------------------------------------------------------------------