Delphi Canvas生成万花筒特效.rar下载

Delphi Canvas生成万花筒特效，是由一个个单体的圆形经过变换生成的，单体的圆形的定义代码，可参考下边的代码： 　　Form1: TForm1; 　　R1,R2,Syn:integer; //R1大圆半径,R2小圆半径；Syn为小圆上的任意一点到圆心距离 　　Xr,Yr,W,H:integer; 　　//Xr,Yr为小圆上一点座标,W,H大圆圆心座标 　　a1,a2:Real;//a1定义为大圆角度，a2定义为小圆角度 　　pi : real=3.1415926; 　　复制圆然后旋转。