向日葵製作

作者:
吳政憲
雙螺旋圖形
伸縮Dilate(poly,r,A) 旋轉Rotate(Dilate(poly,r,A),α,A) 伸縮i次,r^i 旋轉i次,α*i Sequence(Rotate(Dilate(poly1,r^i,A),i*α,A),i,0,n) Sequence(Rotate(list_1,i*2*pi/m,A),i,1,m)