mod_assemb_prep
!
dwire=0.0051
!
*do,j,-30,210,120
    csys,1
    !
    r=dwire/2
    rcs=r/cos((pi/6))
    !
    csn=csn+1
    clocal,csn,1,rcs-(0.005*rcs),j,0,0,0,0
    !
    *do,i,0,270,90
        k,,r,i,0
    *enddo
    !
    create_area,1
    !
    lplot
*enddo