S 160*4,120*4

// 放射状パターンセット
IFZ (($k-32)*$c): // [Space]キーで更新 
　$009= 10
  $002= $009
　$001= $rnd*640*3/10+640/4*3 
　LI $001
　　$($002)= $rnd
　　$002 +=1
　LO
;

BC 0,0,200

{
  BL 0,0,0
  C -10%,-15%
  M 70%
　LC 255,255,255 D "L1C",30%,80+40% CD 110%  CD 70%
　{
    C +25%,+25% 
　　M 90%
　　BL 0,0,0
　　{
　　　LC 0,0,250 D "R2C",43%,8%,5% CD 75%
　　　LC 0,250,0 D "R2C",53%,10%,12%
　　　LC 250,0,0 D "R3C",65%,12%,14-6% CD 91%
　　}
　　{
　　　M 50%
　　　LC 0,0,250 D "R2C",43%,8%,5% CD 75%
　　　LC 0,250,0 D "R2C",53%,10%,12%
　　　LC 250,0,0 D "R3C",65%,12%,14% CD 91%
　　} CD 25%
　　{
　　　M 33%
　　　LC 0,0,250 D "R2C",43%,8%,5% CD 75%
　　　LC 0,250,0 D "R2C",53%,10%,12%
　　　LC 250,0,0 D "R3C",65%,12%,14% CD 91%
　　} CD 11%
　　{
　　　M 25%
　　　LC 0,0,250 D "R2C",43%,8%,5% CD 75%
　　　LC 0,250,0 D "R2C",53%,10%,12%
　　　LC 250,0,0 D "R3C",65%,12%,14% CD 91%
　　} CD 6%
　} CD 40%
　PD $001-1,$009
}