h:=320
k:=240
angle:=0
k1:=0
r:=150
color:=RGB(Random(1,255,1),Random(1,255,1),Random(1,255,1))
SetFrame(TRUE,color)
Circle(3,h-r,k-r,h+r,k+r)
angle:=2*Pi/3
repeat while k1<=12
dianx:=r*COS(k1*(Pi/6))+h
diany:=r*SIN(k1*(Pi/6))+k
k2:=0
repeat while k2<=59
sanx:=r*COS(angle)+dianx
sany:=r*SIN(angle)+diany
Circle(2,sanx-2,sany-2,sanx+2,sany+2)
angle:=angle+Pi/180
k2:=k2+1
end repeat
angle:=angle-Pi/6
k1:=k1+1
end repeat
图片如下：
图片如下：
