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

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

分形几何

开发平台：

Visual C++

fractus3_02.cpp：源码内容
  1. //---------------------------------------------------------------------------
  3. #include <vcl.h>
  4. #pragma hdrstop
  6. #include "fractus3_02.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 leng1;
  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 leng,int n)
  29. {
  30.   int i;double s;
  31.   if(n<=N)
  32.    {Form1->Image1->Canvas->Pen->Color=colors[n];
  33.     for(i=0;i<n_rot;i++)
  34.      {s=(n!=1&&!(n_rot%2))?((i+0.5)*ang):(i*ang);
  35.       turn(s);
  36.       move(leng);
  37.       recurs(leng*scale,n+1);
  38.       turn(180.0);
  39.       warp(leng);
  40.       turn(180-s);
  41.      }
  42.    }
  43.   Form1->Image1->Canvas->Pen->Color=colors[n-1];
  44. }
  47. void __fastcall TForm1::FormCreate(TObject *Sender)
  48. {
  49.   Image1->Height=0;Image1->Top=0;
  50.   Image1->Width=Screen->Width;Image1->Height=Screen->Height;
  51.   rect=Rect(0,0,Image1->Width,Image1->Height);//清屏
  52.   Image1->Canvas->CopyMode=cmBlackness;
  53.   Image1->Canvas->CopyRect(rect,Image1->Canvas,rect);
  54. }
  55. //---------------------------------------------------------------------------
  57. void __fastcall TForm1::N1Click(TObject *Sender)
  58. {
  59.   Image1->Canvas->CopyRect(rect,Image1->Canvas,rect);
  60.   ang=360.0/n_rot;
  61.   setlp(320.0,200.0);
  62.   setangle(90.0);
  63.   recurs(leng1,1);
  64. }
  65. //---------------------------------------------------------------------------
  67. void __fastcall TForm1::N2Click(TObject *Sender)
  68. {
  69.   if(SavePictureDialog1->Execute())
  70.     Image1->Picture->SaveToFile(SavePictureDialog1->FileName);
  71. }
  72. //---------------------------------------------------------------------------
  74. void __fastcall TForm1::N3Click(TObject *Sender)
  75. {
  76.   Close();        
  77. }
  78. //---------------------------------------------------------------------------
  80. void __fastcall TForm1::N4_1Click(TObject *Sender)
  81. {
  82.   n_rot=5;N=5;
  83.   scale=0.38;leng1=120.0;
  84. }
  85. //---------------------------------------------------------------------------
  87. void __fastcall TForm1::N4_2Click(TObject *Sender)
  88. {
  89.   n_rot=6;N=5;
  90.   scale=0.34;leng1=130.0;
  91. }
  92. //---------------------------------------------------------------------------
  94. void __fastcall TForm1::N4_3Click(TObject *Sender)
  95. {
  96.   n_rot=8;N=4;
  97.   scale=0.28;leng1=140.0;        
  98. }
  99. //---------------------------------------------------------------------------