向日葵製作

雙螺旋圖形

伸縮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)