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

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

分形几何

开发平台：

Visual C++

fractus2_09.cpp：源码内容
  1. //---------------------------------------------------------------------------
  3. #include <vcl.h>
  4. #pragma hdrstop
  6. #include "fractus2_09.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma resource "*.dfm"
  10. TForm1 *Form1;
  11. #include "glib.h"
  12. int n_br=6;
  13. int n_st;
  14. double k,r0=180.0;
  15. int N;
  16. double delta=0.0001;TRect rect;
  17. int select;
  18. //---------------------------------------------------------------------------
  19. __fastcall TForm1::TForm1(TComponent* Owner)
  20.         : TForm(Owner)
  21. {
  22. }
  23. //---------------------------------------------------------------------------
  24. //基本图案的反复映像生成的分形图形（1)
  25. void __fastcall fractal(double leng,int n)
  26. {
  27.   int i,j;
  28.   if(n>=N||k<=1.0)
  29.     Form1->Image1->Canvas->Pixels[LPX][LPY]=clWhite;
  30.   else
  31.    {for(i=0;i<n_br;i++)
  32.      {if(!i) fractal(leng/k,n+1);
  33.       for(j=1;j<=n_st;j++)
  34.        {warp(leng*2/k);
  35.         fractal(leng/k,n+1);
  36.        }
  37.       turn(180.0);
  38.       warp(leng*2*n_st/k);
  39.       turn(180.0);
  40.       turn(360.0/n_br);
  41.      }
  42.    }
  43. }
  46. void __fastcall TForm1::FormCreate(TObject *Sender)
  47. {
  48.   Image1->Height=0;Image1->Top=0;
  49.   Image1->Width=Screen->Width;Image1->Height=Screen->Height;
  50.   rect=Rect(0,0,Image1->Width,Image1->Height);//清屏
  51.   Image1->Canvas->CopyMode=cmBlackness;
  52.   Image1->Canvas->CopyRect(rect,Image1->Canvas,rect);
  53. }
  54. //---------------------------------------------------------------------------
  56. void __fastcall TForm1::N1Click(TObject *Sender)
  57. {
  58.   Image1->Canvas->CopyRect(rect,Image1->Canvas,rect);
  59.   k=2*n_st+1;
  60.   setlp(320.0,200.0);
  61.   setangle(90.0);
  62.   fractal(r0,0);
  63. }
  64. //---------------------------------------------------------------------------
  66. void __fastcall TForm1::N2Click(TObject *Sender)
  67. {
  68.   if(SavePictureDialog1->Execute())
  69.     Image1->Picture->SaveToFile(SavePictureDialog1->FileName);
  70. }
  71. //---------------------------------------------------------------------------
  73. void __fastcall TForm1::N3Click(TObject *Sender)
  74. {
  75.   Close();        
  76. }
  77. //---------------------------------------------------------------------------
  79. void __fastcall TForm1::N4_1Click(TObject *Sender)
  80. {
  81.  n_st=1;N=5;
  82. }
  83. //---------------------------------------------------------------------------
  85. void __fastcall TForm1::N4_2Click(TObject *Sender)
  86. {
  87.   n_st=2;N=4;
  88. }
  89. //---------------------------------------------------------------------------