Delphi Canvas生成万花筒特效.rar

DelphiCanvas生成万花筒特效，是由一个个单体的圆形经过变换生成的，单体的圆形的定义代码，可参考下边的代码：　　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;　　复制圆然后旋转。