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

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

分形几何

开发平台：

Visual C++

fractus3_01.cpp：源码内容
  1. //---------------------------------------------------------------------------
  3. #include <vcl.h>
  4. #pragma hdrstop
  6. #include "fractus3_01.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma resource "*.dfm"
  10. TForm1 *Form1;
  11. #include "glib.h"
  12. int N=7;
  13. double sx=320.0,sy=390.0;
  14. double leng1;
  15. double (*branch)[2];
  16. double branch_1[][2]={{30.0,0.7},{-30.0,0.7},END};
  17. double branch_2[][2]={{20.0,0.7},{-30.0,0.6},END};
  18. double branch_3[][2]={{45.0,0.7},{15.0,0.7},{-15.0,0.7},{-45.0,0.7},END};
  19. double delta=0.0001;TRect rect;
  20. int colors[16]={0x00000000,0x00FF0000,0x0000FF00,0x00FF8C00,
  21.                 0x000000FF,0x00FF00FF,0x0000FFFF,0x00D7D7D7,
  22.                 0x009BFFFF,0x009BFFFF,0x00A0FF00,0x00FFFF00,
  23.                 0x006E6EFF,0x00FF9BFF,0x009BFFFF,0x00FFFFFF};
  24. //---------------------------------------------------------------------------
  25. __fastcall TForm1::TForm1(TComponent* Owner)
  26.         : TForm(Owner)
  27. {
  28. }
  29. //---------------------------------------------------------------------------
  30. //树木曲线
  31. void __fastcall tree(double leng,int n)
  32. {
  33.   int i=0;
  34.   if(n<=N)
  35.    {Form1->Image1->Canvas->Pen->Color=colors[n];
  36.     if(n==1)
  37.      {move(leng);
  38.       tree(leng,n+1);
  39.      }
  40.     else
  41.       while((branch[i][0]-END)>delta||(branch[i][0]-END)<-delta)
  42.        {turn(branch[i][0]);
  43.         move(branch[i][1]*leng);
  44.         tree(branch[i][1]*leng,n+1);
  45.         turn(180.0);
  46.         warp(branch[i][1]*leng);
  47.         turn(180-branch[i][0]);
  48.         i++;
  49.        }
  50.    }
  51.   else
  52.    {Form1->Image1->Canvas->Pen->Color=clWhite;
  53.     warp(leng*0.3);
  54.     Form1->Image1->Canvas->Ellipse(LPX-leng*0.3,LPY-leng*0.3,
  55.                                    LPX+leng*0.3,LPY+leng*0.3);
  56.     turn(180.0);
  57.     warp(leng*0.3);
  58.     turn(180.0);
  59.    }
  60.   Form1->Image1->Canvas->Pen->Color=colors[n-1];
  61. }
  64. void __fastcall TForm1::FormCreate(TObject *Sender)
  65. {
  66.   Image1->Height=0;Image1->Top=0;
  67.   Image1->Width=Screen->Width;Image1->Height=Screen->Height;
  68.   rect=Rect(0,0,Image1->Width,Image1->Height);//清屏
  69.   Image1->Canvas->CopyMode=cmBlackness;
  70.   Image1->Canvas->CopyRect(rect,Image1->Canvas,rect);
  71. }
  72. //---------------------------------------------------------------------------
  74. void __fastcall TForm1::N1Click(TObject *Sender)
  75. {
  76.   Image1->Canvas->CopyRect(rect,Image1->Canvas,rect);
  77.   setlp(sx,sy);
  78.   setangle(90.0);
  79.   tree(leng1,1);
  80. }
  81. //---------------------------------------------------------------------------
  83. void __fastcall TForm1::N2Click(TObject *Sender)
  84. {
  85.   if(SavePictureDialog1->Execute())
  86.     Image1->Picture->SaveToFile(SavePictureDialog1->FileName);
  87. }
  88. //---------------------------------------------------------------------------
  90. void __fastcall TForm1::N3Click(TObject *Sender)
  91. {
  92.   Close();        
  93. }
  94. //---------------------------------------------------------------------------
  96. void __fastcall TForm1::N4_1Click(TObject *Sender)
  97. {
  98.   leng1=120.0;branch=branch_1;
  99. }
  100. //---------------------------------------------------------------------------
  102. void __fastcall TForm1::N4_2Click(TObject *Sender)
  103. {
  104.   leng1=130.0;branch=branch_2;
  105. }
  106. //---------------------------------------------------------------------------
  108. void __fastcall TForm1::N4_3Click(TObject *Sender)
  109. {
  110.   leng1=120.0;branch=branch_3;        
  111. }
  112. //---------------------------------------------------------------------------