> SIERPIN  4:  1  23,1,0;0;0;0;  floodnbg=&85 ( floodfg=&8D 2 order=4 F size=(order-1)*4+2 P h=(1000/size) Z h2=h*2 d sierpinski(order,640,512) n wait=(200) x 32,0  floodnbg,640,512  wait=(200)  0,0 : 32,128  floodnbg,640,512  wait=(200)  0,1 : 0,128  612,512 : 668,512  640,484 : 640,540  0,1 : floodnbg,644,516 16,0 : floodnbg,636,516 32,0 : floodnbg,636,508  48,0 : floodnbg,644,508  wait=(200)  0,3 " floodfg,640,512 , 6 @ sierpinski(n,x,y) J T k ^= n=0 x-h,y : x,y+h : x+h,y : x,y-h : x-h,y : h k = n*h r sierpinski(n-1,x-k,y-k) | sierpinski(n-1,x-k,y+k)  sierpinski(n-1,x+k,y+k)  sierpinski(n-1,x+k,y-k)  x-h2,y-h  0,3  0,0,4 : 1,0,h2-4  0,0  0,4,4 : 1,h-4,h-4  0,3  1,h2,0  0,0  0,4,-4 : 1,h-4,-h+4  0,3  1,0,-h2  0,0  0,-4,-4 : 1,-h+4,-h+4 & 0,3 0 1,-h2,0 : 0,0 D 0,-4,4 : 1,-h+8,h-8 N 0,3 X 0,4,4 b